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.