Re: AS400 programmer :) finally!

Someone Said:

>>  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. 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...


We created command

           ARCHIVE OBJ(lib/name) OBJTYPE(type) TOLIB(libname)

The command works similarly to the MOVOBJ command, except if the object
already exists, it is renamed, so the prior version is there if you need
them.  If the object is named FRED, and already exists, the old one is
renamed FRED$$$$$$.  We go 2 steps further, and rename FRED$$$$$$ as
FRED###### and that as FRED@@@@@@.  Only problem is if the object name
takes all 10 characters; we just overwrite the last character.

We do something similar with source members (ARCHSRCMBR).

Then we have the INSTALLQD (Install Quick 'n' Dirty) command, that combines
the Archive commands to move source and object to the 'production' library.

With proper settings of authority you can restrict the programmers to 'read
only' rights to the production libraries, with only the security folks
authorized to promote things to the production library.

==Paul E Musselman
PaulMmn@ix.netcom.com


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *