ora-31626 job does not exist

I am having a procedure (which was bascially copied from the pl/sql query generated from OEM(maintenance->Export to export files) when you want to export a schema)..

If i run the pl/sql as a script it works in TOAD perfecly fine..however if i create the same script as a procedure it errors out in line...( i am logged in as that schema user and the schema has permissions to read,write on the data pump dump directory)
My aim is to run this procedure as a job and do export at regular intervals.....

ORA-31626: job does not exist
ORA-06512: at "SYS.DBMS_SYS_ERROR", line 79
ORA-06512: at "SYS.DBMS_DATAPUMP", line 911
ORA-06512: at "SYS.DBMS_DATAPUMP", line 4356
ORA-06512: at "TestSchema.TEST_EXPORT", line 30
ORA-06512: at line 2

CREATE OR REPLACE PROCEDURE TestSchema.Test_Export IS
 
BEGIN
declare
  h1   NUMBER;
  dt   VARCHAR2(28);
 
begin
  begin 
  SELECT TO_CHAR(SYSDATE,'YYYYMMDD') INTO dt FROM DUAL;
      h1 := dbms_datapump.open (operation => 'EXPORT', job_mode => 'SCHEMA', job_name => 'TEST_EXPORT', version => 'COMPATIBLE');      ***** error at this line saying job does not exist***********
  end;
  begin 
     dbms_datapump.set_parallel(handle => h1, degree => 1); 
  end;
  begin 
     dbms_datapump.add_file(handle => h1, filename => 'Test_export'||dt||'.LOG', directory => 'DUMP_DIR', filetype => 3); 
  end;
  begin 
     dbms_datapump.set_parameter(handle => h1, name => 'KEEP_MASTER', value => 0); 
  end;
  begin 
     dbms_datapump.metadata_filter(handle => h1, name => 'SCHEMA_EXPR', value => 'IN(''TESTSCHEMA'')'); 
  end;
  begin 
     dbms_datapump.add_file(handle => h1, filename => 'Test_export_'||dt||'.DMP', directory => 'DUMP_DIR', filetype => 1); 
  end;
  begin 
     dbms_datapump.set_parameter(handle => h1, name => 'INCLUDE_METADATA', value => 1); 
  end;
  begin 
     dbms_datapump.set_parameter(handle => h1, name => 'DATA_ACCESS_METHOD', value => 'AUTOMATIC'); 
  end;
  begin 
     dbms_datapump.set_parameter(handle => h1, name => 'ESTIMATE', value => 'BLOCKS'); 
  end;
  begin 
     dbms_datapump.start_job(handle => h1, skip_current => 0, abort_step => 0); 
  end;
  begin 
     dbms_datapump.detach(handle => h1); 
  end;
end;
 
END Test_Export;
/

Select allOpen in new window