Ì i 2
lab.m.phdr.main (main)
[mnemonic]
&SMH[smh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L smh
active 1 YN L &SMH[smh]|0
header.chain 200 FREE L &SMH[smh]C
last.update 50 FREE L &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 &SMH[smh]|1
new.page 2 PINT R &SMH[smh]|3
parent 10 FREE L LAB.M.PHDR &SMH[smh]|6
sort.number 8 PDEC R &SMH[smh]|5
spec.result.format 10 FREE L LAB.M.RFMT &SMH[smh]|8
sum.result.format 10 FREE L LAB.M.RFMT &SMH[smh]|7
type 4 CHOICE L &SMH[smh]|2
Ì € i 2
lab.m.phdr.groups (groups)
[mnemonic, group]
&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
lab.m.phdr.header.cont.lines (header.cont.lines)
[mnemonic, hdr.cont.q]
&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 &SMH[smh]HC[smhQC]|2
header.cont.line 80 FREE.NS L &SMH[smh]HC[smhQC]|0
justify.cont 1 CHOICE L &SMH[smh]HC[smhQC]|1
Ì € i 2
lab.m.phdr.header.lines (header.lines)
[mnemonic, hdr.q]
&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 &SMH[smh]H[smhQ]|2
header.line 80 FREE.NS L &SMH[smh]H[smhQ]|0
justify 1 CHOICE L &SMH[smh]H[smhQ]|1
Ì € i 2
lab.m.phdr.procs.by.queue (procs.by.queue)
[mnemonic, proc.q]
&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 &SMH[smh]PQ[smhPQ]|2
explode 1 YN L &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 &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 &SMH[smh]PQ[smhPQ]|1
Ì € i 2
lab.m.phdr.excl.if.ord.procs (excl.if.ord.procs)
[mnemonic,proc.q, excl.if.ord.proc]
&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 &SMH[smh]PQ[smhPQ]OE[smp]|0
Ì € i 2
lab.m.phdr.if.ord.procs (if.ord.procs)
[mnemonic,proc.q, if.ord.proc]
&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 &SMH[smh]PQ[smhPQ]IO[smp]|0
Ì € i 2
lab.m.phdr.incl.if.ord.procs (incl.if.ord.procs)
[mnemonic,proc.q, incl.if.ord.proc]
&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 &SMH[smh]PQ[smhPQ]OI[smp]|0
Ì € i 2
lab.m.phdr.procs.by.value (procs.by.value)
[mnemonic, proc]
&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 &SMH[smh]PV[smp]|1
proc.val.q 3 PINT R &SMH[smh]PV[smp]|0
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.m.phdr.act.proc.x [group,proc,mnemonic]
act.proc.x &SMHB[schg,smp,smh]
lab.m.phdr.from.thru.proc.x [from.proc.number,thru.proc.number,mnemonic] = proc.q
from.thru.proc.x &SMHF[smp1,smp2,smh]
lab.m.phdr.group.x [group,mnemonic]
group.x &SMHG[schg,smh]
lab.m.phdr.if.ord.proc.x [if.ord.proc,mnemonic,proc.q]
if.ord.proc.x &SMHIO[smp,smh,smhPQ]
lab.m.phdr.parent.x [parent,mnemonic]
parent.x &SMHP[smhP,smh]
lab.m.phdr.sort.x [sort.number] = mnemonic
sort.x &SMHN[smhN]
lab.m.phdr.sum.proc.x [group,proc,mnemonic]
sum.proc.x &SMHT[schg,smp,smh]
|
|
| | | | | | | |