Obtener Fecha y Hora de Servidor Oracle

Para obtener la fecha del servidor Oracle creamos una función (Function Object):

$PBExportHeader$f_fecha_servidor.srf
global type f_fecha_servidor from function_object
end type

forward prototypes
global function datetime f_fecha_servidor ()
end prototypes

global function datetime f_fecha_servidor ();

// -------------------------------------------------------------------------------------
// Funcion : f_fecha_servidor
// Proposito: Devuelve la fecha y hora del servidor Oracle
// Creador : Jorge A. Barzola Rosadio
// Fecha : 12/03/2013
// -------------------------------------------------------------------------------------

DateTime ldt_fecha

 SELECT SYSDATE
  INTO :ldt_fecha
  FROM dual;

Return ( ldt_fecha )

end function

Este ejemplo es para asignar la fecha y hora del servidor Oracle a un campo del DW:

dw_1.Object.fecha[ll_Fila] = f_fecha_servidor()