Ì i 2
main
[mnemonic]
&(P)PWG[pwg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 15 FREE L pwg
active 1 YN L &(P)PWG[pwg]|0
group.orient 6 CHOICE L &(P)PWG[pwg]|2
last.update 10 PINT R &(P)PWG[pwg]UPD
name 30 FREE L &(P)PWG[pwg]|1
proc.orient 6 CHOICE L &(P)PWG[pwg]|3
Ì € i 2
groups
[mnemonic, group.q]
&(P)PWG[pwg]G[pwgG]
Field Name Len Dat Typ J DPM Offset/Local/VAL
group.q 2 PINT R pwgG
group.name 30 FREE L &(P)PWG[pwg]G[pwgG]|0
Ì € i 2
procedures
[mnemonic,group.q, proc.q]
&(P)PWG[pwg]G[pwgG]P[pwgP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.q 3 PINT R pwgP
proc.category 10 FREE L OE.CAT VAL=@OE.WEB.PROC.category[@web.proc]
proc.procedure 10 DEC R OE.PROC VAL=@OE.WEB.PROC.procedure[@web.proc]
proc.procedure.mne 10 FREE L VAL=@OE.PROC.mnemonic[@OE.WEB.PROC.category[@web.proc]
VAL=,@OE.WEB.PROC.procedure[@web.proc]]
proc.procedure.name 30 FREE L VAL=@OE.PROC.name[@OE.WEB.PROC.category[@web.proc],@OE
VAL=.WEB.PROC.procedure[@web.proc]]
web.proc 20 FREE L OE.WEB.PROC &(P)PWG[pwg]G[pwgG]P[pwgP]|0
web.proc.name 60 FREE L VAL=IF{@web.proc="-" @web.proc.sep.name;@OE.WEB.PROC.n
VAL=ame[@web.proc]}
web.proc.sep.name 60 FREE L &(P)PWG[pwg]G[pwgG]P[pwgP]|1
Ì € i 2
providers
[mnemonic, provider]
&(P)PWG[pwg]D[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
provider 10 FREE L MIS.DOC ggg
Index Files Subscripts/Physical Base
group.name.x [group.name,mnemonic]
&(P)PWGG[pwgNM,pwg]
provider.x [provider] = mnemonic
&(P)PWGD[ggg]
web.proc.x [web.proc,mnemonic]
&(P)PWGP[pwp,pwg]
|
|
| | |