15行的PeopleCode搞定XML Publisher

import PSXP_RPTDEFNMANAGER:*;
&oRptDefn = create PSXP_RPTDEFNMANAGER:ReportDefn("FRED_XMLP"); /* set
parameter of ReportId */
&oRptDefn.Get();
/* fill query runtime prompt record */
&rcdQryPrompts = &oRptDefn.GetPSQueryPromptRecord();
If Not &rcdQryPrompts = Null Then
       &rcdQryPrompts.BIRTHDATE.Value = FRED_XMLP_AET.BIRTHDATE;
       &oRptDefn.SetPSQueryPromptRecord(&rcdQryPrompts);
End-If;
/*generate report*/
/* set parameter of (TemplateId, LanguageCD, AsOfDate, OutputFormat) */
&oRptDefn.ProcessReport("FRED_XMLP", "ENG", %Date, "");
/*publish report */
/* set parameter of (ServerName, ReportPath, FolderName, ProcessInstanceId)*/
&oRptDefn.Publish("","","", FRED_XMLP_AET.PROCESS_INSTANCE);

转载于:https://www.cnblogs.com/GoDevil/archive/2010/11/11/1874902.html