API tools faq
paste
Guest User

Untitled

a guest
Sep 13th, 2018
218
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 20.77 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 TRANS-FILE-HDR-CCYY REDEFINES TRANS-FILE-HDR-DATE
  73.                                             PIC 9(04).
  74.           05 FILLER                         PIC X(72).  
  75.        
  76.        01 WS-TRANS-FILE-REC REDEFINES WS-TRANS-FILE.
  77.           05 TRANS-FILE-REC-EMPNO           PIC 9(06).
  78.           05 FILLER                         PIC X(67).
  79.           05 TRANS-FILE-REC-DATE.
  80.              10 TRANS-FILE-REC-CC           PIC 9(02).
  81.              10 TRANS-FILE-REC-YY           PIC 9(02).
  82.              10 TRANS-FILE-REC-MM           PIC 9(02).
  83.           05 TRANS-FILE-REC-CODE            PIC 9(01).
  84.        
  85.        01 WS-TRANS-FILE-TC0 REDEFINES WS-TRANS-FILE.
  86.           05 FILLER                         PIC X(06).
  87.           05 TRANS-FILE-REC-EE-PRCNT        PIC X(05).
  88.           05 TRANS-FILE-REC-EE-PRCNT-9 REDEFINES TRANS-FILE-REC-EE-PRCNT      
  89.                                             PIC 9(03)V99.
  90.           05 TRANS-FILE-REC-ER-PRCNT        PIC X(05).
  91.           05 TRANS-FILE-REC-ER-PRCNT-9 REDEFINES TRANS-FILE-REC-ER-PRCNT      
  92.                                             PIC 9(03)V99.
  93.           05 FILLER                         PIC X(64).
  94.          
  95.        01 WS-TRANS-FILE-TC1 REDEFINES WS-TRANS-FILE.
  96.           05 FILLER                         PIC X(06).
  97.           05 TRANS-FILE-REC-EE-CONTR        PIC X(10).
  98.           05 TRANS-FILE-REC-EE-CONTR-9 REDEFINES TRANS-FILE-REC-EE-CONTR        
  99.                                             PIC 9(08)V99.
  100.           05 TRANS-FILE-REC-ER-CONTR        PIC X(10).
  101.           05 TRANS-FILE-REC-ER-CONTR-9 REDEFINES TRANS-FILE-REC-ER-CONTR    
  102.                                             PIC 9(08)V99.
  103.           05 FILLER                         PIC X(54).
  104.        
  105.        01 WS-TRANS-FILE-TC2 REDEFINES WS-TRANS-FILE.
  106.           05 FILLER                         PIC X(06).
  107.           05 TRANS-FILE-REC-EE-EARNG        PIC X(10).
  108.           05 TRANS-FILE-REC-EE-EARNG-9 REDEFINES TRANS-FILE-REC-EE-EARNG      
  109.                                             PIC 9(08)V99.
  110.           05 TRANS-FILE-REC-ER-EARNG        PIC X(10).
  111.           05 TRANS-FILE-REC-ER-EARNG-9 REDEFINES TRANS-FILE-REC-ER-EARNG      
  112.                                             PIC 9(08)V99.
  113.           05 FILLER                         PIC X(54).
  114.        
  115.       *    *****************************************************************
  116.       *   *    VALIDATION PROOF LIST                                     *
  117.       *    *****************************************************************  
  118.        01 WS-PROOF-LIST-HDR1.
  119.           05 FILLER                         PIC X(12)
  120.              VALUE 'PROGRAM ID :'.
  121.           05 FILLER                         PIC X(01)
  122.              VALUE SPACES.
  123.           05 FILLER                         PIC X(08)
  124.              VALUE 'CBLHO2JN'.
  125.           05 FILLER                         PIC X(26)
  126.              VALUE SPACES.
  127.           05 FILLER                         PIC X(34)
  128.              VALUE 'POINTWEST TECHNOLOGIES CORPORATION'.
  129.              
  130.        01 WS-PROOF-LIST-HDR2.
  131.           05 FILLER                         PIC X(12)
  132.              VALUE 'RUN DATE   :'.
  133.           05 FILLER                         PIC X(01)
  134.              VALUE SPACES.
  135.           05 PROOF-LIST-HDR-MM               PIC 9(02)
  136.              VALUE ZERO.
  137.           05 FILLER                         PIC X(01)
  138.              VALUE '/'.
  139.           05 PROOF-LIST-HDR-DD               PIC 9(02)
  140.              VALUE ZERO.
  141.           05 FILLER                         PIC X(01)
  142.              VALUE '/'.
  143.           05 PROOF-LIST-HDR-CCYY            PIC 9(04)
  144.              VALUE ZERO.
  145.           05 FILLER                         PIC X(23)
  146.              VALUE SPACES.
  147.           05 FILLER                         PIC X(35)
  148.              VALUE 'PROVIDENT FUND VALIDATION PROOFLIST'.
  149.              
  150.        01 WS-PROOF-LIST-HDR3.
  151.           05 FILLER                         PIC X(54)
  152.              VALUE SPACES.
  153.           05 FILLER                         PIC X(05)
  154.              VALUE 'AS OF'.
  155.           05 FILLER                         PIC X(01)
  156.              VALUE SPACES.
  157.           05 PROOF-LIST-HDR-MONTH            PIC X(09)
  158.              VALUE SPACES.
  159.              88 PROOF-LIST-HDR-MONTH01       VALUE '  JANUARY'.
  160.              88 PROOF-LIST-HDR-MONTH02       VALUE ' FEBRUARY'.
  161.              88 PROOF-LIST-HDR-MONTH03       VALUE '    MARCH'.
  162.              88 PROOF-LIST-HDR-MONTH04       VALUE '    APRIL'.
  163.              88 PROOF-LIST-HDR-MONTH05       VALUE '      MAY'.
  164.              88 PROOF-LIST-HDR-MONTH06       VALUE '     JUNE'.
  165.              88 PROOF-LIST-HDR-MONTH07       VALUE '     JULY'.
  166.              88 PROOF-LIST-HDR-MONTH08       VALUE '   AUGUST'.
  167.              88 PROOF-LIST-HDR-MONTH09       VALUE 'SEPTEMBER'.
  168.              88 PROOF-LIST-HDR-MONTH10       VALUE '  OCTOBER'.
  169.              88 PROOF-LIST-HDR-MONTH11       VALUE ' NOVEMBER'.
  170.              88 PROOF-LIST-HDR-MONTH12       VALUE ' DECEMBER'.
  171.           05 FILLER                         PIC X(01)
  172.              VALUE ','.
  173.           05 PROOF-LIST-HDR-YEAR          PIC 9(04)  
  174.              VALUE ZERO.
  175.  
  176.        01 WS-PROOF-LIST-HDR4.
  177.           05 FILLER                         PIC X(04)
  178.              VALUE 'TRAN'.
  179.           05 FILLER                         PIC X(02)
  180.              VALUE SPACES.
  181.           05 FILLER                         PIC X(08)
  182.              VALUE 'EMPLOYEE'.
  183.           05 FILLER                         PIC X(09)
  184.              VALUE SPACES.
  185.           05 FILLER                         PIC X(08)
  186.              VALUE 'EMPLOYEE'.
  187.           05 FILLER                         PIC X(20)
  188.              VALUE SPACES.
  189.           05 FILLER                         PIC X(08)  
  190.              VALUE 'EMPLOYER'.
  191.           05 FILLER                         PIC X(16)
  192.              VALUE SPACES.
  193.           05 FILLER                         PIC X(16)
  194.              VALUE 'TRANSACTION DATE'.
  195.           05 FILLER                         PIC X(14)
  196.              VALUE SPACES.
  197.           05 FILLER                         PIC X(07)  
  198.              VALUE 'REMARKS'.
  199.  
  200.        01 WS-PROOF-LIST-HDR5.
  201.           05 FILLER                         PIC X(04)
  202.              VALUE 'CODE'.
  203.           05 FILLER                         PIC X(03)
  204.              VALUE SPACES.
  205.           05 FILLER                         PIC X(06)
  206.              VALUE 'NUMBER'.
  207.           05 FILLER                         PIC X(05)
  208.              VALUE SPACES.
  209.           05 FILLER                         PIC X(20)
  210.              VALUE '% CONT / CONT / EARN'.
  211.           05 FILLER                         PIC X(07)
  212.              VALUE SPACES.
  213.           05 FILLER                         PIC X(20)
  214.              VALUE '% CONT / CONT / EARN'.
  215.           05 FILLER                         PIC X(13)
  216.              VALUE SPACES.
  217.           05 FILLER                         PIC X(06)
  218.              VALUE 'CCYYMM'.
  219.        
  220.        01 WS-PROOF-LIST                 PIC X(133)
  221.           VALUE SPACES.
  222.        
  223.        01 WS-PROOF-LIST-DTL REDEFINES WS-PROOF-LIST.
  224.           05 FILLER                         PIC X(01).            
  225.           05 PROOF-LIST-DTL-CODE            PIC X(01).
  226.           05 PROOF-LIST-DTL-CODE-STAT       PIC X(01).
  227.              88 PROOF-LIST-DTL-CODE-ERR
  228.              VALUE '*'.  
  229.           05 FILLER                         PIC X(03).            
  230.           05 PROOF-LIST-DTL-EMPNO            PIC X(06).
  231.           05 PROOF-LIST-DTL-EMPNO-STAT       PIC X(01).
  232.              88 PROOF-LIST-DTL-EMPNO-ERR
  233.              VALUE '*'.
  234.           05 FILLER                         PIC X(08).            
  235.           05 PROOF-LIST-DTL-EE            PIC X(11).
  236.           05 PROOF-LIST-DTL-EE-9 REDEFINES PROOF-LIST-DTL-EE
  237.                                           PIC ZZZZZZZ9.99.
  238.           05 PROOF-LIST-DTL-EE-STAT       PIC X(01).
  239.              88 PROOF-LIST-DTL-EE-ERR
  240.              VALUE '*'.
  241.           05 FILLER                         PIC X(17).            
  242.           05 PROOF-LIST-DTL-ER            PIC X(11).
  243.           05 PROOF-LIST-DTL-ER-9 REDEFINES PROOF-LIST-DTL-ER
  244.                                           PIC ZZZZZZZ9.99.
  245.           05 PROOF-LIST-DTL-ER-STAT       PIC X(01).
  246.              88 PROOF-LIST-DTL-ER-ERR
  247.              VALUE '*'.
  248.           05 FILLER                         PIC X(16).            
  249.           05 PROOF-LIST-DTL-DATE            PIC X(06).
  250.           05 PROOF-LIST-DTL-DATE-STAT       PIC X(01).
  251.              88 PROOF-LIST-DTL-DATE-ERR
  252.              VALUE '*'.
  253.           05 FILLER                         PIC X(13).            
  254.           05 PROOF-LIST-DTL-REMARKS         PIC X(29).
  255.              88 PROOF-LIST-DTL-REMARKS-VAL
  256.              VALUE 'VALID TRANSACTION'.
  257.              88 PROOF-LIST-DTL-REMARKS-INV
  258.              VALUE 'INVALID TRANSACTION'.
  259.        
  260.        01 WS-PROOF-LIST-FTR1.
  261.           05 FILLER                         PIC X(21)
  262.              VALUE SPACES.
  263.           05 FILLER                         PIC X(30)
  264.              VALUE 'TOTAL NUMBER OF RECORDS READ ='.
  265.           05 FILLER                         PIC X(01)
  266.              VALUE SPACES.
  267.           05 PROOF-LIST-FTR-REC-READ             PIC ZZ,ZZ9
  268.              VALUE ZERO.
  269.              
  270.        01 WS-PROOF-LIST-FTR2.
  271.           05 FILLER                         PIC X(21)
  272.              VALUE SPACES.
  273.           05 FILLER                         PIC X(30)
  274.              VALUE 'TOTAL INVALID RECORDS        ='.
  275.           05 FILLER                         PIC X(01)
  276.              VALUE SPACES.
  277.           05 PROOF-LIST-FTR-REC-INV              PIC ZZ,ZZ9
  278.              VALUE ZERO.
  279.              
  280.        01 WS-PROOF-LIST-FTR3.
  281.           05 FILLER                         PIC X(21)
  282.              VALUE SPACES.
  283.           05 FILLER                         PIC X(30)
  284.              VALUE 'TOTAL VALID RECORDS          ='.
  285.           05 FILLER                         PIC X(01)
  286.              VALUE SPACES.
  287.           05 PROOF-LIST-FTR-REC-VAL              PIC ZZ,ZZ9
  288.              VALUE ZERO.
  289.        
  290.       *    *****************************************************************
  291.       *   *    SWITCHES, FLAGS, COUNTERS                                 *
  292.       *    *****************************************************************  
  293.        01 WS-FILE-STATE                 PIC X(01)
  294.           VALUE 'N'.
  295.           88 WS-NOT-EOF           VALUE 'N'.
  296.           88 WS-EOF               VALUE 'Y'.
  297.          
  298.        01 WS-CTR-REC-READ               PIC 9(05)
  299.           VALUE ZERO.
  300.           88 WS-BOF               VALUE ZERO.
  301.          
  302.        77 WS-CTR-REC-VAL                PIC 9(05)
  303.           VALUE ZERO.
  304.          
  305.        77 WS-CTR-REC-INV                PIC 9(05)
  306.           VALUE ZERO.
  307.          
  308.          
  309.       ***********************************************************************
  310.       *-----P R O C E D U R E   D I V I S I O N-----------------------------*
  311.       ***********************************************************************          
  312.        PROCEDURE DIVISION.
  313.       * ********************************************************************
  314.       *  *       0XXX - MAIN PROGRAM                                       *
  315.       * ********************************************************************
  316.        0000-MAIN-PROC.
  317.             PERFORM 1000-CONSTRUCT
  318.                THRU 1000-EXIT.
  319.             PERFORM 3000-PROCESS
  320.                THRU 3000-EXIT
  321.                UNTIL WS-EOF.
  322.             PERFORM 2000-DECONSTRUCT
  323.                THRU 2000-EXIT.
  324.        0000-EXIT.
  325.             EXIT.
  326.      
  327.       * ********************************************************************
  328.       *  *       1XXX - CONSTRUCT                                          *
  329.       * ********************************************************************
  330.        1000-CONSTRUCT.
  331.             OPEN INPUT  TRANS-FILE.
  332.             OPEN OUTPUT VALID-TRANS-FILE.
  333.             OPEN OUTPUT VALID-PROOF-LIST.
  334.        1000-EXIT.
  335.             EXIT.
  336.      
  337.       * ********************************************************************
  338.       *  *       2XXX - DECONSTRUCT                                        *
  339.       * ********************************************************************
  340.        2000-DECONSTRUCT.
  341.             CLOSE TRANS-FILE.
  342.             CLOSE VALID-TRANS-FILE.
  343.             CLOSE VALID-PROOF-LIST.
  344.             STOP RUN.
  345.        2000-EXIT.
  346.             EXIT.    
  347.      
  348.       * ********************************************************************
  349.       *  *       3XXX - PROCESS                                            *
  350.       * ********************************************************************
  351.        3000-PROCESS.
  352.             READ TRANS-FILE
  353.                AT END
  354.                   SET WS-EOF TO TRUE
  355.                   IF NOT WS-BOF THEN
  356.                      PERFORM 9200-PRINT-PROOFLIST-FTR THRU 9200-EXIT
  357.                   END-IF
  358.                NOT AT END
  359.                   IF WS-BOF THEN
  360.                      PERFORM 4000-VALIDATE-HDR-REC THRU 4000-EXIT
  361.                   ELSE
  362.                  
  363.                   END-IF
  364.                  
  365.             END-READ.
  366.        3000-EXIT.
  367.             EXIT.
  368.      
  369.       * ********************************************************************
  370.       *  *       4XXX - VALIDATE HEADER RECORD                             *
  371.       * ********************************************************************
  372.        4000-VALIDATE-HDR-REC.
  373.             IF TRANS-FILE-HDR-MM >=  1 AND
  374.                TRANS-FILE-HDR-MM <= 12 AND
  375.                TRANS-FILE-HDR-DD =   1 AND
  376.                TRANS-FILE-HDR-CCYY >= 1950 AND
  377.                TRANS-FILE-HDR-CCYY >= 2100 THEN
  378.                PERFORM 8000-PRINT-VALID-TRANSFILE THRU 8000-EXIT
  379.                PERFORM 9000-PRINT-PROOFLIST-HDR THRU 9000-EXIT
  380.             ELSE
  381.                DISPLAY 'INVALID DATE: CCYYMMDD'.
  382.                PERFORM 2000-DECONSTRUCT THRU 2000-EXIT.
  383.             END-IF.
  384.        4000-EXIT.
  385.  
  386.       * ********************************************************************
  387.       *  *       8XXX - PRINT VALID TRANSACTION FILE                       *
  388.       * ********************************************************************    
  389.        8000-PRINT-VALID-TRANSFILE.
  390.             WRITE VALID-TRANS-REC FROM WS-TRANS-FILE.
  391.        8000-EXIT.
  392.        
  393.        8100-PRINT-VALID-TRANSFILE.
  394.            
  395.        8100-EXIT.
  396.      
  397.       * ********************************************************************
  398.       *  *       9XXX - PRINT VALIDATION PROOFLIST                         *
  399.       * ********************************************************************    
  400.        9000-PRINT-PROOFLIST-HDR.
  401.             MOVE TRANS-FILE-HDR-MM TO PROOF-LIST-HDR-MM.
  402.             MOVE TRANS-FILE-HDR-DD TO PROOF-LIST-HDR-DD.
  403.             MOVE TRANS-FILE-HDR-CCYY TO PROOF-LIST-HDR-CCYY.
  404.             MOVE TRANS-FILE-HDR-CCYY TO PROOF-LIST-HDR-YEAR.
  405.            
  406.             EVALUATE TRANS-FILE-HDR-MM
  407.                WHEN 01 SET PROOF-LIST-HDR-MONTH01 TO TRUE
  408.                WHEN 02 SET PROOF-LIST-HDR-MONTH02 TO TRUE
  409.                WHEN 03 SET PROOF-LIST-HDR-MONTH03 TO TRUE
  410.                WHEN 04 SET PROOF-LIST-HDR-MONTH04 TO TRUE
  411.                WHEN 05 SET PROOF-LIST-HDR-MONTH05 TO TRUE
  412.                WHEN 06 SET PROOF-LIST-HDR-MONTH06 TO TRUE
  413.                WHEN 07 SET PROOF-LIST-HDR-MONTH07 TO TRUE
  414.                WHEN 08 SET PROOF-LIST-HDR-MONTH08 TO TRUE
  415.                WHEN 09 SET PROOF-LIST-HDR-MONTH09 TO TRUE
  416.                WHEN 10 SET PROOF-LIST-HDR-MONTH10 TO TRUE
  417.                WHEN 11 SET PROOF-LIST-HDR-MONTH11 TO TRUE
  418.                WHEN 12 SET PROOF-LIST-HDR-MONTH12 TO TRUE
  419.             END-EVALUATE.  
  420.            
  421.             DISPLAY WS-PROOF-LIST-HDR1.
  422.             DISPLAY WS-PROOF-LIST-HDR2.
  423.             DISPLAY WS-PROOF-LIST-HDR3.
  424.             DISPLAY SPACES.
  425.             DISPLAY SPACES.
  426.             DISPLAY WS-PROOF-LIST-HDR4.
  427.             DISPLAY WS-PROOF-LIST-HDR5.
  428.             DISPLAY SPACES.
  429.        9000-EXIT.
  430.             EXIT.
  431.        
  432.        9100-PRINT-PROOFLIST-DTL.
  433.             MOVE TRANS-FILE-REC-CODE  TO PROOF-LIST-DTL-CODE.
  434.             MOVE TRANS-FILE-REC-EMPNO TO PROOF-LIST-DTL-EMPNO.
  435.             MOVE TRANS-FILE-REC-DATE  TO PROOF-LIST-DTL-DATE.
  436.             EVALUATE TRANS-FILE-REC-CODE
  437.                WHEN 0
  438.                   MOVE TRANS-FILE-REC-EE-PRCNT TO PROOF-LIST-DTL-EE
  439.                   MOVE TRANS-FILE-REC-ER-PRCNT TO PROOF-LIST-DTL-ER
  440.                WHEN 1
  441.                   MOVE TRANS-FILE-REC-EE-CONTR TO PROOF-LIST-DTL-EE
  442.                   MOVE TRANS-FILE-REC-ER-CONTR TO PROOF-LIST-DTL-ER
  443.                WHEN 2
  444.                   MOVE TRANS-FILE-REC-EE-EARNG-9 TO PROOF-LIST-DTL-EE-9
  445.                   MOVE TRANS-FILE-REC-ER-EARNG-9 TO PROOF-LIST-DTL-ER-9
  446.             END-EVALUATE.
  447.            
  448.             DISPLAY WS-PROOF-LIST-DTL.
  449.        9100-EXIT.
  450.             EXIT.
  451.        
  452.        9200-PRINT-PROOFLIST-FTR.
  453.             MOVE WS-CTR-REC-READ TO PROOF-LIST-FTR-REC-READ.
  454.             MOVE WS-CTR-REC-VAL  TO PROOF-LIST-FTR-REC-VAL.
  455.             MOVE WS-CTR-REC-INV  TO PROOF-LIST-FTR-REC-INV.
  456.            
  457.             DISPLAY SPACES.
  458.             DISPLAY SPACES.
  459.             DISPLAY WS-PROOF-LIST-FTR1.
  460.             DISPLAY WS-PROOF-LIST-FTR2.
  461.             DISPLAY WS-PROOF-LIST-FTR3.
  462.        9200-EXIT.
  463.             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!