Manualshelf

Pathway/iTS TCP and Terminal Programming Guide

ManualsBrandsHP ManualsServerHP NonStop G-Series
171172173174175176177178179180
Handling Errors
Compaq NonStop™ Pathway/iTS TCP and Terminal Programming Guide—426751-001
10-6
Processing Variable-Length Server Replies
IF PROCESSING-STATE = "STOP" GO TO
MAIN-PARAGRAPH-EXIT.
.
.
MAIN-PARAGRAPH-EXIT.
EXIT.
NEW-NAME-QUERY.
SEND new-name-request TO customer-data-base
REPLY CODE 1 YIELDS new-name-reply
ON ERROR GO TO analyze-error.
CONTINUE-PROCESSING.
*
* Process the returned names. Control passes here from the
* ANALYZE-ERROR paragraph when the number of names returned
* is greater than or less than 20. Control passes here
* from the NEW-NAME-QUERY paragraph when the number of
* names returned is exactly 20.
*
GO TO send-processing-exit.
ANALYZE-ERROR.
IF TERMINATION-STATUS = 11 AND
function-code = 1 THEN GO TO
CONTINUE-PROCESSING
ELSE MOVE "STOP" TO PROCESSING STATE.
SEND-PROCESSING-EXIT.
EXIT.