Ì i 2
main
[mnemonic]
&(S)SRN[srn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L srn
active 1 YN L &(S)SRN[srn]|0
branch 0 FREE L VAL=IF{@Z.lastkey'=@Z.special.fcn;@.new 99;%Z.branch(@
VAL=Pgm.trans("%LAB.R.REP.ee.S"),@Pgm.trans("%LAB.R.RE
VAL=P.ee"))^@.new^@.new.ext ""^@.old^@.old.ext,@Z.ente
VAL=r;99}^@Z.lastkey
code 10 FREE L &(S)SRN[srn]|2
last.update 9 FREE L &(S)SRN[srn]UPD
name 30 FREE L &(S)SRN[srn]|1
Index Files Subscripts/Physical Base
code.x [code,name,mnemonic]
&(S)SRNC[srnc,srnn,srn]
name.x [name,code,mnemonic]
&(S)SRNN[srnn,srnc,srn]
|
|