COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

useful for servers. The server need only be implemented with a continuation request and can depend
on the requester to supply LOW-VALUES (or 1) for the prime key in the initial request.
Example 287 is a skeleton program for a server. It accepts several types of request, one of which
calls for a list of part records (beginning at a specified part name) to be returned to the requester.
If more than 10 such records must be returned, the requester must accept 10 at a time and request
the next portion by passing back the last part number it received and the part name. This program
is incomplete and is provided only to illustrate the POSITION phrase of the START statement.
Example 287 Use of START With the POSITION Phrase
IDENTIFICATION DIVISION.
PROGRAM-ID. PART-LIST-SERVER.
AUTHOR. KELLY COBOL.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TXP.
OBJECT-COMPUTER. TXP.
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.
SELECT PART-FILE
ASSIGN TO "PART"
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS PART-NO OF PART-DATA-RECORD
ALTERNATE RECORD KEY IS
PART-NAME OF PART-DATA-RECORD WITH DUPLICATES
FILE STATUS IS FILE-STAT.
RECEIVE-CONTROL.
TABLE OCCURS 5 TIMES
SYNCDEPTH LIMIT IS 1
REPLY CONTAINS 1100 CHARACTERS.
DATA DIVISION.
FILE SECTION.
FD MESSAGE-IN
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 200 CHARACTERS.
01 PART-DEL-GET-LIST-MSG.
02 PRT-HEADER.
03 REPLY-CODE PIC S9(4) COMP.
03 APPLICATION-CODE PIC X(2).
03 FUNCTION-CODE PIC X(02).
03 TRANS-CODE PIC 9(2).
03 TERM-NO PIC X(15).
03 LOG-REQUEST PIC X(01).
02 PART-NO PIC X(10).
02 PART-NAME PIC X(50).
FD MESSAGE-OUT
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 1100 CHARACTERS.
01 SERVER-REPLY.
02 PRT-HEADER.
03 REPLY-CODE PIC S9(4) COMP.
... {same as PRT-HEADER of PART-DEL-GET-LIST-MSG }
02 ERROR-CODE PIC S9(4) COMP.
02 GUARDIAN-ERR PIC S9(4) COMP.
02 ERROR-MESSAGE.
03 ERROR-FILE-NO PIC X(05).
874 Disk Input and Output