       IDENTIFICATION DIVISION.                                         
       PROGRAM-ID.   WSR01925.                                          
       
      ******************************************************************        
      *  WSR01925  -- CSR01925 T-SQL SP wrapper                        *        
      *                                                                *        
      ******************************************************************        
                                                                        
       ENVIRONMENT DIVISION.                                            
       DATA DIVISION.                                                   
       WORKING-STORAGE SECTION. 
           EXEC SQL                                                             
              INCLUDE SQLCA                                                     
           END-EXEC.    

           EXEC SQL DECLARE RESULTSET_CSR01925 CURSOR FOR
                 CALL "CSR01925" (:lsV_AN_SERV_ORDER_NO,     
	                              :lsV_AS_MATL_ITEM_CD,      
	                              :lsV_AI_MATL_ITEM_QT,      
	                              :lsV_AS_MATL_POSTED_FL,    
	                              :lsV_AS_MATL_USAGE_CD_NEW, 
	                              :lsV_AS_MATL_ITEM_CD_NEW,  
	                              :lsV_AS_MATL_USAGE_CD,     
                                  :lsV_AS_GAS_CARRIER_FL 
                                  )
		    END-EXEC
         01  V_RETURN_CODE_CSR01925             PIC S9(9) COMP VALUE 0. 

       LINKAGE SECTION.                                                       
       01  lsV_AN_SERV_ORDER_NO     PIC S9(13) COMP-3.                                    
       01  lsV_AS_MATL_ITEM_CD      PIC X(12).
       01  lsV_AI_MATL_ITEM_QT      PIC S9(9) BINARY.
       01  lsV_AS_MATL_POSTED_FL    PIC X(1).
       01  lsV_AS_MATL_USAGE_CD_NEW PIC X(1).
       01  lsV_AS_MATL_ITEM_CD_NEW  PIC X(12).
       01  lsV_AS_MATL_USAGE_CD     PIC X(1).
       01  lsV_AS_GAS_CARRIER_FL    PIC X(1).
                                                                        
       PROCEDURE DIVISION USING lsV_AN_SERV_ORDER_NO,     
	                            lsV_AS_MATL_ITEM_CD,      
	                            lsV_AI_MATL_ITEM_QT,      
	                            lsV_AS_MATL_POSTED_FL,    
	                            lsV_AS_MATL_USAGE_CD_NEW, 
	                            lsV_AS_MATL_ITEM_CD_NEW,  
	                            lsV_AS_MATL_USAGE_CD,     
                                lsV_AS_GAS_CARRIER_FL.    
			
            EXEC SQL 
                OPEN RESULTSET_CSR01925
            END-EXEC
            
      *     Consume returned result set. 
      *     Do nothing with result set as it is not used by callers.	  
            EXEC SQL FETCH RESULTSET_CSR01925 INTO
               :V_RETURN_CODE_CSR01925
            END-EXEC              
			
            EXEC SQL 
                CLOSE RESULTSET_CSR01925
            END-EXEC                                                                                   
            .                                                  
      ************************ End of Program **************************        
