Compilation de programmes avec substitution de fichiers.


Principe de fonctionnement :

– Se substitue à  l’option 14=Compiler de PDM

 Prend en compte jusqu’à  30 OVERRIDES

Liste des fichiers sources utilisés :

Nom fichier taille type description
COMPILCL1 24013 CLP Init. compilation avec écran de contrôle & SBMJOB COMPILCL2
COMPILCL1D 5699 CLP Init. compilation sans écran de contrôle & SBMJOB COMPILCL2
COMPILCL2 12009  CLP Exécution de la compilation
COMPILCL1F 16069 DSPF Formats écran

COMPILCL1 :

 Affiche un écran de contrôle avant SBMJOB de la compilation

 Gère différents paramètres, qui seront sauvegardes dans une DATA-AREA, puis soumet la
compilation.

COMPILCL1D :

 Soumet directement la compilation.

Liste des options de compilation à  ajouter à  PDM (cf. article concernant la personnalisation de PDM) :

K1 : CALL PGM(COMPILCL1) PARM(&N &O &L &T)
K2 : CALL PGM(COMPILCL1D) PARM(&N &O &L &T)

Au lieu de taper l’option 14=Compilation dans PDM, il suffira de taper une des deux
options K1 ou K2. Ces options sont valables pour les CLP, RPG, PF, LF, DSPF. Pour les
autres types de membres, il faudra adapter les programmes à  vos besoins.

N.B. : Ces programmes n’ont pas été conçus pour être diffusés. C’est
pourquoi il y aura lieu de les adapter à  votre convenance (en fait, peu de
modifications), notamment en ce qui concerne :

– la bibliothèque "OUD", à  remplacer par ce qui vous conviendra le mieux
(éventuellement *LIBL)

 les niveaux de messages.

 le nom des Data Area = COMPxxx, où xxx = 3 premiers caractères de la bibliothèque.
Pour une modification mineure des overrides, mais devant revenir souvent, il est possible
de dupliquer la data-area (F9) en lui donnant un nom comme COMPxxxnn. A chaque démarrage
d’une nouvelle session, le programme vous proposera COMPxxx. Par F8, il vous suffira alors
de compléter par nn (ce qui vous donnera COMPxxxnn), puis de faire ENTREE.

Source du CL COMPILCL1 :

/*************************************************************************/
/* */
/* INIT COMPILE CLP & RPG AVEC OVERRIDES FICHIERS */
/* */
/* OUDRY le 12/04/96 */
/*************************************************************************/
/* Objet : Compile avec noms de fichiers inexistants dans bib liste */
/* */
/* Paramètres : &WPGM Nom de l'objet à  compiler */
/* &WOBJ Bibliothèque Objet */
/* &WSRC Bibliothèque Source */
/* &WTYP Type de l'objet à  compiler */
/* */
/* Pgm appelant : Option PDM */
/* */
/* Pgm appelé : COMPILCL2 (SBMJOB) */
/* */
/*************************************************************************/

PGM PARM(&WPGM &WOBJ &WSRC &WTYP)

DCL VAR(&WRPL) TYPE(*CHAR) LEN(10)
DCL VAR(&WDTA) TYPE(*CHAR) LEN(10) /* Data-aréa +
à  utiliser pour compiles */
DCL VAR(&WDTA3) TYPE(*CHAR) LEN(3)
DCL VAR(&WTYPOBJ) TYPE(*CHAR) LEN(10)

DCLF FILE(COMPILCL1F)

RTVJOBA JOB(&ZJOB) USER(&ZUSER)
CHGVAR VAR(&ZPROG) VALUE('COMPILCL1')

/*--------------------------------------------------------------------- */
/* Init Type d'objet à  compiler */
/*--------------------------------------------------------------------- */

IF COND(%SST(&WTYP 1 3) *EQ 'CLP' *OR +
%SST(&WTYP 1 3) *EQ 'RPG') THEN(CHGVAR +
VAR(&WTYPOBJ) VALUE('*PGM'))

IF COND(%SST(&WTYP 1 2) *EQ 'PF' *OR %SST(&WTYP +
1 2) *EQ 'LF' *OR %SST(&WTYP 1 4) *EQ +
'DSPF') THEN(CHGVAR VAR(&WTYPOBJ) +
VALUE('*FILE'))

/*--------------------------------------------------------------------- */
/* Init Nom Data-aréa à  utiliser */
/*--------------------------------------------------------------------- */

CHGVAR VAR(&WDTA3) VALUE(%SST(&WSRC 1 3))
RTVDTAARA DTAARA(*LDA (1 10)) RTNVAR(&WDTA)
IF COND(&WDTA *EQ ' ' *OR %SST(&WDTA 5 3) *NE +
&WDTA3) THEN(DO)
CHGVAR VAR(&WDTA) VALUE('COMP' *CAT &WDTA3)
ENDDO

/*--------------------------------------------------------------------- */
/* Init ou Ré-init Overrides */
/*--------------------------------------------------------------------- */

RTVDTARA: CHKOBJ OBJ(OUD/&WDTA) OBJTYPE(*DTAARA)
MONMSG MSGID(CPF9801) EXEC(CRTDTAARA +
DTAARA(OUD/&WDTA) TYPE(*CHAR) LEN(650) +
TEXT('Pour Compiles par SBMJOB'))

