o
()
()
()
()
()
()
(}
168
Now, as data
is
assigned
to
the shared variable, it
is
transferred (written)
to
the
data file:
SHARE~···
21+~36:3()
0
SCREW
~:.:j
()
0 0 •
SHA'~E
0
()
SHAI~E~"'
21+~561+()
()
NUT
7000'
SHi~I~E
0 0
SHARE~'
21+~.)f.)5~:)()
~JAS~·IE
R
~)O
'
SHAI~E
()
()
SH(.~RE~"
'
53~)7BO
0
eIRe
HD
:lO'
SHAI~E
o
()
SHA
I~E."
\
()
...
----After
all
the data has been transferred,
SHA
RE
the file must
be
closed.
()
()
If
more data
is
to
be added
to
an
existing data file but the file
is
closed, a vari-
able name must
be
established
to
be
shared and the data file opened again:
Note:
In
this example,
the
variable name SHARE has not been retracted and can
still be shared.
__
---------Open
the data file again.
~
SHARE~'ADD
lOll
ID=(INVENTORY),
SHAI~E
SHARE~'535795()
BOARD
SHAI~E
SHARE~'5357951
A/W
SHAI~E
!:.)
')
These records are added
t'
following the existing
. records
in
the file.
SHAI~Ef'
\ 0
SHARE
------The
file
is
closed.
Since no more data
is
to
be written on tape, the shared variable should now
be
retracted:
[]SVR
'SHARE'
2