O erro que dá é :
FRM-41213: Unable to connect to Report server <ReportServerTnsName>
Alguém pode me ajudar, segue meu código abaixo:
pl_id := Create_Parameter_List('TMPDATA');
tool_env.getvar('REPORTS_SERVERMAP',mapped_entry);
reportServer :=substr(mapped_entry,instr
report_id := FIND_REPORT_OBJECT('REL_DRE');
add_parameter(pl_id,'paramform', text_parameter, 'no');
Add_Parameter(pl_id,'NONBLOCKSQL',TEXT_PARAMETER,'NO');
add_parameter(pl_id,'P_DATA_REPROG',text_parameter,'01/06/2010');
add_parameter(pl_id,'P_ID_CAD_CENTRO_RESULTADO',text_parameter,'4286');
add_parameter(pl_id,'p_organizacao',text_parameter,null);
add_parameter(pl_id,'P_TIPO',text_parameter,'A');
add_parameter(pl_id,'p_unidade_gerencial',text_parameter,null);
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_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'pdf');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,'<ReportServerTnsName>');
v_rep := RUN_REPORT_OBJECT(report_id,pl_id);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
IF rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid'||
substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server='||reportServer);
ELSE
message('Error when running report');
END IF;
DESTROY_PARAMETER_LIST('TMPDATA');