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-4
SCREEN COBOL Program for Block Mode
F7-KEY IS F7, F16-KEY IS F16
ATTENTION IS BLINK, HIDDEN IS HIDDEN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
02 ERROR-MSG PIC X(77).
02 PASSWORD PIC X(3).
02 DEPT-HEADER PIC X(3).
01 EXIT-FLAG PIC S9 VALUE 0.
88 EXIT-PROGRAM VALUE 1.
01 ENTRY-MSG.
02 PW-HEADER.
(2)
04 REPLY-CODE PIC S9(4) COMP. (2) (4)
04 APPLICATION-CODE PIC XX. (2) (3)
04 FUNCTION-CODE PIC XX. (2) (3)
04 TRANS-CODE PIC 99. (2) (3)
04 TERM-ID PIC X(15). (2) (3)
04 LOG-REQUEST PIC X. (2) (3)
02 ENTRY-GROUP.
04 NAME-IN PIC A(30).
04 ADDR-IN PIC X(20).
04 DATE-GRP.
06 MONTH-IN PIC A(10).
06 DAY-IN PIC 99.
06 YEAR-IN PIC 99.
01 ENTRY-REPLY.
(5)
02 PW-HEADER. (5)
04 REPLY-CODE PIC S9(4) COMP. (4) (5)
04 FILLER PIC X(22). (5)
02 SERVER-RECORD PIC X(64). (5)
01 ERROR-REPLY.
02 REPLY-CODE PIC S9(4) COMP. (5)
02 FILLER PIC X(22). (4) (5)
02 ERROR-CODE PIC S999 COMP. (5)
SCREEN SECTION.
01 EXAMPLE-SCREEN BASE SIZE 24, 80.
03 FILLER AT 1, 20 VALUE "EXAMPLE SCREEN COBOL PROGRAM".
(1)
03 FILLER AT 3, 1 VALUE "DEPARTMENT :". (2)
03 DEPT-HEADER AT 3, 14 PIC X(3) FROM DEPT-HEADER OF WS. (3)
03 FILLER AT 3, * + 10 VALUE "PASSWORD :". (4)
03 PASSWORD AT 3, * + 2 PIC X(3) LENGTH 1 THRU 3, HIDDEN, (5)
UPSHIFT INPUT, MUST BE "AAA", "X", TO PASSWORD OF WS. (5)
(1) These lines give the program name that is specified in the SET TERM INITIAL
command. This program is used when a terminal is first started.
(2) These lines illustrate a sample header for the transaction messages.
(3) These lines are not required.
(4) These lines show the reply code that is required by Pathway. The item must be
defined as COMPUTATIONAL.
(5) These lines show that two reply messages are used to limit the amount of data
sent between the server and the SCREEN COBOL program. When only an error
code is returned from the server, ERROR-REPLY is used. When data is
returned, ENTRY-REPLY is used.