"
.:..
o
0
**
RECORD I/O
**
:1.
nBVO · CTI...DBK ·
:1.
[]SVO · DATItSI( ·
Two shared variables are offered which can be
used together for record input/output.
CTI...DSK~·OUTF
11001 ID=(TEST)'
CTI...DSK
Assignments to CTLDSK write records onto the diskette.
The records must all be the same length and internal
representation since these are default TYPE=A records.
CTLDBK~"l
0
O~)·
A'
CTLDSI(~":1.00p'
B'
C T I ...
It
S K
~"1
0 0
p •
C •
CTI...DSI(
~
..
:1.
0
()~)
· D ·
CTLDSI(fol00p'
E'
CTLDSI(~":I.OOp'
F'
CTLDSI(~"
20
p •
G ·
10
STATUS: INVALID DATA TYPE
CTI ...
DSK
~..
:I.
~:j O~)
•
H
I
10
STATUS: INVALID DATA TYPE
CTLDSI(~
.. :I. 0 () p:l.
IO STATUS: INVALID DATA TYPE
NOTE that the assignment must be character and the
length must be 100 since that is true with the first
record.
The error messages were displayed because
the MBG=OFF parameter was not specified.
I nput/Output Control
143