Ì i 2
main
[mnemonic]
&(S)SRB[srb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L srb
active 1 CHOICE L &(S)SRB[srb]|0
branch 0 FREE L VAL=IF{@Z.lastkey=@Z.special.fcn @Z.enter^@Z.lastkey,I
VAL=F{B @Z.bell^#,"";"Y"'=@LAB.PARAM.bc.dict %Z.not.co
VAL=nf("");%Z.branch(@Pgm.trans("%LAB.C.BC.ee.S"),@Pgm
VAL=.trans("%LAB.C.BC.file"))^A^B ""^C^D;99^@Z.lastkey
VAL=}}
chg.rule 10 FREE L LAB.C.RULE &(S)SRB[srb]|2
last.update 9 FREE L &(S)SRB[srb]UPD
name 30 FREE L &(S)SRB[srb]|1
Ì € i 2
alt.code.types
[mnemonic, alt.code.type]
&(S)SRB[srb]AC[srbAC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.code.type 10 FREE L srbAC
Ì € i 2
alt.codes
[mnemonic,alt.code.type, alt.code.eff.date]
&(S)SRB[srb]AC[srbAC]ED[srbED]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.code.eff.date 8 DATE L srbED
alt.code 12 FREE L &(S)SRB[srb]AC[srbAC]ED[srbED]|0
alt.desc 30 FREE L &(S)SRB[srb]AC[srbAC]ED[srbED]|1
Ì € i 2
charges
[mnemonic, effective.date]
&(S)SRB[srb]CH[srbD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
effective.date 8 DATE L srbD
allow.discount 1 YN L &(S)SRB[srb]CH[srbD]|1
charge 8 MONEY R &(S)SRB[srb]CH[srbD]|0
Index Files Subscripts/Physical Base
eff.date.alt.code.x [alt.code.eff.date,mnemonic,alt.code.type]
&(S)SRBDA[srbED,srb,srbAC]
eff.date.bill.code.x [effective.date,mnemonic]
&(S)SRBDB[srbD,srb]
|
|
| | |