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

           EXEC SQL DECLARE RESULTSET_CSR00510 CURSOR FOR
                 CALL "CSR00510" ( :lsV-SERV-ORDER-NO, 
	                               :lsV-USERID)
		    END-EXEC
         01  V_LOCAL_ERROR_CSR00510             PIC S9(9) COMP VALUE 0. 


       LINKAGE SECTION.                                                 
       01  lsV-SERV-ORDER-NO           PIC S9(13)  COMP-3.
       01  lsV-USERID                  PIC X(7).		 

                                                                        
       PROCEDURE DIVISION USING lsV-SERV-ORDER-NO, 
	                            lsV-USERID.
			
            EXEC SQL 
                OPEN RESULTSET_CSR00510
            END-EXEC
            
      *     Consume returned result set. 
      *     Do nothing with result set as it is not used by callers.	  
            EXEC SQL FETCH RESULTSET_CSR00510 INTO
               :V_LOCAL_ERROR_CSR00510
            END-EXEC  
            
            EXEC SQL 
                CLOSE RESULTSET_CSR00510
            END-EXEC                                                                                   
            .                                                  
      ************************ End of Program **************************        
