SNAX/CNM Manual

INTRODUCTION
The Programmatic Interface
INT
file^name[0:11] := ["$SSCPbbb#APPL1bbbbbbbbbb"],
file^number,
read^count,
write^count,
count^read;
INT(32)
tag,
temptag;
! Establish communication with $SSCP
! Open $SSCP and execute SETMODE 30
CALL OPEN(file^name,file^number,10)
IF <> THEN error
CALL SETMODE(file^number,30,1)
IF <> THEN error
! Format buffer for VERB^CONNECT and send the verb
CALL WRITEREAD(file^number,buffer,write^count,read^count
,,tag)
IF <> THEN error
CALL AWAITIO(file^number,,count^read,temp^tag)
IF <> THEN error
! Send Verbs and Receive Replies
! Format buffer for particular verb and send the verb
CALL WRITEREAD(file^number,buffer,write^count,read^count
,,tag)
IF <> THEN error
...
CALL AWAITIO(file^number,,count^read,temp^tag)
IF <> THEN error
! Discontinue communication with $SSCP
! Format buffer for VERB^DISCONNECT and send the verb
CALL WRITEREAD(file^number,buffer,write^count,read^count
,,tag)
IF <> THEN error
CALL AWAITIO(file^number,,count^read,temp^tag)
IF <> THEN error
CALL CLOSE(file^number)
1-6