Hi, Bob
It may be easier to make an analogue of ^% G ?
Something like this:
```
ClassMethod 
AlterG(gn = "", Output rep) As %Status
{
   OPEN 2:$job USE 2
 zwrite @gn ;
 CLOSE 2
 set i="",rep=""
 for set i=$order(^SPOOL($job,i),1,s) quit:i=""
  set rep=rep_s
 }
 KILL ^SPOOL($job)
}