Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. PTCH01JN.
- AUTHOR. Jan Noel Calayag.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT EMPLOYEE-FILE ASSIGN TO INPUT01
- ORGANIZATION IS SEQUENTIAL.
- SELECT PRINT-FILE ASSIGN TO OUTPUT01
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD EMPLOYEE-FILE
- RECORD CONTAINS 105 CHARACTERS
- LABEL RECORDS ARE STANDARD
- DATA RECORD IS EMPLOYEE-REC.
- 01 EMPLOYEE-REC PIC X(105).
- FD PRINT-FILE
- RECORD CONTAINS 132 CHARACTERS
- LABEL RECORDS ARE STANDARD
- DATA RECORD IS PRINT-REC.
- 01 PRINT-REC PIC X(132).
- WORKING-STORAGE SECTION.
- 01 WS-INPUT.
- 05 WS-EMPLOYEE-INFO.
- 10 INPUT-TIN-NUMBER PIC 9(09).
- 10 INPUT-NAME PIC X(35).
- 10 INPUT-EXMPT-STAT PIC X.
- 88 ES-SINGLE VALUE 'S'.
- 88 ES-HEAD VALUE 'H'.
- 88 ES-MARRIED VALUE 'M'.
- 10 INPUT-QTY-DPNDNT PIC 9(02).
- 10 INPUT-SP-CLAIM PIC X.
- 10 INPUT-TP-GROSS PIC 9(07)V99.
- 10 INPUT-SP-GROSS PIC 9(07)V99.
- 10 INPUT-TP-OTHER1 PIC 9(07)V99.
- 10 INPUT-SP-OTHER1 PIC 9(07)V99.
- 10 INPUT-TP-OTHER2 PIC 9(07)V99.
- 10 INPUT-SP-OTHER2 PIC 9(07)V99.
- 01 WS-COMPUTATION.
- 05 WS-GROSS-TAX.
- 10 COMP-TP-GRS-TAX-INC PIC 9(07)V99 VALUE ZERO.
- 10 COMP-SP-GRS-TAX-INC PIC 9(07)V99 VALUE ZERO.
- 10 COMP-TL-GRS-TAX-INC PIC 9(07)V99 VALUE ZERO.
- 05 WS-TAX-EXEMPTION.
- 10 COMP-TP-EXEMPTION PIC 9(07)V99 VALUE ZERO.
- 10 COMP-SP-EXEMPTION PIC 9(07)V99 VALUE ZERO.
- 05 WS-NET-TAX.
- 10 COMP-TP-NET-TAX-INC PIC 9(07)V99 VALUE ZERO.
- 10 COMP-SP-NET-TAX-INC PIC 9(07)V99 VALUE ZERO.
- 05 WS-TAX-DUE.
- 10 COMP-TP-TAX-DUE PIC 9(07)V99 VALUE ZERO.
- 10 COMP-SP-TAX-DUE PIC 9(07)V99 VALUE ZERO.
- 10 COMP-TL-TAX-DUE PIC 9(07)V99 VALUE ZERO.
- 05 WS-TAKE-HOME-PAY.
- 10 COMP-TL-TKHM-PAY PIC 9(07)V99 VALUE ZERO.
- 05 WS-TOTALS.
- 10 COMP-GD-GRS-TAX-INC PIC 9(08)V99 VALUE ZERO.
- 10 COMP-GD-TAX-DUE PIC 9(08)V99 VALUE ZERO.
- 10 COMP-GD-TKHM-PAY PIC 9(08)V99 VALUE ZERO.
- 10 COMP-TL-NUM-EMP PIC 9(05) VALUE ZERO.
- 01 WS-SWITCHES-FLAGS.
- 05 WS-FILE-STAT PIC X VALUE 'N'.
- 88 WS-NOT-EOF VALUE 'N'.
- 88 WS-EOF VALUE 'Y'.
- 05 WS-PAGE-HEADER PIC X VALUE 'N'.
- 88 WS-HDR-PRINTED VALUE 'Y'.
- 88 WS-HDR-NOT-PRINTED VALUE 'Y'.
- PROCEDURE DIVISION.
- ***********************************************************************
- * 0000-MAIN: MAIN PROGRAM *
- * Procedures used: *
- * 1000-INITIALIZE *
- * 2000-PROCESS *
- * 3000-FINAL *
- ***********************************************************************
- 0000-MAIN-PROC.
- PERFORM 1000-INITIALIZE THRU 1000-EXIT.
- * PERFORM 2000-PROCESS THRU 2000-EXIT.
- PERFORM 3000-FINAL THRU 3000-EXIT.
- STOP RUN.
- 0000-EXIT.
- EXIT.
- ***********************************************************************
- * 1000-INITIALIZE: OPENING REQUIRED FILES *
- ***********************************************************************
- 1000-INITIALIZE.
- OPEN INPUT EMPLOYEE-FILE.
- OPEN INPUT PRINT-FILE.
- 1000-EXIT.
- EXIT.
- ***********************************************************************
- * 3000-FINAL: CLOSING FILES *
- ***********************************************************************
- 3000-FINAL.
- CLOSE EMPLOYEE-FILE.
- CLOSE PRINT-FILE.
- 3000-EXIT.
- EXIT.
- ***********************************************************************
- * 3000-FINAL: PROGRAM PROCESS *
- ***********************************************************************
- 2000-INITIALIZE.
- CLOSE EMPLOYEE-FILE.
- CLOSE PRINT-FILE.
- 2000-EXIT.
- EXIT.
Add Comment
Please, Sign In to add comment