| Cobol Program 8.3 Essay, Research Paper
0016.00 * COMPILER: MICRO FOCUS
0017.00
0018.00 ENVIRONMENT DIVISION.
0019.00
0020.00 INPUT-OUTPUT SECTION.
0021.00
0022.00 FILE-CONTROL.
0023.00 SELECT ACCOUNTS-REC-FILE
0024.00 ASSIGN TO DISK-CUSTOMER.
0025.00
0026.00 SELECT ACCOUNTS-REC-REGISTER
0027.00 ASSIGN TO PRINTER-QPRINT.
0028.00
0029.00 DATA DIVISION.
0030.00
0031.00 FILE SECTION.
0032.00
0033.00 FD ACCOUNTS-REC-FILE.
0034.00 01 CUSTOMER-RECORD PIC X(80).
0036.00 FD ACCOUNTS-REC-REGISTER.
0037.00 01 ACCOUNTS-REC-LINE-RECORD PIC X(120).
0038.00
0039.00 WORKING-STORAGE SECTION.
0040.00 * Switches
0041.00 01 PROGRAM-SWITCHES.
0042.00 05 S1-END-OF-FILE-SWITCH PIC X.
0043.00 88 S1-END-OF-FILE VALUE “Y”.
0044.00 88 S1-NOT-END-OF-FILE VALUE “N”.
0045.00
0046.00 * Report Control Fields
0047.00 01 RC-REPORT-CONTROLS.
0048.00 05 RC-PAGE-COUNT PIC 9(3).
0049.00 05 RC-LINES-PER-PAGE PIC 9(2) VALUE 54.
0050.00 05 RC-LINES-USED PIC 9(2).
0051.00 05 RC-LINE-SPACING PIC 9(2).
0052.00
0053.00 * Work Areas
0054.00 01 WA-particle-AREAS.
0055.00 05 WA-DATE-WORK PIC 9(6).
0056.00 05 WA-FINANCE-CHARGE PIC S9(5)V99.
0057.00 05 WA-MINIMUM-PAYMENT-WORK PIC S9(5)V99.
0058.00 05 WA-LATE-CHARGE PIC S9(4)V99.
0059.00 05 WA-NEW-BALANCE PIC S9(6)V99.
0060.00 05 WA-MINIMUM-PAYMENT PIC S9(5)V99.
0061.00
0062.00 01 AC-ACCUMULATORS.
0063.00 05 AC-TOTAL-BALANCE-FORWARD-ACCUM PIC S9(7)V99.
0064.00 05 AC-TOTAL-PAYMENTS-RECVD-ACCUM PIC S9(7)V99.
0065.00 05 AC-TOTAL-FINANCE-CHARGE-ACCUM PIC S9(6)V99.
0066.00 05 AC-TOTAL-LATE-CHARGE-ACCUM PIC S9(5)V99.
0067.00 05 AC-TOTAL-NEW-PURCHASES-ACCUM PIC S9(7)V99.
0068.00 05 AC-TOTAL-NEW-BALANCE-ACCUM PIC S9(7)V99.
0069.00 05 AC-TOTAL-MINIMUM-PAYMENT-ACCUM PIC S9(6)V99.
0070.00
0071.00 * Input Record Definitions
0072.00 01 CR-CUSTOMER-RECORD.
0073.00 05 CR-RECORD-CODE PIC 9(2).
0074.00 05 CR-CUSTOMER-NUMBER PIC 9(5).
0075.00 05 CR-CUSTOMER-NAME PIC X(24).
0076.00 05 PIC X(7).
0077.00 05 CR-BALANCE-FORWARD PIC S9(6)V99.
0078.00 05 CR-NEW-PURCHASES PIC S9(6)V99.
0079.00 05 PIC X(18).
0080.00 05 CR-PAYMENTS-RECEIVED PIC S9(6)V99.
0081.00
0082.00 * Heading Line Definitions
0083.00 01 H1-HEADING-LINE-1.
0084.00 05 PIC X(20) VALUE “ACCOUNTS RECEIVABLE ”
0085.00 05 PIC X(20) VALUE “REGISTER (8-3) ”
0086.00 05 PIC X(20) VALUE ” ”
0087.00 05 PIC X(20) VALUE ” ”
0088.00 05 PIC X(15) VALUE ” RUN DATE “.
0089.00 05 H1-MONTH PIC 9(2).
0090.00 05 PIC X(1) VALUE “/”.
0091.00 05 H1-DAY PIC 9(2).
0092.00 05 PIC X(1) VALUE “/”.
0093.00 05 H1-YEAR PIC 9(2).
0094.00 05 PIC X(9) VALUE ” PAGE “.
0095.00 05 H1-PAGE-NBR PIC ZZ9.
0096.00 05 PIC X(17) VALUE SPACES.
0097.00
0098.00 01 H2-HEADING-LINE-2.
0099.00 05 PIC X(20) VALUE “CUST. ”
0100.00 05 PIC X(20) VALUE ” BALANC”
0101.00 05 PIC X(20) VALUE “E PAYMENTS FIN”
0102.00 05 PIC X(20) VALUE “ANCE LATE NE”
0103.00 05 PIC X(20) VALUE “W NEW ”
0104.00 05 PIC X(20) VALUE “MINIMUM ”
0105.00
0106.00 01 H3-HEADING-LINE-3.
0107.00 05 PIC X(20) VALUE ” NO. CUSTOMER NAM”
0108.00 05 PIC X(20) VALUE “E FORWAR”
0109.00 05 PIC X(20) VALUE “D RECEIVED CH”
0110.00 05 PIC X(20) VALUE “ARGE CHARGE PURCH”
0111.00 05 PIC X(20) VALUE “ASES BALANCE ”
0112.00 05 PIC X(20) VALUE “PAYMENT STATUS ”
0113.00
0114.00 * Print Line Definitions
0115.00 01 AR-ACCOUNTS-REC-LINE.
0116.00 05 AR-CUSTOMER-NUMBER PIC 9(5).
0117.00 05 PIC X(1) VALUE SPACE.
0118.00 05 AR-CUSTOMER-NAME PIC X(24).
0119.00 05 PIC X(1) VALUE SPACE.
0120.00 05 AR-BALANCE-FORWARD PIC ZZZ,ZZZ.99-.
0121.00 05 PIC X(1) VALUE SPACE.
0122.00 05 AR-PAYMENTS-RECEIVED PIC ZZZ,ZZZ.99-.
0123.00 05 PIC X(1) VALUE SPACE.
0124.00 05 AR-FINANCE-CHARGE PIC ZZ,ZZZ.99.
0125.00 05 PIC X(1) VALUE SPACE.
0126.00 05 AR-LATE-CHARGE PIC Z,ZZZ.99.
0127.00 05 PIC X(1) VALUE SPACE.
0128.00 05 AR-NEW-PURCHASES PIC ZZZ,ZZZ.99-.
0129.00 05 PIC X(1) VALUE SPACE.
0130.00 05 AR-NEW-BALANCE PIC ZZZ,ZZZ.99-.
0131.00 05 PIC X(1) VALUE SPACE.
0132.00 05 AR-MINIMUM-PAYMENT PIC ZZ,ZZZ.99.
0133.00 05 PIC X(1) VALUE SPACE.
0134.00 05 AR-ACCOUNT-STATUS PIC X(8).
0135.00
0136.00 * Total Line Definitions
0137.00 01 RT1-TOTAL-LINE.
0138.00 05 PIC X(13) VALUE SPACES
0139.00 05 PIC X(16)
0140.00 VALUE “REPORT TOTALS ”
0141.00 05 RT1-TOTAL-BALANCE-FORWARD PIC Z,ZZZ,ZZZ.99-.
0142.00 05 PIC X(1) VALUE “*”.
0143.00 05 PIC X(11) VALUE SPACES
0144.00 05 RT1-TOTAL-FINANCE-CHARGE PIC ZZZ,ZZZ.99.
0145.00 05 PIC X(2) VALUE ” *”.
0146.00 05 PIC X(6) VALUE SPACES
0147.00 05 RT1-TOTAL-NEW-PURCHASES PIC Z,ZZZ,ZZZ.99-.
0148.00 05 PIC X(1) VALUE “*”.
0149.00 05 PIC X(11) VALUE SPACES
0150.00 05 RT1-TOTAL-MINIMUM-PAYMENT PIC ZZZ,ZZZ.99.
0151.00 05 PIC X(2) VALUE ” *”.
0152.00
0153.00 01 RT2-TOTAL-LINE.
0154.00 05 PIC X(41) VALUE SPACES
0155.00 05 RT2-TOTAL-PAYMENTS-RECEIVED PIC Z,ZZZ,ZZZ.99-.
0156.00 05 PIC X(1) VALUE “*”.
0157.00 05 PIC X(9) VALUE SPACES
0158.00 05 RT2-TOTAL-LATE-CHARGE PIC ZZ,ZZZ.99.
0159.00 05 PIC X(2) VALUE ” *”.
0160.00 05 PIC X(9) VALUE SPACES
0161.00 05 RT2-TOTAL-NEW-BALANCE PIC Z,ZZZ,ZZZ.99-.
0162.00 05 PIC X(1) VALUE “*”.
0163.00
0164.00
0165.00
0166.00 PROCEDURE DIVISION.
0167.00
0168.00 000-PRINT-ACCOUNTS-RECVBL-REG.
0169.00 ********** Initialization Sequence **********
0170.00 OPEN INPUT ACCOUNTS-REC-FILE
0171.00 OUTPUT ACCOUNTS-REC-REGISTER
0172.00
0173.00 PERFORM 100-INITIALIZE-VARIABLE-FIELDS
0174.00
0175.00 ********** Processing Sequence **********
0176.00 PERFORM UNTIL S1-END-OF-FILE
0177.00
0178.00 READ ACCOUNTS-REC-FILE INTO CR-CUSTOMER-RECORD
0179.00 AT END
0180.00 SET S1-END-OF-FILE TO TRUE
0181.00 NOT AT END
0182.00 PERFORM 200-PROCESS-CUSTOMER-RECORD
0183.00 END-READ
0184.00
0185.00 END-PERFORM
0186.00 ********** Termination Sequence **********
0187.00 PERFORM 700-PRINT-TOTAL-LINES
0188.00
0189.00 CLOSE ACCOUNTS-REC-FILE
0190.00 ACCOUNTS-REC-REGISTER
0191.00
0192.00 STOP RUN
0193.00 .
0194.00 ***********************************************
0195.00
0196.00 100-INITIALIZE-VARIABLE-FIELDS.
0197.00 SET S1-NOT-END-OF-FILE TO TRUE
0198.00
0199.00 MOVE RC-LINES-PER-PAGE TO RC-LINES-USED
0200.00
0201.00 INITIALIZE RC-PAGE-COUNT
0202.00 AC-ACCUMULATORS
0203.00
0204.00 ACCEPT WA-DATE-WORK FROM DATE
0205.00 MOVE WA-DATE-WORK(3:2) TO H1-MONTH
0206.00 MOVE WA-DATE-WORK(5:2) TO H1-DAY
0207.00 MOVE WA-DATE-WORK(1:2) TO H1-YEAR
0208.00 .
0209.00
0210.00 200-PROCESS-CUSTOMER-RECORD.
0211.00 IF RC-LINES-USED *= RC-LINES-PER-PAGE
0212.00 PERFORM 870-PRINT-REPORT-HEADINGS
0213.00 END-IF
0214.00
0215.00 MOVE CR-CUSTOMER-NUMBER TO AR-CUSTOMER-NUMBER
0216.00 MOVE CR-CUSTOMER-NAME TO AR-CUSTOMER-NAME
0217.00 MOVE CR-BALANCE-FORWARD TO AR-BALANCE-FORWARD
0218.00 MOVE CR-PAYMENTS-RECEIVED TO AR-PAYMENTS-RECEIVED
0219.00 PERFORM 210-CALCULATE-FINANCE-CHARGE
0220.00 MOVE WA-FINANCE-CHARGE TO AR-FINANCE-CHARGE
0221.00
0222.00 PERFORM 220-CALCULATE-LATE-CHARGE
0223.00 MOVE WA-LATE-CHARGE TO AR-LATE-CHARGE
0224.00 MOVE CR-NEW-PURCHASES TO AR-NEW-PURCHASES
0225.00
0226.00 PERFORM 230-CALCULATE-NEW-BALANCE
0227.00 MOVE WA-NEW-BALANCE TO AR-NEW-BALANCE
0228.00
0229.00 PERFORM 240-CALCULATE-MINIMUM-PAYMENT
0230.00 MOVE WA-MINIMUM-PAYMENT TO AR-MINIMUM-PAYMENT
0231.00
0232.00 PERFORM 250-DETERMINE-ACCOUNT-STATUS
0233.00
0234.00 MOVE AR-ACCOUNTS-REC-LINE TO ACCOUNTS-REC-LINE-RECORD
0235.00 MOVE 2 TO RC-LINE-SPACING
0236.00 PERFORM 890-WRITE-REPORT-LINE
0237.00
0238.00 ADD CR-BALANCE-FORWARD TO AC-TOTAL-BALANCE-FORWARD-ACCU
0239.00 ADD CR-PAYMENTS-RECEIVED TO AC-TOTAL-PAYMENTS-RECVD-ACCUM
0240.00 ADD WA-FINANCE-CHARGE TO AC-TOTAL-FINANCE-CHARGE-ACCUM
0241.00 ADD WA-LATE-CHARGE TO AC-TOTAL-LATE-CHARGE-ACCUM
0242.00 ADD CR-NEW-PURCHASES TO AC-TOTAL-NEW-PURCHASES-ACCUM
0243.00 ADD WA-NEW-BALANCE TO AC-TOTAL-NEW-BALANCE-ACCUM
0244.00 ADD WA-MINIMUM-PAYMENT TO AC-TOTAL-MINIMUM-PAYMENT-ACCU
0245.00 .
0246.00
0247.00 210-CALCULATE-FINANCE-CHARGE.
0248.00 SUBTRACT CR-PAYMENTS-RECEIVED FROM CR-BALANCE-FORWARD
0249.00 GIVING WA-NEW-BALANCE
0250.00
0251.00 IF WA-NEW-BALANCE IS POSITIVE
0252.00 MULTIPLY WA-NEW-BALANCE BY .015
0253.00 GIVING WA-FINANCE-CHARGE ROUNDED
0254.00 ELSE
0255.00 MOVE ZERO TO WA-FINANCE-CHARGE
0256.00 END-IF
0257.00 .
0258.00
0259.00 220-CALCULATE-LATE-CHARGE.
0260.00 IF CR-BALANCE-FORWARD IS POSITIVE
0261.00
0262.00 MULTIPLY CR-BALANCE-FORWARD BY .10
0263.00 GIVING WA-MINIMUM-PAYMENT-WORK ROUNDED
0264.00
0265.00 SUBTRACT CR-PAYMENTS-RECEIVED
0266.00 FROM WA-MINIMUM-PAYMENT-WORK
0267.00
0268.00 ELSE
0269.00 MOVE ZERO TO WA-MINIMUM-PAYMENT-WORK
0270.00 END-IF
0271.00
0272.00 IF WA-MINIMUM-PAYMENT-WORK IS POSITIVE
0273.00 MULTIPLY WA-MINIMUM-PAYMENT-WORK BY .01
0274.00 GIVING WA-LATE-CHARGE ROUNDED
0275.00 ELSE
0276.00 MOVE ZEROS TO WA-LATE-CHARGE
0277.00 END-IF
0278.00
0279.00 IF WA-LATE-CHARGE IS GREATER THAN ZERO
0280.00 AND WA-LATE-CHARGE IS LESS THAN 5.00
0281.00 MOVE 5.00 TO WA-LATE-CHARGE
0282.00 END-IF
0283.00 .
0284.00
0285.00 230-CALCULATE-NEW-BALANCE.
0286.00 ADD WA-FINANCE-CHARGE WA-LATE-CHARGE CR-NEW-PURCHASES
0287.00 TO WA-NEW-BALANCE
0288.00 .
0289.00
0290.00 240-CALCULATE-MINIMUM-PAYMENT.
0291.00 IF WA-NEW-BALANCE IS POSITIVE
0292.00 MULTIPLY WA-NEW-BALANCE BY .10
0293.00 GIVING WA-MINIMUM-PAYMENT ROUNDED
0294.00 ELSE
0295.00 MOVE ZERO TO WA-MINIMUM-PAYMENT
0296.00 END-IF
0297.00 .
0298.00
0299.00 250-DETERMINE-ACCOUNT-STATUS.
0300.00 EVALUATE TRUE
0301.00 WHEN WA-NEW-BALANCE IS ZERO
0302.00 OR WA-NEW-BALANCE IS NEGATIVE
0303.00 MOVE SPACES TO AR-ACCOUNT-STATUS
0304.00
0305.00 WHEN CR-BALANCE-FORWARD IS NOT ZERO
0306.00 AND CR-PAYMENTS-RECEIVED IS ZERO
0307.00 MOVE “PAST DUE” TO AR-ACCOUNT-STATUS
0308.00
0309.00 WHEN WA-MINIMUM-PAYMENT-WORK IS POSITIVE
0310.00 MOVE “OVERDUE ” TO AR-ACCOUNT-STATUS
0311.00
0312.00 WHEN OTHER
0313.00 MOVE “CURRENT ” TO AR-ACCOUNT-STATUS
0314.00 END-EVALUATE
0315.00 .
0316.00
0317.00 700-PRINT-TOTAL-LINES.
0318.00 MOVE AC-TOTAL-BALANCE-FORWARD-ACCUM
0319.00 TO RT1-TOTAL-BALANCE-FORWARD
0320.00 MOVE AC-TOTAL-FINANCE-CHARGE-ACCUM
0321.00 TO RT1-TOTAL-FINANCE-CHARGE
0322.00 MOVE AC-TOTAL-NEW-PURCHASES-ACCUM
0323.00 TO RT1-TOTAL-NEW-PURCHASES
0324.00 MOVE AC-TOTAL-MINIMUM-PAYMENT-ACCUM
0325.00 TO RT1-TOTAL-MINIMUM-PAYMENT
0326.00
0327.00 MOVE RT1-TOTAL-LINE TO ACCOUNTS-REC-LINE-RECORD
0328.00 MOVE 3 TO RC-LINE-SPACING
0329.00 PERFORM 890-WRITE-REPORT-LINE
0330.00
0331.00 MOVE AC-TOTAL-PAYMENTS-RECVD-ACCUM
0332.00 TO RT2-TOTAL-PAYMENTS-RECEIVED
0333.00 MOVE AC-TOTAL-LATE-CHARGE-ACCUM
0334.00 TO RT2-TOTAL-LATE-CHARGE
0335.00 MOVE AC-TOTAL-NEW-BALANCE-ACCUM
0336.00 TO RT2-TOTAL-NEW-BALANCE
0337.00
0338.00 MOVE RT2-TOTAL-LINE TO ACCOUNTS-REC-LINE-RECORD
0339.00 MOVE 1 TO RC-LINE-SPACING
0340.00 PERFORM 890-WRITE-REPORT-LINE
0341.00 .
0342.00
0343.00 870-PRINT-REPORT-HEADINGS.
0344.00 ADD 1 TO RC-PAGE-COUNT
0345.00 MOVE RC-PAGE-COUNT TO H1-PAGE-NBR
0346.00 MOVE H1-HEADING-LINE-1 TO ACCOUNTS-REC-LINE-RECORD
0347.00 PERFORM 880-WRITE-REPORT-TOP-LINE
0348.00
0349.00 MOVE H2-HEADING-LINE-2 TO ACCOUNTS-REC-LINE-RECORD
0350.00 MOVE 2 TO RC-LINE-SPACING
0351.00 PERFORM 890-WRITE-REPORT-LINE
0352.00
0353.00 MOVE H3-HEADING-LINE-3 TO ACCOUNTS-REC-LINE-RECORD
0354.00 MOVE 1 TO RC-LINE-SPACING
0355.00 PERFORM 890-WRITE-REPORT-LINE
0356.00 .
0357.00
0358.00 880-WRITE-REPORT-TOP-LINE.
0359.00 WRITE ACCOUNTS-REC-LINE-RECORD
0360.00 AFTER ADVANCING PAGE
0361.00 MOVE 1 TO RC-LINES-USED
0362.00 .
0363.00
0364.00 890-WRITE-REPORT-LINE.
0365.00 WRITE ACCOUNTS-REC-LINE-RECORD
0366.00 AFTER ADVANCING RC-LINE-SPACING LINES
0367.00 ADD RC-LINE-SPACING TO RC-LINES-USED
0368.00 .
****************** End of data
|