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

Source Code for Programs in Section 6
HP NonStop Pathway/iTS System Management Manual—426748-002
G-2
Source Code for Screen Program
Example G-1. Source Code for the Screen Program (page 1 of 3)
IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE-SCREEN-PROGRAM.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T16.
OBJECT-COMPUTER. T16,
TERMINAL IS T16-6520.
SPECIAL-NAMES.
F1-KEY IS F1, F2-KEY IS F2, F15-KEY IS F15, F16-KEY IS F16
SF1-KEY IS SF1, SF16-KEY IS SF16, ATTENTION IS REVERSE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
02 ERROR-MSG PIC X(64).
01 EXIT-FLAG PIC 9 VALUE 0.
88 EXIT-PROGRAM VALUE 1.
01 SEND-ERROR-FLAG PIC 99.
01 ENTRY-MSG.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FUNCTION-CODE PIC XX.
02 MESSAGE-NUMBER PIC 9.
01 ENTRY-REPLY.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FILLER PIC X(2).
02 SERVER-RECORD PIC X(64).
01 ERROR-REPLY.
02 REPLY-CODE PIC 9(4) COMP.
02 FILLER PIC X(2).
02 ERROR-CODE PIC 999 COMP.