DECLARE
param_list_id ParamList; -- Define an object of type paramlist
BEGIN
param_list_id := GET_PARAMETER_LIST(‘my_parameter');
-- Test if the parameter list already exists.
IF NOT ID_NULL(param_list_id) THEN
DESTROY_PARAMETER_LIST(param_list_id);
END IF;
param_list_id := CREATE_PARAMETER_LIST('my_parameter');
ADD_PARAMETER(param_list_id, 'p_customer_id', TEXT_PARAMETER, :ID);
CALL_FORM('c:\portfolio', NO_HIDE, DO_REPLACE, NO_QUERY_ONLY, param_list_id);
END;
No comments:
Post a Comment