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

LABEL RECORDS ARE OMITTED
RECORD CONTAINS 52 CHARACTERS.
01 EMPLOYEE-DETAIL.
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.
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.
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.
START 449