Références croisées Programmes - Fichiers - Zones

Trucs et Astuces - AS400 - Tips and Tricks

Références croisées Programmes - Fichiers - Zones - Index Table des matières

/* JPLXREF */
PGM
/*===========GESTION-DES-MESSAGES-D'ERREUR--------------------------*/
 DCL VAR(&WHFILE) TYPE(*CHAR) LEN(10)
 DCL VAR(&WHLIB) TYPE(*CHAR) LEN(10)
 DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
 DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(512)
 DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
 DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
 /*-RENVOI-DES-MESSAGES-VERS-L'APPELANT------------------*/
 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STDMONMSG))
 GOTO CMDLBL(DEBUTPGM)
STDMONMSG:
 /*-----------CAPTURE-DU-MESSAGE----------------------*/
 RCVMSG MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +
 MSGID(&MSGID) MSGF(&MSGF) +
 SNDMSGFLIB(&MSGFLIB)
 /*-----------PROMOTION-DU-MESSAGE--------------------*/
 SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
 MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
 RETURN
DEBUTPGM:
/*===========CORPS-DU-PROGRAMME-------------------------------------*/

/* CE TRAVAIL EST SENSÉ S'EXÉCUTER AVEC LA JOBD JPLXREF, QUI FIXE LA LISTE +
 DES BIBLIOTHÈQUES À CONSULTER. JPL N'Y EST PAS */

/* FICHIER DES DESCRIPTIONS DE FICHIER */
 /* DLTF FILE(JPL/FFD) NON ! IL Y A DES LOGIQUES */
/*/ /*/
/*/WHFLDI FFD INTERNAL FIELD NAME /*/
/*/CREATE INDEX JPL/FFD1 ON JPL/FFD (WHFLDI ASC) /*/
/*/ CREATE INDEX JPL/LF1 ON JPL/LF (APFILE ASC) /*/
/*/ CREATE INDEX JPL/LF2 ON JPL/LF (APBOF ASC) /*/

 CLRPFM FILE(JPL/FFD)
 MONMSG MSGID(CPF0000)
 DSPFFD FILE(*USRLIBL/*ALL) OUTPUT(*OUTFILE) +
 OUTFILE(JPL/FFD)
/* FICHIER DE DESCRIPTION DES CHEMINS LOGIQUES */
 CLRPFM FILE(JPL/LF)
 MONMSG MSGID(CPF0000)
 DSPFD FILE(*USRLIBL/*ALL) TYPE(*ACCPTH) +
 OUTPUT(*OUTFILE) FILEATR(*LF) +
 OUTFILE(JPL/LF) OUTMBR(*FIRST *REPLACE)
/* FICHIER DES UTILISATIONS DES FICHIERS */
 CLRPFM FILE(JPL/PGMREF)
 MONMSG MSGID(CPF0000)
 DSPPGMREF PGM(*USRLIBL/*ALL) OUTPUT(*OUTFILE) +
 OBJTYPE(*ALL) OUTFILE(JPL/PGMREF)
/* FICHIER DES MEMBRES EXISTANTS */
 CLRPFM FILE(JPL/MBR)
 MONMSG MSGID(CPF0000)
 DSPFD FILE(*USRLIBL/*ALL) TYPE(*MBRLIST) +
 OUTPUT(*OUTFILE) FILEATR(*PF) +
 OUTFILE(JPL/MBR)
/* CA IRA POUR AUJOURD'HUI */

 FIN: ENDPGM

Je lance ce CLP à partir de celui-ci, qui en fixe les conditions d'exécution et sert de modèle pour planifier le travail. Le rythme est à définir en fonction du taux de modification des programmes et fichiers.


PGM
/*===========GESTION-DES-MESSAGES-D'ERREUR--------------------------*/
DCL VAR(&WHFILE) TYPE(*CHAR) LEN(10)
DCL VAR(&WHLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(512)
DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
/*-RENVOI-DES-MESSAGES-VERS-L'APPELANT------------------*/
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STDMONMSG))
GOTO CMDLBL(DEBUTPGM)
STDMONMSG:
/*-----------CAPTURE-DU-MESSAGE----------------------*/
RCVMSG MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +
MSGID(&MSGID) MSGF(&MSGF) +
SNDMSGFLIB(&MSGFLIB)
/*-----------PROMOTION-DU-MESSAGE--------------------*/
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
RETURN
DEBUTPGM:
/*===========CORPS-DU-PROGRAMME-------------------------------------*/
? SBMJOB CMD(CALL PGM(JPL/JPLXREF)) +
JOB(JPLXREF) JOBD(JPL/JPLXREF) +
SYSLIBL(*SYSVAL) CURLIB(*USRPRF) +
INLLIBL(*JOBD) ??SCDTIME(230000)
FIN: ENDPGM

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 knowwhat you have done with the jpltools. This tool is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY :

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.