Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ***********************************************************************
- *-----I D E N T I F I C A T I O N D I V I S I O N-------------------*
- ***********************************************************************
- IDENTIFICATION DIVISION.
- PROGRAM-ID. CBLH02JN.
- AUTHOR. Jan Noel Calayag.
- ***********************************************************************
- *-----E N V I R O M E N T D I V I S I O N---------------------------*
- ***********************************************************************
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TRANS-FILE ASSIGN TO CBLHO2I1
- ORGANIZATION IS SEQUENTIAL.
- SELECT VALID-TRANS-FILE ASSIGN TO CBLHO2O1
- ORGANIZATION IS SEQUENTIAL.
- SELECT VALID-PROOF-LIST ASSIGN TO CBLHO2O2
- ORGANIZATION IS SEQUENTIAL.
- ***********************************************************************
- *-----D A T A D I V I S I O N---------------------------------------*
- ***********************************************************************
- DATA DIVISION.
- * ********************************************************************
- * * F I L E S E C T I O N *
- * * *
- * * INPUT FILE: TRANS-FILE -> TRANS-REC *
- * * OUTPUT FILE: VALID-TRANS-FILE -> VALID-TRANS-REC *
- * * VALID-PROOF-LIST -> VALID-PROOF-REC *
- * ********************************************************************
- FILE SECTION.
- FD TRANS-FILE
- RECORD CONTAINS 80 CHARACTERS
- LABEL RECORDS ARE STANDARD
- DATA RECORD IS TRANS-REC.
- 01 TRANS-REC PIC X(80).
- FD VALID-TRANS-FILE
- RECORD CONTAINS 80 CHARACTERS
- LABEL RECORDS ARE STANDARD
- DATA RECORD IS VALID-TRANS-REC.
- 01 VALID-TRANS-REC PIC X(80).
- FD VALID-PROOF-LIST
- RECORD CONTAINS 133 CHARACTERS
- LABEL RECORDS ARE STANDARD
- DATA RECORD IS VALID-PROOF-REC.
- 01 VALID-PROOF-REC PIC X(133).
- * ********************************************************************
- * * W O R K I N G S T O R A G E S E C T I O N *
- * * *
- * * INPUT FILE: TRANS-FILE -> TRANS-REC *
- * * OUTPUT FILE: VALID-TRANS-FILE -> VALID-TRANS-REC *
- * * VALID-PROOF-LIST -> VALID-PROOF-REC *
- * ********************************************************************
- WORKING-STORAGE SECTION.
- * *****************************************************************
- * * TRANSACTION FILE *
- * *****************************************************************
- 01 WS-TRANS-FILE PIC X(80)
- VALUE SPACES.
- 01 WS-TRANS-FILE-HDR REDEFINES WS-TRANS-FILE.
- 05 TRANS-FILE-HDR-DATE.
- 10 TRANS-FILE-HDR-CC PIC 9(02).
- 10 TRANS-FILE-HDR-YY PIC 9(02).
- 10 TRANS-FILE-HDR-MM PIC 9(02).
- 10 TRANS-FILE-HDR-DD PIC 9(02).
- 05 FILLER PIC X(72).
- 01 WS-TRANS-FILE-REC REDEFINES WS-TRANS-FILE.
- 05 TRANS-FILE-REC-EMPNO PIC 9(06).
- 05 FILLER PIC X(67).
- 05 TRANS-FILE-REC-DATE.
- 10 TRANS-FILE-REC-CC PIC 9(02).
- 10 TRANS-FILE-REC-YY PIC 9(02).
- 10 TRANS-FILE-REC-MM PIC 9(02).
- 05 TRANS-FILE-REC-CODE PIC 9(01).
- 01 WS-TRANS-FILE-TC0 REDEFINES WS-TRANS-FILE.
- 05 FILLER PIC X(06).
- 05 TRANS-FILE-REC-EE-PRCNT PIC 9(03)V99.
- 05 TRANS-FILE-REC-ER-PRCNT PIC 9(03)V99.
- 05 FILLER PIC X(64).
- 01 WS-TRANS-FILE-TC1 REDEFINES WS-TRANS-FILE.
- 05 FILLER PIC X(06).
- 05 TRANS-FILE-REC-EE-CONTR PIC 9(08)V99.
- 05 TRANS-FILE-REC-ER-CONTR PIC 9(08)V99.
- 05 FILLER PIC X(54).
- 01 WS-TRANS-FILE-TC2 REDEFINES WS-TRANS-FILE.
- 05 FILLER PIC X(06).
- 05 TRANS-FILE-REC-EE-EARNG PIC 9(08)V99.
- 05 TRANS-FILE-REC-ER-EARNG PIC 9(08)V99.
- 05 FILLER PIC X(54).
- * *****************************************************************
- * * VALIDATION PROOF LIST *
- * *****************************************************************
- 01 WS-PROOFLIST-HDR1.
- 05 FILLER PIC X(12)
- VALUE 'PROGRAM ID :'.
- 05 FILLER PIC X(09)
- VALUE ' CBLHO2AJ'.
- 05 FILLER PIC X(26)
- VALUE SPACES.
- 05 FILLER PIC X(34)
- VALUE 'POINTWEST TECHNOLOGIES CORPORATION'.
- 01 WS-PROOFLIST-HDR2.
- 05 FILLER PIC X(12)
- VALUE 'RUN DATE :'.
- 05 PROOFLIST-HDR-MM PIC X(02)
- VALUE SPACES.
- 05 FILLER PIC X(01)
- VALUE '/'.
- 05 PROOFLIST-HDR-DD PIC X(02)
- VALUE SPACES.
- 05 FILLER PIC X(01)
- VALUE '/'.
- 05 PROOFLIST-HDR-CC PIC X(02)
- VALUE SPACES.
- 05 PROOFLIST-HDR-YY PIC X(02)
- VALUE SPACES.
- 05 FILLER PIC X(22)
- VALUE SPACES.
- 05 FILLER PIC X(35)
- VALUE 'PROVIDENT FUND VALIDATION PROOFLIST'.
- 01 WS-PROOFLIST-HDR3.
- 05 FILLER PIC X(54)
- VALUE SPACES.
- 05 FILLER PIC X(06)
- VALUE 'AS OF '.
- 05 PROOFLIST-HDR-MONTH PIC X(09)
- VALUE SPACES.
- 88 PROOFLIST-HDR-MONTH01 VALUE 'JANUARY'.
- 88 PROOFLIST-HDR-MONTH02 VALUE 'FEBRUARY'.
- 88 PROOFLIST-HDR-MONTH03 VALUE 'MARCH'.
- 88 PROOFLIST-HDR-MONTH04 VALUE 'APRIL'.
- 88 PROOFLIST-HDR-MONTH05 VALUE 'MAY'.
- 88 PROOFLIST-HDR-MONTH06 VALUE 'JUNE'.
- 88 PROOFLIST-HDR-MONTH07 VALUE 'JULY'.
- 88 PROOFLIST-HDR-MONTH08 VALUE 'AUGUST'.
- 88 PROOFLIST-HDR-MONTH09 VALUE 'SEPTEMBER'.
- 88 PROOFLIST-HDR-MONTH10 VALUE 'PCAT'.
- 88 PROOFLIST-HDR-MONTH11 VALUE 'JANUARY'.
- 88 PROOFLIST-HDR-MONTH12 VALUE 'JANUARY'.
- 05 FILLER PIC X(01)
- VALUE ','.
- 05 RS-VP-YEAR PIC X(04)
- VALUE SPACES.
- 01 WS-PROOFLIST-HDR4.
- 05 FILLER PIC X(04)
- VALUE 'TRAN'.
- 05 FILLER PIC X(02)
- VALUE SPACES.
- 05 FILLER PIC X(08)
- VALUE 'EMPLOYEE'.
- 05 FILLER PIC X(09)
- VALUE SPACES.
- 05 FILLER PIC X(08)
- VALUE 'EMPLOYEE'.
- 05 FILLER PIC X(19)
- VALUE SPACES.
- 05 FILLER PIC X(08)
- VALUE 'EMPLOYER'.
- 05 FILLER PIC X(16)
- VALUE SPACES.
- 05 FILLER PIC X(16)
- VALUE 'TRANSACTION DATE'.
- 05 FILLER PIC X(14)
- VALUE SPACES.
- 05 FILLER PIC X(07)
- VALUE 'REMARKS'.
- 01 WS-PROOFLIST-HDR5.
- 05 FILLER PIC X(04)
- VALUE 'CODE'.
- 05 FILLER PIC X(09)
- VALUE ' NUMBER'.
- 05 FILLER PIC X(05)
- VALUE SPACES.
- 05 FILLER PIC X(20)
- VALUE '% CONT / CONT / EARN'.
- 05 FILLER PIC X(06)
- VALUE SPACES.
- 05 FILLER PIC X(20)
- VALUE '% CONT / CONT / EARN'.
- 05 FILLER PIC X(14)
- VALUE SPACES.
- 05 FILLER PIC X(06) VALUE 'CCYYMM'.
- ***********************************************************************
- *-----P R O C E D U R E D I V I S I O N-----------------------------*
- ***********************************************************************
- PROCEDURE DIVISION.
- 0000-MAIN-PROC.
- MOVE '423y64837848329048239043' TO WS-TRANS-FILE.
- MOVE TRANS-FILE-HDR TO WS-VALID-TRANS-FILE.
- DISPLAY
- STOP RUN.
- 0000-EXIT.
- EXIT.
Add Comment
Please, Sign In to add comment