COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-249
START
Example 9-66 reads all records for employees whose last names start with G.
PROCEDURE DIVISION.
...
OPEN I-O RECEIVABLES-MASTER
...
MOVE LOW-VALUES TO COMPANY-NAME
START RECEIVABLES-MASTER KEY NOT LESS THAN COMPANY-NAME
INVALID KEY
DISPLAY "ERROR STARTING READ FOR REPORT"
GO TO REPORT-EXIT
END-START.
GET-NEXT-RECORD.
READ RECEIVABLES-MASTER NEXT RECORD
AT END PERFORM...
Example 9-66. START Statement With GENERIC Phrase for Sequential File
SELECT INPUT-FILE ASSIGN TO "INFILE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
ALTERNATE RECORD KEY IS EMP-NAME
WITH DUPLICATES.
...
FD INPUT-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 95 CHARACTERS
DATA RECORD IS PERSONNEL-DATA.
01 PERSONNEL-DATA.
05 DEPT-NO PIC 9(5).
05 EMPLOYEE-NO PIC 9(7).
05 EMP-NAME.
10 LAST-NAME.
15 FIRST-LETTER PIC X.
15 FILLER PIC X(14).
10 FIRST-NAME PIC X(9).
...
PROCEDURE DIVISION.
...
OPEN I-O INPUT-FILE
...
MOVE "G" TO FIRST-LETTER
START INPUT-FILE KEY = FIRST-LETTER GENERIC
INVALID KEY GO TO START-ERROR-ROUTINE
END-START
READ INPUT-FILE
AT END
Example 9-65. START Statement for Indexed File (page 2 of 2)