Returns TRUE or FALSE, depending on whether the current character set is "American".
FUNCTION Ora_Nls.American
RETURN BOOLEAN;
/*
** Determine if you're dealing with an American
** set or not
*/
PROCEDURE is_american (out Text_IO.File_Type) IS
us BOOLEAN;
BEGIN
us := Ora_Nls.American;
IF us = TRUE
Text_IO.Put (out, 'Character set it American');
ELSE
change_char_set;
ENDIF
END;