CREATE TABLE GC.TEST_JOB_TIMESTAMP

(  SYST       VARCHAR2(50 BYTE),

  CURRENT_T  VARCHAR2(50 BYTE),

  TIMES      DATE)

CREATE OR REPLACE procedure GC.TEST_TIMESTAMP is

begin

INSERT INTO  GC.TEST_JOB_TIMESTAMP

SELECT  TO_CHAR (sysTIMESTAMP, 'YYYYMMDD')

          ||'T'||SUBSTR (TO_CHAR (sysTIMESTAMP, 'HH24MISSFF'), 1, 9) sysT,

          TO_CHAR (CURRENT_TIMESTAMP, 'YYYYMMDD')

          ||'T'||SUBSTR(TO_CHAR(CURRENT_TIMESTAMP, 'HH24MISSFF'), 1, 9) CURRENT_T,SYSDATE

     FROM DUAL;

END;

DECLARE

  X NUMBER;

BEGIN

  SYS.DBMS_JOB.SUBMIT

  ( job       => X

   ,what      => 'GC.TEST_TIMESTAMP;'

   ,next_date => to_date('10/05/2013 13:49:29','dd/mm/yyyy hh24:mi:ss')

   ,interval  => 'SYSDATE+10/1440'

   ,no_parse  => FALSE

  );

  SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' || to_char(x));

COMMIT;

END;

ALTER SESSION SET NLS_LANGUAGE='AMERICAN' ;

ALTER SESSION SET NLS_TERRITORY='AMERICA' ;

ALTER SESSION SET NLS_CURRENCY='$' ;

ALTER SESSION SET NLS_ISO_CURRENCY='AMERICA' ;

ALTER SESSION SET NLS_NUMERIC_CHARACTERS='.,' ;

ALTER SESSION SET NLS_DATE_FORMAT='DD-MON-RR' ;

ALTER SESSION SET NLS_DATE_LANGUAGE='AMERICAN' ;

ALTER SESSION SET NLS_SORT='BINARY';