RTVDTAARA DTAARA(&WDTA (001 10)) RTNVAR(&WOVA01)
RTVDTAARA DTAARA(&WDTA (011 10)) RTNVAR(&WOVN01)
RTVDTAARA DTAARA(&WDTA (021 10)) RTNVAR(&WOVA02)
RTVDTAARA DTAARA(&WDTA (031 10)) RTNVAR(&WOVN02)
RTVDTAARA DTAARA(&WDTA (041 10)) RTNVAR(&WOVA03)
RTVDTAARA DTAARA(&WDTA (051 10)) RTNVAR(&WOVN03)
RTVDTAARA DTAARA(&WDTA (061 10)) RTNVAR(&WOVA04)
RTVDTAARA DTAARA(&WDTA (071 10)) RTNVAR(&WOVN04)
RTVDTAARA DTAARA(&WDTA (081 10)) RTNVAR(&WOVA05)
RTVDTAARA DTAARA(&WDTA (091 10)) RTNVAR(&WOVN05)
RTVDTAARA DTAARA(&WDTA (101 10)) RTNVAR(&WOVA06)
RTVDTAARA DTAARA(&WDTA (111 10)) RTNVAR(&WOVN06)
RTVDTAARA DTAARA(&WDTA (121 10)) RTNVAR(&WOVA07)
RTVDTAARA DTAARA(&WDTA (131 10)) RTNVAR(&WOVN07)
RTVDTAARA DTAARA(&WDTA (141 10)) RTNVAR(&WOVA08)
RTVDTAARA DTAARA(&WDTA (151 10)) RTNVAR(&WOVN08)
RTVDTAARA DTAARA(&WDTA (161 10)) RTNVAR(&WOVA09)
RTVDTAARA DTAARA(&WDTA (171 10)) RTNVAR(&WOVN09)
RTVDTAARA DTAARA(&WDTA (181 10)) RTNVAR(&WOVA10)
RTVDTAARA DTAARA(&WDTA (191 10)) RTNVAR(&WOVN10)
RTVDTAARA DTAARA(&WDTA (201 10)) RTNVAR(&WOVA11)
RTVDTAARA DTAARA(&WDTA (211 10)) RTNVAR(&WOVN11)
RTVDTAARA DTAARA(&WDTA (221 10)) RTNVAR(&WOVA12)
RTVDTAARA DTAARA(&WDTA (231 10)) RTNVAR(&WOVN12)
RTVDTAARA DTAARA(&WDTA (241 10)) RTNVAR(&WOVA13)
RTVDTAARA DTAARA(&WDTA (251 10)) RTNVAR(&WOVN13)
RTVDTAARA DTAARA(&WDTA (261 10)) RTNVAR(&WOVA14)
RTVDTAARA DTAARA(&WDTA (271 10)) RTNVAR(&WOVN14)
RTVDTAARA DTAARA(&WDTA (281 10)) RTNVAR(&WOVA15)
RTVDTAARA DTAARA(&WDTA (291 10)) RTNVAR(&WOVN15)
RTVDTAARA DTAARA(&WDTA (301 10)) RTNVAR(&WOVA16)
RTVDTAARA DTAARA(&WDTA (311 10)) RTNVAR(&WOVN16)
RTVDTAARA DTAARA(&WDTA (321 10)) RTNVAR(&WOVA17)
RTVDTAARA DTAARA(&WDTA (331 10)) RTNVAR(&WOVN17)
RTVDTAARA DTAARA(&WDTA (341 10)) RTNVAR(&WOVA18)
RTVDTAARA DTAARA(&WDTA (351 10)) RTNVAR(&WOVN18)
RTVDTAARA DTAARA(&WDTA (361 10)) RTNVAR(&WOVA19)
RTVDTAARA DTAARA(&WDTA (371 10)) RTNVAR(&WOVN19)
RTVDTAARA DTAARA(&WDTA (381 10)) RTNVAR(&WOVA20)
RTVDTAARA DTAARA(&WDTA (391 10)) RTNVAR(&WOVN20)
RTVDTAARA DTAARA(&WDTA (401 10)) RTNVAR(&WOVA21)
RTVDTAARA DTAARA(&WDTA (411 10)) RTNVAR(&WOVN21)
RTVDTAARA DTAARA(&WDTA (421 10)) RTNVAR(&WOVA22)
RTVDTAARA DTAARA(&WDTA (431 10)) RTNVAR(&WOVN22)
RTVDTAARA DTAARA(&WDTA (441 10)) RTNVAR(&WOVA23)
RTVDTAARA DTAARA(&WDTA (451 10)) RTNVAR(&WOVN23)
RTVDTAARA DTAARA(&WDTA (461 10)) RTNVAR(&WOVA24)
RTVDTAARA DTAARA(&WDTA (471 10)) RTNVAR(&WOVN24)
RTVDTAARA DTAARA(&WDTA (481 10)) RTNVAR(&WOVA25)
RTVDTAARA DTAARA(&WDTA (491 10)) RTNVAR(&WOVN25)
RTVDTAARA DTAARA(&WDTA (501 10)) RTNVAR(&WOVA26)
RTVDTAARA DTAARA(&WDTA (511 10)) RTNVAR(&WOVN26)
RTVDTAARA DTAARA(&WDTA (521 10)) RTNVAR(&WOVA27)
RTVDTAARA DTAARA(&WDTA (531 10)) RTNVAR(&WOVN27)
RTVDTAARA DTAARA(&WDTA (541 10)) RTNVAR(&WOVA28)
RTVDTAARA DTAARA(&WDTA (551 10)) RTNVAR(&WOVN28)
RTVDTAARA DTAARA(&WDTA (561 10)) RTNVAR(&WOVA29)
RTVDTAARA DTAARA(&WDTA (571 10)) RTNVAR(&WOVN29)
RTVDTAARA DTAARA(&WDTA (581 10)) RTNVAR(&WOVA30)
RTVDTAARA DTAARA(&WDTA (591 10)) RTNVAR(&WOVN30)

RTVDTAARA DTAARA(&WDTA (611 10)) RTNVAR(&WRPL)

IF COND(&WRPL *EQ '*YES') THEN(CHGVAR +
VAR(&WSUPP) VALUE('O'))
ELSE CMD(CHGVAR VAR(&WSUPP) VALUE('N'))

/*--------------------------------------------------------------------- */
/* Affichage format principal */
/*--------------------------------------------------------------------- */

FORMAT:
IF COND(&WOBJ *EQ &WSRC) THEN(CHGVAR VAR(&IN19) +
VALUE('1'))
ELSE CMD(CHGVAR VAR(&IN19) VALUE('0'))

SNDRCVF RCDFMT(COMPIL1)
CHGVAR VAR(&WERREUR) VALUE(' ')
IF COND(&IN03) THEN(GOTO CMDLBL(FINPGM))
IF COND(&IN09) THEN(GOTO CMDLBL(DUPLI))

/* 18 = 2ème cycle */
/* (variables soulignées et non protégées) */

