       IDENTIFICATION DIVISION.                                         
       PROGRAM-ID.   PCSRP384.                                          
       AUTHOR.       VENKAT VUDDANDAPU.                                 
       DATE-WRITTEN. JUNE 2008.                                         
       DATE-COMPILED.                                                   
      ******************************************************************00060000
      **       MERCHANDISE ACTIONS            - PSNC                  **00070000
      **       MERCHANDISE ACTIONS            - SCEG                  **00080000
      **       HVAC ACTIONS                   - PSNC                  **00090000
      **       HVAC ACTIONS                   - SCEG                  **00100000
      ******************************************************************00110000
      **                     PROGRAM SUMMARY                          **00120000
      ******************************************************************00130000
      *    THIS PROGRAM CREATES A REPORT TO DISPLAY THE BEACON SCORES  *00140000
      *    OBTAINED FOR CUSTOMERS (FROM EQUIFAX) WITHIN THE FOLLOWING  *00150000
      *    RANGES AND FOR THE GIVEN PERIOD.                            *00160000
      *      NO SCORE                                                  *00170000
      *      000                                                       *00180000
      *      001 - 299                                                 *00190000
      *      300 - 399                                                 *00200000
      *      400 - 499                                                 *00210000
      *      500 - 533                                                 *00220000
      *      534 - 573                                                 *00230000
      *      574 - 613                                                 *00240000
      *      614 - 649                                                 *00250000
      *      650 - 699                                                 *00260000
      *      700 - 749                                                 *00270000
      *      750 - 1000                                                *00280000
      *    FOR EACH RANGE THE REPORT DISPLAYS:                         *00290000
      *      TOTAL NUMBER OF CUSTOMERS                                 *00300000
      *      TOTAL WAIVE DOWN PAYMENT                                  *00310000
      *      TOTAL 10% DOWN PAYMENT                                    *00320000
      *      TOTAL 50% DOWN PAYMENT                                    *00330000
      *      TOTAL CASH SALE                                           *00340000
      *      TOTAL CONTINUE APPLICATION STATUS                         *00350000
      *      TOTAL ON HOLD APPLICATION STATUS                          *00360000
      *      TOTAL DENY APPLICATION STATUS                             *00370000
      *      PERCENTAGE (INCLUDING THE ZERO RANGE)                     *00380000
      *    AT THE END THE PROGRAM ALSO PRINTS THE SAME INFORMATION     *00390000
      *    SHOWING YEAR-TO-DATE FIGURES.                               *00400000
      ******************************************************************00410000
      **           BASIC BATCH PARAGRAPH SEQUENCE STRUCTURE           **00420000
      ******************************************************************00430000
      **        0000 - 0999     MAIN CONTROL PATH AND INITIALIZATION  **00440000
      **        1000 - 1999     INPUT PROCESSING CONTROL PATH         **00450000
      **        2000 - 2999     OUTPUT PROCESS CONTROL PATH           **00460000
      **        3000 - 4999     NOT USED                              **00470000
      **        5000 - 5999     COMMON PROGRAM MODULES                **00480000
      **        6000 - 6999     COMMON SYSTEM MODULES                 **00490000
      **        7000 - 7999     INPUT MODULES                         **00500000
      **        8000 - 8999     OUTPUT MODULES                        **00510000
      **        9000 - 9999     TERMINATION, ABEND, MESSAGING MODULES **00520000
      ******************************************************************00530000
      **                PROGRAM  MODIFICATION  LOG                    **00540000
      ******************************************************************00550000
      ** DATE     USER ID  REASON                                     **00560000
      ** -------  -------  ------                                     **00570000
C36013** 06/2008  VV94890  INITIAL IMPLEMENTATION.                    **00580000
P00342** 03/12/10 MJ13662  EXCLUDE POSID TRANSACTION -                **00590000
P00342**                   CR-BUREAU-CD = 'P'.                        **00600000
A04006** 02/24/12 MJ13662  INCLUDE HVAC RQST-REASON-CD IN CURSOR SO   **00610000
A04006**                   THESE TYPES WILL BE INCLUDED.              **00620000
ACT144*  09/01/13  BD09555     REPLACE DATE CARD WITH DB2 COMMON DATE  *00630000
      *   A04524                                                       *00640000
ACT057*  03/12/14  MJ13662 ADD 'M' OR 'H' TO EXISTING JOB PARMS -      *00650000
ACT057*  APPL5136  PCSR384A, PCSR384B.  ADDED NEW JOB PARMS -          *00660000
ACT057*            PCSR384C, PCSR384D.                                 *00670000
ACT057*            CORRECTED ISSUE WITH ZEROES SHOWING IN CURRENT DATA.*00680000
ACT001*  05/10/16 SS7F226  CHANGE OF BUSINESS PROCESS FROM WAIVING/    *00681000
ACT001*            A05513  PERCENTAGE DOWN TO ANNUAL PERCENTGE RATE BY *00682000
ACT001*                    REMOVED SOME EXISTING ACTION FALGS AND ADDED*00683000
ACT001*                    NEW ACTION FLAGS.                           *00684000
      ******************************************************************00690000
      *                                                                 00700000
       ENVIRONMENT DIVISION.                                            
       CONFIGURATION SECTION.                                           
       SOURCE-COMPUTER.    IBM-370.                                     
       OBJECT-COMPUTER.    IBM-370.                                     
       SPECIAL-NAMES.      C01 IS TOP-OF-PAGE.                          
      *                                                                 00760000
       INPUT-OUTPUT SECTION.                                            
       FILE-CONTROL.                                                    
           SELECT PRNTFILE ASSIGN TO UT-S-PRNTFILE.                     
      *                                                                 00800000
HPCCDM*EJECT                                                            00810000
      *                                                                 00820000
       DATA DIVISION.                                                   
       FILE SECTION.                                                    
       FD  PRNTFILE                                                     
           RECORDING MODE IS F                                          
           LABEL RECORDS ARE STANDARD                                   
           BLOCK CONTAINS 0 RECORDS                                     
ACT001     RECORD CONTAINS 180 CHARACTERS                               
           DATA RECORD IS PRNTFILE-RECORD.                              
                                                                        
ACT001 01  PRNTFILE-RECORD             PIC X(180).                      
                                                                        
HPCCDM*EJECT                                                            00940000
      *                                                                 00950000
       WORKING-STORAGE SECTION.                                         

MSQ017 01 MFA-PROGRAM-ID PIC X(8) VALUE 'PCSRP384'.
MSQ017     COPY MFASQLM.
      *                                                                 00970000
       01 WS-START                          PIC X(40)    VALUE          
           'WORKING STORAGE FOR PCSRP384 STARTS HERE'.                  
      *                                                                 01000000
       77  COMP-CODE                   PIC S9(4) COMP VALUE +0.         
ACT144 77  WS-PGRMNAME                 PIC X(08) VALUE 'COMMON'.        
ACT144 77  WS-N                        PIC X     VALUE 'N'.             
ACT144 77  WS-Y                        PIC X     VALUE 'Y'.             
ACT144 77  WS-ABEND-SWITCH             PIC X     VALUE ' '.             
ACT144     88 WS-ABEND-YES                       VALUE 'Y'.             
      *                                                                 01070000
       01  WORK-AREAS.                                                  
           05  SQL-ERROR-SW            PIC 9(01) VALUE 0.               
ACT144         88  NO-SQL-ERROR                  VALUE 0.               
               88  SQL-ERROR                     VALUE 1.               
           05  WS-M                    PIC X(01) VALUE 'M'.             
           05  WS-CRSR-EOF-SW          PIC 9(01) VALUE 0.               
               88  END-OF-CURSOR                 VALUE 1.               
           05  WS-SYSIN-COMP-NO        PIC X(02) VALUE SPACES.          
           05  WS-CRED-HIST-DATE       PIC X(10).                       
           05  FILLER REDEFINES WS-CRED-HIST-DATE.                      
               10  WS-CH-YY            PIC X(04).                       
               10  WS-FILLER           PIC X(01).                       
               10  WS-CH-MM            PIC X(02).                       
               10  WS-FILLER           PIC X(01).                       
               10  WS-CH-DD            PIC X(02).                       
           05  WS-TRANS-DATE.                                           
               10  WS-TRANS-YY         PIC X(04).                       
               10  WS-TRANS-MM         PIC X(02).                       
               10  WS-TRANS-DD         PIC X(02).                       
           05  WS-TRANS-DATE-NUM REDEFINES WS-TRANS-DATE.               
               10  WS-TRANS-YY-NUM     PIC 9(04).                       
               10  WS-TRANS-MM-NUM     PIC 9(02).                       
               10  WS-TRANS-DD-NUM     PIC 9(02).                       
           05  WS-YTD-BDATE            PIC 9(08).                       
           05  FILLER REDEFINES WS-YTD-BDATE.                           
               10  WS-YTD-BYY          PIC 9(04).                       
               10  WS-YTD-BMM          PIC 9(02).                       
               10  WS-YTD-BDD          PIC 9(02).                       
ACT057     05  WS-MONTH-BDATE          PIC 9(08).                       
ACT057     05  FILLER REDEFINES WS-MONTH-BDATE.                         
ACT057         10  WS-MONTH-BYY        PIC 9(04).                       
ACT057         10  WS-MONTH-BMM        PIC 9(02).                       
ACT057         10  WS-MONTH-BDD        PIC 9(02).                       
ACT057     05  WS-MONTH-EDATE          PIC 9(08).                       
ACT057     05  FILLER REDEFINES WS-MONTH-EDATE.                         
ACT057         10  WS-MONTH-EYY        PIC 9(04).                       
ACT057         10  WS-MONTH-EMM        PIC 9(02).                       
ACT057         10  WS-MONTH-EDD        PIC 9(02).                       
ACT144     05  WS-BEG-CURSOR-DATE      PIC X(10).                       
ACT144     05  WS-BEG-CURSOR-DATEX  REDEFINES WS-BEG-CURSOR-DATE        
ACT144                                 PIC 9999B99B99.                  
           05  WS-END-CURSOR-DATE      PIC X(10).                       
ACT144     05  WS-END-CURSOR-DATEX  REDEFINES WS-END-CURSOR-DATE        
ACT144                                 PIC 9999B99B99.                  
ACT144     05  WS-CURRENT-DATE.                                         
ACT144         10 WS-CURRENT-YEAR.                                      
ACT144            15 WS-CURRENT-CC         PIC XX.                      
ACT144            15 WS-CURRENT-YY         PIC XX.                      
ACT144         10 FILLER                   PIC X.                       
ACT144         10 WS-CURRENT-MONTH         PIC XX.                      
ACT144         10 FILLER                   PIC X.                       
ACT144         10 WS-CURRENT-DAY           PIC XX.                      
      *                                                                 01600000
           05  WS-ACUMN-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUMN-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUMN-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUMN-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUMN-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUMN-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUMN-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUMN-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUMN-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUMN-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUMN-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM1-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM1-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM1-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM1-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM1-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM1-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM1-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM1-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM1-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM1-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM1-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM2-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM2-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM2-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM2-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM2-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM2-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM2-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM2-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM2-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM2-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM2-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM3-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM3-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM3-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM3-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM3-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM3-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM3-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM3-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM3-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM3-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM3-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM4-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM4-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM4-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM4-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM4-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM4-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM4-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM4-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM4-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM4-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM4-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM5-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM5-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM5-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM5-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM5-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM5-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM5-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM5-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM5-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM5-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM5-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM6-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM6-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM6-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM6-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM6-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM6-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM6-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM6-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM6-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM6-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM6-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM7-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM7-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM7-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM7-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM7-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM7-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM7-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM7-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM7-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM7-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM7-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM8-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM8-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM8-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM8-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM8-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM8-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM8-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM8-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM8-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM8-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM8-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM9-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM9-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM9-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM9-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM9-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM9-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM9-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM9-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM9-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM9-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM9-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM10-CUST          PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM10-RATE-D        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM10-RATE-I        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM10-RATE-E        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM10-RATE-H        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM10-RATE-G        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM10-RATE-F        PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM10-CSH-SALE      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM10-CNTU-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM10-ONHD-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM10-DENY-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM11-CUST          PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM11-RATE-D        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM11-RATE-I        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM11-RATE-E        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM11-RATE-H        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM11-RATE-G        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM11-RATE-F        PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM11-CSH-SALE      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM11-CNTU-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM11-ONHD-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM11-DENY-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM13-CUST          PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM13-RATE-D        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM13-RATE-I        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM13-RATE-E        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM13-RATE-H        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM13-RATE-G        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-ACUM13-RATE-F        PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM13-CSH-SALE      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM13-CNTU-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM13-ONHD-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-ACUM13-DENY-DEP      PIC 9(07) VALUE ZEROES.          
      *                                                                 02650000
           05  WS-AYTDN-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTDN-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTDN-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTDN-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTDN-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTDN-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTDN-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTDN-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTDN-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTDN-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTDN-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD1-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD1-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD1-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD1-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD1-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD1-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD1-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD1-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD1-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD1-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD1-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD2-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD2-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD2-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD2-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD2-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD2-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD2-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD2-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD2-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD2-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD2-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD3-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD3-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD3-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD3-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD3-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD3-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD3-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD3-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD3-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD3-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD3-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD4-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD4-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD4-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD4-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD4-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD4-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD4-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD4-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD4-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD4-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD4-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD5-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD5-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD5-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD5-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD5-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD5-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD5-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD5-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD5-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD5-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD5-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD6-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD6-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD6-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD6-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD6-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD6-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD6-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD6-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD6-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD6-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD6-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD7-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD7-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD7-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD7-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD7-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD7-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD7-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD7-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD7-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD7-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD7-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD8-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD8-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD8-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD8-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD8-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD8-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD8-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD8-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD8-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD8-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD8-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD9-CUST           PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD9-RATE-D         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD9-RATE-I         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD9-RATE-E         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD9-RATE-H         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD9-RATE-G         PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD9-RATE-F         PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD9-CSH-SALE       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD9-CNTU-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD9-ONHD-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD9-DENY-DEP       PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD10-CUST          PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD10-RATE-D        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD10-RATE-I        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD10-RATE-E        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD10-RATE-H        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD10-RATE-G        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD10-RATE-F        PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD10-CSH-SALE      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD10-CNTU-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD10-ONHD-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD10-DENY-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD11-CUST          PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD11-RATE-D        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD11-RATE-I        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD11-RATE-E        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD11-RATE-H        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD11-RATE-G        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD11-RATE-F        PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD11-CSH-SALE      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD11-CNTU-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD11-ONHD-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD11-DENY-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD13-CUST          PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD13-RATE-D        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD13-RATE-I        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD13-RATE-E        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD13-RATE-H        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD13-RATE-G        PIC 9(07) VALUE ZEROES.          
