File not created via UTL filr

Question

PROCEDURE pr_exercise (
p_userid VARCHAR2,
p_filename VARCHAR2,
p_logfile VARCHAR2
IS
CURSOR c_exercise
IS
SELECT ordr.corp_name, e.exer_dt, ordr.corp_name, o.soc_sec, o.name_first,
o.name_mi, o.name_last, u.ml_retail_account, e.exer_dt, e.exer_type,
e.opts_exer,
(SELECT g.opt_prc
FROM grantz g
WHERE g.grant_num = e.grant_num AND g.user_id = e.user_id),
(SELECT SUM (d.shrs_sold)
FROM dispose d
WHERE d.exer_num = e.exer_num AND d.grant_num = e.grant_num),
e.shrs_swap, e.mkt_prc, (NVL (e.opts_exer, 0) * NVL (u.opt_prc, 0)),
(NVL (e.opts_exer, 0) * NVL (e.mkt_prc, 0)),
(SELECT SUM (f.commission)
FROM feeschgd f
WHERE f.exer_num = e.exer_num AND f.user_id = e.user_id),
NVL (u.tot_fee, 0), NVL (u.tot_tax, 0),
NVL (ordr.multi_curr_handling_fee, 0),
DECODE
(u.exer_type,
4, DECODE
(NVL (u.distribution_method, 'X'),
'X', NULL,
pk_xop_citibank_forex.fn_get_netamount
(u.user_id,
u.exer_num,
u.soc_sec,
u.sar_cash_amount,
NVL (u.comm_value, 0),
NVL (u.tot_fee, 0),
NVL (u.multi_curr_handling_fee,
0
( (NVL (u.shrs_sold, 0) * NVL (u.mkt_prc, 0))
- ( (u.opts_exer * NVL (u.opt_prc, 0))
+ DECODE (NVL (u.shrs_wthld_for_taxes, 'N'),
'Y', 0,
ROUND (NVL (u.tot_tax, 0), 2)
+ NVL (u.tot_fee, 0)
+ NVL (u.multi_curr_handling_fee, 0)
+ NVL (u.comm_value, 0)
- NVL (u.backup_withholding, 0)
ordr.ml_currency_code, ordr.foreign_currency_code,
ordr.distribution_method, e.user_id, ivr_plan_num, u.tot_fee,
u.exersource, xe.plan_type, e.exer_dt,
DECODE (u.plan_type,
0, 'ISO',
1, 'NONQUAL',
2, 'RES',
3, 'SAR',
4, 'RSU',
5, 'RCU',
6, 'DEU',
7, 'PS',
8, 'PU',
NULL
p.plan_id, e.create_dt,
--:blpt_pl_ef_dt,
fc.ivr_plan_num
FROM exercise e,
xop_exercise xe,
optionee o,
tb_ml_exer_upload u,
tb_xop_order_manager_t ordr,
planz p,
tb_fc_compy fc
WHERE e.exer_num = xe.exer_num
AND e.user_id = xe.user_id
AND e.opt_num = o.opt_num
AND e.user_id = o.user_id
AND e.exer_num = u.exer_num
AND e.user_id = u.user_id
AND e.exer_num = ordr.exer_num(+)
AND e.user_id = ordr.user_log(+)
AND e.plan_num = p.plan_num
AND e.user_id = p.user_id
AND (NVL (e.order_num, 0) >= 0 AND e.mkt_prc > 0)
AND e.user_id = TRIM ('CMSGGL_USER')
AND u.user_id = fc.compy_passwd;
file_out_portrait UTL_FILE.FILE_TYPE;
file_out_midas UTL_FILE.FILE_TYPE;
v_portrait_str VARCHAR2 (32767);
v_midas_str VARCHAR2 (32767);
v_is_firstline BOOLEAN := TRUE;
v_ivr_plan_num VARCHAR2 (30);
v_midas_filepath VARCHAR2 (100);
v_portrait_filepath VARCHAR2 (100);
v_midas_filename VARCHAR2 (100);
v_portrait_filename VARCHAR2 (100);
BEGIN
DBMS_OUTPUT.PUT_LINE('SUCCESS1');
pr_batch_feed_errors (p_logfile,
'Generating exercise feed for User:' || p_userid
DBMS_OUTPUT.PUT_LINE('SUCCESS2');
SELECT MIDAS_FILE_PATH,
PORTRAIT_FILE_PATH,
MIDAS_FILE_NAME,
PORTRAIT_FILE_NAME
INTO v_midas_filepath,
v_portrait_filepath,
v_midas_filename,
v_portrait_filename
FROM tb_xop_batch_job_info
WHERE job_id = 2;
DBMS_OUTPUT.PUT_LINE('SUCCESS3');
pr_batch_feed_errors (p_logfile,
'midas_file_path:' || v_midas_filepath||
'portrait_file_path:' || v_portrait_filepath||
'midas_file_name:' || v_midas_filename||
'portrait_file_name:' || v_portrait_filename
file_out_portrait :=
UTL_FILE.FOPEN (v_portrait_filepath, p_filename, 'W');
file_out_midas :=
UTL_FILE.FOPEN (v_midas_filepath, p_filename, 'W');
DBMS_OUTPUT.PUT_LINE('SUCCESS4');
FOR v_exercise IN c_exercise --(v_ivr_plan_num)
LOOP
DBMS_OUTPUT.PUT_LINE('SUCCESS5');
v_portrait_str :=
/*('EXSOP'
||'/+/'
||NULL
||'/+/'
||v_company.ivr_plan_num
||'/+/'
||'CMS'
||v_company.compy_acronym
||'_USER'
||'/+/'
||v_company.compy_nme
||'/+/'
|| NULL
||'/+/'
|| v_company.ml_sec_num
||'/+/'
||v_company.compy_symbl
||'/+/'
||fn_get_fmv_rpt(sysdate,'CMS'
||v_company.compy_acronym
||'_USER')
||'/+/'
||v_company.fa_num
||'/+/'
||v_company.fa_name_hnw
||'/+/'
||v_company.maint_in_progress_flag
||'/+/'
||v_company.vc_branch_prefix
||'/+/'
||NULL
||'/+/'
||v_company.usr_winlog_id
UTL_FILE.PUT_LINE (file_out_portrait, v_portrait_str);
-- check if Midas need to be run
IF fn_is_first_sat
THEN
--check for header
IF v_is_firstline
THEN
pr_batch_feed_errors (p_logfile,
'Midas Header'
v_midas_str :=
('Corp Name'
||chr(9)
||'SSN'
||chr(9)
||'First Name'
||chr(9)
||'Middle Name'
||chr(9)
||'Last Name'
||chr(9)
||'Brokerage Account'
||chr(9)
||'Exercise Date'
||chr(9)
||'Exercise Type'
||chr(9)
||'Options Exercised'
||chr(9)
||'Grant Price'
||chr(9)
||'Shares Sold'
||chr(9)
||'Shares Swapped'
||chr(9)
||'Exercise Price'
||chr(9)
||'Cost to Exercise'
||chr(9)
||'Sale Proceeds'
||chr(9)
||'Commission'
||chr(9)
||'Total Fees'
||chr(9)
||'Total Tax'
||chr(9)
||'Multi Currency Fee'
||chr(9)
||'Net Proceeds'
||chr(9)
||'ML Currency Code'
||chr(9)
||'Foreign Currency Code'
||chr(9)
||'Distribution Method'
||chr(9)
||'User ID'
||chr(9)
||'Grant Type'
||chr(9)
||'Plan no'
||chr(9)
||'Source'
||chr(9)
||'Plan type'
||chr(9)
||'Exercise Num'
UTL_FILE.PUT_LINE (file_out_midas, v_midas_str);
v_is_firstline := FALSE;
END IF;
v_midas_str :=
(v_exercise.corp_name
||chr(9)
||v_exercise.soc_sec
||chr(9)
||v_exercise.name_first
||chr(9)
||v_exercise.name_mi
||chr(9)
||v_exercise.name_last
||chr(9)
||v_exercise.ml_retail_account
||chr(9)
||v_exercise.exer_dt
||chr(9)
||v_exercise.exer_type
||chr(9)
||v_exercise.opts_exer
||chr(9)
||v_exercise.opt_prc
||chr(9)
||v_exercise.shrs_sold
||chr(9)
||v_exercise.shrs_swap
||chr(9)
||v_exercise.Mkt_Prc
||chr(9)
||v_exercise.exer_prc
||chr(9)
||v_exercise.shrs_prc
||chr(9)
||v_exercise.comm_value
||chr(9)
||v_exercise.tot_fee
||chr(9)
||v_exercise.tot_tax
||chr(9)
||v_exercise.multi_fee
||chr(9)
||v_exercise.Net_proceeds
||chr(9)
||v_exercise.ml_currency_code
||chr(9)
||v_exercise.Foreign_Currency_Code
||chr(9)
||v_exercise.Distribution_Method
||chr(9)
||v_exercise.user_id
||chr(9)
||v_exercise.grant_type
||chr(9)
||v_exercise.plan_no
||chr(9)
||v_exercise.source
||chr(9)
||v_exercise.plan_type
||chr(9)
||v_exercise.exer_num);
UTL_FILE.PUT_LINE (file_out_midas, v_midas_str);
END IF;
END LOOP;
pr_batch_feed_errors (p_logfile,
'Created exercise feed for User'
|| p_userid);
-- close Midas and Portrait file
UTL_FILE.FCLOSE (file_out_portrait);
UTL_FILE.FCLOSE (file_out_midas);
EXCEPTION
WHEN OTHERS
THEN
pr_batch_feed_errors
( p_logfile,
'Critical Error! Code '
|| SQLCODE
|| ':'
|| SQLERRM
|| ' at '
|| USER
|| 'pk_xop_batch_feeds.pr_exercise'
END pr_exercise;

Answer 1

Hi,
Please read SQL and PL/SQL FAQ
If you have a performance issue have a look at SQL and PL/SQL FAQ
Additionally when you put some code or output please enclose it between two lines starting with {noformat}{noformat}
i.e.:
{noformat}{noformat}
SELECT ...
{noformat}{noformat}
Regards.
Al