Returns TRUE or FALSE, depending on whether the current date format is "American".
FUNCTION Ora_Nls.American_Date
RETURN BOOLEAN;
/*
** Determine if date format is American
*/
PROCEDURE is_amerdate (out Text_IO.File_Type) IS
usd BOOLEAN;
BEGIN
usd := Ora_Nls.American_Date;
IF usd = TRUE
Text_IO.Put (out, 'Date format is American');
ELSE
change_date_to_us;
ENDIF
END;