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

Source Code for Programs in Section 6
HP NonStop Pathway/iTS System Management Manual—426748-002
G-3
Source Code for Screen Program
SCREEN SECTION.
01 EXAMPLE-SCREEN BASE SIZE 24, 80.
03 FILLER AT 1, 20 VALUE "EXAMPLE SCREEN COBOL
PROGRAM".
03 FILLER AT 10, 1 VALUE "MESSAGE NUMBER :".
03 MESSAGE-NUMBER AT 10, * + 2 PIC 9, USING
MESSAGE-NUMBER OF ENTRY-MSG.
03 MESSAGE-TEXT AT 12, 1 PIC X(64)
FROM SERVER-RECORD OF ENTRY-REPLY.
03 FILLER AT 21, 15 VALUE
"F1 - READ F16 - EXIT PROGRAM".
03 ERROR-MSG AT 24, 2 PIC X(64) ADVISORY FROM
ERROR-MSG OF WS.
PROCEDURE DIVISION.
A-MAIN.
DISPLAY BASE EXAMPLE-SCREEN.
MOVE 0 TO MESSAGE-NUMBER OF ENTRY-MSG.
DISPLAY MESSAGE-NUMBER OF EXAMPLE-SCREEN.
PERFORM CASE-MANAGER UNTIL EXIT-PROGRAM.
A-EXIT.
EXIT PROGRAM.
CASE-MANAGER.
ACCEPT MESSAGE-NUMBER OF EXAMPLE-SCREEN UNTIL F1-KEY
ESCAPE ON F16-KEY (F2-KEY THROUGH F15-KEY, SF1-KEY
THROUGH SF16-KEY).
PERFORM ONE OF
READ-MESSAGE, SET-EXIT, KEY-NOT-SUPPORTED
DEPENDING ON TERMINATION-STATUS.
READ-MESSAGE.
MOVE "01" TO FUNCTION-CODE OF ENTRY-MSG.
PERFORM SEND-DATA.
SET-EXIT.
MOVE 1 TO EXIT-FLAG.
KEY-NOT-SUPPORTED.
MOVE "FUNCTION KEY NOT SUPPORTED" TO ERROR-MSG OF WS.
PERFORM DISPLAY-ADVISORY.
Example G-1. Source Code for the Screen Program (page 2 of 3)