IDENTIFICATION DIVISION. PROGRAM-ID. ACCTONE. FILE-CONTROL. SELECT FILE1 ASSIGN TO ACCTFIL ACCESS MODE IS RANDOM ORGANIZATION IS INDEXED RECORD KEY IS ACCTDO FILE STATUS IS WS-FS. FILE SECTION. FD FILE1. 01 ACCTREC. COPY ACCTREC. WORKING-STORAGE SECTION. 77 WS-FS PIC 9(02). 01 WS-EOF-SW PIC X(01) VALUE 'N'. 88 EOF-SW VALUE 'Y'. 88 NOT-EOF-SW VALUE 'N'. 01 WS-PARM PIC X(5). 01 RETRIEVED-ACCTREC. COPY R-ACCTREC. PROCEDURE DIVISION. MAINLINE SECTION. MAIN-PARA. ACCEPT WS-PARM FROM SYSIN. DISPLAY 'Read a single record:' WS-PARM. PERFORM GET-RECORD. DISPLAY "COBOL Balance:" R-PAY1-BALANCE. if R-PAY1-BALANCE NOT EQUAL ZEROS then DISPLAY "COBOL Limit:" R-LIMITDO else DISPLAY "No balance so no limit!" end-if STOP RUN. GET-RECORD. MOVE WS-PARM TO ACCTDO. MOVE "NONE" to R-PAY1-BALANCE. OPEN INPUT FILE1. IF WS-FS NOT EQUAL 0 THEN DISPLAY 'RECORD READ ERROR...' DISPLAY WS-FS STOP RUN END-IF. READ FILE1 IF WS-FS NOT EQUAL 0 THEN DISPLAY "FAILED TO READ RECORD:" WS-FS MOVE ZEROS to RETRIEVED-ACCTREC ELSE MOVE ACCTREC to RETRIEVED-ACCTREC MOVE PAY1-BALANCE to R-PAY1-BALANCE MOVE LIMITDO to R-LIMITDO END-IF CLOSE FILE1.