home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
compiler
/
cobol650
/
cobsrc
/
prog426.cob
< prev
next >
Wrap
Text File
|
1990-09-02
|
1KB
|
41 lines
*
IDENTIFICATION DIVISION.
*
PROGRAM-ID. CHAP426.
*
ENVIRONMENT DIVISION.
*
CONFIGURATION SECTION.
*
SPECIAL-NAMES.
PRINTER IS PRINTER-DISPLAY.
*
*
DATA DIVISION.
*
WORKING-STORAGE SECTION.
*
*
01 W005-GROSS-PAY PIC 9(4)V99.
*
01 W005-BASE-PAY PIC 999V99 VALUE 500.
*
01 W005-WEEK-HOURS PIC 99V99 VALUE 39.5.
*
*
PROCEDURE DIVISION.
*
MAIN-LINE-LOGIC.
GO TO PRINT-COMPUTED-VALUE.
*
*
PRINT-COMPUTED-VALUE.
COMPUTE W005-GROSS-PAY ROUNDED =
W005-BASE-PAY * ( 1 + 1.5 * ( W005-WEEK-HOURS - 35 ) / 35 ).
DISPLAY W005-GROSS-PAY.
COMPUTE W005-GROSS-PAY ROUNDED =
W005-BASE-PAY * ( 1 + ( 1.5 / 35 )
* ( W005-WEEK-HOURS - 35)).
DISPLAY W005-GROSS-PAY.
STOP RUN.