iTS 1.0+)

Pathway Application Example

Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001

8-12

Server Program in COBOL

01 ERROR-REPLY.

02 REPLY-CODE PIC S9(4) COMP.

02 FILLER PIC X(22).

02 ERROR-CODE PIC S999 COMP.

WORKING-STORAGE SECTION.

01 RECEIVE-FILE-STATUS.

02 STAT-1 PIC 9.

88 CLOSE-FROM-REQUESTOR VALUE 1.

02 STAT-2 PIC 9.

PROCEDURE DIVISION.

BEGIN-COBOL-SERVER.

OPEN INPUT MESSAGE-IN.

OPEN OUTPUT MESSAGE-OUT SYNCDEPTH 1.

PERFORM B-TRANS UNTIL CLOSE-FROM-REQUESTOR.

STOP RUN.

B-TRANS.

MOVE SPACES TO ENTRY-REPLY, ENTRY-MSG.

READ MESSAGE-IN, AT END STOP RUN.

MOVE PW-HEADER OF MESSAGE-IN TO PW-HEADER OF MESSAGE-OUT.

IF NAME-IN = "SMITH"

MOVE 999 TO REPLY-CODE OF ERROR-REPLY

MOVE 1 TO ERROR-CODE

WRITE ERROR-REPLY

ELSE IF NAME-IN = "JONES"

MOVE 999 TO REPLY-CODE OF ERROR-REPLY

MOVE 2 TO ERROR-CODE

WRITE ERROR-REPLY

ELSE

MOVE 0 TO REPLY-CODE OF ENTRY-REPLY

MOVE ENTRY-GROUP TO SERVER-RECORD

WRITE ENTRY-REPLY.