COBOL Program to which applies a transaction file of student payments to a Student Master File

  COBOL   Friday, May 8, 2015   2348 | No Comments Yet!!! | No Download | No Demo | Pawan kumar
 Tags: Indexed files  Print files  READ..NEXT RECORD  START  WRITE  REWRITE  IF  PERFORM  ADD  SUBTRACT  COBOL Program  COBOL Example 




      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  DP196-93-Repeat-Exam.
AUTHOR.  Michael Coughlan.


ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT Student-Payment-File ASSIGN TO "STUDPAY.DAT"
        ORGANIZATION IS LINE SEQUENTIAL.
    SELECT Print-File ASSIGN TO "FEES.RPT".
    SELECT Student-Master-File ASSIGN TO "STUDMAST.DAT"
        ORGANIZATION IS INDEXED
        ACCESS MODE IS DYNAMIC
        RECORD KEY IS SM-Student-Number
        ALTERNATE RECORD KEY IS SM-Student-Name
             WITH DUPLICATES
        FILE STATUS IS SM-File-Status.
        


DATA DIVISION.
FILE SECTION.
FD  Student-Payment-File.
01  SP-Rec.
    88  End-Of-SPF      VALUE HIGH-VALUES.
    02  SP-Student-Number               PIC 9(7).
    02  SP-Payment                      PIC 9(4)V99.

FD  Print-File.
01  Print-Line                          PIC X(76).


FD  Student-Master-File.
01  SM-Rec.
    88  End-Of-SMF      VALUE HIGH-VALUES.
    02  SM-Student-Number               PIC 9(7).
    02  SM-Student-Name                 PIC X(30).
    02  FILLER                          PIC X(5).
    02  SM-Fees-Owed                    PIC 9(4).
    02  SM-Amount-Paid                  PIC 9(4)V99.



WORKING-STORAGE SECTION.
01  Heading1.
    02  FILLER                          PIC X(24)  VALUE SPACES.
    02  FILLER                          PIC X(25)
              VALUE "OUTSTANDING  FEES  REPORT".

01  Heading2.
    02  FILLER                          PIC X(23) VALUE SPACES.
    02  FILLER                          PIC X(27) VALUE ALL "-".

01  Heading3.
    02  FILLER                          PIC X(30) VALUE " STUDENT  NAME".
    02  FILLER                          PIC X(14) VALUE "STUDENT NO.".
    02  FILLER                          PIC X(9)  VALUE "FEES".
    02  FILLER                          PIC X(12) VALUE "AMT PAID".
    02  FILLER                          PIC X(11) VALUE "AMT OUTSTND".

01  Detail-Line.
    02  Prn-Student-Name                PIC X(30).
    02  Prn-Student-Number              PIC BBX(7).
    02  Prn-Fees                        PIC BBBBB$$,$$9.
    02  Prn-Amt-Paid                    PIC BBB$$,$$9.99.
    02  Prn-Amt-Outstnd                 PIC BBB$$,$$9.99.

01  Final-Total-Line.
    02  FILLER                          PIC X(41) VALUE SPACES.
    02  FILLER                          PIC X(20) VALUE "TOTAL OUTSTANDING = ".
    02  Prn-Total-Outstnd               PIC $$,$$$,$$9.99.

01  Miscellaneous-Items.
    02  Total-Outstanding               PIC 9(7)V99 VALUE ZEROS.
    02  SM-File-Status                  PIC XX.
    02  Amount-Outstanding              PIC 9(4)V99.
   
PROCEDURE DIVISION.
Update-And-Report.
    OPEN I-O Student-Master-File.
    OPEN INPUT Student-Payment-File.
    OPEN OUTPUT Print-File. 
    READ Student-Payment-File
        AT END SET End-Of-SPF TO TRUE
    END-READ.
    PERFORM Update-Master-File UNTIL End-OF-SPF.
    MOVE SPACES TO Print-Line.
    WRITE Print-Line AFTER ADVANCING PAGE.
    WRITE Print-Line FROM Heading1 AFTER ADVANCING 1 LINE.
    WRITE Print-Line FROM Heading2 AFTER ADVANCING 1 LINE.
    WRITE Print-Line FROM Heading3 AFTER ADVANCING 3 LINES.
    MOVE SPACES TO Print-Line.
    WRITE Print-Line AFTER ADVANCING 1 LINE.

    MOVE LOW-VALUES TO SM-Student-Name.
    START Student-Master-File
        KEY IS GREATER THAN SM-Student-Name
        INVALID KEY DISPLAY "Start Error FS = " SM-File-Status
    END-START.
    READ Student-Master-File NEXT RECORD
        AT END SET End-Of-SMF TO TRUE
    END-READ.
    PERFORM Print-Outstanding-Fees-Rpt UNTIL End-OF-SMF.
    MOVE Total-Outstanding TO Prn-Total-Outstnd.
    WRITE Print-Line FROM Final-Total-Line AFTER ADVANCING 3 LINES.
    CLOSE Student-Master-File, Print-File, Student-Payment-File.
    STOP RUN.


Update-Master-File.
    MOVE SP-Student-Number TO SM-Student-Number.
    READ Student-Master-File
        KEY IS SM-Student-Number
        INVALID KEY DISPLAY "invalid read FS = " SM-File-Status
    END-READ.
    ADD SP-Payment TO SM-Amount-Paid.
    REWRITE SM-Rec
        INVALID KEY DISPLAY "Rewrite error fs = " SM-File-Status
    END-REWRITE.
    READ Student-Payment-File
        AT END SET End-Of-SPF TO TRUE
    END-READ.
 
  
Print-Outstanding-Fees-Rpt.
    IF SM-Amount-Paid LESS THAN SM-Fees-Owed 
        SUBTRACT SM-Amount-Paid FROM SM-Fees-Owed GIVING Amount-Outstanding
        ADD Amount-Outstanding TO Total-Outstanding
        MOVE SM-Student-Name TO Prn-Student-Name
        MOVE SM-Student-Number TO Prn-Student-Number
        MOVE SM-Fees-Owed TO Prn-Fees
        MOVE SM-Amount-Paid TO Prn-Amt-Paid
        MOVE Amount-Outstanding TO Prn-Amt-Outstnd
        WRITE Print-Line FROM Detail-Line
               AFTER ADVANCING 1 LINE
    END-IF.
    READ Student-Master-File NEXT RECORD
         AT END SET End-Of-SMF TO TRUE
    END-READ.
 

 


Post Comments

if you have some suggestion, question, request on COBOL Program to which applies a transaction file of student payments to a Student Master File.

Please use the comment box to express your views.

 

Comments: