COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-237
START
START
START positions a file, in sequential or dynamic access mode, for subsequent read
operations. START cannot reference a file that is open for HP COBOL Fast I-O. If the
START statement executes successfully, it establishes the key of reference and the
initial record position needed for subsequent sequential record retrievals.
SD SORT-WORK
RECORD CONTAINS 52 CHARACTERS.
01 SORT-RECORD.
05 EMPLOYEE-NUMBER PIC X(05).
05 EMPLOYEE-NAME PIC X(20).
05 DEPT PIC X(03).
05 JOB-CLASS PIC X(05).
05 HOURLY-RATE PIC 9(3)V99.
05 DEDUCTIONS PIC 9(3)V99.
05 ANNUAL-SALARY PIC 9(7)V99.
...
PROCEDURE DIVISION.
...
IF NO-ERROR
SORT SORT-WORK ON ASCENDING KEY EMPLOYEE-NAME
OF SORT-RECORD
INPUT PROCEDURE IS SORTIN-PROC
OUTPUT PROCEDURE IS SORTOUT-PROC
...
SORTIN-PROC SECTION.
READ EMPLOYEE-MASTER NEXT RECORD
AT END GO TO SORTIN-EXIT
END-READ
IF WS-DEPT EQUAL DEPT OF EMPLOYEE-DETAIL
OR WS-DEPT EQUAL SPACES
RELEASE SORT-RECORD FROM EMPLOYEE-DETAIL
GO TO SORTIN-PROC
END-IF.
SORTIN-EXIT.
EXIT.
SORTOUT-PROC SECTION.
RETURN SORT-WORK
AT END GO TO SORTOUT-EXIT
END-RETURN
MOVE CORRESPONDING SORT-RECORD TO LIST-RECORD
WRITE LIST-RECORD
GO TO SORTOUT-PROC.
SORTOUT-EXIT.
EXIT.
SORT-END SECTION.
EXIT.
Example 9-64. Typical Use of Input and Output Procedures (page 2 of 2)