ACT001     05  WS-AYTD13-RATE-F        PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD13-CSH-SALE      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD13-CNTU-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD13-ONHD-DEP      PIC 9(07) VALUE ZEROES.          
           05  WS-AYTD13-DENY-DEP      PIC 9(07) VALUE ZEROES.          
      *                                                                 03700000
           05  WS-ACUM-CUST-100        PIC 9(09) VALUE ZEROES.          
           05  WS-AYTD-CUST-100        PIC 9(09) VALUE ZEROES.          
           05  WS-TOTAL-INVAL-SCORE    PIC 9(07) VALUE ZEROES.          
           05  WS-RECS-READ-TOT        PIC 9(07) VALUE ZEROES.          
           05  WS-PERCENT              PIC 9(03)V99 VALUE ZEROES.       
           05  WS-BEACON-SCORE         PIC X(05).                       
           05  WS-BEACON-SCORE-9 REDEFINES WS-BEACON-SCORE              
                                       PIC 9(05).                       
           05  WS-PREV-MON             PIC 9(02).                       
           05  WS-VALID-MON-SW         PIC X(01).                       
      *                                                                 03810000
       01  WS-DATABASE                 PIC 9(01) VALUE ZEROES.          
           88  CSR-DATABASE            VALUE 1.                         
           88  SEB-DATABASE            VALUE 2.                         
      *                                                                 03850000
       01  WS-MONTH-DATA.                                               
           05  FILLER                  PIC 9(04) VALUE 0131.            
           05  FILLER                  PIC 9(04) VALUE 0228.            
           05  FILLER                  PIC 9(04) VALUE 0331.            
           05  FILLER                  PIC 9(04) VALUE 0430.            
           05  FILLER                  PIC 9(04) VALUE 0531.            
           05  FILLER                  PIC 9(04) VALUE 0630.            
           05  FILLER                  PIC 9(04) VALUE 0731.            
           05  FILLER                  PIC 9(04) VALUE 0831.            
           05  FILLER                  PIC 9(04) VALUE 0930.            
           05  FILLER                  PIC 9(04) VALUE 1031.            
           05  FILLER                  PIC 9(04) VALUE 1130.            
           05  FILLER                  PIC 9(04) VALUE 1231.            
       01  WS-MONTH-TBL REDEFINES WS-MONTH-DATA.                        
           05  WS-MONTH-ENTRIES        OCCURS 12 TIMES                  
                                       INDEXED BY WS-MON-INDEX.         
               10  WS-MONTH-ENTRY      PIC 9(02).                       
               10  WS-DAYS-ENTRY       PIC 9(02).                       
      *                                                                 04040000
       01  WS-HEADER-1.                                                 
           05  FILLER                  PIC X(01) VALUE '1'.             
           05  FILLER                  PIC X(44) VALUE 'PCSRP384'.      
ACT057     05  WS-HD1-TITLE            PIC X(22).                       
           05  WS-HD1-COMPANY          PIC X(45).                       
                                                                        
       01  WS-HEADER-1YTD.                                              
           05  FILLER                  PIC X(45) VALUE '-'.             
ACT001     05  WS-YTD-TITLE            PIC X(35).                       
ACT001     05  WS-YTD-COMPANY          PIC X(45).                       
      *                                                                 04140000
       01  WS-HEADER-2.                                                 
           05  FILLER                  PIC X(49) VALUE SPACES.          
           05  FILLER                  PIC X(12) VALUE 'FOR PERIOD:'.   
           05  WS-HD2-BEG-MM           PIC X(02).                       
           05  FILLER                  PIC X(01) VALUE '/'.             
           05  WS-HD2-BEG-DD           PIC X(02).                       
           05  FILLER                  PIC X(01) VALUE '/'.             
           05  WS-HD2-BEG-YY           PIC X(04).                       
           05  FILLER                  PIC X(03) VALUE ' -'.            
           05  WS-HD2-END-MM           PIC X(02).                       
           05  FILLER                  PIC X(01) VALUE '/'.             
           05  WS-HD2-END-DD           PIC X(02).                       
           05  FILLER                  PIC X(01) VALUE '/'.             
           05  WS-HD2-END-YY           PIC X(04).                       
           05  FILLER                  PIC X(49) VALUE SPACES.          
      *                                                                 04300000
       01  WS-HEADER-3.                                                 
           05  FILLER                  PIC X(02) VALUE '-'.             
           05  FILLER                  PIC X(14) VALUE 'BEACON SCORE'.  
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE 'CUSTOMERS'.     
           05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '6.9% RATE'.     
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '9.5% RATE'.     
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '9.9% RATE'.     
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE '10.9% RATE'.    
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE '12.9% RATE'.    
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE '17.9% RATE'.    
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE 'CASH SALE'.     
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  FILLER                  PIC X(12) VALUE 'CONTINUE APP'.  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE 'ONHOLD APP'.    
           05  FILLER                  PIC X(06) VALUE SPACES.          
           05  FILLER                  PIC X(08) VALUE 'DENY APP'.      
           05  FILLER                  PIC X(02) VALUE  SPACES.         
           05  FILLER                  PIC X(10) VALUE 'PERCENTAGE'.    
      *                                                                 04520000
       01  WS-HEADER-4.                                                 
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  FILLER                  PIC X(14) VALUE 'RANGE'.         
           05  FILLER                  PIC X(14) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE SPACES.          
           05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(08) VALUE SPACES.          
           05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(08) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(10) VALUE SPACES.          
           05  FILLER                  PIC X(12) VALUE 'STATUS'.        
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE 'STATUS'.        
           05  FILLER                  PIC X(06) VALUE SPACES.          
           05  FILLER                  PIC X(08) VALUE 'STATUS'.        
ACT001     05  FILLER                  PIC X(14) VALUE SPACES.          
      *                                                                 04700000
       01  WS-TOTAL-N.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE 'NO SCORE'.      
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOTN-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOTN-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOTN-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOTN-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOTN-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOTN-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOTN-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOTN-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOTN-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOTN-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOTN-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOTN-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 04930000
       01  WS-TOTAL-1.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '000 SCORE'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT1-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT1-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT1-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT1-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT1-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT1-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT1-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT1-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT1-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT1-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT1-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT1-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 05160000
       01  WS-TOTAL-2.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '001 - 299'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT2-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT2-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT2-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT2-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT2-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT2-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT2-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT2-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT2-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT2-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT2-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT2-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 05390000
       01  WS-TOTAL-3.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '300 - 399'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT3-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT3-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT3-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT3-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT3-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT3-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT3-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT3-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT3-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT3-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT3-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT3-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 05620000
       01  WS-TOTAL-4.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '400 - 499'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT4-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT4-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT4-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT4-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT4-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT4-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT4-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT4-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT4-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT4-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT4-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT4-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 05850000
       01  WS-TOTAL-5.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '500 - 533'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT5-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT5-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT5-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT5-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT5-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT5-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT5-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT5-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT5-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT5-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT5-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT5-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 06080000
       01  WS-TOTAL-6.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '534 - 573'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT6-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT6-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT6-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT6-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT6-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT6-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT6-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT6-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT6-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT6-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT6-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT6-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 06310000
       01  WS-TOTAL-7.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '574 - 613'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT7-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT7-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT7-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT7-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT7-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT7-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT7-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT7-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT7-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT7-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT7-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT7-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 06540000
       01  WS-TOTAL-8.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '614 - 649'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT8-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT8-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT8-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT8-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT8-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT8-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT8-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT8-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT8-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT8-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT8-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT8-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
           05  FILLER                  PIC X(02) VALUE SPACES.          
      *                                                                 06780000
       01  WS-TOTAL-9.                                                  
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '650 - 699'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT9-CUST            PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT9-RATE-D          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT9-RATE-I          PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT9-RATE-E          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT9-RATE-H          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT9-RATE-G          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT9-RATE-F          PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT9-CSH-SALE        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT9-CNTU-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT9-ONHD-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT9-DENY-DEP        PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT9-PERCENT         PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 07010000
       01  WS-TOTAL-10.                                                 
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '700 - 749'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT10-CUST           PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT10-RATE-D         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT10-RATE-I         PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT10-RATE-E         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT10-RATE-H         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT10-RATE-G         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT10-RATE-F         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT10-CSH-SALE       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT10-CNTU-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT10-ONHD-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT10-DENY-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT10-PERCENT        PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 07240000
       01  WS-TOTAL-11.                                                 
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(10) VALUE '750 - 1000'.    
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  WS-TOT11-CUST           PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT11-RATE-D         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT11-RATE-I         PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT11-RATE-E         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT11-RATE-H         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT11-RATE-G         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT11-RATE-F         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT11-CSH-SALE       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT11-CNTU-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT11-ONHD-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT11-DENY-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(02) VALUE SPACES.          
           05  WS-TOT11-PERCENT        PIC ZZ9.99.                      
           05  FILLER                  PIC X(02) VALUE ' %'.            
      *                                                                 07470000
       01  WS-TOTAL-12.                                                 
           05  FILLER                  PIC X(18) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
           05  FILLER                  PIC X(04) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
ACT001     05  FILLER                  PIC X(09) VALUE '---------'.     
ACT001     05  FILLER                  PIC X(12) VALUE SPACES.          
                                                                        
       01  WS-TOTAL-13.                                                 
           05  FILLER                  PIC X(18) VALUE SPACES.          
           05  WS-TOT13-CUST           PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(03) VALUE SPACES.          
ACT001     05  WS-TOT13-RATE-D         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT13-RATE-I         PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT13-RATE-E         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(04) VALUE SPACES.          
ACT001     05  WS-TOT13-RATE-H         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT13-RATE-G         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(06) VALUE SPACES.          
ACT001     05  WS-TOT13-RATE-F         PIC Z,ZZZ,ZZ9.                   
ACT001     05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT13-CSH-SALE       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT13-CNTU-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT13-ONHD-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(05) VALUE SPACES.          
           05  WS-TOT13-DENY-DEP       PIC Z,ZZZ,ZZ9.                   
           05  FILLER                  PIC X(12) VALUE SPACES.          
      *                                                                 07850000
      ******************************************************************07860000
      **                                                              **07870000
      ** WORKING STORAGE COPY BOOKS FOLLOW ALL PROGRAM WS             **07880000
      **                                                              **07890000
      ******************************************************************07900000
      *****   SQL WORK VARIABLES.                                       07910000
       COPY CWS00303.                                                   07920000
      *****   SDTCDAT2 VARIABLES.                                       07930000
      *                                                                 07940000
       01 WS-END                            PIC X(38) VALUE             
               'WORKING STORAGE FOR PCSRP384 ENDS HERE'.                
      *                                                                 07970000
      ******************************************************************07980000
      **  TABLE DECLARATIONS                                          **07990000
      ******************************************************************08000000
      *                                                                 08010000
           EXEC SQL                                                     08020000
             INCLUDE SQLCA                                              08030000
           END-EXEC.                                                    08040000
      *                                                                 08050000
      ******************************************************************08060000
      **  CSS_CREDIT_HIST  TABLE CK                                   **08070000
      ******************************************************************08080000
      *                                                                 08090000
           EXEC SQL                                                     08100000
               INCLUDE TBCRHIST                                         08110000
           END-EXEC.                                                    08120000
      *                                                                 08130000
      ******************************************************************08140000
      **  CSS_ACCOUNT TABLE AT                                        **08150000
      ******************************************************************08160000
      *                                                                 08170000
           EXEC SQL                                                     08180000
               INCLUDE TBACCT                                           08190000
           END-EXEC.                                                    08200000
      *                                                                 08210000
      ******************************************************************08220000
      **  CSS_COMPANY TABLE C7                                        **08230000
      ******************************************************************08240000
      *                                                                 08250000
           EXEC SQL                                                     08260000
              INCLUDE TBCOMPNY                                          08270000
           END-EXEC.                                                    08280000
      *                                                                 08290000
ACT144*                                                                 08300000
ACT144******************************************************************08310000
ACT144**  CSS_JOBP_PARM TABLE G6                                      **08320000
ACT144******************************************************************08330000
ACT144*                                                                 08340000
ACT144     EXEC SQL                                                     08350000
ACT144        INCLUDE TBJBPARM                                          08360000
ACT144     END-EXEC.                                                    08370000
ACT144*                                                                 08380000
ACT144     EXEC SQL                                                     08390000
ACT144       INCLUDE CWS00038                                           08400000
ACT144     END-EXEC.                                                    08410000
ACT144*                                                                 08420000
ACT144     COPY FIOJC01.                                                08430000
      ******************************************************************08440000
      **  BEACON SCORE CURSOR                                         **08450000
