D2k call_form、open_form的參數傳遞

DECLARE
pl_id ParamList;
pl_name VARCHAR2(10) := 'tempdata';
BEGIN

pl_id := Get_Parameter_List(pl_name);

IF NOT Id_null(pl_id) THEN
Destroy_Parameter_List(pl_name);
END IF;

pl_id := create_parameter_list(pl_name);
Add_Parameter(pl_id,'PHYSICAL_INVENTORY_NAME_MIR',TEXT_PARAMETER,:FOLDER.PHYSICAL_INVENTORY_NAME_MIR);
call_form('INVARPGT',no_hide,do_replace,no_query_only,share_library_data,pl_id);