Ì i 2
main
[mnemonic]
&(T)TDMS[tdms]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L tdms
active 1 YN L &(T)TDMS[tdms]|0
branch 0 FREE L VAL=IF{@Z.lastkey=@Z.special.fcn @Z.enter^@Z.lastkey,I
VAL=F{@.new @Z.bell^#;%PHA.U.branch(@Pgm.trans("%PHA.M
VAL=ARS.ee.S"),@Pgm.trans("%PHA.MARS.file"))^@.new^@.n
VAL=ew.ext ""^@.old^@.old.ext;@Z.dummy.key^@Z.lastkey}
VAL=}
description 30 FREE L &(T)TDMS[tdms]|1
entry.user 10 FREE L MIS.USER &(T)TDMS[tdms]|2
last.update 50 FREE L &(T)TDMS[tdms]UPD
rx.detail.rpt 70 FREE L &(T)TDMS[tdms]RRF|1
rx.header.rpt 70 FREE L &(T)TDMS[tdms]RRF|0
rx.trailer.rpt 70 FREE L &(T)TDMS[tdms]RRF|2
section.header.rpt 70 FREE L &(T)TDMS[tdms]SRF|0
section.trailer.rpt 70 FREE L &(T)TDMS[tdms]SRF|1
Ì € i 2
incl.order.types
[mnemonic, incl.order.type]
&(T)TDMS[tdms]IOT[tdo]
Field Name Len Dat Typ J DPM Offset/Local/VAL
incl.order.type 10 FREE L PHA.OT tdo
Ì € i 2
incl.schedules
[mnemonic, incl.schedule]
&(T)TDMS[tdms]ISC[tdmsC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
incl.schedule 3 CHOICE L tdmsC
Ì € i 2
incl.statuses
[mnemonic, incl.status]
&(T)TDMS[tdms]IST[tdmsT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
incl.status 3 CHOICE L tdmsT
Ì € i 2
sort
[mnemonic, sort.by.q]
&(T)TDMS[tdms]S[tdmsS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sort.by.q 2 PINT R tdmsS
sort.by 10 CHOICE L &(T)TDMS[tdms]S[tdmsS]
Ì € i 2
sort.order
[mnemonic,sort.by.q, sort.ord.q]
&(T)TDMS[tdms]S[tdmsS]O[tdmsO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sort.ord.q 2 PINT R tdmsO
sort.fmt 8 CHOICE L &(T)TDMS[tdms]S[tdmsS]O[tdmsO]|1
sort.ord 10 FREE L &(T)TDMS[tdms]S[tdmsS]O[tdmsO]|0
Index Files Subscripts/Physical Base
desc.x [description] = mnemonic
&(T)TDMSI[tdmsD]
|
|
| | | | |