RE: AS400 programmer :) finally!

Pete Hall (peteh@earth.inwave.com) wrote:

>Use CPYF for the source and MOVOBJ for the program. If an old version of
>the program exists in the target library, you'll need to get rid of it
>before hand (DLTPGM). This is fine, except that the program object
>contains a reference to the library that contains the source. These
>references will always point to your development library.

This is true, but at least you know that the program you are running is
the same one you tested. I much prefer to see programs moved rather than
compiled into production, but you need to know that the source matches
the object. It's possible to devise an audit trail so that the program
still points to the development library, but the audit trail shows the
time stamp when that member was copied to the target library and removed
from development.

>Also, if you
>delete the program, you can't get it back if something goes drastically
>wrong with the new version. If you compile it directly into the target
>library, you can get the original back out of library QRPLOBJ. Of
>course, I've never needed to resort to this...

Another thing you can do is to rename the replaced object instead of
deleting it. Keep a numeric data area for next number, and rename each
object to something like RENAMnnnnn. As an added bonus you can change
the text of the object and source member to "Renamed from XXXXXXXXXX on
yyyy/mm/dd at hh:mm:ss", or whatever. If you really want to go in for
overkill you can store the old texts in a database file keyed by new
name (the RENAMnnnnnn), then even the object and member texts can be
recovered.

Dave Kahn - TCO, Tengiz, Kazakstan
=========

e-mail:  kahn@tengizchevroil.com    (until August 5th)
         dkahn@cix.compulink.co.uk  (from  August 6th)

Note new e-mail address in Kazakstan
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *