API tools faq
paste
Guest User

Untitled

a guest
Sep 13th, 2018
192
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 9.75 KB | None | 0 0
raw download clone embed print report
  1.       ***********************************************************************
  2.       *-----I D E N T I F I C A T I O N   D I V I S I O N-------------------*
  3.       ***********************************************************************
  4.        IDENTIFICATION DIVISION.
  5.        PROGRAM-ID. CBLH02JN.
  6.        AUTHOR. Jan Noel Calayag.
  7.        
  8.       ***********************************************************************
  9.       *-----E N V I R O M E N T   D I V I S I O N---------------------------*
  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.       *-----D A T A   D I V I S I O N---------------------------------------*
  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.       * ********************************************************************
  53.       *  *         W O R K I N G   S T O R A G E   S E C T I O N           *
  54.       *  *                                                                 *
  55.       *  *       INPUT FILE:   TRANS-FILE -> TRANS-REC                     *
  56.       *  *       OUTPUT FILE:  VALID-TRANS-FILE -> VALID-TRANS-REC         *
  57.       *  *                     VALID-PROOF-LIST -> VALID-PROOF-REC         *
  58.       * ********************************************************************
  59.        WORKING-STORAGE SECTION.
  60.       *    *****************************************************************
  61.       *   *    TRANSACTION FILE                                          *
  62.       *    *****************************************************************
  63.        01 WS-TRANS-FILE                     PIC X(80)
  64.           VALUE SPACES.
  65.        
  66.        01 WS-TRANS-FILE-HDR REDEFINES WS-TRANS-FILE.
  67.           05 TRANS-FILE-HDR-DATE.
  68.              10 TRANS-FILE-HDR-CC           PIC 9(02).
  69.              10 TRANS-FILE-HDR-YY           PIC 9(02).
  70.              10 TRANS-FILE-HDR-MM           PIC 9(02).
  71.              10 TRANS-FILE-HDR-DD           PIC 9(02).
  72.           05 FILLER                         PIC X(72).  
  73.        
  74.        01 WS-TRANS-FILE-REC REDEFINES WS-TRANS-FILE.
  75.           05 TRANS-FILE-REC-EMPNO           PIC 9(06).
  76.           05 FILLER                         PIC X(67).
  77.           05 TRANS-FILE-REC-DATE.
  78.              10 TRANS-FILE-REC-CC           PIC 9(02).
  79.              10 TRANS-FILE-REC-YY           PIC 9(02).
  80.              10 TRANS-FILE-REC-MM           PIC 9(02).
  81.           05 TRANS-FILE-REC-CODE            PIC 9(01).
  82.        
  83.        01 WS-TRANS-FILE-TC0 REDEFINES WS-TRANS-FILE.
  84.           05 FILLER                         PIC X(06).
  85.           05 TRANS-FILE-REC-EE-PRCNT        PIC 9(03)V99.
  86.           05 TRANS-FILE-REC-ER-PRCNT        PIC 9(03)V99.
  87.           05 FILLER                         PIC X(64).
  88.          
  89.        01 WS-TRANS-FILE-TC1 REDEFINES WS-TRANS-FILE.
  90.           05 FILLER                         PIC X(06).
  91.           05 TRANS-FILE-REC-EE-CONTR        PIC 9(08)V99.
  92.           05 TRANS-FILE-REC-ER-CONTR        PIC 9(08)V99.
  93.           05 FILLER                         PIC X(54).
  94.        
  95.        01 WS-TRANS-FILE-TC2 REDEFINES WS-TRANS-FILE.
  96.           05 FILLER                         PIC X(06).
  97.           05 TRANS-FILE-REC-EE-EARNG        PIC 9(08)V99.
  98.           05 TRANS-FILE-REC-ER-EARNG        PIC 9(08)V99.
  99.           05 FILLER                         PIC X(54).
  100.        
  101.       *    *****************************************************************
  102.       *   *    VALIDATION PROOF LIST                                     *
  103.       *    *****************************************************************  
  104.        01 WS-PROOFLIST-HDR1.
  105.           05 FILLER                         PIC X(12)
  106.              VALUE 'PROGRAM ID :'.
  107.           05 FILLER                         PIC X(09)
  108.              VALUE ' CBLHO2AJ'.
  109.           05 FILLER                         PIC X(26)
  110.              VALUE SPACES.
  111.           05 FILLER                         PIC X(34)
  112.              VALUE 'POINTWEST TECHNOLOGIES CORPORATION'.
  113.              
  114.        01 WS-PROOFLIST-HDR2.
  115.           05 FILLER                         PIC X(12)
  116.              VALUE 'RUN DATE   :'.
  117.           05 PROOFLIST-HDR-MM               PIC X(02)
  118.              VALUE SPACES.
  119.           05 FILLER                         PIC X(01)
  120.              VALUE '/'.
  121.           05 PROOFLIST-HDR-DD               PIC X(02)
  122.              VALUE SPACES.
  123.           05 FILLER                         PIC X(01)
  124.              VALUE '/'.
  125.           05 PROOFLIST-HDR-CC               PIC X(02)
  126.              VALUE SPACES.
  127.           05 PROOFLIST-HDR-YY               PIC X(02)
  128.              VALUE SPACES.
  129.           05 FILLER                         PIC X(22)
  130.              VALUE SPACES.
  131.           05 FILLER                         PIC X(35)
  132.              VALUE 'PROVIDENT FUND VALIDATION PROOFLIST'.
  133.              
  134.        01 WS-PROOFLIST-HDR3.
  135.           05 FILLER                         PIC X(54)
  136.              VALUE SPACES.
  137.           05 FILLER                         PIC X(06)
  138.              VALUE 'AS OF '.
  139.           05 PROOFLIST-HDR-MONTH            PIC X(09)
  140.              VALUE SPACES.
  141.              88 PROOFLIST-HDR-MONTH01       VALUE 'JANUARY'.
  142.              88 PROOFLIST-HDR-MONTH02       VALUE 'FEBRUARY'.
  143.              88 PROOFLIST-HDR-MONTH03       VALUE 'MARCH'.
  144.              88 PROOFLIST-HDR-MONTH04       VALUE 'APRIL'.
  145.              88 PROOFLIST-HDR-MONTH05       VALUE 'MAY'.
  146.              88 PROOFLIST-HDR-MONTH06       VALUE 'JUNE'.
  147.              88 PROOFLIST-HDR-MONTH07       VALUE 'JULY'.
  148.              88 PROOFLIST-HDR-MONTH08       VALUE 'AUGUST'.
  149.              88 PROOFLIST-HDR-MONTH09       VALUE 'SEPTEMBER'.
  150.              88 PROOFLIST-HDR-MONTH10       VALUE 'PCAT'.
  151.              88 PROOFLIST-HDR-MONTH11       VALUE 'JANUARY'.
  152.              88 PROOFLIST-HDR-MONTH12       VALUE 'JANUARY'.
  153.           05 FILLER                         PIC X(01)
  154.              VALUE ','.
  155.           05 RS-VP-YEAR                     PIC X(04)
  156.              VALUE SPACES.
  157.  
  158.        01 WS-PROOFLIST-HDR4.
  159.           05 FILLER                         PIC X(04)
  160.              VALUE 'TRAN'.
  161.           05 FILLER                         PIC X(02)
  162.              VALUE SPACES.
  163.           05 FILLER                         PIC X(08)
  164.              VALUE 'EMPLOYEE'.
  165.           05 FILLER                         PIC X(09)
  166.              VALUE SPACES.
  167.           05 FILLER                         PIC X(08)
  168.              VALUE 'EMPLOYEE'.
  169.           05 FILLER                         PIC X(19)
  170.              VALUE SPACES.
  171.           05 FILLER                         PIC X(08)  
  172.              VALUE 'EMPLOYER'.
  173.           05 FILLER                         PIC X(16)
  174.              VALUE SPACES.
  175.           05 FILLER                         PIC X(16)
  176.              VALUE 'TRANSACTION DATE'.
  177.           05 FILLER                         PIC X(14)
  178.              VALUE SPACES.
  179.           05 FILLER                         PIC X(07)  
  180.              VALUE 'REMARKS'.
  181.  
  182.        01 WS-PROOFLIST-HDR5.
  183.           05 FILLER                         PIC X(04)
  184.              VALUE 'CODE'.
  185.           05 FILLER                         PIC X(09)
  186.              VALUE '   NUMBER'.
  187.           05 FILLER                         PIC X(05)
  188.              VALUE SPACES.
  189.           05 FILLER                         PIC X(20)
  190.              VALUE '% CONT / CONT / EARN'.
  191.           05 FILLER                         PIC X(06)
  192.              VALUE SPACES.
  193.           05 FILLER                         PIC X(20)
  194.              VALUE '% CONT / CONT / EARN'.
  195.           05 FILLER                         PIC X(14)
  196.              VALUE SPACES.
  197.           05 FILLER                         PIC X(06)  VALUE 'CCYYMM'.
  198.  
  199.          
  200.       ***********************************************************************
  201.       *-----P R O C E D U R E   D I V I S I O N-----------------------------*
  202.       ***********************************************************************          
  203.        PROCEDURE DIVISION.
  204.        0000-MAIN-PROC.
  205.             MOVE '423y64837848329048239043' TO WS-TRANS-FILE.
  206.             MOVE TRANS-FILE-HDR TO WS-VALID-TRANS-FILE.
  207.             DISPLAY
  208.             STOP RUN.
  209.            
  210.        0000-EXIT.
  211.             EXIT.
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!