home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol650 / cobsrc / prog426.cob < prev    next >
Encoding:
Text File  |  1990-09-02  |  1.1 KB  |  41 lines
  1.       *
  2.        IDENTIFICATION DIVISION.
  3.       *
  4.        PROGRAM-ID. CHAP426.
  5.       *
  6.        ENVIRONMENT DIVISION.
  7.       *
  8.        CONFIGURATION SECTION.
  9.       *
  10.        SPECIAL-NAMES.
  11.            PRINTER IS PRINTER-DISPLAY.
  12.       *
  13.       *
  14.        DATA DIVISION.
  15.       *
  16.        WORKING-STORAGE SECTION.
  17.       *
  18.       *
  19.            01  W005-GROSS-PAY                   PIC 9(4)V99.
  20.       *
  21.            01  W005-BASE-PAY                    PIC 999V99 VALUE 500.
  22.       *
  23.            01  W005-WEEK-HOURS                  PIC 99V99  VALUE 39.5.
  24.       *
  25.       *
  26.        PROCEDURE DIVISION.
  27.       *
  28.        MAIN-LINE-LOGIC.
  29.            GO TO PRINT-COMPUTED-VALUE.
  30.       *
  31.       *
  32.        PRINT-COMPUTED-VALUE.
  33.            COMPUTE W005-GROSS-PAY ROUNDED =
  34.              W005-BASE-PAY * ( 1 + 1.5 * ( W005-WEEK-HOURS - 35 ) / 35 ).
  35.            DISPLAY W005-GROSS-PAY.
  36.            COMPUTE W005-GROSS-PAY ROUNDED =
  37.              W005-BASE-PAY * ( 1 + ( 1.5 / 35 ) 
  38.                            * ( W005-WEEK-HOURS - 35)).
  39.            DISPLAY W005-GROSS-PAY.
  40.            STOP RUN.
  41.