352: BEGIN
353:
354: select substr(userenv('LANG'),1,4)
355: into userenv_lang
356: from dual;
357:
358: /* Bug8486880
359: select language_code
360: into base_lang
602: || 'Entering print master program at the first time');
603: -- read the user env language
604: select substr(userenv('LANG'),1,4)
605: into userenv_lang
606: from dual;
607:
608: /*Bug8486880
609: select language_code
610: into base_lang