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-8
SCREEN COBOL Program for Conversational Mode
88 WS-SHOW-REQUEST VALUE "SHOW".
88 WS-EXIT-REQUEST VALUE "EXIT".
01 EXIT-FLAG PIC 9(01) COMP VALUE ZERO.
88 EXIT-PROGRAM VALUE 1.
88 INVALID-RESPONSE VALUE 2.
01 MESSAGE-ID PIC 9(04) COMP VALUE ZERO.
01 R-CODE PIC 9(04) COMP VALUE ZERO.
88 SEND-ERROR VALUE 999.
SCREEN SECTION.
01 EMPLOYEE-REC-SCREEN BASE SIZE 24, 80
* FIELD-SEPARATOR ","
(1)
* GROUP-SEPARATOR ";" (1)
ABORT-INPUT "AI" (2)
END-OF-INPUT 47 (2)
* The keyboard character for END-OF-INPUT is "/" (1)
RESTART-INPUT 58, 58.
* The keyboard characters for RESTART-INPUT is "::"
(1)
05 TITLE AT 1, 3 VALUE "PERSONNEL SYSTEM EXAMPLE".
05 NAME-PROMPT AT 2, 1 VALUE "LAST NAME: ".
05 LAST-NAME-FLD AT 3, 1 PIC X(10)
USING EMP-LAST-NAME
LENGTH 1 THRU 10
PROMPT NAME-PROMPT.
(3)
05 FIRST-NAME-PROMPT AT 2, 12 VALUE "FIRST NAME: ".
05 FIRST-NAME-FLD AT 3, 12 PIC X(10)
USING EMP-FIRST-NAME
LENGTH 1 THRU 10
PROMPT FIRST-NAME-PROMPT.
05 MI-PROMPT AT 2, 24 VALUE "MI: ".
05 MIDDLE-INIT-FLD AT 3, 24 PIC X(2)
USING EMP-MIDDLE-INIT
PROMPT MI-PROMPT.
05 ADDR-PROMPT AT 4, 1 VALUE "ADDRESS: ".
05 ADDR-FLD AT 4, 11 PIC X(30)
USING EMP-ADDR
PROMPT ADDR-PROMPT.
05 CITY-PROMPT AT 5, 1 VALUE "CITY: ".
05 CITY-FLD AT 5, 11 PIC X(10)
USING EMP-CITY
PROMPT CITY-PROMPT.
05 STATE-PROMPT AT 5, 22 VALUE "STATE: ".
05 STATE-FLD AT 5, 30 PIC X(10)
USING EMP-STATE
PROMPT STATE-PROMPT.
05 ZIP-PROMPT AT 5, 45 VALUE "ZIP: ".
05 ZIP-FLD AT 5, 51 PIC Z(5)
USING EMP-ZIP
PROMPT ZIP-PROMPT.
05 TYPEAHEAD-MSG AT 10, 1 VALUE "TO GET TYPEAHEAD, ENTER
(4)
- " LAST NAME, FIRST NAME, MIDDLE INITIAL." (4)
05 PROMPT-AREA AREA AT 23, 1 SIZE 1, 80.
05 ADVISORY-FLD AT 24, 1 PIC X(70)
ADVISORY FROM WS-ADVISORY.
(1) These lines give the program name that you use in the SET TERM INITIAL
command.
(2) This line specifies a conversational mode terminal type and identifies the
terminal type that you use in the SET PROGRAM TYPE and SET TERM TYPE
commands.