IF COND(&IN18) THEN(DO) /* 2eme cycle */
CHGVAR VAR(&IN18) VALUE('0')
IF COND(&IN20) THEN(GOTO CMDLBL(RTVDTARA)) /* +
reinit overrides et reaffiche format */
IF COND(&WSUPP *EQ 'O') THEN(CHGVAR VAR(&WRPL) +
VALUE('*YES'))
ELSE CMD(CHGVAR VAR(&WRPL) VALUE('*NO'))
GOTO CMDLBL(FORMAT) /* reaffiche */
ENDDO

/* 08 = demande modif variables - Data-aréa à  utiliser */
/* - Replace O/N */

IF COND(&IN08) THEN(DO) /* 1er cycle */
CHGVAR VAR(&IN18) VALUE('1')
GOTO CMDLBL(FORMAT)
ENDDO

/*--------------------------------------------------------------------- */
/* MAJ Option suppression objet */
/*--------------------------------------------------------------------- */

IF COND(&WSUPP *EQ 'O') THEN(CHGVAR VAR(&WRPL) +
VALUE('*YES'))
ELSE CMD(CHGVAR VAR(&WRPL) VALUE('*NO'))

CHGDTAARA DTAARA(&WDTA (611 10)) VALUE(&WRPL)

/*--------------------------------------------------------------------- */
/* Verif option suppression objet */
/*--------------------------------------------------------------------- */

IF COND(&WSUPP *EQ 'N') THEN(DO)
CHKOBJ OBJ(&WOBJ/&WPGM) OBJTYPE(&WTYPOBJ)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(MAJDTARA))

CHGVAR VAR(&WERREUR) VALUE('Suppression objet +
existant? (O/N))')
SNDRCVF RCDFMT(COMPIL2)

IF COND(&IN03 *OR &WSUPP *EQ 'N') THEN(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QSYS/QCPFMSG) +
MSGDTA('Annulation compile' *BCAT &WOBJ +
*TCAT '/' *TCAT &WPGM) TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
DLYJOB DLY(1)
GOTO CMDLBL(MAJDTARA)
ENDDO

CHGVAR VAR(&WRPL) VALUE('*YES')
ENDDO

GOTO CMDLBL(MAJDTARA)

/*--------------------------------------------------------------------- */
/* Duplication data-aréa en cours */
/*--------------------------------------------------------------------- */

DUPLI: CHGVAR VAR(&WDTALIBN) VALUE(&WOBJ)
SNDRCVF RCDFMT(COMPIL3)

IF COND(&IN03) THEN(GOTO CMDLBL(FORMAT))

CHKOBJ OBJ(&WDTALIBN/&WDTAN) OBJTYPE(*DTAARA)
MONMSG MSGID(CPF9801) EXEC(DO)
CHGVAR VAR(&WERREUR) VALUE('Création data-aréa' +
*BCAT &WDTALIBN *TCAT '/' *CAT &WDTAN +
*BCAT 'en cours ...')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA(&WERREUR) TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
CRTDTAARA DTAARA(&WDTALIBN/&WDTAN) TYPE(*CHAR) LEN(650)
ENDDO

/* Duplication data-aréa */

CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (001 10)) VALUE(&WOVA01)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (011 10)) VALUE(&WOVN01)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (021 10)) VALUE(&WOVA02)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (031 10)) VALUE(&WOVN02)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (041 10)) VALUE(&WOVA03)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (051 10)) VALUE(&WOVN03)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (061 10)) VALUE(&WOVA04)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (071 10)) VALUE(&WOVN04)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (081 10)) VALUE(&WOVA05)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (091 10)) VALUE(&WOVN05)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (101 10)) VALUE(&WOVA06)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (111 10)) VALUE(&WOVN06)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (121 10)) VALUE(&WOVA07)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (131 10)) VALUE(&WOVN07)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (141 10)) VALUE(&WOVA08)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (151 10)) VALUE(&WOVN08)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (161 10)) VALUE(&WOVA09)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (171 10)) VALUE(&WOVN09)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (181 10)) VALUE(&WOVA10)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (191 10)) VALUE(&WOVN10)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (201 10)) VALUE(&WOVA11)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (211 10)) VALUE(&WOVN11)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (221 10)) VALUE(&WOVA12)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (231 10)) VALUE(&WOVN12)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (241 10)) VALUE(&WOVA13)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (251 10)) VALUE(&WOVN13)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (261 10)) VALUE(&WOVA14)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (271 10)) VALUE(&WOVN14)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (281 10)) VALUE(&WOVA15)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (291 10)) VALUE(&WOVN15)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (301 10)) VALUE(&WOVA16)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (311 10)) VALUE(&WOVN16)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (321 10)) VALUE(&WOVA17)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (331 10)) VALUE(&WOVN17)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (341 10)) VALUE(&WOVA18)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (351 10)) VALUE(&WOVN18)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (361 10)) VALUE(&WOVA19)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (371 10)) VALUE(&WOVN19)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (381 10)) VALUE(&WOVA20)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (391 10)) VALUE(&WOVN20)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (401 10)) VALUE(&WOVA21)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (411 10)) VALUE(&WOVN21)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (421 10)) VALUE(&WOVA22)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (431 10)) VALUE(&WOVN22)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (441 10)) VALUE(&WOVA23)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (451 10)) VALUE(&WOVN23)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (461 10)) VALUE(&WOVA24)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (471 10)) VALUE(&WOVN24)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (481 10)) VALUE(&WOVA25)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (491 10)) VALUE(&WOVN25)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (501 10)) VALUE(&WOVA26)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (511 10)) VALUE(&WOVN26)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (521 10)) VALUE(&WOVA27)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (531 10)) VALUE(&WOVN27)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (541 10)) VALUE(&WOVA28)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (551 10)) VALUE(&WOVN28)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (561 10)) VALUE(&WOVA29)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (571 10)) VALUE(&WOVN29)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (581 10)) VALUE(&WOVA30)
CHGDTAARA DTAARA(&WDTALIBN/&WDTAN (591 10)) VALUE(&WOVN30)

