COBOL Manual for TNS and TNS/R Programs

Disk Input and Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
28-28
Repositioning to New Record With Same Alternate
Key
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).
03 ERROR-TEXT PIC X(65).
01 PART-GET-REPLY.
02 PRT-HEADER.
03 REPLY-CODE PIC S9(4) COMP.
... {same as PRT-HEADER of PART-DEL-GET-LIST-MSG }
02 PART-DATA.
03 PART.
04 PART-NO PIC X(10).
04 PART-NAME PIC X(50).
...
Example 28-12. Use of START With the POSITION Phrase (page2of4)