COBOL Manual for TNS and TNS/R Programs

Disk Input and Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
28-29
Repositioning to New Record With Same Alternate
Key
01 PART-LIST-REPLY.
02 PRT-HEADER.
03 REPLY-CODE PIC S9(4) COMP.
... {same as PRT-HEADER of PART-DEL-GET-LIST-MSG }
02 LINE-COUNT PIC 9(04).
02 ALL-PART-LINES.
03 PART-LINE OCCURS 10 TIMES.
04 PART-NO PIC X(10).
04 PART-NAME PIC X(50).
04 CUST-NUM PIC 9(06).
...
FD PART-FILE
LABEL RECORDS ARE OMITTED.
01 PART-DATA-RECORD.
02 PART.
03 PART-NO PIC X(10).
03 PART-NAME PIC X(50).
...
WORKING-STORAGE SECTION.
...
PROCEDURE DIVISION.
MAIN SECTION.
BEGIN-COBOL-SERVER.
PERFORM A-INIT.
PERFORM B-TRANS UNTIL CLOSE-FROM-REQUESTER.
PERFORM C-EOJ.
STOP RUN.
A-INIT.
OPEN INPUT MESSAGE-IN
OUTPUT MESSAGE-OUT SYNCDEPTH 1
INPUT PART-FILE SHARED.
C-EOJ.
CLOSE MESSAGE-IN
MESSAGE-OUT
PART-FILE.
B-TRANS.
MOVE SPACES TO PART-DEL-GET-LIST-MSG.
PERFORM 920-GET-SERVER-MSG.
IF NOT CLOSE-FROM-REQUESTER
PERFORM B-TRANS-CASE.
B-TRANS-CASE.
IF TRANS-CODE OF PART-DEL-GET-LIST-MSG = LIST-BY-NO-TRANS
OR LIST-BY-NAME-TRANS
PERFORM 200-GET-PART-LIST-RCD
ELSE
PERFORM 960-INVALID-T-CODE
.
100-GET-PART-RCD.
PERFORM 110-INIT-REPLY.
PERFORM 120-READ-PART-INFO.
110-INIT-REPLY.
...
Example 28-12. Use of START With the POSITION Phrase (page3of4)