A04006**  INCLUDE MERCHANDISE TYPE OF HVAC.                           **08460000
      ******************************************************************08470000
      *                                                                 08480000
           EXEC SQL                                                     
               DECLARE BEACON_SCORE CURSOR FOR                          
               SELECT CK.CR_HIST_TRAN_DT,                               
                      REPLACE(CONVERT(CHAR(8), CK.CR_HIST_TRAN_TM
           , 108), ':', '.') CR_HIST_TRAN_TM,                               
                      CK.BEACON_SCORE,                                  
                      CK.CR_ACTION_FL,                                  
                      CK.CR_RQST_REASON_CD,                             
                      CK.APPL_STATUS_CD,                                
                      AT.CODE_ACCT_STAT,                                
                      AT.COMPANY_NO                                     
               FROM   CSS_CREDIT_HIST CK WITH(READUNCOMMITTED),                 
                      CSS_ACCOUNT AT WITH(READUNCOMMITTED)                      
               WHERE  CK.CUSTOMER_NO     = AT.CUSTOMER_NO       AND     
                      AT.CODE_ACCT_STAT  = 'A'                  AND     
ACT057                CR_RQST_REASON_CD  = :CK-CR-RQST-REASON-CD AND    
                     (CR_HIST_TRAN_DT   >= IIF(TRY_CONVERT(DATE, 
                                                    :WS-BEG-CURSOR-DATE
              ) IS NULL OR (PATINDEX('%.%', :WS-BEG-CURSOR-DATE
              ) <> 0) OR (LEN(:WS-BEG-CURSOR-DATE
              ) <> 10), CIS.CHAR2DATE(:WS-BEG-CURSOR-DATE
              ), CONVERT(DATE, :WS-BEG-CURSOR-DATE) )  AND     
                      CR_HIST_TRAN_DT   <= IIF(TRY_CONVERT(DATE, 
                                                    :WS-END-CURSOR-DATE
              ) IS NULL OR (PATINDEX('%.%', :WS-END-CURSOR-DATE
              ) <> 0) OR (LEN(:WS-END-CURSOR-DATE
              ) <> 10), CIS.CHAR2DATE(:WS-END-CURSOR-DATE
              ), CONVERT(DATE, :WS-END-CURSOR-DATE) )) AND     
P00342                CR_BUREAU_CD      =  'E'                  AND     
                      AT.COMPANY_NO      = :AT-COMPANY-NO               
ACT144                                                      
ACT144                                                           
           END-EXEC.                                                    

MFA-TR* TRANSFORMATION LIST
MFA-TR* MSQ003
MFA-TR* MSQ022
MFA-TR* MSQ054
MFA-TR* MSQ061
MFA-TR*    EXEC SQL                                                     08490000
MFA-TR*        DECLARE BEACON_SCORE CURSOR FOR                          08500000
MFA-TR*        SELECT CK.CR_HIST_TRAN_DT,                               08510000
MFA-TR*               CK.CR_HIST_TRAN_TM,                               08520000
MFA-TR*               CK.BEACON_SCORE,                                  08530000
MFA-TR*               CK.CR_ACTION_FL,                                  08540000
MFA-TR*               CK.CR_RQST_REASON_CD,                             08550000
MFA-TR*               CK.APPL_STATUS_CD,                                08560000
MFA-TR*               AT.CODE_ACCT_STAT,                                08570000
MFA-TR*               AT.COMPANY_NO                                     08580000
MFA-TR*        FROM   CSS_CREDIT_HIST CK,                               08590000
MFA-TR*               CSS_ACCOUNT AT                                    08600000
MFA-TR*        WHERE  CK.CUSTOMER_NO     = AT.CUSTOMER_NO       AND     08610000
MFA-TR*               AT.CODE_ACCT_STAT  = 'A'                  AND     08620000
MFA-TR*               CR_RQST_REASON_CD  = :CK-CR-RQST-REASON-CD AND    08630000
MFA-TR*              (CR_HIST_TRAN_DT   >= :WS-BEG-CURSOR-DATE  AND     08640000
MFA-TR*               CR_HIST_TRAN_DT   <= :WS-END-CURSOR-DATE) AND     08650000
MFA-TR*               CR_BUREAU_CD      =  'E'                  AND     08660000
MFA-TR*               AT.COMPANY_NO      = :AT-COMPANY-NO               08670000
MFA-TR*        QUERYNO 0400                                             08680000
MFA-TR*        WITH UR                                                  08690000
MFA-TR*    END-EXEC.                                                    08700000
      *                                                                 08710000
       LINKAGE SECTION.                                                 
      *                                                                 08730000
      ******************************************************************08740000
      *   PARM DATE FORMAT: COL 1-8 BEGIN DATE IN YYYYMMDD FORMAT      *08750000
      *   PARM DATE FORMAT: COL 9-16 END DATE IN YYYYMMDD FORMAT       *08760000
      ******************************************************************08770000
       01  WS-PARM-CARD.                                                
           05  WS-CHKBYTE              PIC S9(04) COMP.                 
           05  WS-PARM-DATE.                                            
               10  WS-PARM-BEGIN-DT    PIC 9(08).                       
               10  FILLER REDEFINES WS-PARM-BEGIN-DT.                   
                   15  WS-BEG-YY       PIC 9(04).                       
                   15  WS-BEG-MM       PIC 9(02).                       
                   15  WS-BEG-DD       PIC 9(02).                       
               10  WS-PARM-END-DT      PIC 9(08).                       
               10  FILLER REDEFINES WS-PARM-END-DT.                     
                   15  WS-END-YY       PIC 9(04).                       
                   15  WS-END-MM       PIC 9(02).                       
                   15  WS-END-DD       PIC 9(02).                       
           05  WS-PARM-COMPANY         PIC X(02).                       
ACT057     05  WS-PARM-REASON          PIC X(01).                       
                                                                        
HPCCDM*EJECT                                                            08940000
      *                                                                 08950000
       PROCEDURE DIVISION USING WS-PARM-CARD.                           
      *                                                                 08970000
      ******************************************************************08980000
      **  0000-MAILINE.                                               **08990000
      **  CONTROLS THE MAIN PROCESSING OF THE PROGRAM.                **09000000
      ******************************************************************09010000
      *                                                                 09020000
       0000-MAINLINE.                                                   
      *                                                                 09040000
           PERFORM P0100-OPEN-FILES.                                    
           IF NOT SQL-ERROR                                             
               PERFORM P0200-PROCESS-PARM-DATE                          
               PERFORM P0300-INITIALIZE                                 
               PERFORM P0400-FETCH-BEACON-CURSOR
           END-IF.                       
           PERFORM P0500-PROCESS                                        
               UNTIL END-OF-CURSOR OR SQL-ERROR.                        
           IF NOT SQL-ERROR                                             
               PERFORM P0600-TOTAL
           END-IF.                                     
           PERFORM P0700-CLOSE-FILES.                                   
      *                                                                 09150000
       0000-EXIT.                                                       
           EXIT.                                                        
      *                                                                 09180000
      ******************************************************************09190000
       P0100-OPEN-FILES.                                                
      ******************************************************************09210000
                                                                        
           OPEN OUTPUT PRNTFILE.                                        
                                                                        
      ******************************************************************09250000
       P0200-PROCESS-PARM-DATE.                                         
      ******************************************************************09270000
ACT144     PERFORM 6251-GET-FJC01-DATE THRU 6251-EXIT.                  
ACT144     MOVE WS-INPUT-DATE   TO WS-CURRENT-DATE.                     
ACT144     EXEC SQL SELECT
              (SELECT CAST(DATEADD(DAY, -DAY(E), E) AS DATE) 
              FROM (SELECT DATEADD(MONTH, 1, DATEADD( MONTH, -1, 
           CAST(SYSDATETIMEOFFSET() AS DATE) )) E) T)
            INTO
              :WS-END-CURSOR-DATE                        
ACT144     END-EXEC                                                     

MFA-TR* TRANSFORMATION LIST
MFA-TR* MSQ006
MFA-TR* MSQ028
MFA-TR* MSQ029
MFA-TR* MSQ044
MFA-TR*    EXEC SQL SET :WS-END-CURSOR-DATE =                           09300000
MFA-TR*        LAST_DAY(CURRENT_DATE - 1 MONTHS)                        09310000
MFA-TR*    END-EXEC                                                     09320000

MSQ017     CALL "MFASQLCA"
MSQ017       USING SQLCA, BY VALUE MFA-PROGRAM-ID, "0", "0", "0",
MSQ017       BY REFERENCE MFSQLMESSAGETEXT
MSQ017     END-CALL

                                                                        
           IF WS-BEG-YY NUMERIC OR                                      
              WS-BEG-MM NUMERIC OR                                      
              WS-BEG-DD NUMERIC OR                                      
              WS-END-YY NUMERIC OR                                      
              WS-END-MM NUMERIC OR                                      
              WS-END-DD NUMERIC                                         
                  PERFORM P0210-EDIT-PARM-DATE                          
ACT144            IF NO-SQL-ERROR                                       
ACT144                MOVE WS-PARM-BEGIN-DT TO WS-BEG-CURSOR-DATEX      
ACT057                MOVE 01               TO WS-BEG-CURSOR-DATEX (6:2)
ACT057                MOVE 01               TO WS-BEG-CURSOR-DATEX (9:2)
ACT144                MOVE WS-PARM-END-DT   TO WS-END-CURSOR-DATEX      
ACT144                MOVE '-'              TO WS-BEG-CURSOR-DATEX (5:1)
ACT144                                         WS-BEG-CURSOR-DATEX (8:1)
ACT144                                         WS-END-CURSOR-DATEX (5:1)
ACT144                                         WS-END-CURSOR-DATEX (8:1)
ACT144            ELSE                                                  
ACT144                PERFORM 9900-ABEND                                
ACT144            END-IF                                                
ACT144                                                                  
ACT144        ELSE                                                      
ACT144           MOVE WS-END-CURSOR-DATE     TO WS-BEG-CURSOR-DATE      
ACT057           MOVE '01'                   TO WS-BEG-CURSOR-DATE (6:2)
ACT144           MOVE '01'                   TO WS-BEG-CURSOR-DATE (9:2)
ACT144     END-IF.                                                      
ACT057     MOVE WS-END-CURSOR-DATE (1:4) TO WS-MONTH-BYY.               
ACT057     MOVE WS-END-CURSOR-DATE (6:2) TO WS-MONTH-BMM.               
ACT057     MOVE 01                       TO WS-MONTH-BDD.               
ACT057     MOVE WS-END-CURSOR-DATE (1:4) TO WS-MONTH-EYY.               
ACT057     MOVE WS-END-CURSOR-DATE (6:2) TO WS-MONTH-EMM.               
ACT057     MOVE WS-END-CURSOR-DATE (9:2) TO WS-MONTH-EDD.               
ACT144     MOVE 01                 TO WS-YTD-BMM WS-YTD-BDD.            
      ******************************************************************09660000
       P0210-EDIT-PARM-DATE.                                            
      ******************************************************************09680000
                                                                        
           IF WS-PARM-BEGIN-DT NOT NUMERIC OR                           
              WS-PARM-BEGIN-DT = ZEROES                                 
               DISPLAY 'PARM BEGIN DATE INVALID--DATE IS: '             
                   WS-PARM-BEGIN-DT UPON SYSOUT                         
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
           IF WS-PARM-END-DT NOT NUMERIC OR                             
              WS-PARM-END-DT = ZEROES                                   
               DISPLAY 'PARM END DATE INVALID--DATE IS: '               
                   WS-PARM-END-DT UPON SYSOUT                           
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
      *  EQUIFAX TRANSACTIONS WERE NOT DONE PRIOR TO 1998               09820000
           IF WS-BEG-YY < 1998 OR                                       
              WS-BEG-YY = ZEROES                                        
               DISPLAY 'BEGIN DATE YEAR INVALID--YEAR IS: '             
                   WS-BEG-YY UPON SYSOUT                                
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
           IF WS-BEG-MM > 12 OR                                         
              WS-BEG-MM = ZEROES                                        
               DISPLAY 'BEGIN DATE MONTH INVALID--MONTH IS: '           
                   WS-BEG-MM UPON SYSOUT                                
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
           IF WS-BEG-DD > 31 OR                                         
              WS-BEG-DD = ZEROES                                        
               DISPLAY 'BEGIN DATE DAYS INVALID--DAYS IS: '             
                   WS-BEG-DD UPON SYSOUT                                
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
ACT057     IF WS-END-YY > WS-CURRENT-YEAR  OR                           
              WS-END-YY = ZEROES                                        
               DISPLAY 'END DATE YEAR INVALID--YEAR IS: '               
                   WS-END-YY UPON SYSOUT                                
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
           IF WS-END-MM > 12 OR                                         
              WS-END-MM = ZEROES                                        
               DISPLAY 'END DATE MONTH INVALID--MONTH IS: '             
                   WS-END-MM UPON SYSOUT                                
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
           IF WS-END-DD > 31 OR                                         
              WS-END-DD = ZEROES                                        
               DISPLAY 'END DATE DAYS INVALID--DAYS IS: '               
                   WS-END-DD UPON SYSOUT                                
               MOVE 9 TO COMP-CODE                                      
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
                                                                        
      ******************************************************************10200000
       P0300-INITIALIZE.                                                
      ******************************************************************10220000
                                                                        
           MOVE WS-PARM-COMPANY  TO WS-SYSIN-COMP-NO.                   
           MOVE WS-SYSIN-COMP-NO TO C7-COMPANY-NO.                      
                                                                        
           EXEC SQL                                                     
             SELECT  COMPANY_NAME                                       
               INTO  :C7-COMPANY-NAME                                   
               FROM  CSS_COMPANY WITH(READUNCOMMITTED)                          
              WHERE  COMPANY_NO = :C7-COMPANY-NO                        
P00342                                                           
P00342                                                      
           END-EXEC.                                                    

