API tools faq
paste
Guest User

Untitled

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