CHGVAR VAR(&WERREUR) VALUE('Mise à  jour data-aréa' +
*BCAT &WDTALIBN *TCAT '/' *CAT &WDTAN +
*BCAT 'effectuée ...')

GOTO CMDLBL(FORMAT)

/*--------------------------------------------------------------------- */
/* MAJ Data-aréa */
/*--------------------------------------------------------------------- */

MAJDTARA:
CHGDTAARA DTAARA(&WDTA (001 10)) VALUE(&WOVA01)
CHGDTAARA DTAARA(&WDTA (011 10)) VALUE(&WOVN01)
CHGDTAARA DTAARA(&WDTA (021 10)) VALUE(&WOVA02)
CHGDTAARA DTAARA(&WDTA (031 10)) VALUE(&WOVN02)
CHGDTAARA DTAARA(&WDTA (041 10)) VALUE(&WOVA03)
CHGDTAARA DTAARA(&WDTA (051 10)) VALUE(&WOVN03)
CHGDTAARA DTAARA(&WDTA (061 10)) VALUE(&WOVA04)
CHGDTAARA DTAARA(&WDTA (071 10)) VALUE(&WOVN04)
CHGDTAARA DTAARA(&WDTA (081 10)) VALUE(&WOVA05)
CHGDTAARA DTAARA(&WDTA (091 10)) VALUE(&WOVN05)
CHGDTAARA DTAARA(&WDTA (101 10)) VALUE(&WOVA06)
CHGDTAARA DTAARA(&WDTA (111 10)) VALUE(&WOVN06)
CHGDTAARA DTAARA(&WDTA (121 10)) VALUE(&WOVA07)
CHGDTAARA DTAARA(&WDTA (131 10)) VALUE(&WOVN07)
CHGDTAARA DTAARA(&WDTA (141 10)) VALUE(&WOVA08)
CHGDTAARA DTAARA(&WDTA (151 10)) VALUE(&WOVN08)
CHGDTAARA DTAARA(&WDTA (161 10)) VALUE(&WOVA09)
CHGDTAARA DTAARA(&WDTA (171 10)) VALUE(&WOVN09)
CHGDTAARA DTAARA(&WDTA (181 10)) VALUE(&WOVA10)
CHGDTAARA DTAARA(&WDTA (191 10)) VALUE(&WOVN10)
CHGDTAARA DTAARA(&WDTA (201 10)) VALUE(&WOVA11)
CHGDTAARA DTAARA(&WDTA (211 10)) VALUE(&WOVN11)
CHGDTAARA DTAARA(&WDTA (221 10)) VALUE(&WOVA12)
CHGDTAARA DTAARA(&WDTA (231 10)) VALUE(&WOVN12)
CHGDTAARA DTAARA(&WDTA (241 10)) VALUE(&WOVA13)
CHGDTAARA DTAARA(&WDTA (251 10)) VALUE(&WOVN13)
CHGDTAARA DTAARA(&WDTA (261 10)) VALUE(&WOVA14)
CHGDTAARA DTAARA(&WDTA (271 10)) VALUE(&WOVN14)
CHGDTAARA DTAARA(&WDTA (281 10)) VALUE(&WOVA15)
CHGDTAARA DTAARA(&WDTA (291 10)) VALUE(&WOVN15)
CHGDTAARA DTAARA(&WDTA (301 10)) VALUE(&WOVA16)
CHGDTAARA DTAARA(&WDTA (311 10)) VALUE(&WOVN16)
CHGDTAARA DTAARA(&WDTA (321 10)) VALUE(&WOVA17)
CHGDTAARA DTAARA(&WDTA (331 10)) VALUE(&WOVN17)
CHGDTAARA DTAARA(&WDTA (341 10)) VALUE(&WOVA18)
CHGDTAARA DTAARA(&WDTA (351 10)) VALUE(&WOVN18)
CHGDTAARA DTAARA(&WDTA (361 10)) VALUE(&WOVA19)
CHGDTAARA DTAARA(&WDTA (371 10)) VALUE(&WOVN19)
CHGDTAARA DTAARA(&WDTA (381 10)) VALUE(&WOVA20)
CHGDTAARA DTAARA(&WDTA (391 10)) VALUE(&WOVN20)
CHGDTAARA DTAARA(&WDTA (401 10)) VALUE(&WOVA21)
CHGDTAARA DTAARA(&WDTA (411 10)) VALUE(&WOVN21)
CHGDTAARA DTAARA(&WDTA (421 10)) VALUE(&WOVA22)
CHGDTAARA DTAARA(&WDTA (431 10)) VALUE(&WOVN22)
CHGDTAARA DTAARA(&WDTA (441 10)) VALUE(&WOVA23)
CHGDTAARA DTAARA(&WDTA (451 10)) VALUE(&WOVN23)
CHGDTAARA DTAARA(&WDTA (461 10)) VALUE(&WOVA24)
CHGDTAARA DTAARA(&WDTA (471 10)) VALUE(&WOVN24)
CHGDTAARA DTAARA(&WDTA (481 10)) VALUE(&WOVA25)
CHGDTAARA DTAARA(&WDTA (491 10)) VALUE(&WOVN25)
CHGDTAARA DTAARA(&WDTA (501 10)) VALUE(&WOVA26)
CHGDTAARA DTAARA(&WDTA (511 10)) VALUE(&WOVN26)
CHGDTAARA DTAARA(&WDTA (521 10)) VALUE(&WOVA27)
CHGDTAARA DTAARA(&WDTA (531 10)) VALUE(&WOVN27)
CHGDTAARA DTAARA(&WDTA (541 10)) VALUE(&WOVA28)
CHGDTAARA DTAARA(&WDTA (551 10)) VALUE(&WOVN28)
CHGDTAARA DTAARA(&WDTA (561 10)) VALUE(&WOVA29)
CHGDTAARA DTAARA(&WDTA (571 10)) VALUE(&WOVN29)
CHGDTAARA DTAARA(&WDTA (581 10)) VALUE(&WOVA30)
CHGDTAARA DTAARA(&WDTA (591 10)) VALUE(&WOVN30)

/*--------------------------------------------------------------------- */
/* Enregistre nom data-aréa à  utiliser */
/*--------------------------------------------------------------------- */

