ChgObjAtr

page d'accueil
Boite à outils

Cette page a été mise à jour le 03 janvier 2010
Contact

Welcome page
Tools box

Cet outil permet de mettre à jour plusieurs propriétés des objets AS400 :
  1. Source file name
  2. Source changed date & time
  3. Compiler
  4. Object control level
  5. Object control licensed program name
  6. Program temporary fix
  7. Authrzed Pgm Analysis Report
  8. Allow Change by program
  9. User-defined attribute
  10. Text
  11. Reset Days used count
  12. Product option lang ID
  13. Product option ID
  14. Component ID
  15. Update Last Used Date
  16. Update changed date & time
  17. Reset this mbr day used count

Je l'utilise souvent quand je crée des tables par STRSQL (ou STRQMQRY ou RUNSQLSTM) (SQL CREATE TABLE ... ou CREATE VIEW). Cela me permet de mettre dans l'objet *FILE les références du fichier source d'origine (propriétés 1 et 2).

Je l'utilise aussi pour "marquer" les objets spécifiques que j'ajoute dans des bibliothèques qui viennent d'un éditeur de logiciel. Ce qui me permet de les retrouver rapidement et de les détruire tous avant d'appliquer une mise à jour de l'éditeur.

This tool permits to update several properties of the AS400S objects:
  1. Source file name
  2. Source changed date & time
  3. Compiler
  4. Object control level
  5. Object control licensed program name
  6. Program temporary fix
  7. Authrzed Pgm Analysis Report
  8. Allow Change by program
  9. User-defined attribute
  10. Text
  11. Reset Days used count
  12. Product option lang ID
  13. Product option ID
  14. Component ID
  15. Update Last Used Date
  16. Update changed date & time
  17. Reset this mbr day used count

I often use it when I create some tables with STRSQL (or STRQMQRY or RUNSQLSTM) (SQL CREATE TABLE... or CREATE VIEW). It allows me to put in the *FILE object the references of the original source file (properties 1 and 2).

I also use it to "mark" the specific objects that I add in libraries that come from a software publisher. That allow me to recover them quickly and to destroy them all before applying a publisher update.

Versionning 

last version : How to upload to my 400

CHGPFM FILE(jpltools) MBR(CHGOBJATR ) SRCTYPE(CMD ) EXPDATE(*NONE) SHARE(*NO) TEXT('Changer des attributs d''un objet ') 
CHGPFM FILE(jpltools) MBR(CHGOBJATRC) SRCTYPE(CLP ) EXPDATE(*NONE) SHARE(*NO) TEXT('Changer des attributs d''un objet ') 
CRTCMD CMD(CHGOBJATR) PGM(CHGOBJATRC) SRCFILE(JPLTOOLS) THDSAFE(*YES) REPLACE(*YES) 
CRTRPGMOD MODULE(CHGOBJATRR) SRCFILE(JPLTOOLS) OPTION(*NODEBUGIO *SRCSTMT *SHOWCPY *SECLVL *EXPDDS) DBGVIEW(*ALL) REPLACE(*YES) TGTRLS(V5R3M0) ENBPFRCOL(*FULL) 
CRTPGM PGM(CHGOBJATRR) BNDDIR(QC2LE JPLTOOLS) ACTGRP(JPLTOOLS) OPTION(*DUPPROC) TGTRLS(V5R3M0) 

this tool needs JP4GPS service program

CRTRPGMOD MODULE(JP4GPS_R) SRCFILE(JPLTOOLS) OPTION(*NODEBUGIO *SRCSTMT *SHOWCPY *SECLVL *EXPDDS) DBGVIEW(*ALL) REPLACE(*YES) ENBPFRCOL(*FULL) 
CRTSRVPGM SRVPGM(JPLTOOLS/JP4GPS) MODULE(JPLTOOLS/JP4GPS*) EXPORT(*SRCFILE) SRCFILE(JPLTOOLS/JPLTOOLS) BNDDIR(QC2LE) ACTGRP(JPLTOOLS) DETAIL(*basic)
ADDBNDDIRE BNDDIR(JPLTOOLS) OBJ((JP4GPS)) 

The source code is provided as an open source tool under the GNU General Public License, version 2.  In summary, this license specifies:

By clicking the download link you acknowledge and agree to the terms of the license.

Download the (zipped) SAVF containing the JPLTOOLS : the source file, the message file, the bnddir

THIS TOOLBOX IS PROVIDED ''AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PROVIDER OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS TOOLBOX, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.