Ì i 2
main
[urn]
*(HLA)HLA.S[hlas]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 8 URN L hlas
cd.screen.1 15 FREE L MIS.SCREEN VAL=@HR.REF.TYPE.cust.def.screen[@type]
cost 8 MONEY R *(HLA)HLA.S[hlas]|3
description 40 FREE L *(HLA)HLA.S[hlas]|2
display.id 40 FREE L VAL=@number_" "_@type_" "_@description:0S
id 8 URN L HR.REF.SOURCE VAL=@HR.REF.SOURCE.number
number 8 PINT R *(HLA)HLA.S[hlas]|0
print.cd.screen.1 0 FREE L VAL=IF{@cd.screen.1 %MIS.SCREEN.print(@cd.screen.1,^@c
VAL=ustomer.defined.fields,"",3),""}
print.cd.screen.verbatm.1 0 FREE L VAL=IF{@cd.screen.1 %MIS.SCREEN.print(@cd.screen.1,^@c
VAL=ustomer.defined.fields,1,0),""}
type 8 FREE L HR.REF.TYPE *(HLA)HLA.S[hlas]|1
Ì € i 2
customer.defined.queries
[urn, cd.query]
*(HLA)HLA.S[hlas]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.response 75 QRY.RESP L *(HLA)HLA.S[hlas]CD[ggv]|0
Ì € i 2
customer.def.mult.queries
[urn,cd.query, cdm.seq.no]
*(HLA)HLA.S[hlas]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L *(HLA)HLA.S[hlas]CD[ggv]M[ggvN]|0
Ì € i 2
openings
[urn, opening]
*(HLA)HLA.S[hlas]P[hlaa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
opening 8 PINT R HR.OPENING hlaa
Index Files Subscripts/Physical Base
type.x [type,number] = urn
?(HLA)HLA.ST[hlerf,hlasN]
|
|
| | |