Ì 2
mri.tape.main (main)
[volume,error.type,error]
:EAERR[erv,ert,er]
Field Name Len Dat Typ J DPM Offset/Local/VAL
volume 2 PINT R erv
error.type 10 CHOICE L ert
error 6 PINT R er
birthdate 8 BDATE L :EAERR[erv,ert,er]|3
error.description 30 FREE L :EAERR[erv,ert,er]|6
name 25 FREE L :EAERR[erv,ert,er]|2
record 155 FREE L :EAERR[erv,ert,er]R
record.error.marker 155 FREE L VAL="^":(@record.error.position_"R")
record.error.position 3 PINT R :EAERR[erv,ert,er]|0
record.type 1 PINT R :EAERR[erv,ert,er]|5
sex 1 CHOICE L :EAERR[erv,ert,er]|4
unit.number 10 FREE L :EAERR[erv,ert,er]|1
Ì 2
mri.tape.tape.load (tape.load)
:EATAPE
Field Name Len Dat Typ J DPM Offset/Local/VAL
set 1 PINT R
tape.create.new 1 YN L :EATAPE|8
tape.current.volume 2 PINT R :EATAPE|2
tape.ebcdic 1 YN L :EATAPE|4
tape.facility 10 FREE L MIS.FACILITY :EATAPE|3
tape.file.number 1 PINT R :EATAPE|0
tape.other.unitno 1 YN L :EATAPE|7
tape.record.length 3 PINT R VAL=220
tape.records.per.block 2 PINT R :EATAPE|1
tape.without.unitno 1 YN L :EATAPE|6
yn 1 YN L
Ì 2
mri.tape.load.results (tape.load.results)
[tape.volume]
:EATAPE["R",erv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tape.volume 4 PINT R erv
tape.errors 8 PINT R :EATAPE["R",erv]|4
tape.finish.time 10 FREE L :EATAPE["R",erv]|1
tape.finish.urn 12 FREE L :EATAPE["R",erv]|6
tape.last.filed.time 10 FREE L :EATAPE["R",erv]|7
tape.master.job.num 4 FREE L :EATAPE["R",erv]|9
tape.master.job.seg 10 FREE L :EATAPE["R",erv]|8
tape.records.read 8 PINT R :EATAPE["R",erv]|3
tape.start.time 10 FREE L :EATAPE["R",erv]|0
tape.start.urn 12 FREE L :EATAPE["R",erv]|5
tape.status 15 FREE L :EATAPE["R",erv]|2
|
|
|