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 is a free source text; you can redistribute it and/or modify it as much as you need. Just add as comment in the code a reference to this site : http://jplamontre.free.fr/jpltools.htm ... and send me an email Contact with "jpltools" in the subject (it's for my antispam rules). I will be happy to know what you have done with the jpltools. This tool is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY :

Transforming these source text into executable software is make under your responsability.

THIS SOURCE TEXT 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 SOURCE TEXT, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.