Type III C lass A Program

COLE
o
1
2
3
4
5
6
1
8
9
11
12
13
MEANING
no error
file type not found
buffer area not in core
disk error
illegal mode letter
item nurober is 0
no core available
file not in correct format
buffer too small (truncated item)
file open for writing
incorrect number of items
end of file
mode number invalid
Figure 27. RDBUF error return codes
(returned in register 15)
Example:
READA RDBUF INFIL,AREA=BUF,ERROR=EOF
NEXT
B READA
EOF CREOF ERREAD
BUF DS CL80
INFIL FCB (ELIPR, DATA) " BUF
Assuming that the RDBUF macro is preceded by a STATE SINFIL
and a SETUP INFIL. this sequence reads successive items from
the file ELIPR DATA Pn. Items are placed in BUF" and
control returned at NEXT. When end of file is reached,
control goes to EOF where CKEOF checks for a 12 in register
15. If any other value is in register 15, control goes to
ERREAD.
RDBUF Macro 285