-----form中
DECLARE
pl_id PARAMLIST;
BEGIN
IF NOT ID_NULL(pl_id) THEN
DESTROY_PARAMETER_LIST(pl_id);
END IF;
pl_id:=CREATE_PARAMETER_LIST('pl_report');
IF NOT ID_NULL(pl_id) THEN
ADD_PARAMETER(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');
ADD_PARAMETER(pl_id,'DESTYPE',TEXT_PARAMETER,'printer');
..........
RUN_PRODUCT(REPORTS,rep_name.rep',
SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
END IF;
DESTROY_PARAMETER_LIST(pl_id);
END;
---report中
在user_parameters中增加相应的参数