MFA-TR* TRANSFORMATION LIST
MFA-TR* MSQ003
MFA-TR* MSQ022
MFA-TR*    EXEC SQL                                                     10270000
MFA-TR*      SELECT  COMPANY_NAME                                       10280000
MFA-TR*        INTO  :C7-COMPANY-NAME                                   10290000
MFA-TR*        FROM  CSS_COMPANY                                        10300000
MFA-TR*       WHERE  COMPANY_NO = :C7-COMPANY-NO                        10310000
MFA-TR*       WITH UR                                                   10320000
MFA-TR*       QUERYNO 0300                                              10330000
MFA-TR*    END-EXEC.                                                    10340000

MSQ017     CALL "MFASQLCA"
MSQ017       USING SQLCA, BY VALUE MFA-PROGRAM-ID, "0", "0", "0",
MSQ017       BY REFERENCE MFSQLMESSAGETEXT
MSQ017     END-CALL

                                                                        
           MOVE SQLCODE TO WS-ACTIVE-RETURN-CODE.                       
           IF SQLCODE = SUCCESSFUL-CALL                                 
               NEXT SENTENCE                                            
           ELSE                                                         
               DISPLAY '**  PROCESSING ERROR IN PROGRAM PCSRP384  **'   
               DISPLAY '**        PARA - P0300-INITIALIZE         **'   
               DISPLAY '**      ERROR DURING SELECT OF TABLE      **'   
               DISPLAY '**             CSS_COMPANY                **'   
               DISPLAY '**  RC = ' WS-ACTIVE-RETURN-CODE                
               DISPLAY '**          PROCESSING TERMINATED         **'   
               MOVE 12 TO COMP-CODE                                     
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
                                                                        
ACT057     IF WS-PARM-REASON = 'M'                                      
ACT057        MOVE 'MERCHANDISE ACTIONS - ' TO WS-HD1-TITLE             
ACT057        MOVE 'YEAR TO DATE MERCHANDISE ACTIONS - ' TO WS-YTD-TITLE
ACT057     ELSE                                                         
ACT057        MOVE 'HVAC ACTIONS - '        TO WS-HD1-TITLE             
ACT057        MOVE 'YEAR TO DATE HVAC ACTIONS - '        TO WS-YTD-TITLE
ACT057     END-IF                                                       
           MOVE C7-COMPANY-NAME TO WS-HD1-COMPANY                       
ACT001                             WS-YTD-COMPANY.                      
           MOVE WS-HEADER-1 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
ACT057     MOVE WS-MONTH-BMM             TO WS-HD2-BEG-MM.              
ACT057     MOVE WS-MONTH-BDD             TO WS-HD2-BEG-DD.              
ACT057     MOVE WS-MONTH-BYY             TO WS-HD2-BEG-YY.              
ACT057     MOVE WS-MONTH-EMM             TO WS-HD2-END-MM.              
ACT057     MOVE WS-MONTH-EDD             TO WS-HD2-END-DD.              
ACT057     MOVE WS-MONTH-EYY             TO WS-HD2-END-YY.              
           MOVE WS-HEADER-2 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE SPACES TO PRNTFILE-RECORD.                              
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE WS-HEADER-3 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
           MOVE WS-HEADER-4 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE SPACES TO PRNTFILE-RECORD.                              
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE WS-PARM-COMPANY  TO AT-COMPANY-NO.                      
ACT057     MOVE WS-PARM-REASON   TO CK-CR-RQST-REASON-CD.               
           EXEC SQL                                                     
                OPEN BEACON_SCORE                                       
           END-EXEC.                                                    

MSQ017     CALL "MFASQLCA"
MSQ017       USING SQLCA, BY VALUE MFA-PROGRAM-ID, "0", "0", "0",
MSQ017       BY REFERENCE MFSQLMESSAGETEXT
MSQ017     END-CALL

           MOVE SQLCODE TO WS-ACTIVE-RETURN-CODE.                       
           IF SQLCODE = SUCCESSFUL-CALL                                 
               NEXT SENTENCE                                            
           ELSE                                                         
               DISPLAY '**  PROCESSING ERROR IN PROGRAM PCSRP384  **'   
               DISPLAY '**        PARA - P0300-INITIALIZE         **'   
               DISPLAY '**      ERROR DURING OPEN OF CURSOR       **'   
               DISPLAY '**             BEACON_SCORE               **'   
               DISPLAY '**  RC = ' WS-ACTIVE-RETURN-CODE                
               DISPLAY '**          PROCESSING TERMINATED         **'   
               MOVE 12 TO COMP-CODE                                     
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
                                                                        
      ******************************************************************10980000
       P0310-WRITE-PRNTFILE-REC.                                        
      ******************************************************************11000000
                                                                        
           WRITE PRNTFILE-RECORD.                                       
                                                                        
                                                                        
      ******************************************************************11050000
       P0400-FETCH-BEACON-CURSOR.                                       
      ******************************************************************11070000
                                                                        
           MOVE SPACES TO CK-CR-HIST-TRAN-DT                            
                          CK-BEACON-SCORE                               
                          CK-CR-ACTION-FL.                              
                                                                        
           EXEC SQL                                                     
                FETCH BEACON_SCORE                                      
                INTO  :CK-CR-HIST-TRAN-DT,                              
                      :CK-CR-HIST-TRAN-TM,                              
                      :CK-BEACON-SCORE,                                 
                      :CK-CR-ACTION-FL,                                 
                      :CK-CR-RQST-REASON-CD,                            
                      :CK-APPL-STATUS-CD,                               
                      :AT-CODE-ACCT-STAT,                               
                      :AT-COMPANY-NO                                    
           END-EXEC.                                                    

MSQ017     CALL "MFASQLCA"
MSQ017       USING SQLCA, BY VALUE MFA-PROGRAM-ID, "0", "0", "0",
MSQ017       BY REFERENCE MFSQLMESSAGETEXT
MSQ017     END-CALL

           MOVE SQLCODE TO WS-ACTIVE-RETURN-CODE.                       
           IF SQLCODE = SUCCESSFUL-CALL                                 
               NEXT SENTENCE                                            
           ELSE                                                         
               IF SQLCODE = NOT-FOUND                                   
                   MOVE 1 TO WS-CRSR-EOF-SW                             
               ELSE                                                     
                  DISPLAY '**  PROCESSING ERROR IN PROGRAM PCSRP384  **'
                  DISPLAY '**    PARA - P0400-FETCH-BEACON-CURSOR    **'
                  DISPLAY '**      ERROR DURING FETCH OF CURSOR      **'
                  DISPLAY '**             BEACON_SCORE               **'
                  DISPLAY '**  RC = ' WS-ACTIVE-RETURN-CODE             
                  DISPLAY '**          PROCESSING TERMINATED         **'
                  MOVE 12 TO COMP-CODE                                  
                  MOVE 1 TO SQL-ERROR-SW
               END-IF
           END-IF.                               
                                                                        
      ******************************************************************11400000
       P0500-PROCESS.                                                   
      ******************************************************************11420000
                                                                        
           MOVE CK-CR-HIST-TRAN-DT TO WS-CRED-HIST-DATE.                
           MOVE WS-CH-YY TO WS-TRANS-YY.                                
           MOVE WS-CH-MM TO WS-TRANS-MM.                                
           MOVE WS-CH-DD TO WS-TRANS-DD.                                
                                                                        
           MOVE CK-BEACON-SCORE TO WS-BEACON-SCORE.                     
                                                                        
           IF WS-BEACON-SCORE-9 NOT NUMERIC OR                          
              WS-BEACON-SCORE-9 = ZEROES                                
              IF WS-BEACON-SCORE-9 NUMERIC AND                          
                 WS-BEACON-SCORE-9 = ZEROES                             
                 PERFORM P0410-ACUM1-TOTALS                             
              ELSE                                                      
                 PERFORM P0405-ACUMN-TOTALS                             
              END-IF                                                    
           ELSE                                                         
             IF WS-BEACON-SCORE-9 NOT < 1 AND                           
                WS-BEACON-SCORE-9 NOT > 299                             
                PERFORM P0420-ACUM2-TOTALS                              
             ELSE                                                       
                IF WS-BEACON-SCORE-9 NOT < 300 AND                      
                   WS-BEACON-SCORE-9 NOT > 399                          
                   PERFORM P0430-ACUM3-TOTALS                           
                ELSE                                                    
                  IF WS-BEACON-SCORE-9 NOT < 400 AND                    
                     WS-BEACON-SCORE-9 NOT > 499                        
                     PERFORM P0440-ACUM4-TOTALS                         
                  ELSE                                                  
                    IF WS-BEACON-SCORE-9 NOT < 500 AND                  
                       WS-BEACON-SCORE-9 NOT > 533                      
                       PERFORM P0450-ACUM5-TOTALS                       
                    ELSE                                                
                      IF WS-BEACON-SCORE-9 NOT < 534 AND                
                         WS-BEACON-SCORE-9 NOT > 573                    
                         PERFORM P0460-ACUM6-TOTALS                     
                      ELSE                                              
                        IF WS-BEACON-SCORE-9 NOT < 574 AND              
                           WS-BEACON-SCORE-9 NOT > 613                  
                           PERFORM P0470-ACUM7-TOTALS                   
                        ELSE                                            
                          IF WS-BEACON-SCORE-9 NOT < 614 AND            
                             WS-BEACON-SCORE-9 NOT > 649                
                             PERFORM P0480-ACUM8-TOTALS                 
                          ELSE                                          
                            IF WS-BEACON-SCORE-9 NOT < 650 AND          
                               WS-BEACON-SCORE-9 NOT > 699              
                               PERFORM P0490-ACUM9-TOTALS               
                            ELSE                                        
                              IF WS-BEACON-SCORE-9 NOT < 700 AND        
                                 WS-BEACON-SCORE-9 NOT > 749            
                                 PERFORM P0491-ACUM10-TOTALS            
                              ELSE                                      
                                IF WS-BEACON-SCORE-9 NOT < 750 AND      
                                   WS-BEACON-SCORE-9 NOT > 1000         
                                   PERFORM P0492-ACUM11-TOTALS          
                                ELSE                                    
                                   ADD 1 TO WS-TOTAL-INVAL-SCORE
                                END-IF
                              END-IF
                            END-IF
                          END-IF
                        END-IF
                      END-IF
                    END-IF
                  END-IF
                END-IF
             END-IF
           END-IF.       
                                                                        
           PERFORM P0400-FETCH-BEACON-CURSOR.                           
                                                                        
      ******************************************************************12040000
       P0405-ACUMN-TOTALS.                                              
      ******************************************************************12060000
      *                                                                 12070000
           ADD 1 TO WS-AYTDN-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTDN-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTDN-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTDN-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTDN-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTDN-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTDN-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTDN-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTDN-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTDN-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTDN-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 12350000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUMN-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUMN-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUMN-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUMN-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUMN-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUMN-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUMN-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUMN-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUMN-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUMN-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUMN-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF .                                                     
      *                                                                 12660000
      ******************************************************************12670000
       P0410-ACUM1-TOTALS.                                              
      ******************************************************************12690000
      *                                                                 12700000
           ADD 1 TO WS-AYTD1-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD1-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD1-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD1-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD1-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD1-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD1-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD1-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD1-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD1-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD1-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 12980000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE     AND            
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM1-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM1-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM1-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM1-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM1-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM1-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM1-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM1-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM1-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM1-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM1-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
                       END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 13290000
      ******************************************************************13300000
       P0420-ACUM2-TOTALS.                                              
      ******************************************************************13320000
      *                                                                 13330000
           ADD 1 TO WS-AYTD2-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD2-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD2-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD2-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD2-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD2-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD2-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD2-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD2-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD2-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD2-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 13610000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM2-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM2-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM2-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM2-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM2-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM2-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM2-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM2-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM2-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM2-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM2-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 13920000
      ******************************************************************13930000
       P0430-ACUM3-TOTALS.                                              
      ******************************************************************13950000
      *                                                                 13960000
           ADD 1 TO WS-AYTD3-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD3-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD3-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD3-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD3-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD3-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD3-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD3-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD3-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD3-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD3-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 14240000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM3-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM3-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM3-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM3-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM3-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM3-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM3-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM3-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM3-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM3-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM3-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 14550000
      ******************************************************************14560000
       P0440-ACUM4-TOTALS.                                              
      ******************************************************************14580000
      *                                                                 14590000
           ADD 1 TO WS-AYTD4-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD4-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD4-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD4-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD4-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD4-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD4-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD4-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD4-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD4-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD4-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 14870000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM4-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM4-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM4-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM4-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM4-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM4-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM4-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM4-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM4-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM4-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM4-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 15180000
      ******************************************************************15190000
       P0450-ACUM5-TOTALS.                                              
      ******************************************************************15210000
      *                                                                 15220000
           ADD 1 TO WS-AYTD5-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD5-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD5-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD5-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD5-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD5-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD5-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD5-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD5-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD5-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD5-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 15500000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM5-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM5-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM5-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM5-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM5-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM5-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM5-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM5-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM5-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM5-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM5-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 15810000
      ******************************************************************15820000
       P0460-ACUM6-TOTALS.                                              
      ******************************************************************15840000
      *                                                                 15850000
           ADD 1 TO WS-AYTD6-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD6-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD6-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD6-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD6-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD6-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD6-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD6-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD6-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD6-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD6-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 16130000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM6-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM6-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM6-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM6-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM6-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM6-RATE-D                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM6-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM6-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM6-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM6-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM6-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 16440000
      ******************************************************************16450000
       P0470-ACUM7-TOTALS.                                              
      ******************************************************************16470000
      *                                                                 16480000
           ADD 1 TO WS-AYTD7-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD7-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD7-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD7-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD7-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD7-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD7-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD7-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD7-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD7-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD7-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 16760000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM7-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM7-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM7-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM7-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM7-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM7-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM7-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM7-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM7-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM7-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM7-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 17070000
      ******************************************************************17080000
       P0480-ACUM8-TOTALS.                                              
      ******************************************************************17100000
      *                                                                 17110000
           ADD 1 TO WS-AYTD8-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD8-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD8-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD8-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD8-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD8-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD8-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD8-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD8-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD8-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD8-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 17390000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM8-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM8-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM8-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM8-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM8-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM8-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM8-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM8-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM8-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM8-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM8-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 17700000
      ******************************************************************17710000
       P0490-ACUM9-TOTALS.                                              
      ******************************************************************17730000
      *                                                                 17740000
           ADD 1 TO WS-AYTD9-CUST                                       
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD9-CNTU-DEP                               
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD9-ONHD-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD9-DENY-DEP                         
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD9-RATE-D                                  
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD9-RATE-I                                
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD9-RATE-E                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD9-RATE-H                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD9-RATE-G                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD9-RATE-F                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD9-CSH-SALE                    
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 18020000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM9-CUST                                   
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM9-CNTU-DEP                            
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM9-ONHD-DEP                         
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM9-DENY-DEP                      
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM9-RATE-D                              
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM9-RATE-I                            
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM9-RATE-E                          
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM9-RATE-H                         
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM9-RATE-G                      
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM9-RATE-F                    
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM9-CSH-SALE                
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 18330000
      ******************************************************************18340000
       P0491-ACUM10-TOTALS.                                             
      ******************************************************************18360000
      *                                                                 18370000
           ADD 1 TO WS-AYTD10-CUST                                      
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD10-CNTU-DEP                              
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD10-ONHD-DEP                          
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD10-DENY-DEP                        
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD10-RATE-D                                 
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD10-RATE-I                               
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD10-RATE-E                             
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD10-RATE-H                           
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD10-RATE-G                         
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD10-RATE-F                       
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD10-CSH-SALE                   
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 18650000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM10-CUST                                  
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM10-CNTU-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM10-ONHD-DEP                        
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM10-DENY-DEP                     
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM10-RATE-D                             
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM10-RATE-I                           
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM10-RATE-E                         
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM10-RATE-H                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM10-RATE-G                     
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM10-RATE-F                   
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM10-CSH-SALE               
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 18960000
      ******************************************************************18970000
       P0492-ACUM11-TOTALS.                                             
      ******************************************************************18990000
      *                                                                 19000000
           ADD 1 TO WS-AYTD11-CUST                                      
           IF CK-APPL-STATUS-CD  = 'C'                                  
               ADD 1 TO WS-AYTD11-CNTU-DEP                              
           ELSE                                                         
               IF CK-APPL-STATUS-CD = 'O'                               
                   ADD 1 TO WS-AYTD11-ONHD-DEP                          
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'D'                            
                     ADD 1 TO WS-AYTD11-DENY-DEP                        
                  END-IF                                                
               END-IF                                                   
           END-IF                                                       
