DBA Data[Home] [Help]

APPS.BEN_EXT_WRITE dependencies on UTL_FILE

Line 31: Changed utl_file.put statement to varchar

27: 06 Aug 99 ASEN 115.9 Added messages : Entering, Exiting.
28: 27 Sep 99 Ty Hayden 115.10 Removed directory defaulting.
29: 14 Jan 99 Ty Hayden 115.11 Changed record length from 200 to 2000
30: 26 Oct 00 rchase 115.12 wwbug 1412809 fix
31: Changed utl_file.put statement to varchar
32: assignment and moved to final put_line.
33: 30 JAN 01 tilak 115.13 wwbug 1579767 error messages is sent instead of name
34: 21 jun 01 tilak 115.14 gv$system_parameter used instead of v$system_parmeter
35: 06 JAN 02 nhunur 115.15 Added code to pickup max line size for UTL FILE from

Line 35: 06 JAN 02 nhunur 115.15 Added code to pickup max line size for UTL FILE from

31: Changed utl_file.put statement to varchar
32: assignment and moved to final put_line.
33: 30 JAN 01 tilak 115.13 wwbug 1579767 error messages is sent instead of name
34: 21 jun 01 tilak 115.14 gv$system_parameter used instead of v$system_parmeter
35: 06 JAN 02 nhunur 115.15 Added code to pickup max line size for UTL FILE from
36: a new profile .
37: 16 JAN 02 hnarayan 115.16 bug 2066883 fix - Changed variable sizes to allow for
38: record length upto 32000.
39: 11 mar 02 tjesumic 115.17 utf changes

Line 4149: file_handle utl_file.file_type;

4145: p_source in varchar2 default 'BENXWRIT'
4146: ) is
4147: --
4148: --
4149: file_handle utl_file.file_type;
4150: l_output_name ben_ext_rslt.output_name%type ;
4151: l_drctry_name ben_ext_rslt.drctry_name%type ;
4152: l_ext_stat_cd ben_ext_rslt.ext_stat_cd%type ;
4153: -- hnarayan - bug fix 2066883 - changed size of l_val from 2000 to 32000

Line 4523: where name = 'utl_file_dir'

4519: -- apps may not have acces gv$system_parameter2, create compilation error
4520: cursor c_utl is
4521: select 'x'
4522: from gv$system_parameter
4523: where name = 'utl_file_dir'
4524: and value like ('%' || l_drctry_name || '%')
4525: union
4526: select 'x'
4527: from gv$system_parameter2

Line 4528: where name = 'utl_file_dir'

