title: How can print out the current time with DBMS_OUTPUT.PUT_LINE?
body: <p>I use the following Code to execute an export data pump.</p>
  
  <pre><code>set serveroutput on;
  DECLARE
    ind NUMBER;              -- Loop index
    h1 NUMBER;               -- Data Pump job handle
    percent_done NUMBER;     -- Percentage of job complete
    job_state VARCHAR2(30);  -- To keep track of job state
    le ku$_LogEntry;         -- For WIP and error messages
    js ku$_JobStatus;        -- The job status from get_status
    jd ku$_JobDesc;          -- The job description from get_status
    sts ku$_Status;          -- The status object returned by get_status
    &gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;v_systimestamp TIMESTAMP := SYSTIMESTAMP;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;
  
  BEGIN
  
    h1 := DBMS_DATAPUMP.OPEN('EXPORT','SCHEMA',NULL,'EXAMPLE3','LATEST');
  
    DBMS_DATAPUMP.ADD_FILE(h1, 'dumpfile.dmp', 'EXPORT_DIRECTORY', NULL, DBMS_DATAPUMP.KU$_FILE_TYPE_DUMP_FILE, 1);
  
    DBMS_DATAPUMP.METADATA_FILTER(h1,'SCHEMA_EXPR','IN (''SchemaName'')');
  
    DBMS_DATAPUMP.START_JOB(h1);
  
  
  
    percent_done := 0;
    job_state := 'UNDEFINED';
    while (job_state != 'COMPLETED') and (job_state != 'STOPPED') loop
               DBMS_OUTPUT.PUT_LINE(v_systimestamp);
      dbms_datapump.get_status(h1,
             dbms_datapump.ku$_status_job_error +
  
             dbms_datapump.ku$_status_job_status +
             dbms_datapump.ku$_status_wip,-1,job_state,sts);
      js := sts.job_status;
  
  -- If the percentage done changed, display the new value.
  
      if js.percent_done != percent_done
      then
  
        dbms_output.put_line('*** Job percent done = ' ||
                             to_char(js.percent_done));
        percent_done := js.percent_done;
      end if;
  
  -- If any work-in-progress (WIP) or error messages were received for the job,
  -- display them.
  
     if (bitand(sts.mask,dbms_datapump.ku$_status_wip) != 0)
      then
  
        le := sts.wip;
      else
        if (bitand(sts.mask,dbms_datapump.ku$_status_job_error) != 0)
        then
          le := sts.error;
        else
          le := null;
        end if;
      end if;
      if le is not null
      then
        ind := le.FIRST;
        while ind is not null loop
          &gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;DBMS_OUTPUT.PUT_LINE(v_systimestamp);&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;
          dbms_output.put_line(le(ind).LogText);
          ind := le.NEXT(ind);
        end loop;
      end if;
    end loop;
  
  -- Indicate that the job finished and detach from it.
  
    dbms_output.put_line('Job has completed');
    dbms_output.put_line('Final job state = ' || job_state);
    dbms_datapump.detach(h1);
  END;
  </code></pre>
  
  <p>The problem is that the export takes too long. It takes 25 minutes with this SQL Code. The Size of the schema is 1.8 GB.</p>
  
  <p>And I would like to find out how much time individual steps take. That's why I want to insert a timestamp in after each process step. Then I can see how long individual steps need.</p>
  
  <p>I have marked the code for the timestamp with (>>>> &lt;&lt;&lt;&lt;) in the code.</p>
  
  <p>The timestamp is not updating the time. I need the CURRENT time after each process. Can you help me?</p>