IDENTIFICATION DIVISION.
       PROGRAM-ID. ASSIGN-4.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN4 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUT4 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD IN4
          LABEL RECORDS ARE STANDARD
          VALUE OF FILE-ID IS "IN4.TXT".
       01 IN4-REC.
          05 STNO-IN PIC 9(3).
          05 STNAME-IN PIC X(15).
          05 COBOL-IN PIC 9(4).
          05 NT-IN PIC 9(4).
          05 C-IN PIC 9(4).
          05 TC-IN PIC 9(4).
       FD OUT4
          LABEL RECORDS ARE STANDARD
          VALUE OF FILE-ID IS "OUT4.TXT".

       01 OUTREC PIC X(80).

       WORKING-STORAGE SECTION.
       77 ARE-THERE-MORE-REC PIC XXX VALUE 'YES'.
       77 MAX PIC 9(4)V99 VALUE IS 0.

       01 OUT4-REC.
          05 STNO-OUT PIC 9(3).
          05 FILLER PIC X(3).
          05 STNAME-OUT PIC X(15).
          05 FILLER PIC X(3).
          05 TOTAL-OUT PIC 9(4).
          05 FILLER PIC X(3).
          05 PER-OUT PIC 9(4)V99.
          05 FILLER PIC X(3).
          05 GRADE-OUT PIC X(20).
       01 H1.
          05 STAR PIC X(80) VALUE ALL '*'.
       01 H2.
          05 STNO PIC X(5) VALUE "NO.".
          05 FILLER PIC X(1).
          05 STNAME PIC X(10) VALUE "STUD-NAME".
          05 FILLER PIC X(7).
          05 TOTAL PIC X(5) VALUE "TOTAL".
          05 FILLER PIC X(5).
          05 PER PIC X VALUE "%".
          05 FILLER PIC X(7).
          05 GRADE PIC X(5) VALUE "GRADE".

       PROCEDURE DIVISION.
       MAIN-PARA.
           OPEN INPUT IN4
                OUTPUT OUT4.

                WRITE OUTREC FROM H1.
                WRITE OUTREC FROM H2.
                WRITE OUTREC FROM H1.

           READ IN4
                AT END MOVE 'NO' TO ARE-THERE-MORE-REC.
           PERFORM PARA-1 UNTIL ARE-THERE-MORE-REC = 'NO'.

           CLOSE IN4
                 OUT4.
           STOP RUN.
       PARA-1.
           MOVE STNO-IN TO STNO-OUT.
           MOVE STNAME-IN TO STNAME-OUT.
           ADD COBOL-IN NT-IN C-IN TC-IN GIVING TOTAL-OUT.
           DIVIDE TOTAL-OUT BY 4 GIVING PER-OUT.

           IF PER-OUT > 70 OR PER-OUT = 70
              MOVE "DISTINCTION" TO GRADE-OUT
           ELSE IF PER-OUT < 70 AND (PER-OUT > 60 OR PER-OUT = 60)
              MOVE "FIRST" TO GRADE-OUT
           ELSE IF PER-OUT < 60 AND (PER-OUT > 50 OR PER-OUT = 50)
              MOVE "SECOND" TO GRADE-OUT
           ELSE IF PER-OUT < 50 AND (PER-OUT >35 OR PER-OUT = 35)
              MOVE "THIRD" TO GRADE-OUT
           ELSE
              MOVE "FAIL" TO GRADE-OUT.
          
           WRITE OUTREC FROM OUT4-REC.
           READ IN4 AT END MOVE 'NO' TO ARE-THERE-MORE-REC.




Input:-

101Patel Vikas    0075008000650075
102Patel Krunal   0085009000820098
103Patel Chirag   0045005500250015
104Modi Bhavesh   0065006800550062


OUTPUT:-

********************************************************************************
NO.   STUD-NAME        TOTAL     %       GRADE                                  
********************************************************************************
101   Patel Vikas       0295   007375   DISTINCTION                             
102   Patel Krunal      0355   008875   DISTINCTION                             
103   Patel Chirag      0140   003500   THIRD                                   
104   Modi Bhavesh      0250   006250   FIRST