IDENTIFICATION DIVISION. PROGRAM-ID. JINESH. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. SELECT OUT-FILE ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD IN-FILE LABEL RECORDS ARE STANDARD VALUE OF FILE-ID IS \"IN3.TXT\". 01 IN-REC. 05 NO-IN PIC 999. 05 NAME-IN PIC X(10). 05 COBOL-IN PIC 99V99. 05 NT-IN PIC 99V99. 05 C-IN PIC 99V99. 05 TC-IN PIC 99V99. FD OUT-FILE LABEL RECORDS ARE STANDARD VALUE OF FILE-ID IS \"OUT3.TXT\". 01 OUT-REC. 05 NO-OUT PIC 999. 05 FILLER PIC X(5). 05 NAME-OUT PIC X(10). 05 FILLER PIC X(5). 05 TOTAL PIC 999V99. 05 FILLER PIC X(5). 05 PERCENT PIC 99V99. 05 FILLER PIC X(5). 05 CLASS PIC X(6). WORKING-STORAGE SECTION. 77 EOF PIC XXX VALUE \'YES\'. PROCEDURE DIVISION. MAIN-PARA. OPEN INPUT IN-FILE OUTPUT OUT-FILE. READ IN-FILE AT END MOVE \'NO\' TO EOF. PERFORM CAL-PARA UNTIL EOF = \'NO\'. CLOSE IN-FILE. CLOSE OUT-FILE. STOP RUN. CAL-PARA. MOVE NO-IN TO NO-OUT. MOVE NAME-IN TO NAME-OUT. COMPUTE TOTAL = COBOL-IN + NT-IN + C-IN + TC-IN. COMPUTE PERCENT = TOTAL / 4. IF PERCENT > 71 MOVE \'DIST\' TO CLASS ELSE IF PERCENT > 60 MOVE \'FIRST\' TO CLASS ELSE MOVE \'SECOND\' TO CLASS WRITE OUT-REC. READ IN-FILE AT END MOVE \'NO\' TO EOF.