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

           EXEC SQL DECLARE RESULTSET_CSR00425 CURSOR FOR
                 CALL "CSR00425" (:lsV_SERV_ORDER_NO,
                                  :lsV_REMARK_TYPE_CD,
                                  :lsV_REMARK_TX,
                                  :lsV_USER_ID
                                  )
		    END-EXEC
         01  V_RETURN_CODE_CSR00425             PIC S9(9) COMP VALUE 0. 

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