Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

Calculate Total percentage Class (Dist , First) for each student and output file should contain Each information and also display no, name, percentage

Posted By: Eve Hughes     Category: Cobol     Views: 6874

Calculate Total percentage Class (Dist , First) for each student and output file should contain Each information and also display no, name, percentage of student having highest marks.

Position Desc.

1 - 3 No
4 - 18 Name
19 - 22 Cobol
23 - 26 Nt
27 - 30 C
31 - 34 Tc++

Code for Calculate Total percentage Class (Dist , First) for each student and output file should contain Each information and also display no, name, percentage in Cobol

       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                                   
  
Share: 



Eve Hughes
Eve Hughes author of Calculate Total percentage Class (Dist , First) for each student and output file should contain Each information and also display no, name, percentage is from London, United Kingdom.
 
View All Articles

Related Articles and Code:


 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!