IBM 5100 Communications Manual page 42

[:1.
::I
1::2::1
[:~
]
[1+]
[~:.;;
:I
[(;')::1
[7::1
[0]
[<)]
[:1.0::1
[::1.:1. ]
[j,2]
1::1.
~3]
I::
:1.1.(.]
[:1.
~:;::I
[:1.6::1
[:1.7 ::I
I:: :I.BJ
I::
:1.9::1
[20]
38
The following are samples of the
~~ATTR, ~~SEND,
and
~~RECEIVE
functions:
V A4SEND 4ANAME;4ADATA;OIO;DPW
A
4ANAME IS A CHARACTER VECTOR
A
OF THE OBJECT NAME
f·\
A
THIS ROUTINE SENDS A VARIABLE
A
(FUNCTIONS MUST BE DCR'ED)
A
FROM A REMOTE APL.SV SYSTEM TO THE 5100.
fo\
A
WHEN 4ASEND IS EXECUTED
THE
5100 SHOULD BE
A
TO PUT THE OUTPUT ON TAPE. THIS ROUTINE
A
AND 44ATTR RESIDE ON THE REMOTE SYSTEM.
OPW~<590
[] I O~":I.
• OWIOI'
I
Al\NAME
I '
I
I
4lH~TTI~.f.Al1NAME
64DATA~'114ANAME
I' J .
4D
I~
TA
I:: ( I.~
A
II
AT
(.~
::::[] AV [ 1
~:; '7::1 ) / \ (.) A
4
D
ATA
::I~" • .. •
AALOOP:~(0=pA4DATA)/66END
'~~~'
,(125Lp44DATA)tAADATA
AADATA~(125Lp4ADATA)~l\ADATA
·,.AAI... OOP
b.~END:
·
<lH,)(,)'
V
"Z~"l'.\AATT
R X
i
I~
[:l.J
fo\
:l.tZ IS S OR A FOR SCALAR OR ARRAY
[2J
fo\
j.
t
1... Z IS C OR N F'OR CHARACTEI~ ()I~ NUMEI~IC
[3J
A
2~Z IS THE SHAPE OF X (CHARACTER)
[I.I·J
R~"f)PX
C:5 J Z
~
.. ( (
I~
:::: 0 )
I (
I~::-
() ) ) / • SA
I
[6]
Z~ZI«O=ltOpX),(' '~ltOpX»/'NC'
[ 7 ]
.~
(
I~
:::: 0 ) / 0
I:B:J Zt-Z
I
'f
(.)X 'V
SET