SHARE
TWEET

Untitled

a guest Sep 13th, 2018 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       ***********************************************************************
  2.       *--------IDENTIFICATION DIVISION--------------------------------------*
  3.       ***********************************************************************
  4.        IDENTIFICATION DIVISION.
  5.        PROGRAM-ID. CBLH02JN.
  6.        AUTHOR. Jan Noel Calayag.
  7.        
  8.       ***********************************************************************
  9.       *--------ENVIROMENT DIVISION------------------------------------------*
  10.       ***********************************************************************
  11.        ENVIRONMENT DIVISION.
  12.        INPUT-OUTPUT SECTION.
  13.        FILE-CONTROL.
  14.  
  15.              SELECT TRANS-FILE ASSIGN TO CBLHO2I1
  16.                ORGANIZATION IS SEQUENTIAL.
  17.              SELECT VALID-TRANS-FILE ASSIGN TO CBLHO2O1
  18.                ORGANIZATION IS SEQUENTIAL.
  19.              SELECT VALID-PROOF-LIST ASSIGN TO CBLHO2O2
  20.                ORGANIZATION IS SEQUENTIAL.
  21.                
  22.       ***********************************************************************
  23.       *--------DATA DIVISION------------------------------------------------*
  24.       ***********************************************************************          
  25.        DATA DIVISION.
  26.       *    *****************************************************************
  27.       *   *                 F I L E   S E C T I O N                      *
  28.       *   *                                                              *
  29.       *   *    INPUT FILE:   TRANS-FILE -> TRANS-REC                     *
  30.       *   *    OUTPUT FILE:  VALID-TRANS-FILE -> VALID-TRANS-REC         *
  31.       *   *                  VALID-PROOF-LIST -> VALID-PROOF-REC         *
  32.       *    *****************************************************************
  33.        FILE SECTION.
  34.        FD    TRANS-FILE
  35.              RECORD CONTAINS 80 CHARACTERS
  36.              LABEL RECORDS ARE STANDARD
  37.              DATA RECORD IS TRANS-REC.
  38.        01    TRANS-REC.                     PIC X(80).
  39.        
  40.        FD    VALID-TRANS-FILE
  41.              RECORD CONTAINS 80 CHARACTERS
  42.              LABEL RECORDS ARE STANDARD
  43.              DATA RECORD IS VALID-TRANS-REC.
  44.        01    VALID-TRANS-REC                PIC X(80).
  45.        
  46.        FD    VALID-PROOF-LIST
  47.              RECORD CONTAINS 133 CHARACTERS
  48.              LABEL RECORDS ARE STANDARD
  49.              DATA RECORD IS VALID-PROOF-REC.
  50.        01    VALID-PROOF-REC                PIC X(133).
  51.        
  52.        WORKING-STORAGE SECTION.
  53.       *    *****************************************************************
  54.       *   *        W O R K I N G   S T O R A G E   S E C T I O N         *
  55.       *   *                                                             *    
  56.       *   *    TRANS-FILE:                                               *
  57.       *   *    TF-HDR-DATE    -> Trans File Header Date                  *
  58.       *   *    TF-EMP-NO      -> Trans File Employee Number              *
  59.       *   *    TF-TRANS-DATE  -> Trans File Transaction Date             *
  60.       *   *    TF-TRANS-CODE  -> Trans File Transaction Code             *
  61.       *   *    TF-TC0-EE-CONTRI-PC  -> Trans File Employee               *
  62.       *   *                            Contribution Percentage           *
  63.       *   *    TF-TC0-ER-CONTRI-PC  -> Trans File Employer               *
  64.       *   *                            Contribution Percentage           *
  65.       *   *    TF-TC1-EE-CONTRI     -> Trans File Employee               *
  66.       *   *                            Contribution Percentage           *
  67.       *   *    TF-TC1-ER-CONTRI     -> Trans File Employer               *
  68.       *   *                            Contribution Percentage           *
  69.       *   *    TF-TC2-EE-EARN -> Trans File Employee Earnings            *
  70.       *   *    TF-TC2-ER-EARN -> Trans File Employer Earnings            *
  71.       *   *                                                             *                                                  
  72.       *   *    VALID TRANS-FILE:                                         *
  73.       *   *    VTF-HDR-DATE    -> Valid Trans File Header Date           *
  74.       *   *    VTF-TC0-EMP-NO  -> Valid Trans File Employee Number       *
  75.       *   *    VTF-TC0-EE-CONTRI-PC -> Valid Trans File Employee         *
  76.       *   *                            Contribution Percentage           *
  77.       *   *    VTF-TC0-ER-CONTRI-PC -> Valid Trans File Employer         *
  78.       *   *                            Contribution Percentage           *
  79.       *   *    VTF-TC0-TRANS-DATE   -> Valid Trans File Transaction Date *
  80.       *   *    VTF-TC0-TRANS-CODE   -> Valid Trans File Transaction Code *
  81.       *   *    VTF-TC1-EMP-NO  -> Valid Trans File Employee Number       *
  82.       *   *    VTF-TC1-EE-CONTRI    -> Valid Trans File Employee         *
  83.       *   *                            Contribution Percentage           *
  84.       *   *    VTF-TC1-ER-CONTRI    -> Valid Trans File Employer         *
  85.       *   *                            Contribution Percentage           *
  86.       *   *    VTF-TC1-TRANS-DATE   -> Valid Trans File Transaction Date *
  87.       *   *    VTF-TC1-TRANS-CODE   -> Valid Trans File Transaction Code *
  88.       *   *    VTF-TC2-EMP-NO  -> Valid Trans File Employee Number       *
  89.       *   *    VTF-TC2-EE-EARN -> Valid Trans File Employee Earnings     *
  90.       *   *    VTF-TC2-ER-EARN -> Valid Trans File Employer Earnings     *
  91.       *   *    VTF-TC2-TRANS-DATE   -> Valid Trans File Transaction Date *
  92.       *   *    VTF-TC2-TRANS-CODE   -> Valid Trans File Transaction Code *
  93.       *   *                                                              *
  94.       *   *    SWITCHES AND FLAGS:                                       *
  95.       *   *    WS-FILE-STAT        -> If file status is EOF or not       *
  96.       *    *****************************************************************
  97.        01 WS-TRANS-FILE.      
  98.           05 WS-TF-HDR.
  99.              10 TF-HDR-DATE.
  100.                 15 TF-HDR-DATE-CC     PIC 9(02).
  101.                 15 TF-HDR-DATE-YY     PIC 9(02).
  102.                 15 TF-HDR-DATE-MM     PIC 9(02).
  103.                 15 TF-HDR-DATE-DD     PIC 9(02).
  104.              10 FILLER                PIC X(72).
  105.           05 WS-TF-TC-ALL REDEFINES WS-TF-HDR.
  106.              10 TF-EMP-NO             PIC 9(06).
  107.              10 FILLER                PIC X(67).
  108.              10 TF-TRANS-DATE.
  109.                 15 TF-TRANS-DATE-CC   PIC 9(02).
  110.                 15 TF-TRANS-DATE-YY   PIC 9(02).
  111.                 15 TF-TRANS-DATE-MM   PIC 9(02).
  112.              10 TF-TRANS-CODE         PIC 9(01).  
  113.           05 WS-TF-TC0 REDEFINES WS-TF-HDR.
  114.              10 FILLER                PIC 9(06).
  115.              10 TF-TC0-EE-CONTRI-PC   PIC 9(03)V99.
  116.              10 TF-TC0-ER-CONTRI-PC   PIC 9(03)V99.
  117.              10 FILLER                PIC 9(64).
  118.           05 WS-TF-TC1 REDEFINES WS-TF-HDR.
  119.              10 FILLER                PIC 9(06).
  120.              10 TF-TC1-EE-CONTRI      PIC 9(08)V99.
  121.              10 TF-TC1-ER-CONTRI      PIC 9(08)V99.
  122.              10 FILLER                PIC 9(54).
  123.           05 WS-TF-TC2 REDEFINES WS-TF-HDR.
  124.              10 FILLER                PIC 9(06).
  125.              10 TF-TC2-EE-EARN        PIC 9(08)V99.
  126.              10 TF-TC2-ER-EARN        PIC 9(08)V99.
  127.              10 FILLER                PIC 9(54).
  128.          
  129.        01 WS-VALID-TRANS-FILE.
  130.           05 WS-VTF-HDR.
  131.              10 VTF-HDR-DATE.         PIC 9(08)  VALUE ZERO.
  132.              10 FILLER                PIC X(72).
  133.           05 WS-VTF-TC0.
  134.              10 VTF-TC0-EMP-NO        PIC 9(06) VALUE ZERO.
  135.              10 VTF-TC0-EE-CONTRI-PC  PIC 9(03)V99 VALUE ZERO.
  136.              10 VTF-TC0-ER-CONTRI-PC  PIC 9(03)V99 VALUE ZERO.
  137.              10 FILLER                PIC 9(57) VALUE SPACES.
  138.              10 VTF-TC0-TRANS-DATE    PIC 9(06) VALUE ZERO.
  139.              10 VTF-TC0-TRANS-CODE    PIC 9(01) VALUE ZERO.  
  140.           05 WS-VTF-TC1.
  141.              10 VTF-TC1-EMP-NO        PIC 9(06) VALUE ZERO.
  142.              10 VTF-TC1-EE-CONTRI     PIC 9(08)V99 VALUE ZERO.
  143.              10 VTF-TC1-ER-CONTRI     PIC 9(08)V99 VALUE ZERO.
  144.              10 FILLER                PIC 9(47) VALUE SPACES.
  145.              10 VTF-TC1-TRANS-DATE    PIC 9(06)  VALUE ZERO.
  146.              10 VTF-TC1-TRANS-CODE    PIC 9(01) VALUE ZERO.
  147.           05 WS-VTF-TC2.
  148.              10 VTF-TC2-EMP-NO        PIC 9(06) VALUE ZERO.
  149.              10 VTF-TC2-EE-EARN       PIC 9(08)V99 VALUE ZERO.
  150.              10 VTF-TC2-ER-EARN       PIC 9(08)V99 VALUE ZERO.
  151.              10 FILLER                PIC 9(47) VALUE SPACES.
  152.              10 VTF-TC2-TRANS-DATE    PIC 9(06) VALUE ZERO.
  153.              10 VTF-TC2-TRANS-CODE    PIC 9(01) VALUE ZERO.
  154.        
  155.        01 WS-VALIDATION-PROOF-LIST.
  156.           05 WS-VPL-HDR0.
  157.              10 FILLER                PIC X(01)    VALUE SPACES.
  158.              10 FILLER                PIC X(21)    
  159.                   VALUE 'PROGRAM ID : CBLH02JN'.
  160.              10 FILLER                PIC X(26)    VALUE SPACES.
  161.              10 FILLER                PIC X(34)    
  162.                   VALUE 'POINTWEST TECHNOLOGIES CORPORATION'.
  163.              10 FILLER                PIC X(41)    VALUE SPACES.
  164.              10 FILLER                PIC X(33)    
  165.                   VALUE 'PAGE:'.
  166.              10 FILLER                PIC X(01)    VALUE SPACES.
  167.              10 WS-VPL-HDR0-PGNUM     PIC ZZ9      VALUE ZERO.
  168.              10 FILLER                PIC X(01)    VALUE SPACES.
  169.           05 WS-VPL-HDR1.  
  170.              10 FILLER                PIC X(01)    VALUE SPACES.
  171.              10 FILLER                PIC X(13)    
  172.                   VALUE 'RUN DATE   : '.
  173.              10 WS-VPL-HDR1-DATE.
  174.                   15 WS-VPL-HDR1-DATE-MM PIC 9(02).
  175.                   10 FILLER              PIC X(01)    VALUE '/'.
  176.                   15 WS-VPL-HDR1-DATE-DD PIC 9(02).
  177.                   10 FILLER              PIC X(01)    VALUE '/'.
  178.                   15 WS-VPL-HDR1-DATE-YY PIC 9(02).
  179.              10 FILLER                PIC X(23)    VALUE SPACES.
  180.              10 FILLER                PIC X(35)    
  181.                   VALUE 'PROVIDENT FUND VALIDATION PROOFLIST'.
  182.              10 FILLER                PIC X(51)    VALUE SPACES.
  183.           05 WS-VPL-HDR1.  
  184.              10 FILLER                PIC X(54)    VALUE SPACES.
  185.              10 FILLER                PIC X(06)    
  186.                   VALUE 'AS OF '.
  187.              10 FILLER                PIC X(09).
  188.                 88 WS-
  189.              
  190.              
  191.              
  192.              
  193.              
  194.              
  195. ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3....+
  196. 1PROGRAM ID : CBLH02##                          POINTWEST TECHNOLOGIES CORPORATION                                         PAGE: ZZ9
  197. 2RUN DATE   : MM/DD/YYYY                       PROVIDENT FUND VALIDATION PROOFLIST
  198. 3                                                     AS OF XXXXXXXXX, YYYY
  199. 4
  200. 5
  201. 6TRAN  EMPLOYEE         EMPLOYEE                    EMPLOYER                TRANSACTION DATE               REMARKS
  202. 7CODE   NUMBER     % CONT / CONT / EARN       % CONT / CONT / EARN             CCYYMM                  
  203.                    
  204. 9 X*   999999*        99999999.99*                 99999999.99*                999999*             xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  205.  
  206.                 (30 DETAIL LINES PER PAGE)
  207.  
  208.                 (2 BLANK LINES AFTER THE LAST DETAIL LINE)
  209.  
  210.  
  211.             TOTAL NUMBER OF RECORDS READ = ZZ,ZZ9
  212.                       TOTAL INVALID RECORDS        = ZZ,ZZ9
  213.                       TOTAL VALID RECORDS          = ZZ,ZZ9
  214.  
  215.  
  216.                                                    *** THIS IS THE LAST PAGE ***
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top