Ì i 2
pp.ref.source (main)
[urn]
*JA.S[jas]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 8 URN L jas
cd.screen.1 15 FREE L MIS.SCREEN VAL=@PP.REF.TYPE.cust.def.screen[@type]
cost 8 MONEY R *JA.S[jas]|3
description 40 FREE L *JA.S[jas]|2
display.id 40 FREE L VAL=@number_" "_@type_" "_@description:0S
id 8 URN L PP.REF.SOURCE VAL=@PP.REF.SOURCE.number
number 8 PINT R *JA.S[jas]|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 PP.REF.TYPE *JA.S[jas]|1
Ì € i 2
pp.ref.source.cust.def.queries (customer.defined.queries)
[urn, cd.query]
*JA.S[jas]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 *JA.S[jas]CD[ggv]|0
Ì € i 2
pp.ref.source.cust.def.mul.qry (customer.def.mult.queries)
[urn,cd.query, cdm.seq.no]
*JA.S[jas]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 *JA.S[jas]CD[ggv]M[ggvN]|0
Ì € i 2
pp.ref.source.openings (openings)
[urn, opening]
*JA.S[jas]P[jaa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
opening 8 PINT R PP.OPENING jaa
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
pp.ref.source.type.x [type,number] = urn
type.x ?JA.ST[jart,jasN]
|
|
| | |