CHGDTAARA DTAARA(COMPDFT (1 10)) VALUE(&WDTA)
CHGDTAARA DTAARA(*LDA (1 10)) VALUE(&WDTA)

/*--------------------------------------------------------------------- */
/* Soumission compiles */
/*--------------------------------------------------------------------- */

SBMCOMPIL:
IF COND(&IN03) THEN(GOTO CMDLBL(FINPGM))
SNDPGMMSG MSG('Soumission compile' *BCAT &WOBJ *TCAT +
'/' *CAT &WPGM *BCAT 'OK')

SBMJOB CMD(CALL PGM(COMPILCL2) PARM(&ZJOB &WPGM +
&WOBJ &WSRC &WTYP &WRPL &WDTA)) +
JOB(&WPGM) LOG(1 30 *NOLIST)

/*--------------------------------------------------------------------- */
/* Fin du programme */
/*--------------------------------------------------------------------- */

FINPGM: ENDPGM

Source du CL COMPILCL1D :

/*************************************************************************/
/* */
/* INIT COMPILE CLP & RPG AVEC OVERRIDES FICHIERS */
/* */
/* OUDRY le 12/04/96 */
/*************************************************************************/
/* Objet : Compile avec noms de fichiers inexistants dans bib liste */
/* sans écran MAJ Overrides dans Data-aréa */
/* */
/* Paramètres : &WPGM Nom de l'objet à  compiler */
/* &WOBJ Bibliothèque Objet */
/* &WSRC Bibliothèque Source */
/* &WTYP Type de l'objet à  compiler */
/* */
/* Pgm appelant : Option PDM */
/* */
/* Pgm appelé : COMPILCL2 (SBMJOB) */
/* */
/*************************************************************************/

PGM PARM(&WPGM &WOBJ &WSRC &WTYP)

DCL VAR(&WOBJ) TYPE(*CHAR) LEN(10)
DCL VAR(&WPGM) TYPE(*CHAR) LEN(10)
DCL VAR(&WSRC) TYPE(*CHAR) LEN(10)
DCL VAR(&WTYP) TYPE(*CHAR) LEN(10)
DCL VAR(&WTYPOBJ) TYPE(*CHAR) LEN(10)
DCL VAR(&WRPL) TYPE(*CHAR) LEN(10)
DCL VAR(&WDTA) TYPE(*CHAR) LEN(10)
DCL VAR(&WDTA3) TYPE(*CHAR) LEN(3)
DCL VAR(&ZJOB) TYPE(*CHAR) LEN(10)
DCL VAR(&ZUSER) TYPE(*CHAR) LEN(10)
DCL VAR(&ZPROG) TYPE(*CHAR) LEN(10)

DCLF FILE(COMPILCL1F) RCDFMT(COMPIL2)

/*--------------------------------------------------------------------- */
/* Init Data-aréa à  utiliser */
/*--------------------------------------------------------------------- */

CHGVAR VAR(&WDTA3) VALUE(%SST(&WSRC 1 3))
RTVDTAARA DTAARA(*LDA (1 10)) RTNVAR(&WDTA)
IF COND(&WDTA *EQ ' ' *OR %SST(&WDTA 5 3) *NE +
&WDTA3) THEN(DO)
CHGVAR VAR(&WDTA) VALUE('COMP' *CAT &WDTA3)
ENDDO

RTVDTARA: CHKOBJ OBJ(OUD/&WDTA) OBJTYPE(*DTAARA)
MONMSG MSGID(CPF9801) EXEC(CRTDTAARA +
DTAARA(OUD/&WDTA) TYPE(*CHAR) LEN(650) +
TEXT('Pour Compiles par SBMJOB'))

RTVDTAARA DTAARA(&WDTA (611 10)) RTNVAR(&WRPL)

RTVJOBA JOB(&ZJOB) USER(&ZUSER)
CHGVAR VAR(&ZPROG) VALUE('COMPILCL1D')

/*--------------------------------------------------------------------- */
/* Init Type d'objet à  compiler */
/*--------------------------------------------------------------------- */

IF COND(%SST(&WTYP 1 3) *EQ 'CLP' *OR +
%SST(&WTYP 1 3) *EQ 'RPG') THEN(CHGVAR +
VAR(&WTYPOBJ) VALUE('*PGM'))

IF COND(%SST(&WTYP 1 2) *EQ 'PF' *OR %SST(&WTYP +
1 2) *EQ 'LF' *OR %SST(&WTYP 1 4) *EQ +
'DSPF') THEN(CHGVAR VAR(&WTYPOBJ) +
VALUE('*FILE'))

/*--------------------------------------------------------------------- */
/* Controle option de suppression */
/*--------------------------------------------------------------------- */

IF COND(&WRPL *EQ '*YES') THEN(GOTO +
CMDLBL(COMPILE))

CHKOBJ OBJ(&WOBJ/&WPGM) OBJTYPE(&WTYPOBJ)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(COMPILE))

CHGVAR VAR(&WSUPP) VALUE('N')
CHGVAR VAR(&WERREUR) VALUE('Suppression objet +
existant? (O/N))')

SNDRCVF RCDFMT(COMPIL2)

IF COND(&WSUPP *EQ 'O') THEN(DO)
CHGVAR VAR(&WRPL) VALUE('*YES')
GOTO COMPILE
ENDDO

GOTO CMDLBL(FINPGM)

/*--------------------------------------------------------------------- */
/* Soumission compile */
/*--------------------------------------------------------------------- */

COMPILE:

SNDPGMMSG MSG('Soumission compile' *BCAT &WOBJ *TCAT +
'/' *CAT &WPGM *BCAT 'OK')

SBMJOB CMD(CALL PGM(COMPILCL2) PARM(&ZJOB &WPGM +
&WOBJ &WSRC &WTYP &WRPL &WDTA)) JOB(&WPGM)

FINPGM: ENDPGM

Source du CL COMPILCL2 :

