OutilsDate

QIBM_QCA_CHG_COMMANDhot!

Cet outil est un exemple qui permet de modifier l'execution d'une commande IBM

En utilisant le "point d'exit"  QIBM_QCA_CHG_COMMAND car dans une future release
(à priori pas encore la 6.1), on ne pourra plus jouer sur l'ordre des bibliothèques
de la *SYSLIBL.
En effet, le système ne va plus utiliser *LIBL pour accéder aux commandes
mais *NLVLIBL ou *SYSTEM.

Donc vous l'avez compris il faudra modifier les  xxlib en tete de liste des bib qui
contenaient souvent des commandes modifiées de QSYS

cette appi peut permettre également de tracer, de mettre des droits etc... 

Principe de cette API

Recoit comme parametre la commande à traiter et on lui renvoi la commande à exécuter réellement

 

Notre exemple montre comment forcer un query à s'exécuter en batch

j'ai laissé le copyright du model de source

/* Copyright© 2002 Dan Riehl, The 400 School, Inc.                    */

 

Les Objets:

EP_RUNQRY   CLP    le programme       

Installation :

Restaurer le membre sur votre as400

Compiler le programme EP_RUNQRY dans votre bib systeme

Ensuite ajouter votre exit pgm par wrkreginf

ou directement par
 

ADDEXITPGM EXITPNT(QIBM_QCA_CHG_COMMAND) 
          FORMAT(CHGC0100)                         
          PGMNBR(1)                      
          PGM(votrebib/EP_RUNQRY)
          TEXT('Exit program for RUNQRY')
          PGMDTA(*JOB 20 'RUNQRY    QSYS') 

Si vous avez déja des programmes pour QIBM_QCA_CHG_COMMAND mettez le numéro suivant PGMNBR(n)

Le PGMDTA contient le nom de la commande à trapper

et aprés vous n'avez plus qu'a tester en lancant un RUNQRY

Restriction :

attention au droit sur votre programme, il doit etre accessible à tous

• Télécharger

savfhot!

La commande WRKSAVFOBJ permet de manipuler les objets d'un fichier SAVF sans les restaurer au préalable

Les Objets:

WRKSAVFOBJ CMD la commande
SAV001CL CLP un programme
SAV001RPG CLP un programme
SAV002RPG CLP un programme

Installation :

Restaurer les membres sur votre as400
Exécuter

Compiler le programme SAV001RPG

Compiler le programme SAV002RPG
Compiler le programme SAV003RPG

Compiler la commande WRKSAVFOBJ avec comme paramètre PGM(SAV001CL)

• Télécharger

DSPOBJOWNhot!

dspobjown est un outil qui vous permettra de générer un fichier des objets qui appartiennent à un profil utilisateur (format dspobjd *basic)


Les Objets:

dspobjown CMD La commande
dspobjown txt1 La commande (si le fichier dspobjown.CMD a été détruit par votre FW)
dspobjownc CLP Le programme clp

Installation :

Restaurer les membres sur votre as400
Compiler le programme dspobjownc comme suit
Compiler la commande dspobjown avec comme paramètre PGM(dspobjownc) si vous ne trouvez pas le fichier .cmd
renommerle fichier dspobjown.txt1

• Télécharger

ADDSMTPAhot!

ADDSMTPA est un outil qui vous permettra d'ajouter en automatique les informations smtp sur un user dans la directory entry par exemple à la création.

Remarque :

à ce jour 2 possibilités mais aucune en automatiquewrkdire
option 2
<f19>

ou

WRKNAMSMTP

Les Objets:

ADDSMTPA      CMD   la commande    
ADDSMTPA1     TXT La commande (si le fichier DSPARP.CMD  a été détruit par votre FW)   
ADDSMTPAC     CLP       Le programme
ADDSMTPAR     SQLRPGLE le programme de gestion

Installation :

compiler le programme ADDSMTPAR
compiler le programme ADDSMTPAC

Compiler la commande ADDSMTPA avec comme paramètre PGM(ADDSMTPAC) si vous ne trouvez pas le fichier .cmd
renommerle fichier ADDSMTPA1.txt  

Restriction :

aucune

• Télécharger

EXECCMDhot!

EXCCMD est un outil qui vous permettra d'enchainer des commandes sur un as400 source et sur un as400 cible

Les Objets:

EXECCMD      CMD   la commande    
EXECCMD1     TXT La commande (si le fichier DSPARP.CMD  a été détruit par votre FW)   
EXECCMDF     PF         Fichier PF
EXECCMDc     CLP   le programme de gestion

Installation :

Restaurer les membres sur votre as40Créer le fichier runsqlstm srcfile(votrebib/votrefichier) srcmbr(EXECCMDF)

compiler le programme EXECCMDc comme suit

Compiler la commande EXECCMD avec comme paramètre PGM(EXECCMDc) si vous ne trouvez pas le fichier .cmd
Renommer le fichier EXECCMD1.txt  Restriction :


Les communications doivent être actives IP Ou SNA

Les vérifcations de sécurité au niveau de TCPIP sont fixées par la machine cible (WRKRDBDIRE)

Le fichier qauoopt de qgpl doit exister sur la machine cible 

EXEMPLE :

==>EXECCMD MACHINE *IP

• Télécharger