Calculations in Project 7-3

    01  IN-RECORD.
        02 IN-SSN               PIC X(9).
        02 IN-NAME              PIC X(15).
        02 IN-HOURS             PIC 9(3)V9(2).   (hours worked)
        02 IN-RATE              PIC 9(2)V9(2).   (dollars per hour)

    01  WS-GROSS-PAY            PIC 9(5)V9(2).

    In this case Gross Pay is defined as straight time for the first
    40 hours of work, then Time and a half over 40 hours up to 48 hours,
    then double time after 48 hours.

           IF IN-HOURS > 48
                   COMPUTE WS-GROSS-PAY ROUNDED =
                       ( ( IN-HOURS - 48 ) * ( IN-RATE * 2) ) +
                       ( IN-RATE * 8 * 1.5 ) +
                       ( IN-RATE * 40 )
           ELSE IF IN-HOURS > 40
                   COMPUTE WS-GROSS-PAY ROUNDED =
                       ( ( IN-HOURS - 40 ) * ( IN-RATE * 1.5) ) +
                       ( IN-RATE * 40 )
                ELSE
                   COMPUTE WS-GROSS-PAY ROUNDED =
                       IN-HOURS * IN-RATE
                END-IF
           END-IF.

    Calculation of federal withholding tax in Project 7-3 (pp. 772-773)

    Tax is to be calculated as follows:

        18% on the first $200 of gross pay
        20% on amounts between $200 and $240
        22% on amounts between $240 and $280
        24% on amounts over $280

    Example:

        If gross pay is $400

        Tax is  18% of $200             (  $0-$200)
        plus    20% of $ 40             ($200-$240)
        plus    22% of $ 40             ($240-$280)
        plus    24% of $120             ($280-$400)
                       ====
                       $400

Cobol Home