       IDENTIFICATION DIVISION.                                         
       PROGRAM-ID.     SCSCB225.                                        
      *                                                                         
      *****************************************************************         
      **                                                             **         
      **              PROGRAM  MODIFICATION  LOG                     **         
      **                                                             **         
      **    DATE    INITIALS     REASON                              **         
      **  -------   --------     ------                              **         
      **  02/22/06   JAYANTHI    INITIAL VERSION                     **         
      *****************************************************************         
       ENVIRONMENT DIVISION.                                            
       INPUT-OUTPUT SECTION.                                            
                                                                        
       DATA DIVISION.                                                   
      *                                                                         
       WORKING-STORAGE SECTION.                                         

MSQ017 01 MFA-PROGRAM-ID PIC X(8) VALUE 'SCSCB225'.
MSQ017     COPY MFASQLM.
       01  WS-START                    PIC X(40)                        
           VALUE 'WORKING STORAGE FOR SCSCA225 STARTS HERE'.            
      *                                                                         
       01  WS-CALL-ENVIRONMENT          PIC X(01) VALUE 'B'.            
           88 ONLINE-CALL               VALUE 'O'.                      
           88 BATCH-CALL                VALUE 'B'.                      
                                                                        
       01  PROGRAM-NAME                PIC X(08) VALUE 'SCSCA225'.      
      *                                                                         
      /*********** SQL DECLARATIONS ****************************                
           EXEC SQL                                                             
               INCLUDE SQLCA                                                    
           END-EXEC.                                                            
      /*********** CSS_MODEL_SQL *******************************                
           EXEC SQL                                                             
               INCLUDE TBMODEL                                                  
           END-EXEC.                                                            
      /*********** CSS_COST_GAS_DEFER **************************                
           EXEC SQL                                                             
               INCLUDE TBGASDEF                                                 
           END-EXEC.                                                            
      /*********** CSS_DELINQUENCY *****************************                
           EXEC SQL                                                             
               INCLUDE TBDELQ                                                   
           END-EXEC.                                                            
      *                                                                         
      ******************************************************************        
      * COST OF GAS RECOVERY PERCENTAGE CALC COPYBOOK                           
      ******************************************************************        
           EXEC SQL                                                             
               INCLUDE CPDCA225                                                 
           END-EXEC.                                                            
                                                                        
       9700-PROCESS-ABEND.                                              
                                                                        
           PERFORM 9999-SCSCA225-EXIT  THRU 9999-EXIT.                  
                                                                        
       9700-EXIT.                                                       
           EXIT.                                                        
                                                                        
       9999-SCSCA225-EXIT.                                              
                                                                        
           EXIT PROGRAM.                                                
                                                                        
       9999-EXIT.                                                       
