FYI: I created this new function in CORP_N_TR:
//*********************************************************************
// Object : n_tr
// Function : of_get_extended_datetime_as_string()
//
// Ancestor : None
// Access : Public
// Arguments : value long al_format The format of the string to return
//
// Returns : String The database CURRENT_TIMESTAMP as a string
// Throws : None
//
// Description: Return the current SYSDATE from the database in a
// format that includes the Hundredths of a second.
//
//********************************************************************
// Revision History
//
// Developer Date Version Description
// --------- ----------- --------- -------------------------------
// O Knight 02-MAR-2020 6.0.4.35 #2666065: Initial version.
//
//********************************************************************
// < COPYRIGHT statement goes here, removed for public use>
//********************************************************************
long ll_rc
string ls_now
// Return FORMATs:
// 1 = US standard time format 'DD-MON-RRRR_HH:MI:SS:FF'
// 2 = US standard time format AM/PM 'DD-MON-RRRR_HH:MI:SS:FF PM'
// 3 = string search format 'RRRRMMDDHHMISSFF'
// 4 = string search format AM/PM 'RRRRMMDDHHMISSFF PM'
// 5 = military format 'DD-MON-RRRR HH24:MI:SS:FF'
// 6 = military format, dot/hundr 'DD-MON-RRRR HH24:MI:SSXFF'
// 7 = European format 'MON-DD-RRRR HH:MI:SS:FF'
// 7 = European format AM/PM 'MON-DD-RRRR HH:MI:SS:FF PM'
CHOOSE CASE (al_format)
// US Standard
CASE 1
SELECT to_char ( CURRENT_TIMESTAMP, 'MON-DD-RRRR HH:MI:SS:FF' )
INTO :ls_now
FROM dual;
// US Standard with AM/PM
CASE 2
SELECT to_char ( CURRENT_TIMESTAMP, 'MON-DD-RRRR HH:MI:SS:FF PM' )
INTO :ls_now
FROM dual;
// String search
CASE 3
SELECT to_char ( CURRENT_TIMESTAMP, 'RRRRMMDDHHMISSFF' )
INTO :ls_now
FROM dual;
// String search with AM/PM
CASE 4
SELECT to_char ( CURRENT_TIMESTAMP, 'RRRRMMDDHHMISSFF PM' )
INTO :ls_now
FROM dual;
// Military
CASE 3
SELECT to_char ( CURRENT_TIMESTAMP, 'DD-MON-RRRR HH24:MI:SS:FF' )
INTO :ls_now
FROM dual;
// Military using dot/hundredths
CASE 6
SELECT to_char ( CURRENT_TIMESTAMP, 'DD-MON-RRRR HH24:MI:SSXFF' )
INTO :ls_now
FROM dual;
// European Standard
CASE 7
SELECT to_char ( CURRENT_TIMESTAMP, 'DD-MON-RRRR HH:MI:SS:FF' )
INTO :ls_now
FROM dual;
// European Standard with AM/PM
CASE 8
SELECT to_char ( CURRENT_TIMESTAMP, 'DD-MON-RRRR HH:MI:SS:FF PM' )
INTO :ls_now
FROM dual;
CASE ELSE
// US Standard
SELECT to_char ( CURRENT_TIMESTAMP, 'MON-DD-RRRR HH:MI:SS:FF' )
INTO :ls_now
FROM dual;
END CHOOSE
RETURN ls_now
