694: l_proc_cursor PLS_INTEGER;
695: l_numrows PLS_INTEGER;
696: Begin
697: Begin
698: select v$nls_parameters.value into l_DBcharset
699: from v$nls_parameters
700: where v$nls_parameters.parameter='NLS_CHARACTERSET';
701: Exception
702: When others then
695: l_numrows PLS_INTEGER;
696: Begin
697: Begin
698: select v$nls_parameters.value into l_DBcharset
699: from v$nls_parameters
700: where v$nls_parameters.parameter='NLS_CHARACTERSET';
701: Exception
702: When others then
703: l_DBcharset := 'UTF8';
696: Begin
697: Begin
698: select v$nls_parameters.value into l_DBcharset
699: from v$nls_parameters
700: where v$nls_parameters.parameter='NLS_CHARACTERSET';
701: Exception
702: When others then
703: l_DBcharset := 'UTF8';
704: End;