fork download
copy 
  1.   0010 IDENTIFICATION DIVISION.
  2.   0015 PROGRAM-ID.  PAYROLL-FILE.
  3.   0020 ENVIRONMENT DIVISION.
  4.   0025 CONFIGURATION SECTION.
  5.   0030 SOURCE-COMPUTER.  IBM-360.
  6.   0035 OBJECT-COMPUTER.  IBM-360.
  7.   0040 INPUT-OUTPUT SECTION.
  8.   0045 FILE-CONTROL.
  9.   0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
  10.   0055     SELECT PAY-OUT ASSIGN TO UT-S-SYSPRINT.
  11.   0060 DATA DIVISION.
  12.   0065 FILE SECTION.
  13.   0070 FD  PAYROLL-IN LABEL RECORDS ARE STANDARD.
  14.   0075 01  EMPLOYEE-RECORD.
  15.   0076     05 NAME        PIC X(16).
  16.   0080     05 PLAN        PIC X.
  17.   0085     05 HOURS       PIC 99V99.
  18.   0090     05 RATE        PIC 99V99.
  19.   0100 FD  PAY-OUT LABEL RECORDS ARE OMITTED.
  20.   0105 01  PRINT-LINE            PIC X(132). 
  21.   0260 01  DETAIL-LINE.
  22.            05 FILLER     PIC X(13).
  23.            05 NAME-O     PIC X(16).
  24.            05 FILLER     PIC X(13).
  25.            05 GROSS-O    PIC $$$,$$9.99.
  26.            05 FILLER     PIC X(13).
  27.            05 FICA-O     PIC $$$9.99.
  28.            05 FILLER     PIC X(13).
  29.            05 INSUR-O    PIC $$$9.99.
  30.            05 FILLER     PIC X(13).
  31.            05 NET-O      PIC $$$,$$9.99.
  32.            05 FILLER     PIC X(17).
  33.   0330 01  TOTALS.
  34.            05 FILLER     PIC X(41).
  35.            05 TOTAL-GRO  PIC $$$$,$$9.99.
  36.            05 FILLER     PIC X(11).
  37.            05 TOTAL-TAX  PIC $$,$$9.99.
  38.            05 FILLER     PIC X(11).
  39.            05 TOTAL-INS  PIC $$,$$9.99.
  40.            05 FILLER     PIC X(12).
  41.            05 TOTAL-NET  PIC $$$$,$$9.99.
  42.            05 FILLER     PIC X(17).
  43.   0110 WORKING-STORAGE SECTION.
  44.   0115 01  ARE-THERE-MORE-RECORDS  PICTURE XXX VALUE 'YES'.
  45.   0170 01  HEADS-1.
  46.            05 FILLER     PIC X(50).
  47.            05 FILLER     PIC X(38) VALUE 'HARDWORKERS OF AMERICA AS OF MM/DD/YY'.
  48.            05 FILLER     PIC X(35).
  49.            05 FILLER     PIC X(7) VALUE 'PAGE Z9'.
  50.            05 FILLER     PIC X(2).
  51.   0200 01  HEADS-2.
  52.            05 FILLER     PIC X(13).
  53.            05 FILLER     PIX X(4) VALUE 'NAME'.
  54.            05 FILLER     PIC X(25).
  55.            05 FILLER     PIC X(9) VALUE 'GROSS PAY'.
  56.            05 FILLER     PIC X(15).
  57.            05 FILLER     PIC X(5) VALUE 'TAXES'.
  58.            05 FILLER     PIC X(13).
  59.            05 FILLER     PIC X(9) VALUE 'INSURANCE'.
  60.            05 FILLER     PIC X(14).
  61.            05 FILLER     PIC X(7) VALUE 'NET PAY'.
  62.            05 FILLER     PIC X(18).
  63.   0120 01  CALCULOS.
  64.            05 GROSS              PIC 999999V99   VALUE 0.
  65.            05 FEDERALWITH        PIC 999999V99   VALUE 0.
  66.            05 FICA               PIC 9999V99     VALUE 0.
  67.            05 INSURANCE          PIC 9999V99     VALUE 0.
  68.            05 NETPAY             PIC 999999V99   VALUE 0.
  69.            05 TOTALGROSS         PIC 9999999V99  VALUE 0.
  70.            05 TOTALFICA          PIC 99999V99    VALUE 0.
  71.            05 TOTALINSUR         PIC 99999V99    VALUE 0.
  72.            05 TOTALNET           PIC 9999999V99  VALUE 0.
  73.   0380 PROCEDURE DIVISION.
  74.   0385 MAIN-MODULE.
  75.   0390     OPEN INPUT PAYROLL-IN OUTPUT PAY-OUT.
  76.            PERFORM WRITE-HEADS.
  77.   0400     READ PAYROLL-IN AT END MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
  78.   0405     PERFORM WRITE-DETAIL UNTIL ARE-THERE-MORE-RECORDS = NO.
  79.   0410     PERFORM WRITE-TOTALS.
  80.   0415     CLOSE PAYROLL-IN PAY-OUT.
  81.   0420     STOP RUN.
  82.   0425 WRITE-HEADS.
  83.            WRITE PRINT-LINE AFTER 1.
  84.            MOVE HEADS-1 TO PRINT-LINE.
  85.            WRITE PRINT-LINE AFTER 1.
  86.            MOVE HEADS-2 TO PRINT-LINE.
  87.            WRITE PRINT-LINE AFTER 1.
  88.            MOVE SPACES TO PRINT-LINE.
  89.            WRITE PRINT-LINE.
  90.   0430 WRITE-DETAIL.
  91.   0435     IF HOURS > 40 THEN
  92.                 COMPUTE GROSS = {HOURS * (RATE * 1.5)}.
  93.   0440     ELSE
  94.                 COMPUTE GROSS = RATE * HOURS.
  95.   0445     END-IF.
  96.   0450     IF GROSS > 600 THEN
  97.                 COMPUTE FEDERALWITH = GROSS * .25.
  98.   0455     ELSE
  99.   0460     IF GROSS > 450 THEN
  100.                 COMPUTE FEDERALWITH = GROSS * .23.
  101.   0465     ELSE
  102.                 COMPUTE FEDERALWITH = GROSS * .18.
  103.   0470     END-IF.
  104.                 COMPUTE FICA = GROSS * .062.
  105.   0475     IF PLAN = 'A' THEN
  106.                 COMPUTE INSURANCE = GROSS - 5.00.
  107.   0480     END-IF.
  108.   0485     IF PLAN = 'B' THEN
  109.                 COMPUTE INSURANCE = GROSS - 8.00.
  110.   0490     END-IF.
  111.   0495     IF PLAN = 'C' THEN
  112.                 COMPUTE INSURANCE = GROSS - 10.00.
  113.   0500     ELSE
  114.                    INSURANCE = 0.
  115.   0505     END-IF.
  116.                 COMPUTE NETPAY = GROSS - FEDERALWITH - INSURANCE - FICA.
  117.            MOVE NAME TO NAME-O.
  118.            MOVE GROSS TO GROSS-O.
  119.            MOVE FICA TO FICA-O.
  120.            MOVE INSURANCE TO INSUR-O.
  121.            MOVE NETPAY TO NET-O.
  122.            MOVE DETAIL-LINE TO PRINT-LINE.
  123.            WRITE PRINT-LINE AFTER 1.
  124.            READ PAYROLL-IN AT END MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
  125.   0435 WRITE-TOTALS.
  126.            COMPUTE TOTALGROSS = TOTALGROSS + TOTAL-GRO.
  127.            COMPUTE TOTALFICA = TOTALFICA + TOTAL-TAX.
  128.            COMPUTE TOTALINSUR = TOTALINSUR + TOTAL-INS.
  129.            COMPUTE TOTALNET = TOTALNET + TOTAL-NET.
  130.            MOVE TOTALGROSS TO TOTAL-GRO.
  131.            MOVE TOTALFICA TO TOTAL-TAX.
  132.            MOVE TOTALINSUR TO TOTAL-INS.
  133.            MOVE TOTALNET TO TOTAL-NET.
  134.            MOVE TOTALS TO PRINT-LINE.
  135.            WRITE PRINT-LINE AFTER 2.
  136.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:47: Error: syntax error, unexpected PAGE, expecting EXTERNAL or GLOBAL
stdout
copy 
Standard output is empty
https://ideone.com/JewNf
language:
Cobol (gnucobol 2.2.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!