2006-01-01 如何快速更改整個 Library 的所有 Object 的擁有者?(Commad CHGLIBOWN)

如何快速更改整個 Library 的所有 Object 的擁有者?(Command CHGLIBOWN)

要更改 Object owner 可以使用 CHGOBJOWN 指令, 但此指令僅能針對一個 Object 有效, 
若需要針對多個物件更改時,處理時較麻煩.可以使用 CHGOWN 指令較容易快速, 他可以接受
萬用字元"*".


File  : QCLSRC
Member: CHGLIBOWNC
Type  : CLP
Usage : CRTCLPGM CHGLIBOWNC


Pgm (&Library &Owner)                                            
                                                                 
  Dcl &Library *Char 10                                          
  Dcl &Owner *Char 10                                            
  Dcl &Objects *Char 255                                         
                                                                 
  ChgVar &Objects Value('/QSYS.LIB/' *CAT &Library *TCAT +       
                    '.LIB/*.*')                                  
  ChgOwn  Obj(&Objects) NewOwn(&Owner)                           
  Return                                                         
  EndPgm                                                         

File  : QCMDSRC
Member: CHGLIBOWN
Type  : CMD
Usage : CRTCMD CMD(CHGLIBOWN) PGM(CHGLIBOWNC)

             CMD        PROMPT('Change Library Ownership')             
             PARM       KWD(LIB) TYPE(*CHAR) LEN(10) PROMPT('Library:')
             PARM       KWD(NEWOWN) TYPE(*CHAR) LEN(10) PROMPT('New +  
                          Owner:')