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-6
SCREEN COBOL Program for Block Mode
PROCEDURE DIVISION.
A-MAIN.
DISPLAY BASE EXAMPLE-SCREEN
(1)
MOVE "MKT" TO DEPT-HEADER OF WS.
DISPLAY DEPT-HEADER OF EXAMPLE-SCREEN (2)
ACCEPT PASSWORD OF EXAMPLE-SCREEN UNTIL F1-KEY (3)
PERFORM CASE-MANAGER UNTIL EXIT-PROGRAM.
A-EXIT.
EXIT PROGRAM.
CASE-MANAGER.
ACCEPT DATA-IN OF EXAMPLE-SCREEN UNTIL F2-KEY
(4)
ESCAPE ON F3-KEY F4-KEY F5-KEY F6-KEY F7-KEY F16-KEY (4)
PERFORM ONE OF
DATA-ENTERED, CLEAR-INPUT, RESET-DATA, BLINK-REPLY
RESET-ATTR-REPLY, RESET-DATA-REPLY, SET-EXIT
DEPENDING ON TERMINATION-STATUS
(5)
DATA-ENTERED.
MOVE SPACES TO PW-HEADER OF ENTRY-MSG.
PERFORM SEND-DATA.
CLEAR-INPUT.
CLEAR INPUT
(6)
RESET-DATA.
RESET DATA EXAMPLE-SCREEN
(7)
BLINK-REPLY.
TURN ATTENTION IN SERVER-RECORD OF EXAMPLE-SCREEN
(8)
RESET-ATTR-REPLY.
RESET ATTR SERVER-RECORD OF EXAMPLE-SCREEN (9)
RESET-DATA-REPLY.
RESET DATA SERVER-RECORD OF EXAMPLE-SCREEN
(10)
SET-EXIT.
MOVE 1 TO EXIT-FLAG.
SEND-DATA.
SEND ENTRY-MSG TO "EXAMPLE-SERVER"
(11)
REPLY CODE 0 YIELDS ENTRY-REPLY
CODE 999 YIELDS ERROR-REPLY.
IF TERMINATION-STATUS = 2 AND ERROR-CODE = 1
MOVE "SMITH IS ALREADY ON FILE" TO ERROR-MSG OF WS
PERFORM 901-DISPLAY-ADVISORY
ELSE IF TERMINATION-STATUS = 2 AND ERROR-CODE = 2
MOVE "JONES IS ALREADY ON FILE" TO ERROR-MSG OF WS
PERFORM 901-DISPLAY-ADVISORY
ELSE
DISPLAY SERVER-RECORD OF EXAMPLE-SCREEN
(12)
901-DISPLAY-ADVISORY.
DISPLAY TEMP ERROR-MSG OF EXAMPLE-SCREEN
(13)
TURN TEMP ATTENTION IN ERROR-MSG OF EXAMPLE-SCREEN. (14)
(1) This line displays the screen and the initial values, FILL characters, and default
values.
(2) The value of DEPT-HEADER is moved to the screen at line 3, column 14.
(3) When the F1 key is pressed, the field is tested for validity. Data can be typed
into any other field on the screen, but only the PASSWORD field is used.
(4) The UNTIL F2-KEY expects data to be entered before the F2 key is pressed
and validity checks are performed. The ESCAPE series of function keys causes
the statement to terminate without data being entered.