Forms Reports Question:

DECLARE
pl_id PARAMLIST;

BEGIN
pl_id := CREATE_PARAMETER_LIST('quotation');
IF NOT ID_NULL(pl_id) THEN
Add_parameter(pl_id,'DESTYPE',TEXT_PARAMETER, :DESTYPE);
ADD_PARAMETER(pl_id,'DESFORMAT',TEXT_PARAMETER,:DESFORMAT);
ADD_PARAMETER(pl_id,'DESNAME',TEXT_PARAMETER,:DESNAME);
Add_parameter(pl_id,'MODE',TEXT_PARAMETER, 'BITMAP');
Add_parameter
(pl_id,'untcd',TEXT_PARAMETER,:GLOBAL.G_STRUNITCODE);
Add_parameter
(pl_id,'FYCD',TEXT_PARAMETER,:GLOBAL.G_STRFINYEARCODE);
Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');

IF :id is not nullTHEN
Run_Product
(REPORTS,PLANDETAIL.rep',SYNCHRONOUS,RUNTIME,FILESYSTEM,
pl_id, NULL);
DESTROY_PARAMETER_LIST(pl_id);
END IF;
end if;
end;