#80 %GED Utility doesn't work if "." isn't in gtmroutines

open
nobody
None
5
2012-12-29
2009-11-17
Jens Wulf
No

The utility %GED (Global Editor) doesn't catch the Savefile, if gtmroutines doesn't contain the actual directory.
I've changed the Label %ged as follows:

%ged ;%ged - global editor
n (%zdebug)
n %zro
s %("lo")="abcdefghijklmnopqrstuvwxyz"
s %("up")="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
s %zro=$zro
i %zro["(" s %zro=$p(%zro,"(",2),%zro=$p(%zro,")",1),%zro=$p(%zro," ",1)
i %zro="" s %zro=$p($zro," ",1)
s %("$zso")=$zso
s %("$io")=$io
s $zso=$select($zv'["VMS":%zro_"/",1:"[]")_"_"_$j_".ged"
s %("zlbeg")=$zl
beg ;
...
This works here, i hope it will in other environments too...
Jens

Discussion

  • Jens Wulf
    Jens Wulf
    2009-11-17

    Changed %GED

     
    Attachments