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

           EXEC SQL DECLARE RESULTSET_CSR00142 CURSOR FOR
                 CALL "CSR00142" (:lsV_SERV_ORDER_NO
                                  )
		   END-EXEC
         01  V_RETURN_CODE_CSR00142             PIC S9(9) COMP VALUE 0. 

       LINKAGE SECTION.                                                 
       01  lsV_SERV_ORDER_NO PIC X(13).
       
                                                                        
       PROCEDURE DIVISION USING lsV_SERV_ORDER_NO.
			
            EXEC SQL 
                OPEN RESULTSET_CSR00142
            END-EXEC
            
      *     Consume returned result set. 
      *     Do nothing with result set as it is not used by callers.	  
            EXEC SQL FETCH RESULTSET_CSR00142 INTO
               :V_RETURN_CODE_CSR00142
            END-EXEC  
            			
            EXEC SQL 
                CLOSE RESULTSET_CSR00142
            END-EXEC                                                                                   
            .                                                  
      ************************ End of Program **************************        
