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-9
SCREEN COBOL Program for Conversational Mode
01 EMPLOYEE-REC-PROMPT OVERLAY SIZE 1, 80.
05 FUNC-PROMPT AT 1, 1 VALUE "(FUNCTION) SEARCH, ADD,
- "DELETE, SHOW, EXIT: ".
05 FUNC-INPUT AT 1, 45 PIC X(06)
TO WS-FUNC
UPSHIFT INPUT
LENGTH MUST BE 3 THRU 6
PROMPT FUNC-PROMPT.
PROCEDURE DIVISION.
BEGIN-PROGRAM.
DISPLAY BASE EMPLOYEE-REC-SCREEN.
DISPLAY TITLE, TYPEAHEAD-MSG.
PERFORM LOOP UNTIL EXIT-PROGRAM.
EXIT-PROG.
EXIT PROGRAM.
LOOP.
ACCEPT EMPLOYEE-REC-SCREEN
UNTIL INPUT
ESCAPE ON ABORT.
IF TERMINATION-STATUS = 1
PERFORM FUNCTION-DISPLAY
PERFORM INIT-EMPLOYEE-REC
ELSE
PERFORM EXIT-IT.
FUNCTION-DISPLAY.
DISPLAY OVERLAY EMPLOYEE-REC-PROMPT AT PROMPT-AREA.
MOVE 2 TO EXIT-FLAG.
PERFORM OPERATION UNTIL NOT INVALID-RESPONSE.
OPERATION.
ACCEPT EMPLOYEE-REC-PROMPT
UNTIL INPUT
ESCAPE ON ABORT.
IF TERMINATION-STATUS = 1
PERFORM FUNCTION-SELECTION
ELSE
PERFORM EXIT-IT.
FUNCTION-SELECTION.
MOVE ZERO TO EXIT-FLAG.
IF WS-SEARCH-REQUEST
PERFORM SEARCH-IT
ELSE
IF WS-ADD-REQUEST
PERFORM ADD-IT
ELSE
IF WS-DELETE-REQUEST
PERFORM DELETE-IT
(1) These lines are instructive comments about the input control characters. They
are not required by SCREEN COBOL.
(2) These lines redefine the terminal input characters you use for control during an
ACCEPT statement.
(3) This is the first PROMPT clause for the screen. The value of this clause will be
displayed indicating the terminal is ready to accept data for this field.
(4) These lines identify the typeahead message that is included in the heading
displayed at the beginning of the screen.