NET/MASTER Network Control Language (NCL) Programmer's Guide

Working With Server Classes
Working With Pathway Server Classes
106160 Tandem Computers Incorporated 15–27
5. Type the following COBOL program in a convenient subvolume on your Tandem
system, calling it ZEX15012:
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.
RECEIVE-CONTROL.
TABLE OCCURS 5 TIMES.
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 FUNCTION-CODE PIC XX.
02 MESSAGE-NUMBER PIC 9.
FD MESSAGE-OUT
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 68 CHARACTERS.
01 ENTRY-REPLY.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FILLER PIC XX.
02 SERVER-RECORD PIC X(64).
01 ERROR-REPLY.
02 REPLY-CODE PIC S9(4) COMP.
02 FILLER PIC XX.
02 ERROR-CODE PIC 999 COMP.
WORKING-STORAGE SECTION.
01 RECEIVE-FILE-STATUS.
02 STAT-1 PIC 9.
88 CLOSE-FROM-REQUESTER VALUE 1.
02 STAT-2 PIC 9.
01 WS.
02 ERROR-CODE PIC 999 COMP.