Run Report from Sql

DECLARE

myplist srw_paramlist;

v_rep_dest VARCHAR2(1000) := NULL;

myident srw.job_ident;

BEGIN

myplist := srw_paramlist(srw_parameter('', ''));

srw.ADD_PARAMETER(

myplist,

'GATEWAY',

'http://as_server/reports/rwservlet'

);

srw.ADD_PARAMETER(myplist, 'SERVER', 'rep_as_server_frhome1');

srw.ADD_PARAMETER(

myplist,

'REPORT',

'\\as_server\roadmap\7.2.1\fe10g\HRF3010.RDF'

);

srw.ADD_PARAMETER(myplist, 'USERID', 'RMVER721/RMVER721@ORCL');

srw.ADD_PARAMETER(myplist, 'DESTYPE', 'FILE');

srw.ADD_PARAMETER(myplist, 'DESFORMAT', 'PDF');

v_rep_dest := '\\as_server\reportshares\HRF3010' || '.PDF';

srw.ADD_PARAMETER(myplist, 'DESNAME', v_rep_dest);

srw.ADD_PARAMETER(myplist, 'BU', 'MAP');

myident := srw.run_report(myplist);

srw.clear_parameter_list(myplist);

END;