Ì i 2
main
[mnemonic]
&(SM)SMH[smh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L smh
active 1 YN L &(SM)SMH[smh]|0
header.chain 200 FREE L &(SM)SMH[smh]C
last.update 50 FREE L &(SM)SMH[smh]UPD
level 1 PINT R VAL=IF{7^LV,DO{IF{'@LAB.M.PHDR.header.chain|LV LV-1'&l
VAL=t;0^LV}},LV+1}
list.map.or.mnemonic 15 CHOICE L
name 30 FREE L &(SM)SMH[smh]|1
new.page 2 PINT R &(SM)SMH[smh]|3
parent 10 FREE L LAB.M.PHDR &(SM)SMH[smh]|6
sort.number 8 PDEC R &(SM)SMH[smh]|5
spec.result.format 10 FREE L LAB.M.RFMT &(SM)SMH[smh]|8
sum.result.format 10 FREE L LAB.M.RFMT &(SM)SMH[smh]|7
type 4 CHOICE L &(SM)SMH[smh]|2
Ì € i 2
groups
[mnemonic, group]
&(SM)SMH[smh]G[schg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
group 10 FREE L LAB.C.HDR.GRP schg
Ì € i 2
header.cont.lines
[mnemonic, hdr.cont.q]
&(SM)SMH[smh]HC[smhQC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hdr.cont.q 2 PINT R smhQC
fill.cont 1 FREE.NS L &(SM)SMH[smh]HC[smhQC]|2
header.cont.line 80 FREE.NS L &(SM)SMH[smh]HC[smhQC]|0
justify.cont 1 CHOICE L &(SM)SMH[smh]HC[smhQC]|1
Ì € i 2
header.lines
[mnemonic, hdr.q]
&(SM)SMH[smh]H[smhQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hdr.q 2 PINT R smhQ
fill 1 FREE.NS L &(SM)SMH[smh]H[smhQ]|2
header.line 80 FREE.NS L &(SM)SMH[smh]H[smhQ]|0
justify 1 CHOICE L &(SM)SMH[smh]H[smhQ]|1
Ì € i 2
procs.by.queue
[mnemonic, proc.q]
&(SM)SMH[smh]PQ[smhPQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.q 3 PINT R smhPQ
allow.dup 1 YN L &(SM)SMH[smh]PQ[smhPQ]|2
explode 1 YN L &(SM)SMH[smh]PQ[smhPQ]|3
from.nearest.proc 15 FREE L VAL=IF{@LAB.M.PROC.mnemonic[@from.proc.number^XX];DO{.
VAL=_@LAB.M.PROC.type[XX]'=.T&XX +@LAB.M.PROC.main[XX]
VAL='>IF{@thru.proc.number;@Z.del}^XX},@LAB.M.PROC.
VAL=mnemonic[XX]}
from.proc.number 9 PDEC5 R &(SM)SMH[smh]PQ[smhPQ]|0
thru.nearest.proc 15 FREE L VAL=IF{@LAB.M.PROC.mnemonic[@thru.proc.number^XX];DO{.
VAL=_@LAB.M.PROC.type[XX]'=.T&XX -@LAB.M.PROC.main[XX]
VAL='<@from.proc.number^XX},@LAB.M.PROC.mnemonic[XX
VAL=]}
thru.proc.number 9 PDEC5 R &(SM)SMH[smh]PQ[smhPQ]|1
Ì € i 2
excl.if.ord.procs
[mnemonic,proc.q, excl.if.ord.proc]
&(SM)SMH[smh]PQ[smhPQ]OE[smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
excl.if.ord.proc 9 PDEC5 R LAB.M.PROC smp
excl.if.ord 1 YN L &(SM)SMH[smh]PQ[smhPQ]OE[smp]|0
Ì € i 2
if.ord.procs
[mnemonic,proc.q, if.ord.proc]
&(SM)SMH[smh]PQ[smhPQ]IO[smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
if.ord.proc 9 PDEC5 R LAB.M.PROC smp
if.ord.proc.action 7 CHOICE L &(SM)SMH[smh]PQ[smhPQ]IO[smp]|0
Ì € i 2
incl.if.ord.procs
[mnemonic,proc.q, incl.if.ord.proc]
&(SM)SMH[smh]PQ[smhPQ]OI[smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
incl.if.ord.proc 9 PDEC5 R LAB.M.PROC smp
incl.if.ord 1 YN L &(SM)SMH[smh]PQ[smhPQ]OI[smp]|0
Ì € i 2
procs.by.value
[mnemonic, proc]
&(SM)SMH[smh]PV[smp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc 9 PDEC5 R LAB.M.PROC smp
proc.allow.dup 1 YN L &(SM)SMH[smh]PV[smp]|1
proc.val.q 3 PINT R &(SM)SMH[smh]PV[smp]|0
Index Files Subscripts/Physical Base
act.proc.x [group,proc,mnemonic]
&(SM)SMHB[schg,smp,smh]
from.thru.proc.x [from.proc.number,thru.proc.number,mnemonic] = proc.q
&(SM)SMHF[smp1,smp2,smh]
group.x [group,mnemonic]
&(SM)SMHG[schg,smh]
if.ord.proc.x [if.ord.proc,mnemonic,proc.q]
&(SM)SMHIO[smp,smh,smhPQ]
parent.x [parent,mnemonic]
&(SM)SMHP[smhP,smh]
sort.x [sort.number] = mnemonic
&(SM)SMHN[smhN]
sum.proc.x [group,proc,mnemonic]
&(SM)SMHT[schg,smp,smh]
|
|
| | | | | | | |