SQL - Selects utéis - Obter a data, hora ou timestamp corrente

Os comandos abaixo retornam a data, hora ou timestamp corrente

   05  WS-CURRENT-DATE  PIC X(010) VALUE SPACES.
   05  WS-CURRENT-TIME  PIC X(008) VALUE SPACES.
   05  WS-CURRENT-TS    PIC X(026) VALUE SPACES.

   Data corrente

   EXEC SQL
        SELECT CURRENT DATE
        INTO  :WS-CURRENT-DATE 
        FROM   SYSIBM.SYSDUMMY1
   END-EXEC

   OU

   EXEC SQL
        SET :WS-CURRENT-DATE = CURRENT DATE
   END-EXEC

   Hora corrente

   EXEC SQL
        SELECT CURRENT TIME
        INTO  :WS-CURRENT-TIME 
        FROM   SYSIBM.SYSDUMMY1
   END-EXEC

   OU

   EXEC SQL
        SET :WS-CURRENT-TIME = CURRENT TIME
   END-EXEC

   Timestamp corrente

   EXEC SQL
        SELECT CURRENT TIMESTAMP
        INTO  :WS-CURRENT-TS 
        FROM   SYSIBM.SYSDUMMY1
   END-EXEC

   OU

   EXEC SQL
        SET :WS-CURRENT-TS = CURRENT TIMESTAMP
   END-EXEC

Resultado da pesquisa acima:

   DATA      
   ----------
   30.10.2007


   HORA    
   --------
   13:28:08


   TIMESTAMP                 
   --------------------------
   2007-10-30-13.28.39.289410