Rem drv: <migrate type="data_upgrade" version="10.2.0.1"/>
Rem
Rem $Header: db_comp_data_upgrade.sql 11-aug-2005.16:38:19 chyu Exp $
Rem
Rem db_comp_data_upgrade.sql
Rem
Rem Copyright (c) 2005, Oracle. All rights reserved.  
Rem
Rem    NAME
Rem      db_comp_data_upgrade.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    chyu        08/11/05 - chyu_bugfix_4541850_dbgc
Rem    chyu        08/10/05 - Created: wrapping the old db_data_upgrade
Rem

Rem
Rem    NGADE        07/18/05
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;