SNAX/HLS Application Programming Manual

SCOBOLX Applications
SNAX/HLS Programming Standards
1–12 104707 Tandem Computers Incorporated
wait-for-completion.
MOVE verb-receive-data
TO verb-code OF receive-data-request.
SEND MESSAGE receive-data-request
REPLY CODE FIELD IS verb-code OF receive-data-reply
CODE verb-send-data YIELDS send-data-reply
CODE verb-receive-data YIELDS receive-data-reply
ESCAPE ON UNSOLICITED MESSAGE
TIMEOUT 20
ON ERROR GOTO something-happened.
GOTO normal-ending.
reply-was-send-data.
PERFORM analyze-data-just-sent.
IF pw-unsolicited-message-queued = "YES"
PERFORM analyze-unsolicited-message.
reply-was-receive-data.
PERFORM analyze-data-just-received.
IF pw-unsolicited-message-queued = "YES"
PERFORM analyze-unsolicited-message.
unsolicited-message-arrived.
MOVE termination-substatus
TO saved-termination-substatus.
PERFORM analyze-unsolicited-message.
IF saved-termination-substatus = 189
GOTO wait-for-completion.
something-happened.
PERFORM ONE OF
status-was-1
status-was-2
status-was-3
....
DEPENDING ON termination-status.
status-was-1.
IF termination-substatus = 40
PERFORM analyze-timeout
GOTO operation-timed-out
ELSE IF termination-substatus = 189
PERFORM analyze-timeout
GOTO wait-for-completion
...