Re: MIDRANGE-L Digest, Vol 7, Issue 1803

[JDHorn@xxxxxxxxxxxxxx]

   Rob
    
   this system thought surely not perfect, works for us (mostly)
     to move test program libraries to production program libraries
     it is not used for data libraries
    
   The sequence of events and commands are
    ask for a from and to library
    dspobjd fromlib to an outfile - all objects
        DSPOBJD    OBJ(&S_FLIB/*ALL) OBJTYPE(*ALL) +                 
                     OUTPUT(*OUTFILE) OUTFILE(CAT/DSPOBJD) +         
                     OUTMBR(*FIRST *REPLACE)                         
     read outfile
      if source physical file see below
     else
      if physical file 
        CPYF       FROMFILE(&S_FLIB/&D_ODOBNM) +                 
                TOFILE(&S_TLIB/&D_ODOBNM) FROMMBR(*FIRST) + 
                TOMBR(*FROMMBR) MBROPT(*REPLACE) +          
                CRTFILE(*YES) 
      if logical file
         send a message
      if any other object type 
         create from and to object strings                                 
         DEL        OBJLNK(&TOOBJ)                          
         MONMSG     MSGID(CPF0000)                           
         CPY        OBJ(&OBJ) TOOBJ(&TOOBJ) REPLACE(*YES) + 
                OWNER(*KEEP)  
    
   if menu's were found in the above process
       DSPOBJD    OBJ(&S_FLIB/*ALL) OBJTYPE(*MENU) +             
                    OUTPUT(*OUTFILE) OUTFILE(CAT/DSPOBJDMNU) +   
                    OUTMBR(*FIRST *REPLACE)                      
       read outfile 
       CHGMNU     MENU(&M_ODOBNM) DSPF(*LIBL/&M_ODOBNM) +
                   MSGF(*LIBL/&M_ODOBNM)                
    
                              
   -------------------------------------
   if source physical file
      DSPFD      FILE(&S_FLIB/&SRCFILE) TYPE(*MBRLIST) + 
                      OUTPUT(*OUTFILE) OUTFILE(CAT/DSPFDMBRL) 
       read outfile
       if mbrname > ' ' 
       CPYF       FROMFILE(&S_FLIB/&SRCFILE) +                  
                    TOFILE(&S_TLIB/&SRCFILE) +                  
                    FROMMBR(&M_MLNAME) TOMBR(*FROMMBR) +        
                    MBROPT(*REPLACE) CRTFILE(*NO) FMTOPT(*NOCHK)
    
    
    
    
   ------------------------------

   message: 4
   date: Tue, 9 Sep 2008 14:49:58 -0400
   from: rob@xxxxxxxxx
   subject: Re: view sysprocs and library consolidation

   <snip>
       (sql procedures and all other objects in the library that are not
         source physical files or database physical or logical files)
           other commands are used for these
   </snip>
   I am curious as to what these "other commands" are.

   Rob Berendt
   --
   Group Dekko Services, LLC
   Dept 01.073
   Dock 108
   6928N 400E
   Kendallville, IN 46755
   http://www.dekko.com

   Jim Horn

   This email is intended only for the person or entity  
   to which it is addressed and may contain information  
   that is privileged, confidential or otherwise protected  
   from disclosure. If you are not the named addressee  
   or an employee or agent responsible for delivering  
   this message to the named addressee, you are not
   authorized to read, print, retain copy, and disseminate
   this message or any part of it. If you have received this
   message in error please notify us immediately by email,
   discard any paper copies and delete all electronic files  
   of this message.