Ì € i 2
abs.can.corr.main (main)
[list.urn, id,stillborn.seq.no]
:DCK[dl,dz,dzSBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
id 44 FREE L ABS.PAT dz
stillborn.seq.no 2 INT R dzSBN
abstract.no 3 PINT R :DCK[dl,dz,dzSBN]|6
batch.no 2 PINT R :DCK[dl,dz,dzSBN]|5
batch.period 2 INT R :DCK[dl,dz,dzSBN]|4
batch.year 2 INT R :DCK[dl,dz,dzSBN]|3
chart.no 10 FREE L :DCK[dl,dz,dzSBN]|0
check.digit 1 INT R :DCK[dl,dz,dzSBN]|7
inst.no 4 PINT R :DCK[dl,dz,dzSBN]|2
last.update 10 PINT R :DCK[dl,dz,dzSBN]UPD
prior.tape 4 PINT R :DCK[dl,dz,dzSBN]|9
province 1 INT R :DCK[dl,dz,dzSBN]|1
submit.time 10 PINT R :DCK[dl,dz,dzSBN]|8
urn 44 FREE L ABS.PAT
Ì € i 2
abs.can.corr.field.data (field.data)
[list.urn,id,stillborn.seq.no, field.id]
:DCK[dl,dz,dzSBN]F[dclF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.id 6 INT R ABS.CAN.CORR.F dclF
data 12 FREE L :DCK[dl,dz,dzSBN]F[dclF]|0
data.tape 12 FREE L VAL=IF{@ABS.CAN.CORR.F.main %ABS.CAN.CORR.data.tape(fi
VAL=eld.id)}
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.can.corr.list.x [list.urn,inst.no,batch.year,batch.period,batch.no,abstract.no,urn,stillborn.seq
corr.list.x ?DCKX[dl,dzBIN,dckYR,dckPD,dzBAT,dckN,dz,dzSBN]
|
|
|