在菜單中調用REPORT程序(不傳參數,傳參數可用下面的程序段)
Run_PRodUCt(REPORTS, '報表程序名.REP', SYNCHRONOUS, RUNTIME, FILESYSTEM, '', NULL);
在FORM中調用REPORT程序(可傳參數)
DECLARE
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List('參數列表名');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('參數列表名');
Add_Parameter(pl_id,'REPORT參數名1',DATA_PARAMETER,':FORM項名1');
Add_Parameter(pl_id,'REPORT參數名2',TEXT_PARAMETER, :FORM項名2);
… …
Run_Product(REPORTS, '報表程序名.REP', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id,
NULL);
END;