ACT001     IF CK-CR-ACTION-FL  = 'D'                                    
ACT001        ADD 1 TO WS-AYTD11-RATE-D                                 
ACT001     ELSE                                                         
ACT001       IF CK-CR-ACTION-FL = 'I'                                   
ACT001          ADD 1 TO WS-AYTD11-RATE-I                               
ACT001       ELSE                                                       
ACT001         IF CK-CR-ACTION-FL = 'E'                                 
ACT001            ADD 1 TO WS-AYTD11-RATE-E                             
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'H'                               
ACT001              ADD 1 TO WS-AYTD11-RATE-H                           
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'G'                             
ACT001                ADD 1 TO WS-AYTD11-RATE-G                         
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'F'                           
ACT001                  ADD 1 TO WS-AYTD11-RATE-F                       
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'O'                         
ACT001                    ADD 1 TO WS-AYTD11-CSH-SALE                   
ACT001                 END-IF                                           
ACT001               END-IF                                             
ACT001             END-IF                                               
                 END-IF                                                 
               END-IF                                                   
             END-IF                                                     
           END-IF                                                       
      *                                                                 19280000
ACT057     IF WS-TRANS-DATE-NUM NOT < WS-MONTH-BDATE AND                
ACT057        WS-TRANS-DATE-NUM NOT > WS-MONTH-EDATE                    
               ADD 1 TO WS-ACUM11-CUST                                  
               IF CK-APPL-STATUS-CD  = 'C'                              
                  ADD 1 TO WS-ACUM11-CNTU-DEP                           
               ELSE                                                     
                  IF CK-APPL-STATUS-CD = 'O'                            
                     ADD 1 TO WS-ACUM11-ONHD-DEP                        
                  ELSE                                                  
                     IF CK-APPL-STATUS-CD = 'D'                         
                        ADD 1 TO WS-ACUM11-DENY-DEP                     
                     END-IF                                             
                  END-IF                                                
               END-IF                                                   
ACT001         IF CK-CR-ACTION-FL  = 'D'                                
ACT001            ADD 1 TO WS-ACUM11-RATE-D                             
ACT001         ELSE                                                     
ACT001           IF CK-CR-ACTION-FL = 'I'                               
ACT001              ADD 1 TO WS-ACUM11-RATE-I                           
ACT001           ELSE                                                   
ACT001             IF CK-CR-ACTION-FL = 'E'                             
ACT001                ADD 1 TO WS-ACUM11-RATE-E                         
ACT001             ELSE                                                 
ACT001               IF CK-CR-ACTION-FL = 'H'                           
ACT001                 ADD 1 TO WS-ACUM11-RATE-H                        
ACT001               ELSE                                               
ACT001                 IF CK-CR-ACTION-FL = 'G'                         
ACT001                    ADD 1 TO WS-ACUM11-RATE-G                     
ACT001                 ELSE                                             
ACT001                   IF CK-CR-ACTION-FL = 'F'                       
ACT001                      ADD 1 TO WS-ACUM11-RATE-F                   
ACT001                   ELSE                                           
ACT001                     IF CK-CR-ACTION-FL = 'O'                     
ACT001                        ADD 1 TO WS-ACUM11-CSH-SALE               
ACT001                     END-IF                                       
ACT001                   END-IF                                         
ACT001                 END-IF                                           
                     END-IF                                             
                   END-IF                                               
                 END-IF                                                 
               END-IF                                                   
           END-IF.                                                      
      *                                                                 19590000
      ******************************************************************19600000
       P0600-TOTAL.                                                     
      ******************************************************************19620000
                                                                        
           ADD WS-ACUMN-CUST                                            
               WS-ACUM1-CUST WS-ACUM2-CUST WS-ACUM3-CUST                
               WS-ACUM4-CUST WS-ACUM5-CUST WS-ACUM6-CUST                
               WS-ACUM7-CUST WS-ACUM8-CUST WS-ACUM9-CUST                
               WS-ACUM10-CUST WS-ACUM11-CUST GIVING WS-ACUM13-CUST.     
                                                                        
           MOVE WS-ACUMN-CUST     TO WS-TOTN-CUST.                      
ACT001     MOVE WS-ACUMN-RATE-D   TO WS-TOTN-RATE-D.                    
ACT001     MOVE WS-ACUMN-RATE-I   TO WS-TOTN-RATE-I.                    
           MOVE WS-ACUMN-CNTU-DEP TO WS-TOTN-CNTU-DEP.                  
           MOVE WS-ACUMN-ONHD-DEP TO WS-TOTN-ONHD-DEP.                  
ACT001     MOVE WS-ACUMN-RATE-E   TO WS-TOTN-RATE-E.                    
ACT001     MOVE WS-ACUMN-RATE-H   TO WS-TOTN-RATE-H.                    
ACT001     MOVE WS-ACUMN-RATE-G   TO WS-TOTN-RATE-G.                    
ACT001     MOVE WS-ACUMN-RATE-F   TO WS-TOTN-RATE-F.                    
           MOVE WS-ACUMN-CSH-SALE TO WS-TOTN-CSH-SALE.                  
           MOVE WS-ACUMN-DENY-DEP TO WS-TOTN-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUMN-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOTN-PERCENT.                          
           MOVE WS-TOTAL-N TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 19880000
           MOVE WS-ACUM1-CUST     TO WS-TOT1-CUST.                      
ACT001     MOVE WS-ACUM1-RATE-D   TO WS-TOT1-RATE-D.                    
ACT001     MOVE WS-ACUM1-RATE-I   TO WS-TOT1-RATE-I.                    
           MOVE WS-ACUM1-CNTU-DEP TO WS-TOT1-CNTU-DEP.                  
           MOVE WS-ACUM1-ONHD-DEP TO WS-TOT1-ONHD-DEP.                  
ACT001     MOVE WS-ACUM1-RATE-E   TO WS-TOT1-RATE-E.                    
ACT001     MOVE WS-ACUM1-RATE-H   TO WS-TOT1-RATE-H.                    
ACT001     MOVE WS-ACUM1-RATE-G   TO WS-TOT1-RATE-G.                    
ACT001     MOVE WS-ACUM1-RATE-F   TO WS-TOT1-RATE-F.                    
           MOVE WS-ACUM1-CSH-SALE TO WS-TOT1-CSH-SALE.                  
           MOVE WS-ACUM1-DENY-DEP TO WS-TOT1-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM1-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT1-PERCENT.                          
           MOVE WS-TOTAL-1 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 20070000
           MOVE WS-ACUM2-CUST     TO WS-TOT2-CUST.                      
ACT001     MOVE WS-ACUM2-RATE-D   TO WS-TOT2-RATE-D.                    
ACT001     MOVE WS-ACUM2-RATE-I   TO WS-TOT2-RATE-I.                    
           MOVE WS-ACUM2-CNTU-DEP TO WS-TOT2-CNTU-DEP.                  
           MOVE WS-ACUM2-ONHD-DEP TO WS-TOT2-ONHD-DEP.                  
ACT001     MOVE WS-ACUM2-RATE-E   TO WS-TOT2-RATE-E.                    
ACT001     MOVE WS-ACUM2-RATE-H   TO WS-TOT2-RATE-H.                    
ACT001     MOVE WS-ACUM2-RATE-G   TO WS-TOT2-RATE-G.                    
ACT001     MOVE WS-ACUM2-RATE-F   TO WS-TOT2-RATE-F.                    
           MOVE WS-ACUM2-CSH-SALE TO WS-TOT2-CSH-SALE.                  
           MOVE WS-ACUM2-DENY-DEP TO WS-TOT2-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM2-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT2-PERCENT.                          
           MOVE WS-TOTAL-2 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 20260000
           MOVE WS-ACUM3-CUST     TO WS-TOT3-CUST.                      
ACT001     MOVE WS-ACUM3-RATE-D   TO WS-TOT3-RATE-D.                    
ACT001     MOVE WS-ACUM3-RATE-I   TO WS-TOT3-RATE-I.                    
           MOVE WS-ACUM3-CNTU-DEP TO WS-TOT3-CNTU-DEP.                  
           MOVE WS-ACUM3-ONHD-DEP TO WS-TOT3-ONHD-DEP.                  
ACT001     MOVE WS-ACUM3-RATE-E   TO WS-TOT3-RATE-E.                    
ACT001     MOVE WS-ACUM3-RATE-H   TO WS-TOT3-RATE-H.                    
ACT001     MOVE WS-ACUM3-RATE-G   TO WS-TOT3-RATE-G.                    
ACT001     MOVE WS-ACUM3-RATE-F   TO WS-TOT3-RATE-F.                    
           MOVE WS-ACUM3-CSH-SALE TO WS-TOT3-CSH-SALE.                  
           MOVE WS-ACUM3-DENY-DEP TO WS-TOT3-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM3-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT3-PERCENT.                          
           MOVE WS-TOTAL-3 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 20450000
           MOVE WS-ACUM4-CUST     TO WS-TOT4-CUST.                      
ACT001     MOVE WS-ACUM4-RATE-D   TO WS-TOT4-RATE-D.                    
ACT001     MOVE WS-ACUM4-RATE-I   TO WS-TOT4-RATE-I.                    
           MOVE WS-ACUM4-CNTU-DEP TO WS-TOT4-CNTU-DEP.                  
           MOVE WS-ACUM4-ONHD-DEP TO WS-TOT4-ONHD-DEP.                  
ACT001     MOVE WS-ACUM4-RATE-E   TO WS-TOT4-RATE-E.                    
ACT001     MOVE WS-ACUM4-RATE-H   TO WS-TOT4-RATE-H.                    
ACT001     MOVE WS-ACUM4-RATE-G   TO WS-TOT4-RATE-G.                    
ACT001     MOVE WS-ACUM4-RATE-F   TO WS-TOT4-RATE-F.                    
           MOVE WS-ACUM4-CSH-SALE TO WS-TOT4-CSH-SALE.                  
           MOVE WS-ACUM4-DENY-DEP TO WS-TOT4-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM4-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT4-PERCENT.                          
           MOVE WS-TOTAL-4 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 20640000
           MOVE WS-ACUM5-CUST     TO WS-TOT5-CUST.                      
ACT001     MOVE WS-ACUM5-RATE-D   TO WS-TOT5-RATE-D.                    
ACT001     MOVE WS-ACUM5-RATE-I   TO WS-TOT5-RATE-I.                    
           MOVE WS-ACUM5-CNTU-DEP TO WS-TOT5-CNTU-DEP.                  
           MOVE WS-ACUM5-ONHD-DEP TO WS-TOT5-ONHD-DEP.                  
ACT001     MOVE WS-ACUM5-RATE-E   TO WS-TOT5-RATE-E.                    
ACT001     MOVE WS-ACUM5-RATE-H   TO WS-TOT5-RATE-H.                    
ACT001     MOVE WS-ACUM5-RATE-G   TO WS-TOT5-RATE-G.                    
ACT001     MOVE WS-ACUM5-RATE-F   TO WS-TOT5-RATE-F.                    
           MOVE WS-ACUM5-CSH-SALE TO WS-TOT5-CSH-SALE.                  
           MOVE WS-ACUM5-DENY-DEP TO WS-TOT5-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM5-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT5-PERCENT.                          
           MOVE WS-TOTAL-5 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 20830000
           MOVE WS-ACUM6-CUST     TO WS-TOT6-CUST.                      
