Ì 2
lab.p.ques.dictionary (main)
[mnemonic]
&SPQ[spq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L spq
active 1 FREE L &SPQ[spq]|0
any.res.fields 1 YN L &SPQ[spq]|12
first.result.field 5 PINT R &SPQ[spq]|10
height 3 PINT R &SPQ[spq]|3
last.result.field 5 PINT R &SPQ[spq]|11
last.update 50 FREE L &SPQ[spq]UPD
lock.ques.process 1 FREE L VAL=@Lock.process("PQS:"_@LAB.P.QUES.mnemonic_._$MAC_.
VAL=_S("J")^X,@LAB.C.LOCK.lock.p.error.code)
lock.ques.update 1 FREE L VAL=@Lock.process("UPDATE PQS:"_@LAB.P.QUES.mnemonic_.
VAL=_$MAC_._S("J")^X,@LAB.C.LOCK.lock.p.error.code)
max.col 2 PINT R &SPQ[spq]|6
max.row 3 PINT R &SPQ[spq]|5
pgm.name.report 40 FREE L &SPQ[spq]|8
pgm.name.screen 40 FREE L &SPQ[spq]|7
pgm.name.view 40 FREE L &SPQ[spq]|9
ques.in.use 1 FREE L VAL=+:.LOCK.P["PQS:"_@LAB.P.QUES.mnemonic]#.=("PQS:"_@
VAL=LAB.P.QUES.mnemonic)
ques.updating 1 FREE L VAL=+:.LOCK.P["UPDATE PQS:"_@LAB.P.QUES.mnemonic]#.=("
VAL=UPDATE PQS:"_@LAB.P.QUES.mnemonic)
screen.lm 3 INT R VAL=0
screen.rm 3 PINT R VAL=(IF{@t.width;@p.width}-1)
title 30 FREE L &SPQ[spq]|1
type 7 CHOICE L &SPQ[spq]|2
unlock.ques.process 1 FREE L VAL=K(:.LOCK.P["PQS:"_@LAB.P.QUES.mnemonic_._$MAC_._S(
VAL="J")])
unlock.ques.update 1 FREE L VAL=K(:.LOCK.P["UPDATE PQS:"_@LAB.P.QUES.mnemonic_._$M
VAL=AC_._S("J")])
urn 10 FREE L
width 2 PINT R &SPQ[spq]|4
Ì € 2
lab.p.ques.field.map (field.map)
[mnemonic, field.map.row,field.map.col]
&SPQ[spq]FM[spqFR,spqFC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.map.row 3 PINT R spqFR
field.map.col 3 PINT R spqFC
field.map.field 5 FREE L &SPQ[spq]FM[spqFR,spqFC]|0
Ì € 2
lab.p.ques.field.types (field.types)
[mnemonic, fld.type,fld.no]
&SPQ[spq]TY[spqFT,spqF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fld.type 8 CHOICE L spqFT
fld.no 5 FREE L spqF
Ì € 2
lab.p.ques.fields (fields)
[mnemonic, field.no]
&SPQ[spq]F[spqF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.no 5 FREE L spqF
field.col 3 PINT R &SPQ[spq]F[spqF]|2
field.item 20 FREE L &SPQ[spq]F[spqF]|8
field.justify 1 CHOICE L &SPQ[spq]F[spqF]|5
field.key 5 FREE L &SPQ[spq]F[spqF]|7
field.length 3 PINT R &SPQ[spq]F[spqF]|3
field.prompt 15 FREE L LAB.P.PROMPT &SPQ[spq]F[spqF]|6
field.row 3 PINT R &SPQ[spq]F[spqF]|1
field.rule 10 FREE L LAB.C.RULE &SPQ[spq]F[spqF]|9
field.rule.fcl 10 FREE L LAB.C.RULE &SPQ[spq]F[spqF]|10
field.type 8 CHOICE L &SPQ[spq]F[spqF]|0
field.width 3 PINT R &SPQ[spq]F[spqF]|4
row.col.display 6 FREE L VAL=@field.row+1000%0_"/"_(@field.col+100%0)
Ì € 2
lab.p.ques.prompt.map (prompt.map)
[mnemonic, map.field]
&SPQ[spq]M[spqF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
map.field 5 FREE L spqF
map.prompt 15 FREE L LAB.P.PROMPT &SPQ[spq]M[spqF]|0
Ì € 2
lab.p.ques.prompt.rules (prompt.rules)
[mnemonic, prompt]
&SPQ[spq]R[spp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prompt 15 FREE L LAB.P.PROMPT spp
if.rule 10 FREE L LAB.C.RULE &SPQ[spq]R[spp]|0
post.rule 10 FREE L LAB.C.RULE &SPQ[spq]R[spp]|1
Ì € 2
lab.p.ques.screen (screen)
[mnemonic, screen.q]
&SPQ[spq]S[spqSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
screen.q 3 PINT R spqSQ
screen.line 92 FREE L &SPQ[spq]S[spqSQ]
|
|
| | | | |