Pathway/iTS System Management Manual (G06.24+)

Source Code for Programs in Section 6
HP NonStop Pathway/iTS System Management Manual—426748-002
G-4
Source Code for Screen Program
SEND-DATA.
MOVE 0 TO SEND-ERROR-FLAG.
SEND ENTRY-MSG TO "EXAMPLE-SERVER"
REPLY CODE 0 YIELDS ENTRY-REPLY
CODE 999 YIELDS ERROR-REPLY ON ERROR PERFORM
SEND-ERROR.
IF SEND-ERROR-FLAG = 99
DISPLAY TEMP "SEND ERROR" IN
ERROR-MSG OF EXAMPLE-SCREEN
ELSE PERFORM ONE OF PARA-1
PARA-2
DEPENDING ON TERMINATION-STATUS.
PARA-1.
MOVE SPACES TO ERROR-MSG OF WS
DISPLAY MESSAGE-TEXT OF EXAMPLE-SCREEN,
ERROR-MSG OF EXAMPLE-SCREEN.
PARA-2.
PERFORM SETUP-SERVER-ERROR
PERFORM DISPLAY-ADVISORY.
SEND-ERROR.
MOVE 99 TO SEND-ERROR-FLAG.
SETUP-SERVER-ERROR.
IF ERROR-CODE = 1
MOVE "SERVER FUNCTION NOT SUPPORTED" TO ERROR-MSG
OF WS
ELSE
IF ERROR-CODE = 2
MOVE "MESSAGE DOES NOT EXIST FOR SPECIFIED NUMBER"
TO ERROR-MSG OF WS
ELSE
MOVE "UNKNOWN SERVER ERROR" TO ERROR-MSG OF WS.
DISPLAY-ADVISORY.
DISPLAY TEMP ERROR-MSG OF EXAMPLE-SCREEN.
TURN TEMP ATTENTION IN ERROR-MSG OF EXAMPLE-SCREEN.
Example G-1. Source Code for the Screen Program (page 3 of 3)