ACT001     MOVE WS-ACUM6-RATE-D   TO WS-TOT6-RATE-D.                    
ACT001     MOVE WS-ACUM6-RATE-I   TO WS-TOT6-RATE-I.                    
           MOVE WS-ACUM6-CNTU-DEP TO WS-TOT6-CNTU-DEP.                  
           MOVE WS-ACUM6-ONHD-DEP TO WS-TOT6-ONHD-DEP.                  
ACT001     MOVE WS-ACUM6-RATE-E   TO WS-TOT6-RATE-E.                    
ACT001     MOVE WS-ACUM6-RATE-H   TO WS-TOT6-RATE-H.                    
ACT001     MOVE WS-ACUM6-RATE-G   TO WS-TOT6-RATE-G.                    
ACT001     MOVE WS-ACUM6-RATE-F   TO WS-TOT6-RATE-F.                    
           MOVE WS-ACUM6-CSH-SALE TO WS-TOT6-CSH-SALE.                  
           MOVE WS-ACUM6-DENY-DEP TO WS-TOT6-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM6-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT6-PERCENT.                          
           MOVE WS-TOTAL-6 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 21020000
           MOVE WS-ACUM7-CUST     TO WS-TOT7-CUST.                      
ACT001     MOVE WS-ACUM7-RATE-D   TO WS-TOT7-RATE-D.                    
ACT001     MOVE WS-ACUM7-RATE-I   TO WS-TOT7-RATE-I.                    
           MOVE WS-ACUM7-CNTU-DEP TO WS-TOT7-CNTU-DEP.                  
           MOVE WS-ACUM7-ONHD-DEP TO WS-TOT7-ONHD-DEP.                  
ACT001     MOVE WS-ACUM7-RATE-E   TO WS-TOT7-RATE-E.                    
ACT001     MOVE WS-ACUM7-RATE-H   TO WS-TOT7-RATE-H.                    
ACT001     MOVE WS-ACUM7-RATE-G   TO WS-TOT7-RATE-G.                    
ACT001     MOVE WS-ACUM7-RATE-F   TO WS-TOT7-RATE-F.                    
           MOVE WS-ACUM7-CSH-SALE TO WS-TOT7-CSH-SALE.                  
           MOVE WS-ACUM7-DENY-DEP TO WS-TOT7-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM7-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT7-PERCENT.                          
           MOVE WS-TOTAL-7 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 21210000
           MOVE WS-ACUM8-CUST     TO WS-TOT8-CUST.                      
ACT001     MOVE WS-ACUM8-RATE-D   TO WS-TOT8-RATE-D.                    
ACT001     MOVE WS-ACUM8-RATE-I   TO WS-TOT8-RATE-I.                    
           MOVE WS-ACUM8-CNTU-DEP TO WS-TOT8-CNTU-DEP.                  
           MOVE WS-ACUM8-ONHD-DEP TO WS-TOT8-ONHD-DEP.                  
ACT001     MOVE WS-ACUM8-RATE-E   TO WS-TOT8-RATE-E.                    
ACT001     MOVE WS-ACUM8-RATE-H   TO WS-TOT8-RATE-H.                    
ACT001     MOVE WS-ACUM8-RATE-G   TO WS-TOT8-RATE-G.                    
ACT001     MOVE WS-ACUM8-RATE-F   TO WS-TOT8-RATE-F.                    
           MOVE WS-ACUM8-CSH-SALE TO WS-TOT8-CSH-SALE.                  
           MOVE WS-ACUM8-DENY-DEP TO WS-TOT8-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM8-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT8-PERCENT.                          
           MOVE WS-TOTAL-8 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 21400000
           MOVE WS-ACUM9-CUST     TO WS-TOT9-CUST.                      
ACT001     MOVE WS-ACUM9-RATE-D   TO WS-TOT9-RATE-D.                    
ACT001     MOVE WS-ACUM9-RATE-I   TO WS-TOT9-RATE-I.                    
           MOVE WS-ACUM9-CNTU-DEP TO WS-TOT9-CNTU-DEP.                  
           MOVE WS-ACUM9-ONHD-DEP TO WS-TOT9-ONHD-DEP.                  
ACT001     MOVE WS-ACUM9-RATE-E   TO WS-TOT9-RATE-E.                    
ACT001     MOVE WS-ACUM9-RATE-H   TO WS-TOT9-RATE-H.                    
ACT001     MOVE WS-ACUM9-RATE-G   TO WS-TOT9-RATE-G.                    
ACT001     MOVE WS-ACUM9-RATE-F   TO WS-TOT9-RATE-F.                    
           MOVE WS-ACUM9-CSH-SALE TO WS-TOT9-CSH-SALE.                  
           MOVE WS-ACUM9-DENY-DEP TO WS-TOT9-DENY-DEP.                  
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM9-CUST BY 100                            
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT9-PERCENT.                          
           MOVE WS-TOTAL-9 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 21590000
           MOVE WS-ACUM10-CUST     TO WS-TOT10-CUST.                    
ACT001     MOVE WS-ACUM10-RATE-D   TO WS-TOT10-RATE-D.                  
ACT001     MOVE WS-ACUM10-RATE-I   TO WS-TOT10-RATE-I.                  
           MOVE WS-ACUM10-CNTU-DEP TO WS-TOT10-CNTU-DEP.                
           MOVE WS-ACUM10-ONHD-DEP TO WS-TOT10-ONHD-DEP.                
ACT001     MOVE WS-ACUM10-RATE-E   TO WS-TOT10-RATE-E.                  
ACT001     MOVE WS-ACUM10-RATE-H   TO WS-TOT10-RATE-H.                  
ACT001     MOVE WS-ACUM10-RATE-G   TO WS-TOT10-RATE-G.                  
ACT001     MOVE WS-ACUM10-RATE-F   TO WS-TOT10-RATE-F.                  
           MOVE WS-ACUM10-CSH-SALE TO WS-TOT10-CSH-SALE.                
           MOVE WS-ACUM10-DENY-DEP TO WS-TOT10-DENY-DEP.                
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM10-CUST BY 100                           
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES  TO WS-PERCENT
           END-IF.                              
           MOVE WS-PERCENT  TO WS-TOT10-PERCENT.                        
           MOVE WS-TOTAL-10 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 21780000
           MOVE WS-ACUM11-CUST     TO WS-TOT11-CUST.                    
ACT001     MOVE WS-ACUM11-RATE-D   TO WS-TOT11-RATE-D.                  
ACT001     MOVE WS-ACUM11-RATE-I   TO WS-TOT11-RATE-I.                  
           MOVE WS-ACUM11-CNTU-DEP TO WS-TOT11-CNTU-DEP.                
           MOVE WS-ACUM11-ONHD-DEP TO WS-TOT11-ONHD-DEP.                
ACT001     MOVE WS-ACUM11-RATE-E   TO WS-TOT11-RATE-E.                  
ACT001     MOVE WS-ACUM11-RATE-H   TO WS-TOT11-RATE-H.                  
ACT001     MOVE WS-ACUM11-RATE-G   TO WS-TOT11-RATE-G.                  
ACT001     MOVE WS-ACUM11-RATE-F   TO WS-TOT11-RATE-F.                  
           MOVE WS-ACUM11-CSH-SALE TO WS-TOT11-CSH-SALE.                
           MOVE WS-ACUM11-DENY-DEP TO WS-TOT11-DENY-DEP.                
           IF WS-ACUM13-CUST NOT = ZEROES                               
               MULTIPLY WS-ACUM11-CUST BY 100                           
                   GIVING WS-ACUM-CUST-100                              
               DIVIDE WS-ACUM-CUST-100 BY WS-ACUM13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES  TO WS-PERCENT
           END-IF.                              
           MOVE WS-PERCENT  TO WS-TOT11-PERCENT.                        
           MOVE WS-TOTAL-11 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 21970000
           MOVE WS-TOTAL-12 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 22000000
ACT001     ADD WS-ACUMN-RATE-D                                          
ACT001         WS-ACUM1-RATE-D WS-ACUM2-RATE-D WS-ACUM3-RATE-D          
ACT001         WS-ACUM4-RATE-D WS-ACUM5-RATE-D WS-ACUM6-RATE-D          
ACT001         WS-ACUM7-RATE-D WS-ACUM8-RATE-D WS-ACUM9-RATE-D          
ACT001         WS-ACUM10-RATE-D WS-ACUM11-RATE-D                        
ACT001         GIVING WS-ACUM13-RATE-D.                                 
ACT001     ADD WS-ACUMN-RATE-I                                          
ACT001         WS-ACUM1-RATE-I WS-ACUM2-RATE-I WS-ACUM3-RATE-I          
ACT001         WS-ACUM4-RATE-I WS-ACUM5-RATE-I WS-ACUM6-RATE-I          
ACT001         WS-ACUM7-RATE-I WS-ACUM8-RATE-I WS-ACUM9-RATE-I          
ACT001         WS-ACUM10-RATE-I WS-ACUM11-RATE-I                        
ACT001         GIVING WS-ACUM13-RATE-I.                                 
           ADD WS-ACUMN-CNTU-DEP                                        
               WS-ACUM1-CNTU-DEP WS-ACUM2-CNTU-DEP WS-ACUM3-CNTU-DEP    
               WS-ACUM4-CNTU-DEP WS-ACUM5-CNTU-DEP WS-ACUM6-CNTU-DEP    
               WS-ACUM7-CNTU-DEP WS-ACUM8-CNTU-DEP WS-ACUM9-CNTU-DEP    
               WS-ACUM10-CNTU-DEP WS-ACUM11-CNTU-DEP                    
               GIVING WS-ACUM13-CNTU-DEP.                               
           ADD WS-ACUMN-ONHD-DEP                                        
               WS-ACUM1-ONHD-DEP WS-ACUM2-ONHD-DEP WS-ACUM3-ONHD-DEP    
               WS-ACUM4-ONHD-DEP WS-ACUM5-ONHD-DEP WS-ACUM6-ONHD-DEP    
               WS-ACUM7-ONHD-DEP WS-ACUM8-ONHD-DEP WS-ACUM9-ONHD-DEP    
               WS-ACUM10-ONHD-DEP WS-ACUM11-ONHD-DEP                    
               GIVING WS-ACUM13-ONHD-DEP.                               
ACT001     ADD WS-ACUMN-RATE-E                                          
ACT001         WS-ACUM1-RATE-E WS-ACUM2-RATE-E WS-ACUM3-RATE-E          
ACT001         WS-ACUM4-RATE-E WS-ACUM5-RATE-E WS-ACUM6-RATE-E          
ACT001         WS-ACUM7-RATE-E WS-ACUM8-RATE-E WS-ACUM9-RATE-E          
ACT001         WS-ACUM10-RATE-E WS-ACUM11-RATE-E                        
ACT001         GIVING WS-ACUM13-RATE-E.                                 
ACT001     ADD WS-ACUMN-RATE-G                                          
ACT001         WS-ACUM1-RATE-G WS-ACUM2-RATE-G WS-ACUM3-RATE-G          
ACT001         WS-ACUM4-RATE-G WS-ACUM5-RATE-G WS-ACUM6-RATE-G          
ACT001         WS-ACUM7-RATE-G WS-ACUM8-RATE-G WS-ACUM9-RATE-G          
ACT001         WS-ACUM10-RATE-G WS-ACUM11-RATE-G                        
ACT001         GIVING WS-ACUM13-RATE-G.                                 
ACT001     ADD WS-ACUMN-RATE-H                                          
ACT001         WS-ACUM1-RATE-H WS-ACUM2-RATE-H WS-ACUM3-RATE-H          
ACT001         WS-ACUM4-RATE-H WS-ACUM5-RATE-H WS-ACUM6-RATE-H          
ACT001         WS-ACUM7-RATE-H WS-ACUM8-RATE-H WS-ACUM9-RATE-H          
ACT001         WS-ACUM10-RATE-H WS-ACUM11-RATE-H                        
ACT001         GIVING WS-ACUM13-RATE-H.                                 
ACT001     ADD WS-ACUMN-RATE-F                                          
ACT001         WS-ACUM1-RATE-F WS-ACUM2-RATE-F WS-ACUM3-RATE-F          
ACT001         WS-ACUM4-RATE-F WS-ACUM5-RATE-F WS-ACUM6-RATE-F          
ACT001         WS-ACUM7-RATE-F WS-ACUM8-RATE-F WS-ACUM9-RATE-F          
ACT001         WS-ACUM10-RATE-F WS-ACUM11-RATE-F                        
ACT001         GIVING WS-ACUM13-RATE-F.                                 
           ADD WS-ACUMN-CSH-SALE                                        
               WS-ACUM1-CSH-SALE WS-ACUM2-CSH-SALE WS-ACUM3-CSH-SALE    
               WS-ACUM4-CSH-SALE WS-ACUM5-CSH-SALE WS-ACUM6-CSH-SALE    
               WS-ACUM7-CSH-SALE WS-ACUM8-CSH-SALE WS-ACUM9-CSH-SALE    
               WS-ACUM10-CSH-SALE WS-ACUM11-CSH-SALE                    
               GIVING WS-ACUM13-CSH-SALE.                               
           ADD WS-ACUMN-DENY-DEP                                        
               WS-ACUM1-DENY-DEP WS-ACUM2-DENY-DEP WS-ACUM3-DENY-DEP    
               WS-ACUM4-DENY-DEP WS-ACUM5-DENY-DEP WS-ACUM6-DENY-DEP    
               WS-ACUM7-DENY-DEP WS-ACUM8-DENY-DEP WS-ACUM9-DENY-DEP    
               WS-ACUM10-DENY-DEP WS-ACUM11-DENY-DEP                    
               GIVING WS-ACUM13-DENY-DEP.                               
           MOVE WS-ACUM13-CUST     TO WS-TOT13-CUST.                    
