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

           EXEC SQL DECLARE RESULTSET_CSR02054 CURSOR FOR
                 CALL "CSR02054" (:lsPREMISE_NO_054,
                                  :lsCUSTOMER_NO_054,
                                  :lsUSERID_054,
                                  :lsCOMPANY_NO_054
                                 )
		    END-EXEC
			
         01  V_RETURN_CODE_CSR02054  PIC S9(9) COMP. 
         01  V_RS-ACCOUNT-NO-054     PIC X(13).
         01  V_RS-CODE-COMPANY-ACCT-054 PIC X(01).           

       LINKAGE SECTION.                                                 
       01 lsPREMISE_NO_054  PIC X(10).             
       01 lsCUSTOMER_NO_054 PIC X(10).            
       01 lsUSERID_054      PIC X(7).                  
       01 lsCOMPANY_NO_054  PIC X(2).    
                                                                        
       PROCEDURE DIVISION USING lsPREMISE_NO_054,
                                lsCUSTOMER_NO_054,
                                lsUSERID_054,
                                lsCOMPANY_NO_054.     
			
            EXEC SQL 
                OPEN RESULTSET_CSR02054
            END-EXEC
            
      *     Consume returned result set. 
      *     Do nothing with result set as it is not used by callers.	  
            EXEC SQL FETCH RESULTSET_CSR02054 INTO
               :V_RETURN_CODE_CSR02054,
               :V_RS-ACCOUNT-NO-054,
               :V_RS-CODE-COMPANY-ACCT-054   			   			   
            END-EXEC  		           
			
            EXEC SQL 
                CLOSE RESULTSET_CSR02054
            END-EXEC                                                                                   
            .                                                  
      ************************ End of Program **************************        
