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-11
Server Program in COBOL
EMPLOYEE-ALREADY-EXISTS.
MOVE "EMPLOYEE ALREADY EXISTS" TO WS-ADVISORY.
DISPLAY ADVISORY-FLD.
EMPLOYEE-DELETED.
MOVE "EMPLOYEE DELETED" TO WS-ADVISORY.
DISPLAY ADVISORY-FLD.
INIT-EMPLOYEE-REC.
MOVE SPACES TO EMPLOYEE-REC.
MOVE ZEROES TO EMP-ZIP.
INVALID-FUNCTION.
MOVE 2 TO EXIT-FLAG.
MOVE "INVALID FUNCTION REQUESTED" TO WS-ADVISORY.
DISPLAY ADVISORY-FLD.
SEND-ERROR-NOTICE.
MOVE "ERROR ACCESSING PERSONNEL SYSTEM" TO WS-ADVISORY.
DISPLAY ADVISORY-FLD.
Server Program in COBOL
The following is a sample server program in COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE-SERVER.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TANDEM/16.
OBJECT-COMPUTER. TANDEM/16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MESSAGE-IN, ASSIGN TO $RECEIVE
FILE STATUS IS RECEIVE-FILE-STATUS.
SELECT MESSAGE-OUT, ASSIGN TO $RECEIVE
FILE STATUS IS RECEIVE-FILE-STATUS.
DATA DIVISION.
FILE SECTION.
FD MESSAGE-IN
LABEL RECORDS ARE OMITTED.
01 ENTRY-MSG.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 APPLICATION-CODE PIC XX.
04 FUNCTION-CODE PIC XX.
04 TRANS-CODE PIC 99.
04 TERM-ID PIC X(15).
04 LOG-REQUEST PIC X.
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.
FD MESSAGE-OUT
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 88 CHARACTERS.
01 ENTRY-REPLY.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FILLER PIC X(22).
02 SERVER-RECORD PIC X(64).