Oracle Developer's Share

DECLARE
  pl_id   ParamList;
  pl_name VARCHAR2(10) := 'tempdata';
BEGIN
  -- 建立 Parameter List
  IF not Id_Null(Get_Parameter_List(pl_name)) THEN
     begin
       Destroy_Parameter_List( pl_name );
       pl_id := Create_Parameter_List(pl_name);
     exception
       when others then
         null;
     end;
  ELSE
     pl_id := Create_Parameter_List(pl_name);
  END IF;
  
  -- 新增 Parameter
  add_parameter( 'tempdata'
               , 'PROGRAM_APPL_SHORT_NAME'
               , TEXT_PARAMETER
               , 'PROGRAM_APPL_SHORT_NAME'
               );
  add_parameter( 'tempdata'
               , 'CONCURRENT_PROGRAM_NAME'
               , TEXT_PARAMETER
               , 'CONCURRENT_PROGRAM_NAME'
               );
END;
 
OPEN_FORM( '$FND_TOP/forms/US/FNDRSRUN'
         , ACTIVATE
         , SESSION
         , NO_SHARE_LIBRARY_DATA
         , 'tempdata'
         );