c
[1]
[2]
[]]
r:
LI·]
[5]
[6]
£:7]
[BJ
[9]
[10]
[1:1.
:1
I:
1
~~J
[:I.:~]
[:
:1.4·]
I:
1~;]
[1.6]
[:1.7]
[18]
[19]
[20]
1:2:1.]
[22]
[2~3]
Now, assume
that
at
a later time you want
to
read
the
data
frQm
file
11
and
print it on the printer, using
the
following user-defined function:
'iJPI~INT[IJ]'iJ
'iJ
PRINT
i
IAIORK
'iJ
AREAD
DATA
FROM
THE
DATA
FILE
AND
ASSIGN
IT
TO
WORK
LODP:
WORK
t·DATA
ACHECK
FOR
AN
EMPTY
VECTOR
(INDICATING
AN
END
OF
FILE
OR
ATAPE
ERROR)--AN
EMPTY
VECTOR
HAS
A
SHAPE
OF
0
(NO
ELEMENTS)
.~
(O::::pWOI~I<)
/DDNE
ADISPLAY
AND
PRINT
THE
VALUE
ASSIGNED
TO
WORK
P
I~NT
f-Ot-WO
RK
ACHECK
THE
RETURN
CODE
FOR
THE
PRINT
OPERATION
~(O
0
~+/WORKt-PRNT)/PRINT4ERROR
"~LODP
PRINT4ERROR:
PRINT
ERROR--THE
RETURN
CODE
IS:
WDI~K
••
Jot)
A
TERMINATE
THE
PRINTER
OUTPUT
[lONE:PRNTf-,O
ACHECK
THE
RETURN
CODES
TO
MAKE
SURE
ALL
TAPE
INPUT
ADPERATIONS
WERE
SUCCESSFUL
AND
THE
SHARED
VARIABLE
APRINTER
OUTPUT
IS
TERMINATED
~(O
0
~+/WORKt-DATA)/TAPE4ERROR
~(O
0
¢+/WORKt-PRNT)/PRINT4ERROR
-.0
TAPE4ERROR:
'TAPE
ERROR--THE
RETURN
CODE
IS:
WORK
The variable names
to
be
shared must be established again and
the
data file
opened. Also, printer
output
must be specified:
NAMESf-2
4p'DATAPRNT'
NAMES
DAT
f~
________
Establish
the
variable names
PRNT
~
to
be shared.
2 2
o 0
()
0
1
I:rSVO
NI~MES
/'
Open
the
data file for input.
DATAf-tIN
lOll
ID=(INVENTORY),
DATA
PI~NTt-
t
PRT
t
...
------Specify
printer
output.
PRNT
169
To Next Page
Loading...
