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