PDF reports generation problem from single oracle reports in 10G

Question

Hi All,
i am generating 4 PDF reports from one Oracle reports in 10 G.
i used RUN_REPORT_OBJECT built in 4 times with some different parameter list at a single time.
some time it generates but some time it generate 2 or 3 out of 4.
Can you anyone help me on this issue.
Regards,
Abhishek
Code that i used for generation of report:
on key-F0:
DECLARE
PL_ID PARAMLIST;
PL_NAME VARCHAR2(10) := 'REP';
USRNM VARCHAR2(50);
pl_id2 paramlist;
pl_name2 varchar2(10):= 'REP';
usrnm2 varchar2(50);
pl_id3 paramlist;
pl_name3 varchar2(10):= 'REP';
usrnm3 varchar2(50);
pl_id4 paramlist;
pl_name4 varchar2(10):= 'REP';
usrnm4 varchar2(50);
BEGIN
USRNM := GET_APPLICATION_PROPERTY(USERNAME);
PL_ID := GET_PARAMETER_LIST(PL_NAME);
IF NOT ID_NULL(PL_ID) THEN
DESTROY_PARAMETER_LIST(PL_ID);
END IF;
PL_ID := CREATE_PARAMETER_LIST(PL_NAME);
IF ID_NULL(PL_ID) THEN
MESSAGE('Error Creating Parameter List ');
END IF;
ADD_PARAMETER(PL_ID, 'P_PRNT_C_FAM_ID', TEXT_PARAMETER, :PRNT_C_FAM_ID);
ADD_PARAMETER(PL_ID, 'P_NOTICE_DATE', TEXT_PARAMETER, TO_CHAR(:FRONT_END.NOTICE_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID, 'P_REDET_DATE', TEXT_PARAMETER, TO_CHAR(:FRONT_END.REDET_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID, 'USR_NM', TEXT_PARAMETER, USRNM);
ADD_PARAMETER(PL_ID, 'SCHEDULE', TEXT_PARAMETER, :RUN_TIME);
ADD_PARAMETER(PL_ID,'P_PRNT_PROV',TEXT_PARAMETER,'PRNT');
ADD_PARAMETER(PL_ID, 'P_ENG_SP', TEXT_PARAMETER,'N');
REDET_REPORT('506',PL_ID,'CT506_Parent_FamId_Eng'||To_Char(sysdate,'MMDDRRRR-HHMISS'));
USRNM2 := GET_APPLICATION_PROPERTY(USERNAME);
PL_ID2 := GET_PARAMETER_LIST(PL_NAME2);
IF NOT ID_NULL(PL_ID2) THEN
DESTROY_PARAMETER_LIST(PL_ID2);
END IF;
PL_ID2 := CREATE_PARAMETER_LIST(PL_NAME2);
IF ID_NULL(PL_ID2) THEN
MESSAGE('Error Creating Parameter List');
END IF;
ADD_PARAMETER(PL_ID2,'P_PRNT_C_FAM_ID',TEXT_PARAMETER,:PRNT_C_FAM_ID);
ADD_PARAMETER(PL_ID2,'P_NOTICE_DATE',TEXT_PARAMETER,TO_CHAR(:FRONT_END.NOTICE_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID2,'P_REDET_DATE',TEXT_PARAMETER,TO_CHAR(:FRONT_END.REDET_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID2,'USR_NM',TEXT_PARAMETER,USRNM2);
ADD_PARAMETER(PL_ID2,'SCHEDULE',TEXT_PARAMETER,:RUN_TIME);
ADD_PARAMETER(PL_ID2,'P_PRNT_PROV',TEXT_PARAMETER,'PRNT');
ADD_PARAMETER(PL_ID2,'P_ENG_SP',TEXT_PARAMETER,'Y');
REDET_REPORT('506',PL_ID2,'CT506_Parent_FamId_Sp'||To_Char(sysdate,'MMDDRRRR-HHMISS'));
USRNM3 := GET_APPLICATION_PROPERTY(USERNAME);
PL_ID3 := GET_PARAMETER_LIST(PL_NAME3);
IF NOT ID_NULL(PL_ID3) THEN
DESTROY_PARAMETER_LIST(PL_ID3);
END IF;
PL_ID3 := CREATE_PARAMETER_LIST(PL_NAME3);
IF ID_NULL(PL_ID3) THEN
MESSAGE('Error Creating Parameter List');
END IF;
ADD_PARAMETER(PL_ID3,'P_PRNT_C_FAM_ID',TEXT_PARAMETER,:PRNT_C_FAM_ID);
ADD_PARAMETER(PL_ID3,'P_NOTICE_DATE',TEXT_PARAMETER,TO_CHAR(:FRONT_END.NOTICE_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID3,'P_REDET_DATE',TEXT_PARAMETER,TO_CHAR(:FRONT_END.REDET_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID3,'USR_NM',TEXT_PARAMETER,USRNM3);
ADD_PARAMETER(PL_ID3,'SCHEDULE',TEXT_PARAMETER,:RUN_TIME);
ADD_PARAMETER(PL_ID3,'P_PRNT_PROV',TEXT_PARAMETER,'PROV');
ADD_PARAMETER(PL_ID3,'P_ENG_SP',TEXT_PARAMETER,'N');
REDET_REPORT('506',PL_ID3,'CT506_Prov_ProvId_Eng'||To_Char(sysdate,'MMDDRRRR-HHMISS'));
USRNM4 := GET_APPLICATION_PROPERTY(USERNAME);
PL_ID4 := GET_PARAMETER_LIST(PL_NAME4);
IF NOT ID_NULL(PL_ID4) THEN
DESTROY_PARAMETER_LIST(PL_ID4);
END IF;
PL_ID4 := CREATE_PARAMETER_LIST(PL_NAME4);
IF ID_NULL(PL_ID4) THEN
MESSAGE('Error Creating Parameter List');
END IF;
ADD_PARAMETER(PL_ID4,'P_PRNT_C_FAM_ID',TEXT_PARAMETER,:PRNT_C_FAM_ID);
ADD_PARAMETER(PL_ID4,'P_NOTICE_DATE',TEXT_PARAMETER,TO_CHAR(:FRONT_END.NOTICE_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID4,'P_REDET_DATE',TEXT_PARAMETER,TO_CHAR(:FRONT_END.REDET_DATE,'MM/DD/RRRR'));
ADD_PARAMETER(PL_ID4,'USR_NM',TEXT_PARAMETER,USRNM4);
ADD_PARAMETER(PL_ID4,'SCHEDULE',TEXT_PARAMETER,:RUN_TIME);
ADD_PARAMETER(PL_ID4,'P_PRNT_PROV',TEXT_PARAMETER,'PROV');
ADD_PARAMETER(PL_ID4,'P_ENG_SP',TEXT_PARAMETER,'Y');
REDET_REPORT('506',PL_ID4,'CT506_Prov_ProvId_Sp'||To_Char(sysdate,'MMDDRRRR-HHMISS'));
Message('Notice Submitted For Printing');
EXIT_FORM;
END;
Program unit:
PROCEDURE REDET_REPORT(rep_name in Varchar2,plist in ParamList,rep_pdf_name in Varchar2)IS
filecode varchar(2);
Repnm varchar(30);
report_id REPORT_OBJECT;
report_id_hear REPORT_OBJECT;
report_prop VARCHAR2(20);
v_rep VARCHAR2(100);
rep_status VARCHAR2(200);
bat_loc varchar2(200);
time_slot varchar2(100);
rep_folder_name varchar2(100):='Redet Notice for Packets Sent\';
BEGIN
Filecode := init.GetFileNmCode;
if filecode 'FL' then
if upper(substr(rep_name,1,2)) ='CC' then
RepNm := filecode||substr(rep_name,3);
else
if rep_name != 'viewerr' then
RepNm := filecode||rep_name;
else
RepNm := rep_name;
end if;
end if;
end if;
Begin
begin
report_id := find_report_object(RepNm);
if error_code = '41219' then
Message('Unable to execute : '|| RepNm);
Raise FORM_TRIGGER_FAILURE;
end if;
end;
set_report_object_property(report_id, REPORT_FILENAME, RepNm);
set_report_object_property(report_id, REPORT_SERVER, init.Appl_Repserver);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_EXECUTION_MODE, BATCH);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_COMM_MODE,SYNCHRONOUS);
set_report_object_property(report_id, REPORT_DESFORMAT,'PDF');
select rprm_param_val||rep_folder_name||rep_pdf_name||'.pdf' into bat_loc from rprm where rprm_param_name = 'BAT_LOC';
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,FILE);
SET_REPORT_OBJECT_PROPERTY(REPORT_ID,REPORT_DESNAME,'"'||bat_loc||'"');
begin
v_rep := RUN_REPORT_OBJECT(report_id,plist);
exception when others then
Message('Error While executing running reports ::'||error_code);
end;
end;
END;

Answer 1

Thanx Frank
Well one solution is that i can decrease the length of my report name and the problem does not occur than.
any ways thanx ..but where to get the patch from.
Kindly provide me with the link if possible.
Thanx,
Qaiser Qayyum Malik.
[email protected]