/*************************************************************************/
/* */
/* COMPILE RPG AVEC OVERRIDES FICHIERS */
/* */
/* OUDRY le 12/04/96 */
/*************************************************************************/
/* Objet : Compile avec noms de fichiers inexistants dans bib liste */
/* */
/* Paramètres : &WPGM Nom de l'objet à  compiler */
/* &WOBJ Bibliothèque Objet */
/* &WSRC Bibliothèque Source */
/* &WTYP Type de l'objet à  compiler */
/* &WRPL REPLACE (*YES *NO) */
/* &WDTA Data-Area a utiliser */
/* */
/* Pgm appelant : COMPILCL1 ou COMPILCD */
/* */
/* Pgm appelé : Selon type d'Objet */
/* */
/*************************************************************************/

PGM PARM(&WRKSTN &WPGM &WOBJ &WSRC &WTYP &WRPL &WDTA)

DCL VAR(&WRKSTN) TYPE(*CHAR) LEN(10)
DCL VAR(&WPGM) TYPE(*CHAR) LEN(10)
DCL VAR(&WSRC) TYPE(*CHAR) LEN(10)
DCL VAR(&WOBJ) TYPE(*CHAR) LEN(10)
DCL VAR(&WRPL) TYPE(*CHAR) LEN(11)
DCL VAR(&WTYP) TYPE(*CHAR) LEN(10)
DCL VAR(&WDTA) TYPE(*CHAR) LEN(10)
DCL VAR(&WOVRR) TYPE(*CHAR) LEN(600)
DCL VAR(&WOVFA) TYPE(*CHAR) LEN(10)
DCL VAR(&WOVFN) TYPE(*CHAR) LEN(10)
DCL VAR(&WOVDA) TYPE(*DEC) LEN(3 0) VALUE(001)
DCL VAR(&WOVDN) TYPE(*DEC) LEN(3 0) VALUE(011)

/*--------------------------------------------------------------------- */
/* Init Nom Data-aréa à  utiliser */
/*--------------------------------------------------------------------- */

/* CHGVAR VAR(&WDTA) VALUE('COMP' *CAT %SST(&WSRC 1 3)) */

/*--------------------------------------------------------------------- */
/* Retrouve environnement init */
/*--------------------------------------------------------------------- */

INITDTA: RTVDTAARA DTAARA(&WDTA (001 600)) RTNVAR(&WOVRR)

/*--------------------------------------------------------------------- */
/* Init OVERRIDES */
/*--------------------------------------------------------------------- */

BOUCLE: IF COND(%SST(&WOVRR &WOVDA 10) *NE ' ') THEN(DO)
CHGVAR VAR(&WOVFA) VALUE(%SST(&WOVRR &WOVDA 10))
CHGVAR VAR(&WOVFN) VALUE(%SST(&WOVRR &WOVDN 10))
OVRDBF FILE(&WOVFA) TOFILE(&WOVFN)
ENDDO

IF COND(&WOVDA *GT 580) THEN(GOTO CMDLBL(COMPILE))

CHGVAR VAR(&WOVDA) VALUE(&WOVDA + 20)
CHGVAR VAR(&WOVDN) VALUE(&WOVDN + 20)

GOTO CMDLBL(BOUCLE)

COMPILE:

/*--------------------------------------------------------------------- */
/* Compile CLP */
/*--------------------------------------------------------------------- */

IF COND(%SST(&WTYP 1 3) *EQ 'CLP') THEN(DO)
CRTCLPGM PGM(&WOBJ/&WPGM) SRCFILE(&WSRC/QCLSRC) +
USRPRF(*OWNER) REPLACE(&WRPL)
MONMSG MSGID(CPF0801) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)
ENDDO
GOTO CMDLBL(COMPILOK)
ENDDO

/*--------------------------------------------------------------------- */
/* Compile RPG */
/*--------------------------------------------------------------------- */
ELSE CMD(IF COND(%SST(&WTYP 1 3) *EQ 'RPG') +
THEN(DO))
CRTRPGPGM PGM(&WOBJ/&WPGM) SRCFILE(&WSRC/QRPGSRC) +
REPLACE(&WRPL) USRPRF(*OWNER)

MONMSG MSGID(QRG0001 QRG9001) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)
ENDDO
GOTO CMDLBL(COMPILOK)
ENDDO

/*--------------------------------------------------------------------- */
/* Compile PF */
/*--------------------------------------------------------------------- */

/* Cette section est présente pour la forme, mais n'a pas lieu d'être */
/* utilisée dans ce programme */

ELSE CMD(IF COND(%SST(&WTYP 1 2) *EQ 'PF') THEN(DO))

CHKOBJ OBJ(&WOBJ/&WPGM) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(CRTPF))

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(' +
Fichier' *BCAT &WOBJ *TCAT '/' *CAT &WPGM +
*BCAT '(' *CAT &WTYP *TCAT ') déjà  +
existant') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)

CRTPF: CRTPF FILE(&WOBJ/&WPGM) SRCFILE(&WSRC/QDDSSRC)

MONMSG MSGID(CPF7302) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)
ENDDO
GOTO CMDLBL(COMPILOK)
ENDDO

/*--------------------------------------------------------------------- */
/* Compile LF */
/*--------------------------------------------------------------------- */
ELSE CMD(IF COND(%SST(&WTYP 1 2) *EQ 'LF') THEN(DO))

CHKOBJ OBJ(&WOBJ/&WPGM) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(CRTLF))

IF COND(&WRPL *EQ '*YES') THEN(DO)
DLTF FILE(&WOBJ/&WPGM)
GOTO CMDLBL(CRTLF)
ENDDO

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(' +
Fichier' *BCAT &WOBJ *TCAT '/' *CAT &WPGM +
*BCAT '(' *CAT &WTYP *TCAT ') déjà  +
existant') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)

CRTLF: CRTLF FILE(&WOBJ/&WPGM) SRCFILE(&WSRC/QDDSSRC)

MONMSG MSGID(CPF7302) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)
ENDDO
GOTO CMDLBL(COMPILOK)
ENDDO

/*--------------------------------------------------------------------- */
/* Compile DSPF */
/*--------------------------------------------------------------------- */
ELSE CMD(IF COND(%SST(&WTYP 1 4) *EQ 'DSPF') +
THEN(DO))

