Ì i 2
main
[mnemonic]
&(SP)SPQ[spq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L spq
active 1 FREE L &(SP)SPQ[spq]|0
last.update 50 FREE L &(SP)SPQ[spq]UPD
lock.ques.process 1 FREE L VAL=@Try.to.lock(@p.LAB.C.LOCK.main["PTH Questionnaire
VAL= "_@LAB.P.QUES.mnemonic_" "_B])
lock.ques.update 1 FREE L VAL=@Try.to.lock(@p.LAB.C.LOCK.main["Update PTH Questi
VAL=onnaire "_@LAB.P.QUES.mnemonic])
max.row.size 2 PINT R &(SP)SPQ[spq]|7
max.row.size.calculated 2 PINT R &(SP)SPQ[spq]|6
pgm.name.report 40 FREE L &(SP)SPQ[spq]|4
pgm.name.screen 40 FREE L &(SP)SPQ[spq]|3
pgm.name.view 40 FREE L &(SP)SPQ[spq]|5
ques.in.use 1 FREE L VAL=@Locked.child(@LAB.C.LOCK.main["PQS:"_@LAB.P.QUES.
VAL=mnemonic])
ques.updating 1 FREE L VAL=@Locked(@p.LAB.C.LOCK.main["Update PTH Questionnai
VAL=re "_@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 &(SP)SPQ[spq]|1
type 7 CHOICE L &(SP)SPQ[spq]|2
unlock.ques.process 1 FREE L VAL=IF{@Locked(@p.LAB.C.LOCK.main["PTH Questionnaire "
VAL=_@LAB.P.QUES.mnemonic_" "_B])'%1P={@.machine,@.job
VAL=} @Unlock(@p.LAB.C.LOCK.main["PTH Questionnaire "_
VAL=@LAB.P.QUES.mnemonic_" "_B])}
unlock.ques.update 1 FREE L VAL=IF{@Locked(@p.LAB.C.LOCK.main["Update PTH Question
VAL=naire "_@LAB.P.QUES.mnemonic])'%1P={@.machine,@.jo
VAL=b} @Unlock(@p.LAB.C.LOCK.main["Update PTH Question
VAL=naire "_@LAB.P.QUES.mnemonic])}
urn 10 FREE L
win.height 2 PINT R
win.width 2 PINT R
Ì € i 2
components
[mnemonic, component.q]
&(SP)SPQ[spq]CM[spqCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
component.q 2 PINT R spqCQ
component.hot.key 1 FREE L &(SP)SPQ[spq]CM[spqCQ]|2
component.name 10 FREE L &(SP)SPQ[spq]CM[spqCQ]|1
component.screen 10 FREE L LAB.P.QUES &(SP)SPQ[spq]CM[spqCQ]|0
Ì € i 2
field.map
[mnemonic, field.map.row,field.map.col]
&(SP)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 &(SP)SPQ[spq]FM[spqFR,spqFC]|0
Ì € i 2
field.types
[mnemonic, fld.type,fld.no]
&(SP)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
Ì € i 2
fields
[mnemonic, field.no]
&(SP)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 &(SP)SPQ[spq]F[spqF]|2
field.item 20 FREE L &(SP)SPQ[spq]F[spqF]|8
field.justify 1 CHOICE L &(SP)SPQ[spq]F[spqF]|5
field.key 5 FREE L &(SP)SPQ[spq]F[spqF]|7
field.length 3 PINT R &(SP)SPQ[spq]F[spqF]|3
field.prompt 15 FREE L LAB.P.PROMPT &(SP)SPQ[spq]F[spqF]|6
field.row 3 PINT R &(SP)SPQ[spq]F[spqF]|1
field.rule 10 FREE L LAB.C.RULE &(SP)SPQ[spq]F[spqF]|9
field.rule.fcl 10 FREE L LAB.C.RULE &(SP)SPQ[spq]F[spqF]|10
field.type 8 CHOICE L &(SP)SPQ[spq]F[spqF]|0
field.width 3 PINT R &(SP)SPQ[spq]F[spqF]|4
row.col.display 6 FREE L VAL=@field.row+1000%0_"/"_(@field.col+100%0)
Ì € i 2
prompt.map
[mnemonic, map.field]
&(SP)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 &(SP)SPQ[spq]M[spqF]|0
Ì € i 2
prompt.rules
[mnemonic, prompt]
&(SP)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 &(SP)SPQ[spq]R[spp]|0
post.rule 10 FREE L LAB.C.RULE &(SP)SPQ[spq]R[spp]|1
Ì € i 2
report.rtf
[mnemonic, rtf.q]
&(SP)SPQ[spq]RQ[spqRQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rtf.q 3 PINT R spqRQ
rtf 250 FREE L &(SP)SPQ[spq]RQ[spqRQ]
Ì € i 2
report.text
[mnemonic,text.source, text.q]
&(SP)SPQ[spq]T[spqT]Q[spqTQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
text.q 3 PINT R spqTQ
text 92 FREE L &(SP)SPQ[spq]T[spqT]Q[spqTQ]
Ì € i 2
screen
[mnemonic, screen.q]
&(SP)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 &(SP)SPQ[spq]S[spqSQ]
Index Files Subscripts/Physical Base
doc.x [report.doc.name] = mnemonic
&(SP)SPQW[spqWD]
|
|
| | | | | | | | |