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;