Ì 2
ap.dd.main (main)
[bank,compile.date]
?KY.D[kk,kdt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bank 10 FREE L AP.BANK kk
compile.date 8 DATE L kdt
date.sent 8 DATE L ?KY.D[kk,kdt]|1
err.trap 240 FREE L ?KY.D[kk,kdt]TR
pnote.y.n 1 YN L
sent.by 10 FREE L MIS.USER ?KY.D[kk,kdt]|3
status 9 CHOICE L ?KY.D[kk,kdt]|0
time.sent 4 TIME L ?KY.D[kk,kdt]|2
Ì € 2
ap.dd.data (data)
[bank,compile.date, data.count]
?KY.D[kk,kdt]D[cpuDC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
data.count 5 INT R cpuDC
data.record 94 FREE L ?KY.D[kk,kdt]D[cpuDC]
Ì € 2
ap.dd.turnaround (turnaround)
[bank,compile.date, turnaround.count]
?KY.D[kk,kdt]T[cpuDC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
turnaround.count 5 INT R cpuDC
turnaround.record 132 FREE L ?KY.D[kk,kdt]T[cpuDC]
Ì 2
ap.dd.security (security)
?KY.DPW
Field Name Len Dat Typ J DPM Offset/Local/VAL
sec.1 8 FREE L ?KY.DPW|0
sec.2 8 FREE L ?KY.DPW|1
sec.3 8 FREE L ?KY.DPW|2
sec.dt 8 DATE L ?KY.DPW|3
sec.tm 4 TIME L ?KY.DPW|4
sec.user 10 FREE L MIS.USER ?KY.DPW|5
Ì 2
ap.dd.compile.security (compile.security)
[sec.bank]
?KY.DPW["P",kk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sec.bank 10 FREE L AP.BANK kk
line.1 60 FREE L ?KY.DPW["P",kk]|0
line.2 60 FREE L ?KY.DPW["P",kk]|1
|
|
| | |