ACT001     MOVE WS-ACUM13-RATE-D   TO WS-TOT13-RATE-D.                  
ACT001     MOVE WS-ACUM13-RATE-I   TO WS-TOT13-RATE-I.                  
           MOVE WS-ACUM13-CNTU-DEP TO WS-TOT13-CNTU-DEP.                
           MOVE WS-ACUM13-ONHD-DEP TO WS-TOT13-ONHD-DEP.                
ACT001     MOVE WS-ACUM13-RATE-E   TO WS-TOT13-RATE-E.                  
ACT001     MOVE WS-ACUM13-RATE-H   TO WS-TOT13-RATE-H.                  
ACT001     MOVE WS-ACUM13-RATE-G   TO WS-TOT13-RATE-G.                  
ACT001     MOVE WS-ACUM13-RATE-F   TO WS-TOT13-RATE-F.                  
           MOVE WS-ACUM13-CSH-SALE TO WS-TOT13-CSH-SALE.                
           MOVE WS-ACUM13-DENY-DEP TO WS-TOT13-DENY-DEP.                
           MOVE WS-TOTAL-13 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 22530000
           MOVE SPACES         TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
           MOVE WS-HEADER-1YTD TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE WS-YTD-BMM     TO WS-HD2-BEG-MM.                        
           MOVE WS-YTD-BDD     TO WS-HD2-BEG-DD.                        
           MOVE WS-HEADER-2    TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
           MOVE SPACES         TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE WS-HEADER-3    TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
           MOVE WS-HEADER-4    TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           MOVE SPACES         TO PRNTFILE-RECORD.                      
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
                                                                        
           ADD WS-AYTDN-CUST                                            
               WS-AYTD1-CUST WS-AYTD2-CUST WS-AYTD3-CUST                
               WS-AYTD4-CUST WS-AYTD5-CUST WS-AYTD6-CUST                
               WS-AYTD7-CUST WS-AYTD8-CUST WS-AYTD9-CUST                
               WS-AYTD10-CUST WS-AYTD11-CUST                            
               GIVING WS-AYTD13-CUST.                                   
                                                                        
           MOVE WS-AYTDN-CUST     TO WS-TOTN-CUST.                      
ACT001     MOVE WS-AYTDN-RATE-D   TO WS-TOTN-RATE-D.                    
ACT001     MOVE WS-AYTDN-RATE-I   TO WS-TOTN-RATE-I.                    
           MOVE WS-AYTDN-CNTU-DEP TO WS-TOTN-CNTU-DEP.                  
           MOVE WS-AYTDN-ONHD-DEP TO WS-TOTN-ONHD-DEP.                  
ACT001     MOVE WS-AYTDN-RATE-E   TO WS-TOTN-RATE-E.                    
ACT001     MOVE WS-AYTDN-RATE-H   TO WS-TOTN-RATE-H.                    
ACT001     MOVE WS-AYTDN-RATE-G   TO WS-TOTN-RATE-G.                    
ACT001     MOVE WS-AYTDN-RATE-F   TO WS-TOTN-RATE-F.                    
           MOVE WS-AYTDN-CSH-SALE TO WS-TOTN-CSH-SALE.                  
           MOVE WS-AYTDN-DENY-DEP TO WS-TOTN-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTDN-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOTN-PERCENT.                          
           MOVE WS-TOTAL-N TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 23000000
           MOVE WS-AYTD1-CUST     TO WS-TOT1-CUST.                      
ACT001     MOVE WS-AYTD1-RATE-D   TO WS-TOT1-RATE-D.                    
ACT001     MOVE WS-AYTD1-RATE-I   TO WS-TOT1-RATE-I.                    
           MOVE WS-AYTD1-CNTU-DEP TO WS-TOT1-CNTU-DEP.                  
           MOVE WS-AYTD1-ONHD-DEP TO WS-TOT1-ONHD-DEP.                  
ACT001     MOVE WS-AYTD1-RATE-E   TO WS-TOT1-RATE-E.                    
ACT001     MOVE WS-AYTD1-RATE-H   TO WS-TOT1-RATE-H.                    
ACT001     MOVE WS-AYTD1-RATE-G   TO WS-TOT1-RATE-G.                    
ACT001     MOVE WS-AYTD1-RATE-F   TO WS-TOT1-RATE-F.                    
           MOVE WS-AYTD1-CSH-SALE TO WS-TOT1-CSH-SALE.                  
           MOVE WS-AYTD1-DENY-DEP TO WS-TOT1-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD1-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT1-PERCENT.                          
           MOVE WS-TOTAL-1 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 23190000
           MOVE WS-AYTD2-CUST     TO WS-TOT2-CUST.                      
ACT001     MOVE WS-AYTD2-RATE-D   TO WS-TOT2-RATE-D.                    
ACT001     MOVE WS-AYTD2-RATE-I   TO WS-TOT2-RATE-I.                    
           MOVE WS-AYTD2-CNTU-DEP TO WS-TOT2-CNTU-DEP.                  
           MOVE WS-AYTD2-ONHD-DEP TO WS-TOT2-ONHD-DEP.                  
ACT001     MOVE WS-AYTD2-RATE-E   TO WS-TOT2-RATE-E.                    
ACT001     MOVE WS-AYTD2-RATE-H   TO WS-TOT2-RATE-H.                    
ACT001     MOVE WS-AYTD2-RATE-G   TO WS-TOT2-RATE-G.                    
ACT001     MOVE WS-AYTD2-RATE-F   TO WS-TOT2-RATE-F.                    
           MOVE WS-AYTD2-CSH-SALE TO WS-TOT2-CSH-SALE.                  
           MOVE WS-AYTD2-DENY-DEP TO WS-TOT2-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD2-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT2-PERCENT.                          
           MOVE WS-TOTAL-2 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 23380000
           MOVE WS-AYTD3-CUST     TO WS-TOT3-CUST.                      
ACT001     MOVE WS-AYTD3-RATE-D   TO WS-TOT3-RATE-D.                    
ACT001     MOVE WS-AYTD3-RATE-I   TO WS-TOT3-RATE-I.                    
           MOVE WS-AYTD3-CNTU-DEP TO WS-TOT3-CNTU-DEP.                  
           MOVE WS-AYTD3-ONHD-DEP TO WS-TOT3-ONHD-DEP.                  
ACT001     MOVE WS-AYTD3-RATE-E   TO WS-TOT3-RATE-E.                    
ACT001     MOVE WS-AYTD3-RATE-H   TO WS-TOT3-RATE-H.                    
ACT001     MOVE WS-AYTD3-RATE-G   TO WS-TOT3-RATE-G.                    
ACT001     MOVE WS-AYTD3-RATE-F   TO WS-TOT3-RATE-F.                    
           MOVE WS-AYTD3-CSH-SALE TO WS-TOT3-CSH-SALE.                  
           MOVE WS-AYTD3-DENY-DEP TO WS-TOT3-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD3-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT3-PERCENT.                          
           MOVE WS-TOTAL-3 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 23570000
           MOVE WS-AYTD4-CUST     TO WS-TOT4-CUST.                      
ACT001     MOVE WS-AYTD4-RATE-D   TO WS-TOT4-RATE-D.                    
ACT001     MOVE WS-AYTD4-RATE-I   TO WS-TOT4-RATE-I.                    
           MOVE WS-AYTD4-CNTU-DEP TO WS-TOT4-CNTU-DEP.                  
           MOVE WS-AYTD4-ONHD-DEP TO WS-TOT4-ONHD-DEP.                  
ACT001     MOVE WS-AYTD4-RATE-E   TO WS-TOT4-RATE-E.                    
ACT001     MOVE WS-AYTD4-RATE-H   TO WS-TOT4-RATE-H.                    
ACT001     MOVE WS-AYTD4-RATE-G   TO WS-TOT4-RATE-G.                    
ACT001     MOVE WS-AYTD4-RATE-F   TO WS-TOT4-RATE-F.                    
           MOVE WS-AYTD4-CSH-SALE TO WS-TOT4-CSH-SALE.                  
           MOVE WS-AYTD4-DENY-DEP TO WS-TOT4-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD4-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT4-PERCENT.                          
           MOVE WS-TOTAL-4 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 23760000
           MOVE WS-AYTD5-CUST TO WS-TOT5-CUST.                          
ACT001     MOVE WS-AYTD5-RATE-D   TO WS-TOT5-RATE-D.                    
ACT001     MOVE WS-AYTD5-RATE-I   TO WS-TOT5-RATE-I.                    
           MOVE WS-AYTD5-CNTU-DEP TO WS-TOT5-CNTU-DEP.                  
           MOVE WS-AYTD5-ONHD-DEP TO WS-TOT5-ONHD-DEP.                  
ACT001     MOVE WS-AYTD5-RATE-E   TO WS-TOT5-RATE-E.                    
ACT001     MOVE WS-AYTD5-RATE-H   TO WS-TOT5-RATE-H.                    
ACT001     MOVE WS-AYTD5-RATE-G   TO WS-TOT5-RATE-G.                    
ACT001     MOVE WS-AYTD5-RATE-F   TO WS-TOT5-RATE-F.                    
           MOVE WS-AYTD5-CSH-SALE TO WS-TOT5-CSH-SALE.                  
           MOVE WS-AYTD5-DENY-DEP TO WS-TOT5-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD5-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT5-PERCENT.                          
           MOVE WS-TOTAL-5 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 23950000
           MOVE WS-AYTD6-CUST TO WS-TOT6-CUST.                          
ACT001     MOVE WS-AYTD6-RATE-D   TO WS-TOT6-RATE-D.                    
ACT001     MOVE WS-AYTD6-RATE-I   TO WS-TOT6-RATE-I.                    
           MOVE WS-AYTD6-CNTU-DEP TO WS-TOT6-CNTU-DEP.                  
           MOVE WS-AYTD6-ONHD-DEP TO WS-TOT6-ONHD-DEP.                  
ACT001     MOVE WS-AYTD6-RATE-E   TO WS-TOT6-RATE-E.                    
ACT001     MOVE WS-AYTD6-RATE-H   TO WS-TOT6-RATE-H.                    
ACT001     MOVE WS-AYTD6-RATE-G   TO WS-TOT6-RATE-G.                    
ACT001     MOVE WS-AYTD6-RATE-F   TO WS-TOT6-RATE-F.                    
           MOVE WS-AYTD6-CSH-SALE TO WS-TOT6-CSH-SALE.                  
           MOVE WS-AYTD6-DENY-DEP TO WS-TOT6-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD6-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT6-PERCENT.                          
           MOVE WS-TOTAL-6 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 24140000
           MOVE WS-AYTD7-CUST TO WS-TOT7-CUST.                          
ACT001     MOVE WS-AYTD7-RATE-D   TO WS-TOT7-RATE-D.                    
ACT001     MOVE WS-AYTD7-RATE-I   TO WS-TOT7-RATE-I.                    
           MOVE WS-AYTD7-CNTU-DEP TO WS-TOT7-CNTU-DEP.                  
           MOVE WS-AYTD7-ONHD-DEP TO WS-TOT7-ONHD-DEP.                  
ACT001     MOVE WS-AYTD7-RATE-E   TO WS-TOT7-RATE-E.                    
ACT001     MOVE WS-AYTD7-RATE-H   TO WS-TOT7-RATE-H.                    
ACT001     MOVE WS-AYTD7-RATE-G   TO WS-TOT7-RATE-G.                    
ACT001     MOVE WS-AYTD7-RATE-F   TO WS-TOT7-RATE-F.                    
           MOVE WS-AYTD7-CSH-SALE TO WS-TOT7-CSH-SALE.                  
           MOVE WS-AYTD7-DENY-DEP TO WS-TOT7-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD7-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT7-PERCENT.                          
           MOVE WS-TOTAL-7 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 24330000
           MOVE WS-AYTD8-CUST     TO WS-TOT8-CUST.                      
ACT001     MOVE WS-AYTD8-RATE-D   TO WS-TOT8-RATE-D.                    
ACT001     MOVE WS-AYTD8-RATE-I   TO WS-TOT8-RATE-I.                    
           MOVE WS-AYTD8-CNTU-DEP TO WS-TOT8-CNTU-DEP.                  
           MOVE WS-AYTD8-ONHD-DEP TO WS-TOT8-ONHD-DEP.                  
ACT001     MOVE WS-AYTD8-RATE-E   TO WS-TOT8-RATE-E.                    
ACT001     MOVE WS-AYTD8-RATE-H   TO WS-TOT8-RATE-H.                    
ACT001     MOVE WS-AYTD8-RATE-G   TO WS-TOT8-RATE-G.                    
ACT001     MOVE WS-AYTD8-RATE-F   TO WS-TOT8-RATE-F.                    
           MOVE WS-AYTD8-CSH-SALE TO WS-TOT8-CSH-SALE.                  
           MOVE WS-AYTD8-DENY-DEP TO WS-TOT8-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD8-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT8-PERCENT.                          
           MOVE WS-TOTAL-8 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 24520000
           MOVE WS-AYTD9-CUST     TO WS-TOT9-CUST.                      
ACT001     MOVE WS-AYTD9-RATE-D   TO WS-TOT9-RATE-D.                    
ACT001     MOVE WS-AYTD9-RATE-I   TO WS-TOT9-RATE-I.                    
           MOVE WS-AYTD9-CNTU-DEP TO WS-TOT9-CNTU-DEP.                  
           MOVE WS-AYTD9-ONHD-DEP TO WS-TOT9-ONHD-DEP.                  