4524: and value like ('%' || l_drctry_name || '%')
4525: union
4526: select 'x'
4527: from gv$system_parameter2
4528: where name = 'utl_file_dir'
4529: and value like ('%' || l_drctry_name || '%');
4530: */
4531: --
4532: cursor c_xel_name(p_ext_rcd_id number ,

Line 4634: -- if utl_file.fopen fails to find the directory, it will

4630: --
4631: hr_Utility.set_location('dir '||l_drctry_name, 5);
4632: /*
4633: -- 4143619 - Dont need this SQL for validating the directory
4634: -- if utl_file.fopen fails to find the directory, it will
4635: -- raise invalid path exception where this message will now be displayed.
4636: open c_utl;
4637: fetch c_utl into l_dummy;
4638: if c_utl%notfound then

Line 4746: file_handle := utl_file.fopen (l_drctry_name,l_output_name,'w' , l_max_ext_line_size );

4742:
4743:
4744: --
4745: if l_cm_display_flag <> 'Y' then
4746: file_handle := utl_file.fopen (l_drctry_name,l_output_name,'w' , l_max_ext_line_size );
4747: end if ;
4748: --
4749: -- End - Bug : 2066883
4750: -- ----------------------------------------------------------------------------------------

Line 4775: utl_file.put_line(file_handle,l_val_all);

4771: end if ;
4772: if l_cm_display_flag = 'Y' then
4773: fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
4774: else
4775: utl_file.put_line(file_handle,l_val_all);
4776: end if ;
4777: l_accum_length := 0;
4778: l_val := '';
4779: l_val_all := '';

Line 5108: raise utl_file.invalid_maxlinesize ;

5104: hr_utility.set_location( ' length val ' || length(l_val) , 99);
5105: -- validate whether l_val length is more then the max line sixe
5106: -- if the size more then 32700 then the variable may error so validate
5107: if length(l_val) > l_max_ext_line_size then
5108: raise utl_file.invalid_maxlinesize ;
5109: end if;
5110:
5111: -- add a warning when truncating data.
5112: if length(l_val) > l_length then

Line 5130: -- RCHASE wwbug 1412809 fix - Changed utl_file.put statement to varchar

5126: else
5127: l_val := rpad(l_val,l_length);
5128: end if;
5129: -- now write l_val.
5130: -- RCHASE wwbug 1412809 fix - Changed utl_file.put statement to varchar
5131: -- assignment and moved to final put_line.
5132:
5133: -- when the lenght exceeds the max length then throw the error with
5134: -- dont let the system erroes with ORA error

Line 5138: raise utl_file.invalid_maxlinesize ;

5134: -- dont let the system erroes with ORA error
5135: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);
5136: if length(l_val_all||l_val) > l_max_ext_line_size then -- variable defined to 32700
5137: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);
5138: raise utl_file.invalid_maxlinesize ;
5139: end if ;
5140:
5141: l_val_all:=l_val_all||l_val;
5142: l_prev_seq_num := k ;

Line 5143: --utl_file.put(file_handle,l_val);

5139: end if ;
5140:
5141: l_val_all:=l_val_all||l_val;
5142: l_prev_seq_num := k ;
5143: --utl_file.put(file_handle,l_val);
5144: -- RCHASE end
5145: -- add to length written accumlator.
5146: l_accum_length := l_accum_length +l_length;
5147: -- init l_val

Line 5163: raise utl_file.invalid_maxlinesize ;

5159:
5160: -- build the record.
5161: if length(l_val || l_tmp || g_dlmtr_val(k)) > l_max_ext_line_size then -- variable defined to 32700
5162: hr_utility.set_location( ' raise warning ' || length(l_val || l_tmp || g_dlmtr_val(k)) , 99);
5163: raise utl_file.invalid_maxlinesize ;
5164: end if ;
5165:
5166: l_val := l_val || l_tmp || g_dlmtr_val(k);
5167: -- store the justification code in buffer.

Line 5195: raise utl_file.invalid_maxlinesize ;

5191: -- when the lenght exceeds the max length then throw the error with
5192: -- dont let the system erroes with ORA error
5193: if length(l_val_all||l_val) > l_max_ext_line_size then -- variable defined to 32700
5194: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);
5195: raise utl_file.invalid_maxlinesize ;
5196: end if ;
5197:
5198: l_val_all := l_val_all||l_val ;
5199:

Line 5223: utl_file.put_line(file_handle,l_val_all);

5219: -- RCHASE wwbug 1412809 fix - altered put_line by adding l_val_all
5220: if l_cm_display_flag = 'Y' then
5221: fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
5222: else
5223: utl_file.put_line(file_handle,l_val_all);
5224: end if ;
5225:
5226: --utl_file.put_line(file_handle,l_val_all);
5227: l_accum_length := 0;

Line 5226: --utl_file.put_line(file_handle,l_val_all);

5222: else
5223: utl_file.put_line(file_handle,l_val_all);
5224: end if ;
5225:
5226: --utl_file.put_line(file_handle,l_val_all);
5227: l_accum_length := 0;
5228: --l_val := '';
5229: l_val_all := '';
5230: end if ;

Line 5252: utl_file.put_line(file_handle,l_val_all);

5248: end if ;
5249: if l_cm_display_flag = 'Y' then
5250: fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
5251: else
5252: utl_file.put_line(file_handle,l_val_all);
5253: end if ;
5254: --utl_file.put_line(file_handle,l_val_all);
5255: end if ;
5256: --

Line 5254: --utl_file.put_line(file_handle,l_val_all);

5250: fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
5251: else
5252: utl_file.put_line(file_handle,l_val_all);
5253: end if ;
5254: --utl_file.put_line(file_handle,l_val_all);
5255: end if ;
5256: --
5257: if l_cm_display_flag <> 'Y' then
5258: utl_file.fclose(file_handle);

Line 5258: utl_file.fclose(file_handle);

5254: --utl_file.put_line(file_handle,l_val_all);
5255: end if ;
5256: --
5257: if l_cm_display_flag <> 'Y' then
5258: utl_file.fclose(file_handle);
5259: end if ;
5260:
5261: Else -- this is called for xml and pdf
5262: --- call the function to write the xml file

Line 5303: WHEN utl_file.invalid_path then

5299: fnd_file.put_line(fnd_file.log, fnd_message.get);
5300: write_warning(g_err_name , p_ext_rslt_id );
5301: fnd_message.raise_error;
5302: --
5303: WHEN utl_file.invalid_path then
5304: fnd_message.set_name('BEN', 'BEN_91874_EXT_DRCTRY_ERR');
5305: fnd_file.put_line(fnd_file.log, fnd_message.get);
5306: write_warning('BEN_91874_EXT_DRCTRY_ERR' , p_ext_rslt_id );
5307: fnd_message.raise_error;

Line 5309: WHEN utl_file.invalid_mode then

5305: fnd_file.put_line(fnd_file.log, fnd_message.get);
5306: write_warning('BEN_91874_EXT_DRCTRY_ERR' , p_ext_rslt_id );
5307: fnd_message.raise_error;
5308: --
5309: WHEN utl_file.invalid_mode then
5310: fnd_message.set_name('BEN', 'BEN_92249_UTL_INVLD_MODE');
5311: fnd_file.put_line(fnd_file.log, fnd_message.get);
5312: write_warning('BEN_92249_UTL_INVLD_MODE' , p_ext_rslt_id );
5313: fnd_message.raise_error;

Line 5315: WHEN utl_file.invalid_filehandle then

5311: fnd_file.put_line(fnd_file.log, fnd_message.get);
5312: write_warning('BEN_92249_UTL_INVLD_MODE' , p_ext_rslt_id );
5313: fnd_message.raise_error;
5314: --
5315: WHEN utl_file.invalid_filehandle then
5316: fnd_message.set_name('BEN', 'BEN_92250_UTL_INVLD_FILEHANDLE');
5317: fnd_file.put_line(fnd_file.log, fnd_message.get);
5318: write_warning('BEN_92250_UTL_INVLD_FILEHANDLE' , p_ext_rslt_id );
5319: fnd_message.raise_error;

Line 5321: WHEN utl_file.invalid_operation then

5317: fnd_file.put_line(fnd_file.log, fnd_message.get);
5318: write_warning('BEN_92250_UTL_INVLD_FILEHANDLE' , p_ext_rslt_id );
5319: fnd_message.raise_error;
5320: --
5321: WHEN utl_file.invalid_operation then
5322: fnd_message.set_name('BEN', 'BEN_92251_UTL_INVLD_OPER');
5323: fnd_file.put_line(fnd_file.log, fnd_message.get);
5324: write_warning('BEN_92251_UTL_INVLD_OPER' , p_ext_rslt_id );
5325: fnd_message.raise_error;

Line 5327: WHEN utl_file.read_error then

5323: fnd_file.put_line(fnd_file.log, fnd_message.get);
5324: write_warning('BEN_92251_UTL_INVLD_OPER' , p_ext_rslt_id );
5325: fnd_message.raise_error;
5326: --
5327: WHEN utl_file.read_error then
5328: fnd_message.set_name('BEN', 'BEN_92252_UTL_READ_ERROR');
5329: fnd_file.put_line(fnd_file.log, fnd_message.get);
5330: write_warning('BEN_92252_UTL_READ_ERROR' , p_ext_rslt_id );
5331: fnd_message.raise_error;

Line 5333: WHEN utl_file.internal_error then

5329: fnd_file.put_line(fnd_file.log, fnd_message.get);
5330: write_warning('BEN_92252_UTL_READ_ERROR' , p_ext_rslt_id );
5331: fnd_message.raise_error;
5332: --
5333: WHEN utl_file.internal_error then
5334: fnd_message.set_name('BEN', 'BEN_92253_UTL_INTRNL_ERROR');
5335: fnd_file.put_line(fnd_file.log, fnd_message.get);
5336: write_warning('BEN_92253_UTL_INTRNL_ERROR' , p_ext_rslt_id );
5337: fnd_message.raise_error;

Line 5341: WHEN utl_file.invalid_maxlinesize then

5337: fnd_message.raise_error;
5338: --
5339: -- -----------------------------------------------------------------------
5340: -- Start - Bug : 2066883
5341: WHEN utl_file.invalid_maxlinesize then
5342: fnd_message.set_name ('BEN' ,'BEN_92492_UTL_LINESIZE_ERROR');
5343: fnd_file.put_line(fnd_file.log , fnd_message.get );
5344: write_warning('BEN_92492_UTL_LINESIZE_ERROR' , p_ext_rslt_id );
5345: fnd_message.raise_error ;