CHKOBJ OBJ(&WOBJ/&WPGM) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(CRTDSPF))

IF COND(&WRPL *EQ '*YES') THEN(DO)
DLTF FILE(&WOBJ/&WPGM)
GOTO CMDLBL(CRTDSPF)
ENDDO

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(' +
Fichier' *BCAT &WOBJ *TCAT '/' *CAT &WPGM +
*BCAT '(' *CAT &WTYP *TCAT ') déjà  +
existant') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)

CRTDSPF: CRTDSPF FILE(&WOBJ/&WPGM) SRCFILE(&WSRC/QDDSSRC)

MONMSG MSGID(CPF7302) EXEC(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
a échoué') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)
ENDDO
GOTO CMDLBL(COMPILOK)
ENDDO

/*--------------------------------------------------------------------- */
/* Autres compiles */
/*--------------------------------------------------------------------- */

ELSE CMD(DO)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT 'Type' *BCAT &WTYP *BCAT +
'inconnu a échoué') TOMSGQ(&WRKSTN)
GOTO CMDLBL(FINPGM)
ENDDO

/*--------------------------------------------------------------------- */
/* Message compile OK */
/*--------------------------------------------------------------------- */

COMPILOK: SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Compile' *BCAT &WOBJ *TCAT '/' +
*CAT &WPGM *BCAT '(' *CAT &WTYP *TCAT ') +
réussie') TOMSGQ(&WRKSTN)

/*--------------------------------------------------------------------- */
/* Fin programme */
/*--------------------------------------------------------------------- */

FINPGM: ENDPGM

Source du DSPF COMPILCL1F :


A*%%TS SD 19971028 142301 OUDRY REL-V3R6M0 5716-PW1
A* 13:43:59 OUDRY REL-R07M00 5714-UT1
A*%%EC
A DSPSIZ(24 80 *DS3)
A REF(*LIBL/MRIREP)
A PRINT
A*----------------------------------------------------------------
A* 14:16:36 OUDRY REL-R07M00 5714-UT1
A*----------------------------------------------------------------
A R COMPIL1
A*%%TS SD 19971028 142301 OUDRY REL-V3R6M0 5716-PW1
A CA03(03)
A CA08(08)
A CF09(09)
A BLINK
A ZJOB R O 1 3
A ZUSER R O 1 14
A 1 26'Init Compile programme av overr.'
A DSPATR(HI)
A DSPATR(UL)
A 1 63DATE
A EDTCDE(Y)
A 1 72TIME
A ZPROG R O 2 3
A 4 9'Programme :'
A WPGM 10A O 4 23
A 4 39'* Data Aréa :'
A WDTA 10A B 4 53CHANGE(20)
A 18 DSPATR(UL)
A N18 DSPATR(PR)
A 5 8'Bib source :'
A WSRC 10A O 5 23
A 6 7' Bib Objet :'
A WOBJ 10A O 6 23
A* 18 DSPATR(UL)
A*N18 DSPATR(PR)
A N19 DSPATR(HI)
A 7 4'* Remplacement :'
A WSUPP 1A B 7 23VALUES('O' 'N')
A 18 DSPATR(UL)
A N18 DSPATR(PR)
A 99 DSPATR(PC)
A 7 27'(O/N)'
A 8 14'Type :'
A WTYP 10A O 8 23
A 10 37'Overrides'
A 11 10'de'
A 11 20'vers'
A 11 37'de'
A 11 47'vers'
A 11 64'de'
A 11 74'vers'
A 12 2'01'
A WOVA01 10A B 12 5
A WOVN01 10A B 12 16
A 12 29'11'
A WOVA11 10A B 12 32
A WOVN11 10A B 12 43
A 12 56'21'
A WOVA21 10A B 12 59
A WOVN21 10A B 12 70
A 13 2'02'
A WOVA02 10A B 13 5
A WOVN02 10A B 13 16
A 13 29'12'
A WOVA12 10A B 13 32
A WOVN12 10A B 13 43
A 13 56'22'
A WOVA22 10A B 13 59
A WOVN22 10A B 13 70
A 14 2'03'
A WOVA03 10A B 14 5
A WOVN03 10A B 14 16
A 14 29'13'
A WOVA13 10A B 14 32
A WOVN13 10A B 14 43
A 14 56'23'
A WOVA23 10A B 14 59
A WOVN23 10A B 14 70
A 15 2'04'
A WOVA04 10A B 15 5
A WOVN04 10A B 15 16
A 15 29'14'
A WOVA14 10A B 15 32
A WOVN14 10A B 15 43
A 15 56'24'
A WOVA24 10A B 15 59
A WOVN24 10A B 15 70
A 16 2'05'
A WOVA05 10A B 16 5
A WOVN05 10A B 16 16
A 16 29'15'
A WOVA15 10A B 16 32
A WOVN15 10A B 16 43
A 16 56'25'
A WOVA25 10A B 16 59
A WOVN25 10A B 16 70
A 17 2'06'
A WOVA06 10A B 17 5
A WOVN06 10A B 17 16
A 17 29'16'
A WOVA16 10A B 17 32
A WOVN16 10A B 17 43
A 17 56'26'
A WOVA26 10A B 17 59
A WOVN26 10A B 17 70
A 18 2'07'
A WOVA07 10A B 18 5
A WOVN07 10A B 18 16
A 18 29'17'
A WOVA17 10A B 18 32
A WOVN17 10A B 18 43
A 18 56'27'
A WOVA27 10A B 18 59
A WOVN27 10A B 18 70
A 19 2'08'
A WOVA08 10A B 19 5
A WOVN08 10A B 19 16
A 19 29'18'
A WOVA18 10A B 19 32
A WOVN18 10A B 19 43
A 19 56'28'
A WOVA28 10A B 19 59
A WOVN28 10A B 19 70
A 20 2'09'
A WOVA09 10A B 20 5
A WOVN09 10A B 20 16
A 20 29'19'
A WOVA19 10A B 20 32
A WOVN19 10A B 20 43
A 20 56'29'
A WOVA29 10A B 20 59
A WOVN29 10A B 20 70
A 21 2'10'
A WOVA10 10A B 21 5
A WOVN10 10A B 21 16
A 21 29'20'
A WOVA20 10A B 21 32
A WOVN20 10A B 21 43
A 21 56'30'
A WOVA30 10A B 21 59
A WOVN30 10A B 21 70
A WERREUR 50A O 23 15DSPATR(HI)
A 24 2'CDE3'
A DSPATR(HI)
A 24 7'Fin de travail'
A 24 29'CDE8'
A DSPATR(HI)
A 24 34'Modif paramètres *'
A 24 56'CDE9'
A DSPATR(HI)
A 24 61'Duplication'
A*----------------------------------------------------------------
A* 14:16:36 OUDRY REL-R07M00 5714-UT1
A*----------------------------------------------------------------
A R COMPIL2
A*%%TS SD 19960628 144949 OUDRY REL-V3R1M0 5763-PW1
A CA03(03)
A BLINK
A ZJOB R O 1 3
A ZUSER R O 1 14
A 1 26'Init Compiles objets avec overr.'
A DSPATR(HI)
A DSPATR(UL)
A 1 63DATE
A EDTCDE(Y)
A 1 72TIME
A ZPROG R O 2 3
A 4 9'Programme :'
A WPGM 10A O 4 23
A 4 39'* Data Aréa :'
A WDTA 10A O 4 53
A 5 8'Bib source :'
A WSRC 10A O 5 23
A 6 7'* Bib Objet :'
A WOBJ 10A O 6 23
A 7 4'* Remplacement :'
A WSUPP 1A B 7 23VALUES('O' 'N')
A 7 27'(O/N)'
A 8 14'Type :'
A WTYP 10A O 8 23
A WERREUR 50A O 23 15DSPATR(HI)
A 24 2'CDE3'
A DSPATR(HI)
A 24 7'Annulation'
A*----------------------------------------------------------------
A* 14:16:36 OUDRY REL-R07M00 5714-UT1
A*----------------------------------------------------------------
A R COMPIL3
A*%%TS SD 19960826 170945 OUDRY REL-V3R1M0 5763-PW1
A CA03(03)
A CA08(08)
A CF09(09)
A BLINK
A ZJOB R O 1 3
A ZUSER R O 1 14
A 1 26'Init Compile programme av overr.'
A DSPATR(HI)
A DSPATR(UL)
A 1 63DATE
A EDTCDE(Y)
A 1 72TIME
A ZPROG R O 2 3
A 4 21'Reproduire la data-aréa en cours d-
A ans :'
A 6 6'De'
A 6 11'Data Aréa :'
A WDTA 10A O 6 23
A 6 41'Vers'
A 6 49'Data Aréa :'
A WDTAN 10A B 6 61CHANGE(20)
A 7 11'Biblioth. :'
A WOBJ 10A O 7 23
A 7 49'Biblioth. :'
A WDTALIBN 10A B 7 61
A 10 37'Overrides'
A 11 9'de'
A 11 19'vers'
A 11 36'de'
A 11 46'vers'
A 11 63'de'
A 11 73'vers'
A 12 2'01'
A WOVA01 10A B 12 5
A 12 10'01'
A WOVN01 10A B 12 16
A 12 29'11'
A WOVA11 10A B 12 32
A WOVN11 10A B 12 43
A 12 56'21'
A WOVA21 10A B 12 59
A WOVN21 10A B 12 70
A 13 2'02'
A WOVA02 10A B 13 5
A WOVN02 10A B 13 16
A 13 29'12'
A WOVA12 10A B 13 32
A WOVN12 10A B 13 43
A 13 56'22'
A WOVA22 10A B 13 59
A WOVN22 10A B 13 70
A 14 2'03'
A WOVA03 10A B 14 5
A WOVN03 10A B 14 16
A 14 29'13'
A WOVA13 10A B 14 32
A WOVN13 10A B 14 43
A 14 56'23'
A WOVA23 10A B 14 59
A WOVN23 10A B 14 70
A 15 2'04'
A WOVA04 10A B 15 5
A WOVN04 10A B 15 16
A 15 29'14'
A WOVA14 10A B 15 32
A WOVN14 10A B 15 43
A 15 56'24'
A WOVA24 10A B 15 59
A WOVN24 10A B 15 70
A 16 2'05'
A WOVA05 10A B 16 5
A WOVN05 10A B 16 16
A 16 29'15'
A WOVA15 10A B 16 32
A WOVN15 10A B 16 43
A 16 56'25'
A WOVA25 10A B 16 59
A WOVN25 10A B 16 70
A 17 2'06'
A WOVA06 10A B 17 5
A WOVN06 10A B 17 16
A 17 29'16'
A WOVA16 10A B 17 32
A WOVN16 10A B 17 43
A 17 56'26'
A WOVA26 10A B 17 59
A WOVN26 10A B 17 70
A 18 2'07'
A WOVA07 10A B 18 5
A WOVN07 10A B 18 16
A 18 29'17'
A WOVA17 10A B 18 32
A WOVN17 10A B 18 43
A 18 56'27'
A WOVA27 10A B 18 59
A WOVN27 10A B 18 70
A 19 2'08'
A WOVA08 10A B 19 5
A WOVN08 10A B 19 16
A 19 29'18'
A WOVA18 10A B 19 32
A WOVN18 10A B 19 43
A 19 56'28'
A WOVA28 10A B 19 59
A WOVN28 10A B 19 70
A 20 2'09'
A WOVA09 10A B 20 5
A WOVN09 10A B 20 16
A 20 29'19'
A WOVA19 10A B 20 32
A WOVN19 10A B 20 43
A 20 56'29'
A WOVA29 10A B 20 59
A WOVN29 10A B 20 70
A 21 2'10'
A WOVA10 10A B 21 5
A WOVN10 10A B 21 16
A 21 29'20'
A WOVA20 10A B 21 32
A WOVN20 10A B 21 43
A 21 56'30'
A WOVA30 10A B 21 59
A WOVN30 10A B 21 70
A WERREUR 50A O 23 15DSPATR(HI)
A 24 2'CDE3'
A DSPATR(HI)
A 24 7'Annulation'

Print Friendly, PDF & Email