Rem drv: <migrate type="data_upgrade" version="10.2.0.1"/>
Rem
Rem $Header: upgrade_tts_post_creation.sql 28-jul-2005.18:50:38 ngade Exp $
Rem
Rem upgrade_tts_post_creation.sql
Rem
Rem Copyright (c) 2005, Oracle. All rights reserved.  
Rem
Rem    NAME
Rem      upgrade_tts_post_creation.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    ngade       07/28/05 - ngade_bug-4510265
Rem    ngade       07/27/05 - Created
Rem
create or replace procedure save_tts_ts(job_id raw, job_execution_id raw, ts_list varchar2, job_owner varchar2) as
begin
  declare
    params MGMT_JOB_PARAM_LIST := MGMT_JOB_PARAM_LIST();
    l_current_user mgmt_created_users.user_name%TYPE := mgmt_user.get_current_em_user;
    
  begin
    params.extend(1);
    params(1) := MGMT_JOB_PARAM_RECORD('rw_ts', 1, ts_list, null);
    setemusercontext(job_owner, 1);
    mgmt_jobs.add_job_parameters(job_id, job_execution_id, params);
    setemusercontext(l_current_user,1);
  exception when others then
    setemusercontext(l_current_user,1);
    raise;
  end;
end save_tts_ts;
/
SHOW ERRORS;


-- Register the command
BEGIN
    mgmt_jobs.deregister_command_block_proc('save_tts_ts');
    mgmt_jobs.register_command_block_proc('save_tts_ts', MGMT_SHORT_STRING_ARRAY('raw','raw','varchar2','varchar2'));

END;
/
COMMIT;
SHOW ERRORS;