ACT001     MOVE WS-AYTD9-RATE-E   TO WS-TOT9-RATE-E.                    
ACT001     MOVE WS-AYTD9-RATE-H   TO WS-TOT9-RATE-H.                    
ACT001     MOVE WS-AYTD9-RATE-G   TO WS-TOT9-RATE-G.                    
ACT001     MOVE WS-AYTD9-RATE-F   TO WS-TOT9-RATE-F.                    
           MOVE WS-AYTD9-CSH-SALE TO WS-TOT9-CSH-SALE.                  
           MOVE WS-AYTD9-DENY-DEP TO WS-TOT9-DENY-DEP.                  
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD9-CUST BY 100                            
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT9-PERCENT.                          
           MOVE WS-TOTAL-9 TO PRNTFILE-RECORD.                          
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 24710000
           MOVE WS-AYTD10-CUST     TO WS-TOT10-CUST.                    
ACT001     MOVE WS-AYTD10-RATE-D   TO WS-TOT10-RATE-D.                  
ACT001     MOVE WS-AYTD10-RATE-I   TO WS-TOT10-RATE-I.                  
           MOVE WS-AYTD10-CNTU-DEP TO WS-TOT10-CNTU-DEP.                
           MOVE WS-AYTD10-ONHD-DEP TO WS-TOT10-ONHD-DEP.                
ACT001     MOVE WS-AYTD10-RATE-E   TO WS-TOT10-RATE-E.                  
ACT001     MOVE WS-AYTD10-RATE-H   TO WS-TOT10-RATE-H.                  
ACT001     MOVE WS-AYTD10-RATE-G   TO WS-TOT10-RATE-G.                  
ACT001     MOVE WS-AYTD10-RATE-F   TO WS-TOT10-RATE-F.                  
           MOVE WS-AYTD10-CSH-SALE TO WS-TOT10-CSH-SALE.                
           MOVE WS-AYTD10-DENY-DEP TO WS-TOT10-DENY-DEP.                
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD10-CUST BY 100                           
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT10-PERCENT.                         
           MOVE WS-TOTAL-10 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 24900000
           MOVE WS-AYTD11-CUST     TO WS-TOT11-CUST.                    
ACT001     MOVE WS-AYTD11-RATE-D   TO WS-TOT11-RATE-D.                  
ACT001     MOVE WS-AYTD11-RATE-I   TO WS-TOT11-RATE-I.                  
           MOVE WS-AYTD11-CNTU-DEP TO WS-TOT11-CNTU-DEP.                
           MOVE WS-AYTD11-ONHD-DEP TO WS-TOT11-ONHD-DEP.                
ACT001     MOVE WS-AYTD11-RATE-E   TO WS-TOT11-RATE-E.                  
ACT001     MOVE WS-AYTD11-RATE-H   TO WS-TOT11-RATE-H.                  
ACT001     MOVE WS-AYTD11-RATE-G   TO WS-TOT11-RATE-G.                  
ACT001     MOVE WS-AYTD11-RATE-F   TO WS-TOT11-RATE-F.                  
           MOVE WS-AYTD11-CSH-SALE TO WS-TOT11-CSH-SALE.                
           MOVE WS-AYTD11-DENY-DEP TO WS-TOT11-DENY-DEP.                
           IF WS-AYTD13-CUST NOT = ZEROES                               
               MULTIPLY WS-AYTD11-CUST BY 100                           
                   GIVING WS-AYTD-CUST-100                              
               DIVIDE WS-AYTD-CUST-100 BY WS-AYTD13-CUST                
                   GIVING WS-PERCENT ROUNDED                            
           ELSE                                                         
               MOVE ZEROES TO WS-PERCENT
           END-IF.                               
           MOVE WS-PERCENT TO WS-TOT11-PERCENT.                         
           MOVE WS-TOTAL-11 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 25090000
           MOVE WS-TOTAL-12 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 25120000
ACT001     ADD WS-AYTDN-RATE-D                                          
ACT001         WS-AYTD1-RATE-D WS-AYTD2-RATE-D WS-AYTD3-RATE-D          
ACT001         WS-AYTD4-RATE-D WS-AYTD5-RATE-D WS-AYTD6-RATE-D          
ACT001         WS-AYTD7-RATE-D WS-AYTD8-RATE-D WS-AYTD9-RATE-D          
ACT001         WS-AYTD10-RATE-D WS-AYTD11-RATE-D                        
ACT001         GIVING WS-AYTD13-RATE-D.                                 
ACT001     ADD WS-AYTDN-RATE-I                                          
ACT001         WS-AYTD1-RATE-I WS-AYTD2-RATE-I WS-AYTD3-RATE-I          
ACT001         WS-AYTD4-RATE-I WS-AYTD5-RATE-I WS-AYTD6-RATE-I          
ACT001         WS-AYTD7-RATE-I WS-AYTD8-RATE-I WS-AYTD9-RATE-I          
ACT001         WS-AYTD10-RATE-I WS-AYTD11-RATE-I                        
ACT001         GIVING WS-AYTD13-RATE-I.                                 
           ADD WS-AYTDN-CNTU-DEP                                        
               WS-AYTD1-CNTU-DEP WS-AYTD2-CNTU-DEP WS-AYTD3-CNTU-DEP    
               WS-AYTD4-CNTU-DEP WS-AYTD5-CNTU-DEP WS-AYTD6-CNTU-DEP    
               WS-AYTD7-CNTU-DEP WS-AYTD8-CNTU-DEP WS-AYTD9-CNTU-DEP    
               WS-AYTD10-CNTU-DEP WS-AYTD11-CNTU-DEP                    
               GIVING WS-AYTD13-CNTU-DEP.                               
           ADD WS-AYTDN-ONHD-DEP                                        
               WS-AYTD1-ONHD-DEP WS-AYTD2-ONHD-DEP WS-AYTD3-ONHD-DEP    
               WS-AYTD4-ONHD-DEP WS-AYTD5-ONHD-DEP WS-AYTD6-ONHD-DEP    
               WS-AYTD7-ONHD-DEP WS-AYTD8-ONHD-DEP WS-AYTD9-ONHD-DEP    
               WS-AYTD10-ONHD-DEP WS-AYTD11-ONHD-DEP                    
               GIVING WS-AYTD13-ONHD-DEP.                               
ACT001     ADD WS-AYTDN-RATE-E                                          
ACT001         WS-AYTD1-RATE-E WS-AYTD2-RATE-E WS-AYTD3-RATE-E          
ACT001         WS-AYTD4-RATE-E WS-AYTD5-RATE-E WS-AYTD6-RATE-E          
ACT001         WS-AYTD7-RATE-E WS-AYTD8-RATE-E WS-AYTD9-RATE-E          
ACT001         WS-AYTD10-RATE-E WS-AYTD11-RATE-E                        
ACT001         GIVING WS-AYTD13-RATE-E.                                 
ACT001     ADD WS-AYTDN-RATE-H                                          
ACT001         WS-AYTD1-RATE-H WS-AYTD2-RATE-H WS-AYTD3-RATE-H          
ACT001         WS-AYTD4-RATE-H WS-AYTD5-RATE-H WS-AYTD6-RATE-H          
ACT001         WS-AYTD7-RATE-H WS-AYTD8-RATE-H WS-AYTD9-RATE-H          
ACT001         WS-AYTD10-RATE-H WS-AYTD11-RATE-H                        
ACT001         GIVING WS-AYTD13-RATE-H.                                 
ACT001     ADD WS-AYTDN-RATE-G                                          
ACT001         WS-AYTD1-RATE-G WS-AYTD2-RATE-G WS-AYTD3-RATE-G          
ACT001         WS-AYTD4-RATE-G WS-AYTD5-RATE-G WS-AYTD6-RATE-G          
ACT001         WS-AYTD7-RATE-G WS-AYTD8-RATE-G WS-AYTD9-RATE-G          
ACT001         WS-AYTD10-RATE-G WS-AYTD11-RATE-G                        
ACT001         GIVING WS-AYTD13-RATE-G.                                 
ACT001     ADD WS-AYTDN-RATE-F                                          
ACT001         WS-AYTD1-RATE-F WS-AYTD2-RATE-F WS-AYTD3-RATE-F          
ACT001         WS-AYTD4-RATE-F WS-AYTD5-RATE-F WS-AYTD6-RATE-F          
ACT001         WS-AYTD7-RATE-F WS-AYTD8-RATE-F WS-AYTD9-RATE-F          
ACT001         WS-AYTD10-RATE-F WS-AYTD11-RATE-F                        
ACT001         GIVING WS-AYTD13-RATE-F.                                 
           ADD WS-AYTDN-CSH-SALE                                        
               WS-AYTD1-CSH-SALE WS-AYTD2-CSH-SALE WS-AYTD3-CSH-SALE    
               WS-AYTD4-CSH-SALE WS-AYTD5-CSH-SALE WS-AYTD6-CSH-SALE    
               WS-AYTD7-CSH-SALE WS-AYTD8-CSH-SALE WS-AYTD9-CSH-SALE    
               WS-AYTD10-CSH-SALE WS-AYTD11-CSH-SALE                    
               GIVING WS-AYTD13-CSH-SALE.                               
           ADD WS-AYTDN-DENY-DEP                                        
               WS-AYTD1-DENY-DEP WS-AYTD2-DENY-DEP WS-AYTD3-DENY-DEP    
               WS-AYTD4-DENY-DEP WS-AYTD5-DENY-DEP WS-AYTD6-DENY-DEP    
               WS-AYTD7-DENY-DEP WS-AYTD8-DENY-DEP WS-AYTD9-DENY-DEP    
               WS-AYTD10-DENY-DEP WS-AYTD11-DENY-DEP                    
               GIVING WS-AYTD13-DENY-DEP.                               
           MOVE WS-AYTD13-CUST     TO WS-TOT13-CUST.                    
ACT001     MOVE WS-AYTD13-RATE-D   TO WS-TOT13-RATE-D.                  
ACT001     MOVE WS-AYTD13-RATE-I   TO WS-TOT13-RATE-I.                  
           MOVE WS-AYTD13-CNTU-DEP TO WS-TOT13-CNTU-DEP.                
           MOVE WS-AYTD13-ONHD-DEP TO WS-TOT13-ONHD-DEP.                
ACT001     MOVE WS-AYTD13-RATE-E   TO WS-TOT13-RATE-E.                  
ACT001     MOVE WS-AYTD13-RATE-H   TO WS-TOT13-RATE-H.                  
ACT001     MOVE WS-AYTD13-RATE-G   TO WS-TOT13-RATE-G.                  
ACT001     MOVE WS-AYTD13-RATE-F   TO WS-TOT13-RATE-F.                  
           MOVE WS-AYTD13-CSH-SALE TO WS-TOT13-CSH-SALE.                
           MOVE WS-AYTD13-DENY-DEP TO WS-TOT13-DENY-DEP.                
           MOVE WS-TOTAL-13 TO PRNTFILE-RECORD.                         
           PERFORM P0310-WRITE-PRNTFILE-REC.                            
      *                                                                 25650000
           DISPLAY 'SCORES OUT OF RANGE: ' WS-TOTAL-INVAL-SCORE.        
                                                                        
                                                                        
      ******************************************************************25690000
       P0700-CLOSE-FILES.                                               
      ******************************************************************25710000
                                                                        
           CLOSE PRNTFILE.                                              
                                                                        
           EXEC SQL                                                     
                CLOSE BEACON_SCORE                                      
           END-EXEC.                                                    

MSQ017     CALL "MFASQLCA"
MSQ017       USING SQLCA, BY VALUE MFA-PROGRAM-ID, "0", "0", "0",
MSQ017       BY REFERENCE MFSQLMESSAGETEXT
MSQ017     END-CALL

           MOVE SQLCODE TO WS-ACTIVE-RETURN-CODE.                       
           IF SQLCODE = SUCCESSFUL-CALL                                 
               NEXT SENTENCE                                            
           ELSE                                                         
               DISPLAY '**  PROCESSING ERROR IN PROGRAM PCSRP384  **'   
               DISPLAY '**        PARA - P0700-CLOSE-FILES        **'   
               DISPLAY '**      ERROR DURING CLOSE OF CURSOR      **'   
               DISPLAY '**             BEACON_SCORE               **'   
               DISPLAY '**  RC = ' WS-ACTIVE-RETURN-CODE                
               DISPLAY '**          PROCESSING TERMINATED         **'   
               MOVE 12 TO COMP-CODE                                     
               MOVE 1 TO SQL-ERROR-SW
           END-IF.                                  
ACT144     MOVE COMP-CODE TO RETURN-CODE.                               
ACT144     STOP RUN.                                                    
ACT144*                                                                 25920000
ACT144******************************************************************25930000
ACT144*6251-GET-FJC01-DATE                                              25940000
ACT144     EXEC SQL                                                     25950000
ACT144         INCLUDE CPD00037                                         25960000
ACT144     END-EXEC.                                                    25970000
ACT144******************************************************************25980000
ACT144*                                                              *  25990000
ACT144******************************************************************26000000
ACT144*7600-START-FCSJC01                                               26010000
ACT144     EXEC SQL                                                     26020000
ACT144         INCLUDE CPD00038                                         26030000
ACT144     END-EXEC.                                                    26040000
ACT144******************************************************************26050000
ACT144*                                                              *  26060000
ACT144* 9900-ABEND.                                                  *  26070000
ACT144*                                                              *  26080000
ACT144****************************************************************  26090000
ACT144     EXEC SQL                                                     26100000
ACT144         INCLUDE CPD09900                                         26110000
ACT144     END-EXEC.                                                    26120000
ACT144 9000-TERMINATE.                                                  
ACT144     PERFORM P0700-CLOSE-FILES.                                   
ACT144 9000-EXIT.                                                       
