Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Pathway Application Example
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
8-10
SCREEN COBOL Program for Conversational Mode
ELSE
IF WS-SHOW-REQUEST
PERFORM SHOW-IT
ELSE
IF WS-EXIT-REQUEST
PERFORM EXIT-IT
ELSE
PERFORM INVALID-FUNCTION.
SEARCH-IT.
MOVE 1 TO MESSAGE-ID.
SEND MESSAGE-ID, EMPLOYEE-REC TO "USER-SERVER"
REPLY CODE 1 YIELDS R-CODE, EMPLOYEE-REC
CODE 2 YIELDS R-CODE
ON ERROR MOVE 999 TO R-CODE.
IF NOT SEND-ERROR
PERFORM ONE OF DISPLAY-EMPLOYEE-REC, EMPLOYEE-NOT-FOUND
DEPENDING ON R-CODE
ELSE
PERFORM SEND-ERROR-NOTICE.
ADD-IT.
MOVE 2 TO MESSAGE-ID.
SEND MESSAGE-ID, EMPLOYEE-REC TO "USER-SERVER"
REPLY CODE 1, 3 YIELDS R-CODE
ON ERROR MOVE 999 TO R-CODE.
IF NOT SEND-ERROR
PERFORM ONE OF EMPLOYEE-ADDED, EMPLOYEE-ALREADY-EXISTS
DEPENDING ON R-CODE
ELSE
PERFORM SEND-ERROR-NOTICE.
DELETE-IT.
MOVE 3 TO MESSAGE-ID.
SEND MESSAGE-ID, EMPLOYEE-REC TO "USER-SERVER"
REPLY CODE 1, 2 YIELDS R-CODE
ON ERROR MOVE 999 TO R-CODE.
IF NOT SEND-ERROR
PERFORM ONE OF EMPLOYEE-DELETED, EMPLOYEE-NOT-FOUND
DEPENDING ON R-CODE
ELSE
PERFORM SEND-ERROR-NOTICE.
SHOW-IT.
MOVE 4 TO MESSAGE-ID.
SEND MESSAGE-ID, EMPLOYEE-REC TO "USER-SERVER"
REPLY CODE 1, 2 YIELDS R-CODE
ON ERROR MOVE 999 TO R-CODE.
IF NOT SEND-ERROR
PERFORM ONE OF DISPLAY-EMPLOYEE-REC, EMPLOYEE-NOT-FOUND
DEPENDING ON R-CODE
ELSE
PERFORM SEND-ERROR-NOTICE.
EXIT-IT.
MOVE 1 TO EXIT-FLAG.
DISPLAY-EMPLOYEE-REC.
DISPLAY EMPLOYEE-REC-SCREEN.
EMPLOYEE-NOT-FOUND.
MOVE "EMPLOYEE DOES NOT EXIST" TO WS-ADVISORY.
DISPLAY ADVISORY-FLD.
EMPLOYEE-ADDED.
MOVE "EMPLOYEE ADDED" TO WS-ADVISORY.
DISPLAY ADVISORY-FLD.