plgdoir991.upg

来自「Oracle PL/SQL procedure generator (secon」· UPG 代码 · 共 68 行

/*
||******************** PL/Generator from Quest Software *********************
|| Upgrade PLG_DOIR table for PL/Generator
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Generator Code library.
|| Copyright (C) 1998-1999 Quest Software, Inc.
|| All rights reserved.
||
|| For more information, call Quest Software at 1-800-REVEAL4
|| or check out our Web page: www.Quest Software.com
||
|| 03/1999 - Created for 99.1 release
||           Upgrade the user's customizations to use PLGalias. 
||           If a new installation, will do nothing. 
******************************************************************/

DECLARE
/* Make sure that all prefix/suffix settings and
   identifier changes use the new PLG> approach.
*/
   CURSOR wrap_cur 
   IS   
      SELECT attrname
        FROM plg_doir
       WHERE attrtype IN ('WRAP ALIAS', 'PREF ALIAS', 'SUFF ALIAS')
         AND UPPER (attrname) NOT LIKE 'PLG>%'
         FOR UPDATE;

   CURSOR ident_cur 
   IS   
      SELECT attrname
        FROM plg_doir U
       WHERE attrtype = 'MISC ALIAS'
         AND UPPER (attrname) NOT LIKE 'PLG>%'
         AND UPPER (attrname) IN 
               (SELECT UPPER (SUBSTR (G.attrname, 5)) FROM plg_doir G
                 WHERE SUBSTR (G.attrname, 5) = UPPER (U.attrname)
                   AND G.objid < 0
                   AND G.attrtype = 'IDENT ALIAS')
         FOR UPDATE;
BEGIN
   /* Wraps */
   FOR rec IN wrap_cur
   LOOP
      DBMS_OUTPUT.PUT_LINE (
         'Updating wrap ' || rec.attrname);
         
      UPDATE plg_doir
         SET attrname = 'PLG>' || rec.attrname
       WHERE CURRENT OF wrap_cur;
   END LOOP;
   
   /* Identifiers */
   FOR rec IN ident_cur
   LOOP
      DBMS_OUTPUT.PUT_LINE (
         'Updating ident' || rec.attrname);
         
      UPDATE plg_doir
         SET attrname = 'PLG>' || rec.attrname
       WHERE CURRENT OF ident_cur;
   END LOOP;

   COMMIT;
END;
/