sorry for the bad subject before.



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 then

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)




if you see any big -gotcha's- let me know


------------------------------

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.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].