Ì € 2
main
[mnemonic]
&(S)SCHG[schg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L schg
active 1 YN L &(S)SCHG[schg]|0
branch 0 FREE L VAL=IF{@Z.lastkey=@Z.special.fcn @Z.enter^@Z.lastkey,I
VAL=F{@.new @Z.bell^#;%Z.branch(@Pgm.trans("%LAB.C.HDR
VAL=.GRP.ee.S"),@Pgm.trans("%LAB.C.HDR.GRP.ee"))^@.new
VAL=^@.new.ext ""^@.old^@.old.ext;99^@Z.lastkey}}
last.update 50 FREE L &(S)SCHG[schg]UPD
name 30 FREE L &(S)SCHG[schg]|1
|