TS/MP Pathsend and Server Programming Manual (H06.05+, J06.03+)

* THIS PARAGRAPH PERFORMS THE PATHSEND SEND TO THE SUBSIDIARY SERVER
MOVE "N" TO WS-SERVERCLASS-SEND-OKAY.
MOVE SERVER-CLASS OF PATHSRV-REQUEST
TO WS-SERVER-CLASS-NAME OF WS-SERVERCLASS-SEND-PARAM.
MOVE SUBSIDIARY-REQUEST TO WS-MESSAGE-BUFFER
OF WS-SERVERCLASS-SEND-PARAM.
ENTER TAL "SERVERCLASS_SEND_"
USING
WS-PATHMON-PROCESS-NAME OF WS-SERVERCLASS-SEND-PARAM
WS-PATHMON-PROCESS-NAME-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-SERVER-CLASS-NAME OF WS-SERVERCLASS-SEND-PARAM
WS-SERVER-CLASS-NAME-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-MESSAGE-BUFFER OF WS-SERVERCLASS-SEND-PARAM
WS-REQUEST-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-MAXIMUM-REPLY-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-ACTUAL-REPLY-LEN OF WS-SERVERCLASS-SEND-PARAM
WS-TIMEOUT OF WS-SERVERCLASS-SEND-PARAM
GIVING
WS-ERROR OF WS-SERVERCLASS-SEND-PARAM.
* THE SERVER CLASS OPERATION NUMBER <SCSEND-OP-NUM> PARAMETER IS
* OMITTED BECAUSE THE SEND IS BEING DONE IN WAIT MODE. IN NOWAIT
* MODE THE <SCSEND-OP-NUM> IS USED IN CALLS TO AWAITIOX.
*
* THE <TAG> AND <FLAGS> PARAMETER ARE OMITTED BECAUSE THE SEND IS
* BEING DONE IN WAIT MODE. THEY ARE ONLY NEEDED IN NOWAIT MODE.
IF WS-ERROR OF WS-SERVERCLASS-SEND-PARAM = 0
MOVE "SUCCESSFUL" TO PATHSEND-ERROR OF PATHSRV-REPLY
MOVE WS-MESSAGE-BUFFER OF WS-SERVERCLASS-SEND-PARAM
TO SUBSIDIARY-REPLY
MOVE "Y" TO WS-SERVERCLASS-SEND-OKAY
ELSE
IF WS-ERROR OF WS-SERVERCLASS-SEND-PARAM = 233
* A "233" (SERVER CLASS ERROR) ERROR MUST BE FURTHER ANALYZED WITH
* SERVERCLASS_SEND_INFO_ TO GET THE PATHSEND ERROR NUMBER AND FILE
* SYSTEM ERROR NUMBER.
PERFORM 0500-ANALYZE-SEND-ERROR-233
ELSE
MOVE "UNEXPECTED ERROR FOUND AFTER SERVERCLASS_SEND_ CALL"
TO PATHSEND-ERROR OF PATHSRV-REPLY
END-IF
END-IF.
0500-ANALYZE-SEND-ERROR-233.
194 Examples