IBM 5280 Programmer's Manual page 109

PROCEDURE DIVISION.
BEGIN-PROCESSING.
OPEN INPUT IN-FILE
1-0
INDEXED-FILE
OUTPUT PRINT-FILE.
IF SK NOT = "00" MOVE "OPEN" TO OP-NAME
PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2
GO TO END-JOB-2.
PERFORM PAGE-START.
READ-INPUT.
READ IN-FILE AT END GO TO END-JOB-1.
RANDOM-PROCESS-1.
MOVE IN-ID TO REC-ID. MOVE SPACES TO PRINT-RECORD-1.
READ INDEXED-FILE INVALID KEY GO TO END-JOB-1.
IF SK NOT = "00" MOVE "READ-D" TO OP-NAME
PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2
GO TO READ-INPUT.
MOVE DISK-NAME TO PRINT-NAME.
MOVE DISK-BAL TO PRINT-BAL.
MOVE IN-AMT TO PRINT-AMT.
ADD IN-AMT TO DISK-BAL.
MOVE DISK-BAL TO PRINT-NEW-BAL.
PERFORM WRITE-PARA-1 THRU WRITE-PARA-2.
RANDOM-PROCESS-2.
GO TO READ-INPUT.
WRITE-PARA-1.
IF LINE-COUNT = 60
PERFORM PAGE-END THROUGH PAGE-START.
WRITE PRINT-RECORD-1.
ADD 1 TO LINE-COUNT.
REWRITE DISK-RECORD INVALID KEY GO TO CHK-ERR.
CHK-ERR.
IF SK NOT
=
"00" MOVE "REWRITE" TO OP-NAME
PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2.
WRITE-PARA-2.
EXIT.
PAGE-END.
ADD 1 TO PG-NUMBER.
WRITE PRINT-RECORD-2 FROM PAGE-FOOT
AFTER ADVANCING 3.
PAGE-START.
WRITE PRINT-RECORD-2 FROM PAGE-HEAD
AFTER ADVANCING PAGE.
MOVE 1 TO LINE-COUNT.
ERROR-ROUTINE-1.
DISPLAY ERROR-MESSAGE UPON TYPEWRITER.
ERROR-ROUTINE-2.
EXIT.
END-JOB-1.
IF SK NOT "00" MOVE "READ" TO OP-NAME
PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2.
CLOSE INDEXED-FILE.
IF SK NOT
=
"00" MOVE "CLOSE" TO OP-NAME
PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2.
END-JOB-2.
CLOSE IN-FILE PRINT-FILE.
STOP RUN.
Figure 5.12. Updating an indexed file (Part 3 of 3)
5- 30 IBM 5280 COBOL Programmer's Guide