Ì i 2
abs.conversion.file (main)
[volume,error.type,error]
?DZERR[erv,ert,er]
Field Name Len Dat Typ J DPM Offset/Local/VAL
volume 4 PINT R erv
error.type 10 FREE L ert
error 6 PINT R er
account.number 12 FREE L ?DZERR[erv,ert,er]|1
birthdate 8 DATE L ?DZERR[erv,ert,er]|3
dict.mnemonic 10 FREE L
dict.occurrences 10 PINT R
err.rc.date 8 DATE L ?DZERR[erv,ert,er]|7
err.rc.time 4 HHMM L ?DZERR[erv,ert,er]|8
error.description 50 FREE L ?DZERR[erv,ert,er]|6
name 25 FREE L ?DZERR[erv,ert,er]|2
record 200 FREE L ?DZERR[erv,ert,er]R
record.error.marker 200 FREE L VAL="^":(@record.error.position_"R")
record.error.position 3 PINT R ?DZERR[erv,ert,er]|0
record.type 1 PINT R ?DZERR[erv,ert,er]|5
sex 1 CHOICE L ?DZERR[erv,ert,er]|4
Ì i 2
abs.conv.tape.load (tape.load)
?DZTAPE
Field Name Len Dat Typ J DPM Offset/Local/VAL
reject.inprocess 1 YN L ?DZTAPE|6
reject.transfer 1 YN L ?DZTAPE|7
set 1 PINT R
suppress.zip.code.errors 1 YN L ?DZTAPE|5
tape.current.volume 2 PINT R ?DZTAPE|2
tape.ebcdic 1 YN L ?DZTAPE|4
tape.facility 10 FREE L MIS.FACILITY ?DZTAPE|3
tape.file.number 1 PINT R ?DZTAPE|0
tape.record.length 3 PINT R VAL=200
tape.records.per.block 2 PINT R ?DZTAPE|1
yn 1 YN L
Ì i 2
abs.conv.tape.load.results (tape.load.results)
[tape.volume]
?DZTAPE[erv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.volume 4 PINT R erv
tape.finish.time 10 FREE L ?DZTAPE[erv]|1
tape.finish.urn 12 FREE L ?DZTAPE[erv]|8
tape.last.filed.time 10 FREE L ?DZTAPE[erv]|9
tape.master.job.num 4 FREE L ?DZTAPE[erv]|11
tape.master.job.seg 10 FREE L ?DZTAPE[erv]|10
tape.patients.read 8 FREE L ?DZTAPE[erv]|5
tape.patients.reject 8 FREE L ?DZTAPE[erv]|6
tape.records.read 8 PINT R ?DZTAPE[erv]|3
tape.records.reject 8 PINT R ?DZTAPE[erv]|4
tape.start.time 10 FREE L ?DZTAPE[erv]|0
tape.start.urn 12 FREE L ?DZTAPE[erv]|7
tape.status 25 FREE L ?DZTAPE[erv]|2
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.conv.dictionary.errors [error.type,volume,dict.mnemonic] = dict.occurrences
dictionary.errors ?DZERR.DICT[ert,erv,mnem]
|
|
| |