CLLESRC
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PSOC &PLIB &PFCH &PMBR &PTYP &PSPL &PPRD) 08/04/03
200 08/02/01
300 DCL VAR(&PSOC) TYPE(*CHAR) LEN(10) /* SOCIETE */ 08/04/03
400 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) /* LIB OBJET */ 08/04/03
500 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) /* NOM MEMBRE SOURCE */ 08/04/03
600 DCL VAR(&PFCH) TYPE(*CHAR) LEN(10) /* FCH SOURCE */ 08/04/03
700 DCL VAR(&PTYP) TYPE(*CHAR) LEN(10) /* TYPE OBJET */ 08/04/03
800 DCL VAR(&PSPL) TYPE(*CHAR) LEN(1) /* FLAG SPOOL Y/N */ 08/04/03
900 DCL VAR(&PPRD) TYPE(*CHAR) LEN(1) /* FLAG LIB PROD AND LISTE Y/N */ 08/04/03
1000 08/02/01
1100 DCL VAR(&OUTQ) TYPE(*CHAR) LEN(10) 08/04/02
1200 DCL VAR(&OUTL) TYPE(*CHAR) LEN(10) 08/04/02
1300 DCL VAR(&USER) TYPE(*CHAR) LEN(10) 08/04/02
1400 08/04/02
1500 DCL VAR(&PRJ) TYPE(*CHAR) LEN(20) /* NAME PROJET */ 08/04/03
1600 DCL VAR(&BLD) TYPE(*CHAR) LEN(10) /* CMD BUILD */ 08/04/03
1700 DCL VAR(&LIBP) TYPE(*CHAR) LEN(10) /* LIB PROD */ 08/04/03
1800 08/02/01
1900 DCL VAR(&PRYN) TYPE(*CHAR) LEN(1) 08/04/01
2000 08/02/05
2100 /* CONTROLE */ 08/02/05
2200 DCL VAR(&CMDTRT) TYPE(*DEC) LEN(1 0) VALUE(0) 08/02/29
2300 DCL VAR(&LENPOS) TYPE(*DEC) LEN(5) VALUE(0) 08/02/29
2400 DCL VAR(&DEBPOS) TYPE(*DEC) LEN(5) VALUE(0) 08/02/29
2500 DCL VAR(&FINPOS) TYPE(*DEC) LEN(5) VALUE(0) 08/02/29
2600 08/02/01
2700 /* VAR PGM */ 08/02/05
2800 DCL VAR(&CMD) TYPE(*CHAR) LEN(32000) 08/03/06
2900 08/02/01
3000 DCL VAR(&RECLEN) TYPE(*DEC) LEN(5) 08/02/01
3100 DCL VAR(&RECEND) TYPE(*DEC) LEN(5) 08/02/01
3200 DCL VAR(&CMDLEN) TYPE(*DEC) LEN(5) 08/02/01
3300 08/02/01
3400 DCL VAR(&RECPOS) TYPE(*DEC) LEN(5) 08/02/01
3500 DCL VAR(&CMDPOS) TYPE(*DEC) LEN(5) 08/02/01
3600 08/02/01
3700 DCL VAR(&MULTI) TYPE(*LGL) VALUE('0') 08/03/06
3800 DCL VAR(&CONT) TYPE(*LGL) VALUE('0') 08/03/06
3900 DCL VAR(&PLUS) TYPE(*LGL) VALUE('0') 08/03/06
4000 DCL VAR(&MINUS) TYPE(*LGL) VALUE('0') 08/03/06
4100 /* VAR FILE SOURCE */ 08/02/05
4200 DCLF FILE(ADMOPS/QBLDOPT) 08/02/04
4300 08/04/01
4400 /*---------------------------------------------------------------------------*/ 08/02/01
4500 /* Global MONMSG... */ 08/02/01
4600 /*---------------------------------------------------------------------------*/ 08/02/01
4700 MONMSG MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL(STDERR)) 08/02/01
4800 /* */ 08/02/01
4900 /* Extract working values from parms... */ 08/02/01
5000 /* */ 08/02/01
5100 /*****************************************************************************/ 08/02/05
5200 /* PERSONALISATION */ 08/04/02
5300 /* */ 08/04/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 /*****************************************************************************/ 08/02/05
5500 IF (%SST(&PLIB 1 3) *NE 'PC.' ) RETURN 08/04/02
5600 08/04/02
5700 08/04/02
5800 CALLPRC MADMBLDRTV (&PSOC &PMBR &PTYP &BLD &PRJ &LIBP ) /* RTV CMDBLD AND PROJET */ 08/04/03
5900 IF (&BLD *EQ '*NONE' ) DO 08/04/02
6000 SNDPGMMSG MSG(&BLD *CAT ' Script pour compilation Invalide ' *CAT &PLIB *CAT &PMBR) M 08/04/02
SGTYPE(*DIAG)
6100 RETURN 08/04/02
6200 ENDDO 08/04/02
6300 08/04/03
6400 08/04/02
6500 CALLPRC XADMLIBL (&PSOC &PRJ) /* INITIALISE L'ENVRONNEMENT *LIB */ 08/04/02
6600 08/04/03
6700 /* IL EST POSSIBLE DE NE PAS PRENDRE LA LIB PROD EN COMPTE */ 08/04/03
6800 08/04/03
6900 IF COND(&PPRD = 'Y') THEN(RMVLIBLE LIB(&LIBP)) 08/04/03
7000 08/04/03
7100 ADDLIBLE LIB(&PLIB) /* AJOUT LIB PC.#### DE WDSC */ 08/04/03
7200 08/04/03
7300 SELECT 08/04/02
7400 WHEN (&BLD *EQ &PMBR) OVRDBF FILE(QBLDOPT) TOFILE(&PLIB/QBLDOPTSRC) + 08/04/02
7500 MBR(&PMBR) OVRSCOPE(*JOB) SHARE(*YES) 08/04/02
7600 08/04/02
7700 WHEN (&BLD *NE &PMBR) OVRDBF FILE(QBLDOPT) TOFILE(ADMOPS/QBLDOPT) + 08/04/02
7800 MBR(&BLD) OVRSCOPE(*JOB) SHARE(*YES) 08/04/02
7900 ENDSELECT 08/04/02
8000 08/04/02
8100 /*****************************************************************************/ 08/04/02
8200 /* FIN PERSONALISATION */ 08/04/02
8300 /* */ 08/04/02
8400 /*****************************************************************************/ 08/04/02
8500 08/04/02
8600 /* Point to our CL member... */ 08/03/11
8700 /* */ 08/02/01
8800 /* At the beginning of each command, we clear the command buffer and */ 08/02/01
8900 /* reposition to the beginning of the buffer... */ 08/02/01
9000 /* */ 08/02/01
9100 /* A CL member can contain many commands. Each command may span many */ 08/02/01
9200 /* records. We have two loops (nested) for records within commands... */ 08/02/01
9300 /* */ 08/02/01
9400 08/02/01
9500 /*----------------------- Command loop ------------------------------*/ 08/02/01
9600 08/02/01
9700 NXT_CMD: CHGVAR VAR(&CMDPOS) VALUE(1) 08/02/01
9800 CHGVAR VAR(&CMD) VALUE(' ') 08/02/01
9900 08/02/01
10000 /*---------------------- Record loop ------------------------*/ 08/02/01
10100 08/02/01
10200 CHGVAR &CMDTRT VALUE(0) 08/02/29
10300 NXT_REC: RCVF 08/02/29
10400 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END_REC)) 08/04/02
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10500 08/02/01
10600 08/02/01
10700 /* */ 08/02/01
10800 /* Blank lines are simply skipped... */ 08/02/01
10900 /* */ 08/02/01
11000 08/02/01
11100 IF COND(&SRCDTA *EQ ' ') THEN(GOTO CMDLBL(NXT_REC)) 08/02/01
11200 08/02/01
11300 08/02/01
11400 /* */ 08/02/01
11500 /* Find the last non-blank in the source record data field... */ 08/02/01
11600 /* */ 08/02/01
11700 ADMLEN VALUE(&SRCDTA) LEN(&RECEND) 08/02/03
11800 /* */ 08/02/01
11900 /* Default to the first position of the source data field... */ 08/02/01
12000 /* */ 08/02/01
12100 CHGVAR VAR(&RECPOS) VALUE(1) 08/02/01
12200 08/02/01
12300 /* */ 08/02/01
12400 /* We check to see if the &MULTI indicator is on from the previous source */ 08/02/01
12500 /* record. If it is, that means the current record is a continuation... */ 08/02/01
12600 /* */ 08/02/01
12700 08/02/01
12800 IF COND(&MULTI) THEN(DO) 08/02/01
12900 08/02/01
13000 /* */ 08/02/01
13100 /* A continuation can be either &PLUS or &MINUS. If it's &PLUS, we need to */ 08/02/01
13200 /* locate the first non-blank character. For &MINUS, we remain */ 08/02/01
13300 /* positioned at the beginning because leading blanks are included. */ 08/02/01
13400 /* */ 08/02/01
13500 IF COND(&PLUS) THEN(DO) 08/02/01
13600 08/02/01
13700 /* Loop until non-blank... */ 08/02/01
13800 NXT_SPC: IF COND(%SST(&SRCDTA &RECPOS 1) *EQ ' ') + 08/02/01
13900 THEN(DO) 08/02/01
14000 CHGVAR VAR(&RECPOS) VALUE(&RECPOS +1) 08/02/01
14100 GOTO CMDLBL(NXT_SPC) 08/02/01
14200 ENDDO /* NXT_SPC... */ 08/02/01
14300 08/02/01
14400 ENDDO /* &PLUS... */ 08/02/01
14500 08/02/01
14600 ENDDO 08/02/01
14700 08/02/01
14800 08/02/01
14900 /* */ 08/02/01
15000 /* Now that we've set everything based on indicators from the previous */ 08/02/01
15100 /* record, we can set the indicators for the current record... */ 08/02/01
15200 /* */ 08/02/01
15300 08/02/01
15400 IF COND(%SST(&SRCDTA &RECEND 1) *EQ '+') THEN(DO) 08/02/01
15500 CHGVAR VAR(&MULTI) VALUE('1') 08/02/01
15600 CHGVAR VAR(&PLUS) VALUE('1') 08/02/01
15700 CHGVAR VAR(&MINUS) VALUE('0') 08/02/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
15800 CHGVAR &CMDTRT VALUE(1) 08/02/29
15900 ENDDO 08/02/01
16000 08/02/01
16100 ELSE CMD(DO) 08/02/01
16200 IF COND(%SST(&SRCDTA &RECEND 1) *EQ '-') THEN(DO) 08/02/01
16300 CHGVAR VAR(&MULTI) VALUE('1') 08/02/01
16400 CHGVAR VAR(&PLUS) VALUE('0') 08/02/01
16500 CHGVAR VAR(&MINUS) VALUE('1') 08/02/01
16600 CHGVAR &CMDTRT VALUE(1) 08/02/29
16700 ENDDO 08/02/01
16800 08/02/01
16900 ELSE CMD(DO) 08/02/01
17000 CHGVAR VAR(&MULTI) VALUE('0') 08/02/01
17100 CHGVAR VAR(&PLUS) VALUE('0') 08/02/01
17200 CHGVAR VAR(&MINUS) VALUE('0') 08/02/01
17300 ENDDO 08/02/01
17400 ENDDO 08/02/01
17500 08/02/01
17600 /* */ 08/02/01
17700 /* If the current record is &MULTI, we need to set the length by reducing */ 08/02/01
17800 /* the length by one. This strips off the PLUS or MINUS character... */ 08/02/01
17900 /* */ 08/02/01
18000 08/02/01
18100 IF COND(&MULTI) THEN(DO) 08/02/01
18200 08/02/01
18300 CHGVAR VAR(&RECLEN) VALUE(&RECEND - &RECPOS) 08/02/01
18400 08/02/01
18500 ENDDO 08/02/01
18600 08/02/01
18700 ELSE CMD(DO) /* &MULTI... */ 08/02/01
18800 08/02/01
18900 CHGVAR VAR(&RECLEN) VALUE(&RECEND - &RECPOS + 1) 08/02/01
19000 08/02/01
19100 ENDDO 08/02/01
19200 08/02/01
19300 08/02/01
19400 /* */ 08/02/01
19500 /* We have all our lengths and positions set; now move the significant */ 08/02/01
19600 /* part of the current source data field into the command buffer... */ 08/02/01
19700 /* */ 08/02/01
19800 08/02/01
19900 CHGVAR VAR(%SST(&CMD &CMDPOS &RECLEN)) VALUE(%SST(&SRCDTA + 08/02/01
20000 &RECPOS &RECLEN)) 08/02/01
20100 08/02/01
20200 /* */ 08/02/01
20300 /* Move our pointer down the command buffer according to the length we */ 08/02/01
20400 /* moved into it... */ 08/02/01
20500 /* */ 08/02/01
20600 CHGVAR VAR(&CMDPOS) VALUE(&CMDPOS + &RECLEN) 08/02/01
20700 08/02/01
20800 /* */ 08/02/01
20900 /* If the current record is &MULTI, go back to get the continuation */ 08/02/01
21000 /* that should follow... */ 08/02/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21100 /* */ 08/02/01
21200 IF COND(&MULTI) THEN(GOTO CMDLBL(NXT_REC)) 08/02/01
21300 08/02/01
21400 /*---------------------- Record loop ------------------------*/ 08/02/01
21500 08/02/01
21600 /* */ 08/02/01
21700 /* ...otherwise... */ 08/02/01
21800 08/02/01
21900 NXT_TXT0: CHGVAR VAR(&DEBPOS) VALUE(1) 08/02/29
22000 CHGVAR VAR(&FINPOS) VALUE(1) 08/02/29
22100 ADMLEN VALUE(&CMD) LEN(&CMDLEN) 08/02/29
22200 CHGVAR &LENPOS (&CMDLEN -1) 08/02/29
22300 NXT_TXT1: IF COND(%SST(&CMD &DEBPOS 2) *NE '/*') + 08/02/29
22400 THEN(DO) 08/02/29
22500 CHGVAR VAR(&DEBPOS) VALUE(&DEBPOS +1) 08/02/29
22600 IF (&LENPOS > &DEBPOS ) GOTO CMDLBL(NXT_TXT1) 08/02/29
22700 ENDDO 08/02/29
22800 ELSE CMD( DO ) /* TROUVE DANS NXT_TXT1 */ 08/02/29
22900 NXT_TXT2: IF COND(%SST(&CMD &FINPOS 2) *NE '*/') + 08/02/29
23000 THEN(DO) 08/02/29
23100 CHGVAR VAR(&FINPOS) VALUE(&FINPOS +1) 08/02/29
23200 IF (&LENPOS > &FINPOS ) GOTO CMDLBL(NXT_TXT2) 08/02/29
23300 ENDDO 08/02/29
23400 ELSE CMD( DO ) /* TROUVE */ 08/02/29
23500 CHGVAR &LENPOS VALUE(&FINPOS +1) 08/02/29
23600 NXT_TXT3: CHGVAR %SST(&CMD &DEBPOS 1) VALUE(' ') 08/02/29
23700 CHGVAR VAR(&DEBPOS) VALUE(&DEBPOS +1) 08/02/29
23800 IF (&LENPOS *GE &DEBPOS ) GOTO CMDLBL(NXT_TXT3) 08/02/29
23900 GOTO NXT_TXT0 08/02/29
24000 ENDDO /* FIN NXT_TXT2 */ 08/02/29
24100 ENDDO /* FIN NXT_TXT1 */ 08/02/29
24200 /* */ 08/02/01
24300 /* Get the final length of the command buffer to pass to the command */ 08/02/01
24400 /* execution API... */ 08/02/01
24500 /* */ 08/02/01
24600 /*****************************************************************************/ 08/02/05
24700 /* Traitement des commandes QBLDOPT... par défaut enregisté dans ADMSOPS */ 08/02/21
24800 /*****************************************************************************/ 08/02/05
24900 CALLPRC MADMBLDEVT (&CMD &PLIB &PMBR &PFCH &PRYN) /*Defini par defaut LIB OBJ FILE SOURCE */ 08/04/02
25000 IF (&PRYN *EQ 'N') GOTO STDERR /* ERREUR COMPILATION */ 08/04/03
25100 08/02/22
25200 CHGVAR &CMDTRT VALUE(0) 08/02/29
25300 /* */ 08/02/04
25400 /* ...and execute that command. */ 08/02/01
25500 /* */ 08/02/01
25600 08/04/02
25700 08/04/02
25800 CALLPRC MADMCMDEXC (&CMD &PRYN) 08/04/02
25900 08/04/02
26000 IF (&PRYN *EQ 'N') GOTO STDERR /* ERREUR COMPILATION */ 08/04/02
26100 08/04/02
26200 08/04/02
26300 IF COND(&PSPL *EQ 'N') THEN(DO) 08/04/02
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26400 RTVJOBA CURUSER(&USER) OUTQ(&OUTQ) OUTQLIB(&OUTL) 08/04/02
26500 CALLPRC MADMBLDSPL (&USER &PMBR &OUTQ &OUTL) 08/04/02
26600 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/04/02
26700 ENDDO 08/04/02
26800 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
26900 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
27000 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
27100 SNDPGMMSG MSG(&CMD *TCAT '**') MSGTYPE(*DIAG) 08/04/03
27200 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
27300 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
27400 SNDPGMMSG MSG(&BLD *BCAT 'SCRIPT POUR COMPILATION' *BCAT &PLIB *BCAT &PMBR) MSGTYPE(*D 08/04/03
IAG)
27500 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
27600 SNDPGMMSG MSG(&USER *BCAT 'Script *** OK **** FOR' *BCAT &BLD *BCAT &PLIB *BCAT &PMBR) 08/04/03
MSGTYPE(*DIAG)
27700 /* */ 08/02/01
27800 /* Now go back to see if there are any more... */ 08/02/01
27900 /* */ 08/02/01
28000 GOTO CMDLBL(NXT_CMD) 08/02/21
28100 08/02/01
28200 /*----------------------- Command loop ------------------------------*/ 08/02/01
28300 END_REC: 08/03/11
28400 IF (&CMDTRT = 1 ) GOTO STDERR /* PRBLM SCRIPT BLDOPT INVALIDE NON TERMINE */ 08/03/17
28500 08/03/27
28600 DLTOVR QBLDOPT 08/02/22
28700 MONMSG CPF0000 08/02/22
28800 CHGVAR &PRYN VALUE('Y') 08/02/21
28900 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
29000 RETURN 08/02/04
29100 08/02/01
29200 /*---ERREUR traitement GENERAL --------------------------------------------------*/ 08/03/11
29300 STDERR: 08/02/01
29400 08/03/27
29500 DLTOVR QBLDOPT 08/02/22
29600 MONMSG CPF0000 08/02/22
29700 CHGVAR &PRYN VALUE('N') 08/02/21
29800 08/02/29
29900 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
30000 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
30100 SNDPGMMSG MSG(&BLD *BCAT 'SCRIPT POUR COMPILATION' *BCAT &PLIB *BCAT &PMBR) MSGTYPE(*D 08/04/03
IAG)
30200 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
30300 SNDPGMMSG MSG(&CMD *TCAT '**') MSGTYPE(*DIAG) 08/04/03
30400 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
30500 SNDPGMMSG MSG('PENSEZ A VOTRE LISTE LIB - LES LIENS (DSPF .... PGM) & AU SCRIPT BLDOPT 08/04/03
...') MSGTYPE(*DIAG)
30600 SNDPGMMSG MSG(' ') MSGTYPE(*DIAG) 08/04/03
30700 SNDPGMMSG MSG(&USER *BCAT 'compilation *** Invalide ***' *BCAT &PLIB *BCAT &PMBR) MSGTYPE(*DIA 08/04/03
G)
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMCHKWDS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
30800 ENDPGM 08/02/01
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMLEN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 SYRTNLEN: PGM PARM(&VALUE &LEN) 08/02/01
200 08/02/01
300 DCL VAR(&VALUE) TYPE(*CHAR) LEN(32002) 08/03/06
400 DCL VAR(&LEN) TYPE(*DEC) LEN(5 0) 08/02/01
500 08/02/01
600 CHGVAR VAR(&LEN) VALUE(%BIN(&VALUE 1 2)) 08/02/01
700 08/02/01
800 ENDPGM 08/02/01
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMSCNSRCI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&SOC &PRJ &DB2 &DSPF &PRTF &CL &RPG &C &SRV &LSTR &LSTD &CHK &DEP &STRING) 09/01/27
200 DCL &USER *CHAR 10 09/01/23
300 DCL &SWS *CHAR 8 09/01/23
400 09/01/23
500 DCL &I *DEC (3 0) VALUE(0) 09/01/23
600 DCL &P *DEC (3 0) VALUE(0) 09/01/23
700 DCL &NRCD *DEC (10 0) VALUE(0) 09/01/23
800 DCL &XOBJ *CHAR 10 09/01/23
900 09/01/23
1000 09/01/23
1100 DCL &INT *INT 4 09/01/23
1200 DCL &END *INT 4 09/01/23
1300 DCL &SPRJ *INT 4 VALUE(1000) /* SIZE &PRJ */ 09/01/23
1400 DCL &LPRJ *DEC 5 0 /* LEN &PRJ */ 09/01/23
1500 09/01/23
1600 DCL &SOC *CHAR 10 09/01/23
1700 DCL &PRJX *CHAR 20 09/01/23
1800 DCL &PRJ *CHAR 1000 /* 50 PROJETS */ 09/01/23
1900 DCL &DB2 *CHAR 4 09/01/23
2000 DCL &DSPF *CHAR 4 09/01/23
2100 DCL &PRTF *CHAR 4 09/01/23
2200 DCL &CL *CHAR 4 09/01/23
2300 DCL &RPG *CHAR 4 09/01/23
2400 DCL &C *CHAR 4 09/01/23
2500 DCL &SRV *CHAR 4 09/01/23
2600 DCL &LSTR *CHAR 4 09/01/23
2700 DCL &LSTD *CHAR 4 09/01/23
2800 DCL &CHK *CHAR 4 09/01/23
2900 DCL &DEP *CHAR 4 09/01/27
3000 DCL &STRING *CHAR 50 09/01/23
3100 09/01/23
3200 DCL &FIXE *CHAR 25 (' OBOFCH *NE " " *AND ') 09/01/23
3300 DCL &QRY *CHAR 1024 09/01/23
3400 09/01/23
3500 DCL &RYN *CHAR 1 09/01/23
3600 09/01/23
3700 DCLF FILE(ADMOPS/FADMSCN) OPNID(FADMSCN) 09/01/23
3800 09/01/23
3900 RTVJOBA USER(&USER) 09/01/23
4000 09/01/23
4100 IF ( &DB2 = '*NO ' + 09/01/23
4200 *AND &DB2 = '*NO ' + 09/01/23
4300 *AND &DB2 = '*NO ' + 09/01/23
4400 *AND &DSPF = '*NO ' + 09/01/23
4500 *AND &PRTF = '*NO ' + 09/01/23
4600 *AND &CL = '*NO ' + 09/01/23
4700 *AND &CL = '*NO ' + 09/01/23
4800 *AND &RPG = '*NO ' + 09/01/23
4900 *AND &RPG = '*NO ' + 09/01/23
5000 *AND &RPG = '*NO ' + 09/01/23
5100 *AND &C = '*NO ' + 09/01/23
5200 *AND &SRV = '*NO ') GOTO TERM 09/01/23
5300 09/01/23
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMSCNSRCI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 09/01/23
5500 CHKOBJ OBJ(QTEMP/FADMSCN) OBJTYPE(*FILE) 09/01/23
5600 MONMSG MSGID(CPF9801) EXEC(DO) 09/01/23
5700 CRTDUPOBJ OBJ(FADMSCN) FROMLIB(ADMOPS) OBJTYPE(*FILE) TOLIB(QTEMP) 09/01/23
5800 CRTDUPOBJ OBJ(FADMSCNX) FROMLIB(ADMOPS) OBJTYPE(*FILE) + 09/01/23
5900 TOLIB(QTEMP) NEWOBJ(FADMSCNX) 09/01/23
6000 CLRPFM FILE(QTEMP/FADMSCN) 09/01/23
6100 OVRDBF FILE(FADMSCN) TOFILE(QTEMP/FADMSCN) + 09/02/02
6200 OVRSCOPE(*JOB) SHARE(*YES) 09/02/02
6300 OVRDBF FILE(LADMOBJS) TOFILE(ADMOPS/LADMOBJS) + 09/02/02
6400 OVRSCOPE(*JOB) SHARE(*YES) 09/02/02
6500 ENDDO 09/02/02
6600 09/01/23
6700 /* RECUPERE LONGUEUR */ 09/01/23
6800 ADMLEN VALUE(&PRJ) LEN(&LPRJ) 09/01/23
6900 CHGVAR &PRJX %SST(&PRJ 1 &LPRJ) 09/01/23
7000 CHGVAR &P VALUE(11) /* NBR COND */ 09/01/23
7100 CHGVAR &I VALUE(00) 09/01/23
7200 SELECT 09/01/23
7300 WHEN (&PRJX *EQ '*ALL' ) DO /* TOUT PROJET */ 09/01/23
7400 /* __________ BOUCLE RALL _____________*/ 09/01/23
7500 RALL: CHGVAR &I VALUE(&I + 1) 09/01/23
7600 09/01/23
7700 IF (&I *GT &P ) GOTO FIND 09/01/23
7800 CHGVAR &QRY VALUE(' ') 09/01/23
7900 09/01/23
8000 IF (&I = 1 *AND &DB2 = '*NO ') GOTO RALL 09/01/23
8100 IF (&I = 2 *AND &DB2 = '*NO ') GOTO RALL 09/01/23
8200 IF (&I = 3 *AND &DSPF = '*NO ') GOTO RALL 09/01/23
8300 IF (&I = 4 *AND &PRTF = '*NO ') GOTO RALL 09/01/23
8400 IF (&I = 5 *AND &CL = '*NO ') GOTO RALL 09/01/23
8500 IF (&I = 6 *AND &CL = '*NO ') GOTO RALL 09/01/23
8600 IF (&I = 7 *AND &RPG = '*NO ') GOTO RALL 09/01/23
8700 IF (&I = 8 *AND &RPG = '*NO ') GOTO RALL 09/01/23
8800 IF (&I = 9 *AND &RPG = '*NO ') GOTO RALL 09/01/23
8900 IF (&I = 10 *AND &C = '*NO ') GOTO RALL 09/01/23
9000 IF (&I = 11 *AND &SRV = '*NO ') GOTO RALL 09/01/23
9100 09/01/23
9200 IF (&I = 1 *AND &DB2 = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "PF"') 09/01/23
9300 IF (&I = 2 *AND &DB2 = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "LF"') 09/01/23
9400 IF (&I = 3 *AND &DSPF = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "DSPF"') 09/01/23
9500 IF (&I = 4 *AND &PRTF = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "PRTF"') 09/01/23
9600 IF (&I = 5 *AND &CL = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "CLP "') 09/01/23
9700 IF (&I = 6 *AND &CL = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "CLLE"') 09/01/23
9800 IF (&I = 7 *AND &RPG = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "RPG "') 09/01/23
9900 IF (&I = 8 *AND &RPG = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "RPGLE"') 09/01/23
10000 IF (&I = 9 *AND &RPG = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "SQLRPGLE"') 09/01/23
10100 IF (&I = 10 *AND &C = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "CLE"') 09/01/23
10200 IF (&I = 11 *AND &SRV = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOTYP = "*SRVPGM"') 09/01/23
10300 09/01/23
10400 09/01/23
10500 OPNQRYF FILE((ADMOPS/LADMOBJS)) + 09/01/23
10600 QRYSLT(&QRY *CAT ' *AND OBSOC ="' *TCAT &SOC *TCAT '" ') + 09/01/23
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMSCNSRCI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 KEYFLD(*FILE) + 09/01/23
10800 OPNSCOPE(*JOB) 09/01/23
10900 CALLPRC XADMSCNSRC (&STRING) /* MEMORISE LES BIBLIOTHEQUES ET FICHIERS SOURCES */ 09/01/23
11000 CLOF LADMOBJS 09/01/23
11100 09/01/23
11200 GOTO RALL 09/01/23
11300 09/01/23
11400 ENDDO /* SELECT *ALL */ 09/01/23
11500 09/01/23
11600 WHEN (&PRJX *NE '*ALL' ) DO /* AVEC CHOIX DE PROJET */ 09/01/23
11700 09/01/23
11800 CHGVAR &I VALUE(00) 09/01/23
11900 RDET: CHGVAR &I VALUE(&I + 1) 09/01/23
12000 09/01/23
12100 IF (&I *GT &P ) GOTO FIND 09/01/23
12200 CHGVAR &QRY VALUE(' ') 09/01/23
12300 09/01/23
12400 IF (&I = 1 *AND &DB2 = '*NO ') GOTO RDET 09/01/23
12500 IF (&I = 1 *AND &DB2 = '*NO ') GOTO RDET 09/01/23
12600 IF (&I = 2 *AND &DB2 = '*NO ') GOTO RDET 09/01/23
12700 IF (&I = 3 *AND &DSPF = '*NO ') GOTO RDET 09/01/23
12800 IF (&I = 4 *AND &PRTF = '*NO ') GOTO RDET 09/01/23
12900 IF (&I = 5 *AND &CL = '*NO ') GOTO RDET 09/01/23
13000 IF (&I = 6 *AND &CL = '*NO ') GOTO RDET 09/01/23
13100 IF (&I = 7 *AND &RPG = '*NO ') GOTO RDET 09/01/23
13200 IF (&I = 8 *AND &RPG = '*NO ') GOTO RDET 09/01/23
13300 IF (&I = 9 *AND &RPG = '*NO ') GOTO RDET 09/01/23
13400 IF (&I = 10 *AND &C = '*NO ') GOTO RDET 09/01/23
13500 IF (&I = 11 *AND &SRV = '*NO ') GOTO RDET 09/01/23
13600 09/01/23
13700 IF (&I = 1 *AND &DB2 = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "PF"') 09/01/23
13800 IF (&I = 2 *AND &DB2 = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "LF"') 09/01/23
13900 IF (&I = 3 *AND &DSPF = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "DSPF"') 09/01/23
14000 IF (&I = 4 *AND &PRTF = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "PRTF"') 09/01/23
14100 IF (&I = 5 *AND &CL = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "CLP "') 09/01/23
14200 IF (&I = 6 *AND &CL = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "CLLE"') 09/01/23
14300 IF (&I = 7 *AND &RPG = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "RPG "') 09/01/23
14400 IF (&I = 8 *AND &RPG = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "RPGLE"') 09/01/23
14500 IF (&I = 9 *AND &RPG = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "SQLRPGLE"') 09/01/23
14600 IF (&I = 10 *AND &C = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOATR = "CLE"') 09/01/23
14700 IF (&I = 11 *AND &SRV = '*YES') CHGVAR &QRY (&FIXE *CAT ' OBOTYP = "*SRVPGM"') 09/01/23
14800 09/01/23
14900 CHGVAR &INT (0) 09/01/23
15000 CHGVAR &END (0) 09/01/23
15100 ADMLEN VALUE(&PRJ) LEN(&LPRJ) 09/01/23
15200 CHGVAR VAR(&END) VALUE(&SPRJ - &LPRJ) 09/01/23
15300 DOFOR VAR(&INT) FROM(1) TO(&END) BY(1) 09/01/23
15400 CHGVAR &PRJ VALUE(&PRJ *CAT ' ') 09/01/23
15500 ENDDO 09/01/23
15600 DOFOR VAR(&INT) FROM(1) TO(&SPRJ) BY(20) 09/01/23
15700 CHGVAR &PRJX %SST(&PRJ &INT 20) 09/01/23
15800 09/01/23
15900 09/01/23
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMSCNSRCI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 IF (&PRJX *EQ ' ' ) GOTO RDET 09/01/23
16100 09/01/23
16200 09/01/23
16300 OPNQRYF FILE((ADMOPS/LADMOBJS)) + 09/01/23
16400 QRYSLT(&QRY *CAT ' *AND OBSOC ="' *TCAT &SOC *TCAT '" *AND OBPRJ ="' *TCAT &PRJX *TC 09/01/23
AT '" ') +
16500 KEYFLD(*FILE) + 09/01/23
16600 OPNSCOPE(*JOB) 09/01/23
16700 09/01/23
16800 CALLPRC XADMSCNSRC (&STRING) /* MEMORISE LES BIBLIOTHEQUES ET FICHIERS SOURCES */ 09/01/23
16900 CLOF LADMOBJS 09/01/23
17000 ENDDO /* FOR */ 09/01/23
17100 GOTO RDET 09/01/23
17200 ENDDO /* SELECT PROJET */ 09/01/23
17300 ENDSELECT 09/01/23
17400 09/01/23
17500 /*______________________________________________________________________________________*/ 09/01/23
17600 FIND: 09/01/23
17700 09/01/23
17800 09/01/23
17900 /* RECHERCHE LES DEPENDANCES DES FILES PF LF */ 09/01/23
18000 09/01/27
18100 IF (&DEP = '*NO ') GOTO LST 09/01/27
18200 CPYF FROMFILE(QTEMP/FADMSCN) + 09/01/23
18300 TOFILE(QTEMP/FADMSCNX) MBROPT(*REPLACE) + 09/01/27
18400 INCREL((*IF OBOATR *EQ 'PF') (*OR OBOATR + 09/01/23
18500 *EQ 'LF')) FMTOPT(*NOCHK) 09/01/23
18600 MONMSG CPF2817 09/01/23
18700 RTVMBRD FILE(QTEMP/FADMSCNX) NBRCURRCD(&NRCD) 09/01/27
18800 IF (&NRCD *GT 0 ) CALLPRC XADMSCN00 /* DEPENDANCE BD */ 09/02/02
18900 CHGJOB SWS(10000000) 09/01/27
19000 CPYF FROMFILE(QTEMP/FADMSCN) + 09/01/23
19100 TOFILE(QTEMP/FADMSCNX) MBROPT(*REPLACE) + 09/01/23
19200 INCREL((*IF OBOATR *EQ 'DSPF') (*OR + 09/01/23
19300 OBOATR *EQ 'PRTF')) FMTOPT(*NOCHK) 09/01/23
19400 MONMSG CPF2817 09/01/23
19500 RTVMBRD FILE(QTEMP/FADMSCNX) NBRCURRCD(&NRCD) 09/01/27
19600 IF (&NRCD *GT 0 ) + 09/01/27
19700 CALLPRC XADMSCN00 /* RELECTURE DES DSPF/PRTF RECHERCHE SI EXIST.. DANS *PGM */ 09/02/02
19800 CHGJOB SWS(00000000) 09/01/27
19900 09/01/23
20000 09/01/23
20100 LST: /* LISTE DE LA RECHERCHE CARACTERE */ 09/01/27
20200 IF (&LSTR = '*YES' ) CALLPRC XADMSCN01 (&STRING) /* LISTE RECAPE */ 09/01/23
20300 09/01/23
20400 IF (&LSTD = '*YES' ) DO 09/01/27
20500 OPNQRYF FILE((QTEMP/FADMSCN)) + 09/01/27
20600 QRYSLT('OBUSR *NE "*DEP" ') + 09/01/27
20700 KEYFLD(*FILE) + 09/01/27
20800 OPNSCOPE(*JOB) 09/01/27
20900 CALLPRC XADMSCN02 (&STRING) /* LISTE DETAIL */ 09/01/27
21000 CLOF FADMSCN 09/01/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMSCNSRCI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21100 09/01/27
21200 OPNQRYF FILE((QTEMP/FADMSCN)) + 09/01/27
21300 QRYSLT('OBUSR *EQ "*DEP" ') + 09/01/27
21400 KEYFLD(*FILE) + 09/01/27
21500 OPNSCOPE(*JOB) 09/01/27
21600 CALLPRC XADMSCN03 (&STRING) /* LISTE DEPENDANCE */ 09/01/27
21700 CLOF FADMSCN 09/01/27
21800 ENDDO 09/01/27
21900 09/01/23
22000 09/01/23
22100 /*______________________________________________________________________________________*/ 09/01/23
22200 /* LECTURE ET CHEKOUT DES SOURCES TROUVÉS */ 09/01/23
22300 /*______________________________________________________________________________________*/ 09/01/23
22400 09/01/23
22500 IF (&CHK = '*YES' ) DO 09/01/23
22600 NXT_REC: RCVF OPNID(FADMSCN) 09/01/23
22700 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END_REC)) 09/01/23
22800 SELECT 09/01/27
22900 WHEN (&FADMSCN_OBUSR *EQ ' ' *AND &FADMSCN_OBOFCH *NE ' ' *AND &FADMSCN_OBP *EQ 'P' ) + 09/01/27
23000 ADMCHKOUT SOC(&FADMSCN_OBSOC) PRJ(&FADMSCN_OBPRJ) OBJ(&FADMSCN_OBOOBJ) TYP(&FADMSCN_ 09/01/23
OBOTYP) RYN(&RYN)
23100 WHEN (&FADMSCN_OBUSR *EQ '*DEP' *AND &FADMSCN_OBOFCH *NE ' ' *AND &FADMSCN_OBQ *EQ 'Q' ) + 09/02/02
23200 ADMCHKOUT SOC(&FADMSCN_OBSOC) PRJ(&FADMSCN_OBPRJ) OBJ(&FADMSCN_OBOOBJ) TYP(&FADMSCN_ 09/02/02
OBOTYP) RYN(&RYN)
23300 WHEN (&FADMSCN_OBUSR *EQ '*DEP' *AND &FADMSCN_OBOFCH *NE ' ' *AND &FADMSCN_OBP *EQ 'P' ) + 09/01/27
23400 ADMCHKOUT SOC(&FADMSCN_OBSOC) PRJ(&FADMSCN_OBPRJ) OBJ(&FADMSCN_OBOOBJ) TYP(&FADMSCN_ 09/01/27
OBOTYP) RYN(&RYN)
23500 WHEN (&FADMSCN_OBUSR *EQ &USER *AND &FADMSCN_OBOFCH *NE ' ' *AND &FADMSCN_OBQ *EQ 'Q' ) + 09/02/02
23600 ADMCHKOUT SOC(&FADMSCN_OBSOC) PRJ(&FADMSCN_OBPRJ) OBJ(&FADMSCN_OBOOBJ) TYP(&FADMSCN_ 09/02/02
OBOTYP) RYN(&RYN)
23700 WHEN (&FADMSCN_OBUSR *EQ &USER *AND &FADMSCN_OBOFCH *NE ' ' *AND &FADMSCN_OBP *EQ 'P' ) + 09/02/02
23800 ADMCHKOUT SOC(&FADMSCN_OBSOC) PRJ(&FADMSCN_OBPRJ) OBJ(&FADMSCN_OBOOBJ) TYP(&FADMSCN_ 09/02/02
OBOTYP) RYN(&RYN)
23900 ENDSELECT 09/01/27
24000 GOTO NXT_REC 09/01/23
24100 ENDDO 09/01/23
24200 09/01/23
24300 09/01/23
24400 09/01/23
24500 END_REC: 09/01/23
24600 CLRPFM QTEMP/FADMSCN 09/01/28
24700 CLRPFM QTEMP/FADMSCNX 09/01/28
24800 DLTOVR FADMSCN 09/01/23
24900 MONMSG CPF0000 09/01/23
25000 DLTOVR FADMSCNX 09/01/23
25100 MONMSG CPF0000 09/01/23
25200 DLTF QTEMP/FADMSCN 09/02/02
25300 MONMSG CPF0000 09/02/02
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . ADMSCNSRCI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
25400 DLTF QTEMP/FADMSCNX 09/02/02
25500 MONMSG CPF0000 09/02/02
25600 09/02/02
25700 TERM: ENDPGM 09/01/23
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMBLDCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &PMBR &PTYP &PF &PBLD &PCMD &PSPL &PRYN &CMD) 08/03/14
200 08/02/01
300 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/11
400 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/11
500 DCL VAR(&PTYP) TYPE(*CHAR) LEN(10) 08/02/12
600 DCL VAR(&PF) TYPE(*CHAR) LEN(10) 08/03/14
700 DCL VAR(&PBLD) TYPE(*CHAR) LEN(1) 08/02/26
800 DCL VAR(&PCMD) TYPE(*CHAR) LEN(10) 08/02/12
900 DCL VAR(&PSPL) TYPE(*CHAR) LEN(1) 08/03/06
1000 DCL VAR(&PRYN) TYPE(*CHAR) LEN(1) 08/02/21
1100 08/02/01
1200 08/02/01
1300 08/02/05
1400 DCL VAR(&USER) TYPE(*CHAR) LEN(10) 08/02/05
1500 DCL VAR(&MSG ) TYPE(*CHAR) LEN(256) 08/02/22
1600 /* CONTROLE */ 08/02/05
1700 DCL VAR(&CMDTRT) TYPE(*DEC) LEN(1 0) VALUE(0) 08/02/29
1800 DCL VAR(&LENPOS) TYPE(*DEC) LEN(5) VALUE(0) 08/02/29
1900 DCL VAR(&DEBPOS) TYPE(*DEC) LEN(5) VALUE(0) 08/02/29
2000 DCL VAR(&FINPOS) TYPE(*DEC) LEN(5) VALUE(0) 08/02/29
2100 08/02/01
2200 /* VAR PGM */ 08/02/05
2300 DCL VAR(&CMD) TYPE(*CHAR) LEN(32000) 08/03/06
2400 08/02/01
2500 DCL VAR(&RECLEN) TYPE(*DEC) LEN(5) 08/02/01
2600 DCL VAR(&RECEND) TYPE(*DEC) LEN(5) 08/02/01
2700 DCL VAR(&CMDLEN) TYPE(*DEC) LEN(5) 08/02/01
2800 08/02/01
2900 DCL VAR(&RECPOS) TYPE(*DEC) LEN(5) 08/02/01
3000 DCL VAR(&CMDPOS) TYPE(*DEC) LEN(5) 08/02/01
3100 08/02/01
3200 DCL VAR(&MULTI) TYPE(*LGL) VALUE('0') 08/03/06
3300 DCL VAR(&CONT) TYPE(*LGL) VALUE('0') 08/03/06
3400 DCL VAR(&PLUS) TYPE(*LGL) VALUE('0') 08/03/06
3500 DCL VAR(&MINUS) TYPE(*LGL) VALUE('0') 08/03/06
3600 /* VAR FILE SOURCE */ 08/02/05
3700 DCLF FILE(ADMOPS/QBLDOPT) 08/02/04
3800 08/02/01
3900 08/02/01
4000 /*---------------------------------------------------------------------------*/ 08/02/01
4100 /* Global MONMSG... */ 08/02/01
4200 /*---------------------------------------------------------------------------*/ 08/02/01
4300 MONMSG MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL(STDERR)) 08/02/01
4400 RTVJOBA USER(&USER) 08/02/04
4500 08/02/01
4600 CHGVAR &PRYN VALUE('N') 08/02/21
4700 /* ACTIVE SI PRBLM ET DEBUG APRES CHG BD OU .... ???? */ 08/10/26
4800 /* CHGJOB LOG(4 0 *MSG) LOGCLPGM(*YES) */ 08/10/26
4900 /* */ 08/02/01
5000 /* Extract working values from parms... */ 08/02/01
5100 /* */ 08/02/01
5200 08/02/01
5300 /*****************************************************************************/ 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMBLDCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 /*****************************************************************************/ 08/02/05
5500 /* Usage uniquement si &PBLD='B' PERSONALISATION --> QBLDOPTSRC */ 08/03/11
5600 /* ELSE &PCMD CMD DEFAULT --> QBLDOPT */ 08/10/26
5700 /*****************************************************************************/ 08/02/05
5800 08/03/20
5900 IF (&PBLD *EQ 'B') OVRDBF FILE(QBLDOPT) TOFILE(&PLIB/QBLDOPTSRC) + 08/08/19
6000 MBR(&PMBR) SHARE(*YES) OPNSCOPE(*JOB) 08/08/19
6100 08/08/19
6200 ELSE OVRDBF FILE(QBLDOPT) TOFILE(ADMOPS/QBLDOPT) + 08/08/19
6300 MBR(&PCMD) SHARE(*YES) OPNSCOPE(*JOB) 08/10/26
6400 08/03/20
6500 /* Point to our CL member... */ 08/03/11
6600 /* */ 08/02/01
6700 /* At the beginning of each command, we clear the command buffer and */ 08/02/01
6800 /* reposition to the beginning of the buffer... */ 08/02/01
6900 /* */ 08/02/01
7000 /* A CL member can contain many commands. Each command may span many */ 08/02/01
7100 /* records. We have two loops (nested) for records within commands... */ 08/02/01
7200 /* */ 08/02/01
7300 08/02/01
7400 /*----------------------- Command loop ------------------------------*/ 08/02/01
7500 08/02/01
7600 NXT_CMD: CHGVAR VAR(&CMDPOS) VALUE(1) 08/02/01
7700 CHGVAR VAR(&CMD) VALUE(' ') 08/02/01
7800 08/02/01
7900 /*---------------------- Record loop ------------------------*/ 08/02/01
8000 08/02/01
8100 CHGVAR &CMDTRT VALUE(0) 08/02/29
8200 NXT_REC: RCVF 08/02/29
8300 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END_REC)) 08/02/01
8400 08/02/01
8500 08/02/01
8600 /* */ 08/02/01
8700 /* Blank lines are simply skipped... */ 08/02/01
8800 /* */ 08/02/01
8900 08/02/01
9000 IF COND(&SRCDTA *EQ ' ') THEN(GOTO CMDLBL(NXT_REC)) 08/02/01
9100 08/02/01
9200 08/02/01
9300 /* */ 08/02/01
9400 /* Find the last non-blank in the source record data field... */ 08/02/01
9500 /* */ 08/02/01
9600 ADMLEN VALUE(&SRCDTA) LEN(&RECEND) 08/02/03
9700 08/02/01
9800 /* */ 08/02/01
9900 /* Default to the first position of the source data field... */ 08/02/01
10000 /* */ 08/02/01
10100 CHGVAR VAR(&RECPOS) VALUE(1) 08/02/01
10200 08/02/01
10300 /* */ 08/02/01
10400 /* We check to see if the &MULTI indicator is on from the previous source */ 08/02/01
10500 /* record. If it is, that means the current record is a continuation... */ 08/02/01
10600 /* */ 08/02/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMBLDCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 08/02/01
10800 IF COND(&MULTI) THEN(DO) 08/02/01
10900 08/02/01
11000 /* */ 08/02/01
11100 /* A continuation can be either &PLUS or &MINUS. If it's &PLUS, we need to */ 08/02/01
11200 /* locate the first non-blank character. For &MINUS, we remain */ 08/02/01
11300 /* positioned at the beginning because leading blanks are included. */ 08/02/01
11400 /* */ 08/02/01
11500 IF COND(&PLUS) THEN(DO) 08/02/01
11600 08/02/01
11700 /* Loop until non-blank... */ 08/02/01
11800 NXT_SPC: IF COND(%SST(&SRCDTA &RECPOS 1) *EQ ' ') + 08/02/01
11900 THEN(DO) 08/02/01
12000 CHGVAR VAR(&RECPOS) VALUE(&RECPOS +1) 08/02/01
12100 GOTO CMDLBL(NXT_SPC) 08/02/01
12200 ENDDO /* NXT_SPC... */ 08/02/01
12300 08/02/01
12400 ENDDO /* &PLUS... */ 08/02/01
12500 08/02/01
12600 ENDDO 08/02/01
12700 08/02/01
12800 08/02/01
12900 /* */ 08/02/01
13000 /* Now that we've set everything based on indicators from the previous */ 08/02/01
13100 /* record, we can set the indicators for the current record... */ 08/02/01
13200 /* */ 08/02/01
13300 08/02/01
13400 IF COND(%SST(&SRCDTA &RECEND 1) *EQ '+') THEN(DO) 08/02/01
13500 CHGVAR VAR(&MULTI) VALUE('1') 08/02/01
13600 CHGVAR VAR(&PLUS) VALUE('1') 08/02/01
13700 CHGVAR VAR(&MINUS) VALUE('0') 08/02/01
13800 CHGVAR &CMDTRT VALUE(1) 08/02/29
13900 ENDDO 08/02/01
14000 08/02/01
14100 ELSE CMD(DO) 08/02/01
14200 IF COND(%SST(&SRCDTA &RECEND 1) *EQ '-') THEN(DO) 08/02/01
14300 CHGVAR VAR(&MULTI) VALUE('1') 08/02/01
14400 CHGVAR VAR(&PLUS) VALUE('0') 08/02/01
14500 CHGVAR VAR(&MINUS) VALUE('1') 08/02/01
14600 CHGVAR &CMDTRT VALUE(1) 08/02/29
14700 ENDDO 08/02/01
14800 08/02/01
14900 ELSE CMD(DO) 08/02/01
15000 CHGVAR VAR(&MULTI) VALUE('0') 08/02/01
15100 CHGVAR VAR(&PLUS) VALUE('0') 08/02/01
15200 CHGVAR VAR(&MINUS) VALUE('0') 08/02/01
15300 ENDDO 08/02/01
15400 ENDDO 08/02/01
15500 08/02/01
15600 /* */ 08/02/01
15700 /* If the current record is &MULTI, we need to set the length by reducing */ 08/02/01
15800 /* the length by one. This strips off the PLUS or MINUS character... */ 08/02/01
15900 /* */ 08/02/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMBLDCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 08/02/01
16100 IF COND(&MULTI) THEN(DO) 08/02/01
16200 08/02/01
16300 CHGVAR VAR(&RECLEN) VALUE(&RECEND - &RECPOS) 08/02/01
16400 08/02/01
16500 ENDDO 08/02/01
16600 08/02/01
16700 ELSE CMD(DO) /* &MULTI... */ 08/02/01
16800 08/02/01
16900 CHGVAR VAR(&RECLEN) VALUE(&RECEND - &RECPOS + 1) 08/02/01
17000 08/02/01
17100 ENDDO 08/02/01
17200 08/02/01
17300 08/02/01
17400 /* */ 08/02/01
17500 /* We have all our lengths and positions set; now move the significant */ 08/02/01
17600 /* part of the current source data field into the command buffer... */ 08/02/01
17700 /* */ 08/02/01
17800 08/02/01
17900 CHGVAR VAR(%SST(&CMD &CMDPOS &RECLEN)) VALUE(%SST(&SRCDTA + 08/02/01
18000 &RECPOS &RECLEN)) 08/02/01
18100 08/02/01
18200 /* */ 08/02/01
18300 /* Move our pointer down the command buffer according to the length we */ 08/02/01
18400 /* moved into it... */ 08/02/01
18500 /* */ 08/02/01
18600 CHGVAR VAR(&CMDPOS) VALUE(&CMDPOS + &RECLEN) 08/02/01
18700 08/02/01
18800 /* */ 08/02/01
18900 /* If the current record is &MULTI, go back to get the continuation */ 08/02/01
19000 /* that should follow... */ 08/02/01
19100 /* */ 08/02/01
19200 IF COND(&MULTI) THEN(GOTO CMDLBL(NXT_REC)) 08/02/01
19300 08/02/01
19400 /*---------------------- Record loop ------------------------*/ 08/02/01
19500 08/02/01
19600 /* */ 08/02/01
19700 /* ...otherwise... */ 08/02/01
19800 08/02/01
19900 NXT_TXT0: CHGVAR VAR(&DEBPOS) VALUE(1) 08/02/29
20000 CHGVAR VAR(&FINPOS) VALUE(1) 08/02/29
20100 ADMLEN VALUE(&CMD) LEN(&CMDLEN) 08/02/29
20200 CHGVAR &LENPOS (&CMDLEN -1) 08/02/29
20300 NXT_TXT1: IF COND(%SST(&CMD &DEBPOS 2) *NE '/*') + 08/02/29
20400 THEN(DO) 08/02/29
20500 CHGVAR VAR(&DEBPOS) VALUE(&DEBPOS +1) 08/02/29
20600 IF (&LENPOS > &DEBPOS ) GOTO CMDLBL(NXT_TXT1) 08/02/29
20700 ENDDO 08/02/29
20800 ELSE CMD( DO ) /* TROUVE DANS NXT_TXT1 */ 08/02/29
20900 NXT_TXT2: IF COND(%SST(&CMD &FINPOS 2) *NE '*/') + 08/02/29
21000 THEN(DO) 08/02/29
21100 CHGVAR VAR(&FINPOS) VALUE(&FINPOS +1) 08/02/29
21200 IF (&LENPOS > &FINPOS ) GOTO CMDLBL(NXT_TXT2) 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMBLDCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 ENDDO 08/02/29
21400 ELSE CMD( DO ) /* TROUVE */ 08/02/29
21500 CHGVAR &LENPOS VALUE(&FINPOS +1) 08/02/29
21600 NXT_TXT3: CHGVAR %SST(&CMD &DEBPOS 1) VALUE(' ') 08/02/29
21700 CHGVAR VAR(&DEBPOS) VALUE(&DEBPOS +1) 08/02/29
21800 IF (&LENPOS *GE &DEBPOS ) GOTO CMDLBL(NXT_TXT3) 08/02/29
21900 GOTO NXT_TXT0 08/02/29
22000 ENDDO /* FIN NXT_TXT2 */ 08/02/29
22100 ENDDO /* FIN NXT_TXT1 */ 08/02/29
22200 /* */ 08/02/01
22300 /* Get the final length of the command buffer to pass to the command */ 08/02/01
22400 /* execution API... */ 08/02/01
22500 /* */ 08/02/01
22600 /*****************************************************************************/ 08/02/05
22700 /* Traitement des commandes QBLDOPT... par défaut enregisté dans ADMSOPS */ 08/02/21
22800 /*****************************************************************************/ 08/02/05
22900 CALLPRC MADMBLDVAR (&CMD &PLIB &PMBR &PF &PRYN) + 08/03/14
23000 /*Defini par defaut LIB OBJ FILE SOURCE */ 08/02/12
23100 IF (&PRYN = 'N') GOTO STDERR 08/03/17
23200 08/02/22
23300 CHGVAR &CMDTRT VALUE(0) 08/02/29
23400 /* */ 08/02/04
23500 /* ...and execute that command. */ 08/02/01
23600 /* */ 08/02/01
23700 CALLPRC MADMCMDEXC (&CMD &PRYN) 08/03/27
23800 /* DSPJOBLOG OUTPUT(*PRINT) */ 09/02/11
23900 /* DSPJOB OUTPUT(*PRINT) */ 09/02/11
24000 IF (&PRYN *EQ 'N') RETURN /* ERREUR COMPILATION */ 08/03/18
24100 08/03/17
24200 IF (&PSPL *EQ 'N') DO 09/01/21
24300 DLTSPLF FILE(&PMBR) SPLNBR(*LAST) 09/08/14
24400 MONMSG CPF0000 09/01/21
24500 ENDDO 09/08/14
24600 09/08/14
24700 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
24800 09/08/06
24900 09/08/06
25000 /* */ 08/02/01
25100 /* Now go back to see if there are any more... */ 08/02/01
25200 /* */ 08/02/01
25300 GOTO CMDLBL(NXT_CMD) 08/02/21
25400 08/02/01
25500 /*----------------------- Command loop ------------------------------*/ 08/02/01
25600 END_REC: 08/03/11
25700 IF (&CMDTRT = 1 ) GOTO STDERR /* PRBLM SCRIPT BLDOPT INVALIDE NON TERMINE */ 08/03/17
25800 08/03/27
25900 DLTOVR QBLDOPT 08/02/22
26000 MONMSG CPF0000 08/02/22
26100 CHGVAR &PRYN VALUE('Y') 08/02/21
26200 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
26300 RETURN 08/02/04
26400 08/02/01
26500 /*---ERREUR traitement GENERAL --------------------------------------------------*/ 08/03/11
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMBLDCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 STDERR: 08/02/01
26700 08/03/27
26800 DLTOVR QBLDOPT 08/02/22
26900 MONMSG CPF0000 08/02/22
27000 CHGVAR &PRYN VALUE('N') 08/02/21
27100 08/02/29
27200 /*---traitement COMMANDE NON TERMINE ( + OR -) OU ERREUR DEFINITION VARIABLE ---*/ 08/03/17
27300 IF ( &CMDTRT = 1 ) CALLPRC QADMMSGBRK ('BRK0002' 'BLDOPT INVALIDE') 08/03/20
27400 09/08/14
27500 RETURN 08/02/29
27600 ENDPGM 08/02/01
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:57 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMCHGTXT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&PLIB &PFCH &PMBR &PTEXT) 08/03/18
200 08/03/18
300 DCL &PLIB *CHAR 10 08/03/18
400 DCL &PFCH *CHAR 10 08/03/18
500 DCL &PMBR *CHAR 10 08/03/18
600 DCL &PTEXT *CHAR 50 08/03/18
700 08/03/18
800 CHGPFM FILE(&PLIB/&PFCH) MBR(&PMBR) TEXT(&PTEXT) 08/03/18
900 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/18
1000 ENDPGM 05/06/02
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMCPYBLD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&FLIB &TLIB &PMBR ) 08/03/20
200 08/02/01
300 DCL VAR(&FLIB) TYPE(*CHAR) LEN(10) 08/03/20
400 DCL VAR(&TLIB) TYPE(*CHAR) LEN(10) 08/03/20
500 DCL VAR(&SRCF) TYPE(*CHAR) LEN(10) VALUE('QBLDOPTSRC') 08/03/20
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 08/02/01
800 08/02/01
900 08/02/05
1000 08/02/05
1100 /*---------------------------------------------------------------------------*/ 08/02/05
1200 /* Global MONMSG... */ 08/02/05
1300 /*---------------------------------------------------------------------------*/ 08/02/05
1400 MONMSG MSGID(CPF0001) EXEC(GOTO TERM) 08/03/11
1500 MONMSG MSGID(CPD0078) EXEC(GOTO TERM) 08/03/11
1600 MONMSG MSGID(CPF9801) EXEC(GOTO TERM) 08/03/11
1700 MONMSG MSGID(CPF9815) EXEC(GOTO TERM) 08/03/11
1800 MONMSG MSGID(CPF9820) EXEC(GOTO TERM) 08/03/11
1900 MONMSG MSGID(CPF9830) EXEC(GOTO TERM) 08/03/11
2000 MONMSG MSGID(CPF9899) EXEC(GOTO TERM) 08/03/11
2100 08/02/05
2200 08/02/05
2300 /* */ 08/02/05
2400 /* Verify that referenced file/mbr exist... */ 08/02/05
2500 /* */ 08/02/05
2600 CHKOBJ OBJ(QSYS/&FLIB) OBJTYPE(*LIB) 08/03/20
2700 CHKOBJ OBJ(QSYS/&TLIB) OBJTYPE(*LIB) 08/03/20
2800 08/02/29
2900 08/02/29
3000 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/25
3100 CHKOBJ OBJ(&FLIB/&SRCF) OBJTYPE(*FILE) MBR(&PMBR) 08/03/20
3200 /*------------------------------------------------*/ 08/02/25
3300 /* RESTAURATION MBR ORIGINE AFTER NOT *COMPILE */ 08/02/25
3400 /*------------------------------------------------*/ 08/02/25
3500 CHKOBJ OBJ(&TLIB/&SRCF) OBJTYPE(*FILE) 08/03/20
3600 MONMSG MSGID(CPF9801) EXEC(DO) 08/03/01
3700 CRTDUPOBJ OBJ(&SRCF) FROMLIB(&FLIB) OBJTYPE(*FILE) TOLIB(&TLIB) 08/03/20
3800 RMVM FILE(&TLIB/&SRCF) MBR(*ALL) 08/03/20
3900 ENDDO 08/03/01
4000 08/02/25
4100 CPYSRCF FROMFILE(&FLIB/&SRCF) TOFILE(&TLIB/&SRCF) FROMMBR(&PMBR) 08/03/20
4200 08/02/25
4300 ENDDO 08/02/29
4400 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
4500 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMCPYMBR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&FLIB &TLIB &SRCF &PMBR ) 08/03/20
200 08/02/01
300 DCL VAR(&FLIB) TYPE(*CHAR) LEN(10) 08/02/29
400 DCL VAR(&TLIB) TYPE(*CHAR) LEN(10) 08/03/20
500 DCL VAR(&SRCF) TYPE(*CHAR) LEN(10) 08/03/20
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 08/02/01
800 08/02/01
900 08/02/05
1000 08/02/05
1100 /*---------------------------------------------------------------------------*/ 08/02/05
1200 /* Global MONMSG... */ 08/02/05
1300 /*---------------------------------------------------------------------------*/ 08/02/05
1400 MONMSG MSGID(CPF0001) EXEC(GOTO TERM) 08/03/11
1500 MONMSG MSGID(CPD0078) EXEC(GOTO TERM) 08/03/11
1600 MONMSG MSGID(CPF9801) EXEC(GOTO TERM) 08/03/11
1700 MONMSG MSGID(CPF9815) EXEC(GOTO TERM) 08/03/11
1800 MONMSG MSGID(CPF9820) EXEC(GOTO TERM) 08/03/11
1900 MONMSG MSGID(CPF9830) EXEC(GOTO TERM) 08/03/11
2000 MONMSG MSGID(CPF9899) EXEC(GOTO TERM) 08/03/11
2100 08/02/05
2200 08/02/05
2300 /* */ 08/02/05
2400 /* Verify that referenced file/mbr exist... */ 08/02/05
2500 /* */ 08/02/05
2600 CHKOBJ OBJ(QSYS/&FLIB) OBJTYPE(*LIB) 08/02/29
2700 CHKOBJ OBJ(QSYS/&TLIB) OBJTYPE(*LIB) 08/03/20
2800 08/02/29
2900 08/02/29
3000 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/25
3100 CHKOBJ OBJ(&FLIB/&SRCF) OBJTYPE(*FILE) MBR(&PMBR) 08/03/20
3200 /*------------------------------------------------*/ 08/02/25
3300 /* RESTAURATION MBR ORIGINE AFTER NOT *COMPILE */ 08/02/25
3400 /*------------------------------------------------*/ 08/02/25
3500 CHKOBJ OBJ(&TLIB/&SRCF) OBJTYPE(*FILE) 08/03/20
3600 MONMSG MSGID(CPF9801) EXEC(DO) 08/03/01
3700 CRTDUPOBJ OBJ(&SRCF) FROMLIB(&FLIB) OBJTYPE(*FILE) TOLIB(&TLIB) 08/03/20
3800 RMVM FILE(&TLIB/&SRCF) MBR(*ALL) 08/03/20
3900 ENDDO 08/03/01
4000 08/02/25
4100 CPYSRCF FROMFILE(&FLIB/&SRCF) TOFILE(&TLIB/&SRCF) FROMMBR(&PMBR) 08/03/20
4200 08/02/25
4300 ENDDO 08/02/29
4400 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
4500 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMDELSPL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 /***************************************************************/ 92/02/13
200 92/02/13
300 PGM (&FILNAM &JOBNUM &USRNAM &JOBNAM &FILNUM ) 08/04/02
400 92/02/27
500 DCL &FILNAM *CHAR 10 92/02/13
600 DCL &JOBNUM *CHAR 6 92/02/13
700 DCL &USRNAM *CHAR 10 92/02/13
800 DCL &JOBNAM *CHAR 10 92/02/13
900 DCL &FILNUM *CHAR 6 93/07/16
1000 91/07/24
1100 MONMSG (CPF0000) 08/04/02
1200 DLTSPLF FILE(&FILNAM) JOB(&JOBNUM/&USRNAM/&JOBNAM) SPLNBR(&FILNUM) 92/02/27
1300 RMVMSG PGMQ(*SAME (MADMDELSPL)) CLEAR(*ALL) 08/04/02
1400 92/02/13
1500 RETURN 92/02/28
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMEXCMBR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PCMD &L &O &Q &T &F &A &X &POPT &PRYN) 08/03/27
200 DCL VAR(&PCMD) TYPE(*CHAR) LEN(250) 08/03/05
300 DCL VAR(&POPT) TYPE(*CHAR) LEN(2) 08/03/03
400 DCL VAR(&PRYN) TYPE(*CHAR) LEN(1) 08/02/21
500 08/02/05
600 DCL VAR(&L) TYPE(*CHAR) LEN(10) /* LIB......*/ 08/03/05
700 DCL VAR(&O) TYPE(*CHAR) LEN(10) /* OBJET....*/ 08/03/05
800 DCL VAR(&Q) TYPE(*CHAR) LEN(10) /* *FILE.SRC*/ 08/03/27
900 DCL VAR(&T) TYPE(*CHAR) LEN(10) /* TYPE.....*/ 08/03/06
1000 DCL VAR(&F) TYPE(*CHAR) LEN(10) /* *FILE....*/ 08/03/27
1100 DCL VAR(&A) TYPE(*CHAR) LEN(10) /* ATTRIBUT.*/ 08/03/05
1200 DCL VAR(&X) TYPE(*CHAR) LEN(50) /* TEXT.....*/ 08/03/06
1300 08/03/05
1400 DCL VAR(&USER) TYPE(*CHAR) LEN(10) 08/02/05
1500 DCL VAR(&MSG ) TYPE(*CHAR) LEN(256) 08/02/22
1600 /* VAR PGM */ 08/02/05
1700 DCL VAR(&CMD) TYPE(*CHAR) LEN(32000) 08/03/06
1800 DCL VAR(&CMDLEN) TYPE(*DEC) LEN(5 0) 08/03/06
1900 08/02/01
2000 /*---------------------------------------------------------------------------*/ 08/02/01
2100 /* Global MONMSG... */ 08/02/01
2200 /*---------------------------------------------------------------------------*/ 08/02/01
2300 MONMSG MSGID(CPF0001) EXEC(GOTO CMDLBL(MSGERR)) 08/02/22
2400 MONMSG MSGID(CPD0078) EXEC(GOTO CMDLBL(MSGERR)) 08/02/22
2500 MONMSG MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL(MSGERR)) 08/03/03
2600 RTVJOBA USER(&USER) 08/02/04
2700 08/02/01
2800 CHGVAR &PRYN VALUE('N') 08/03/05
2900 CHGVAR &CMD VALUE(&PCMD) 08/03/05
3000 08/02/01
3100 /*****************************************************************************/ 08/02/05
3200 /* Point to our CL member... */ 08/02/21
3300 /*****************************************************************************/ 08/02/05
3400 /* Traitement de commande */ 08/03/27
3500 /*****************************************************************************/ 08/02/05
3600 CALLPRC MADMEXCVAR (&CMD &L &O &Q &T &F &A &X &PRYN) + 08/03/27
3700 /*Defini par defaut LIB OBJ FILE SOURCE */ 08/02/12
3800 IF (&PRYN = 'N') DO 08/02/22
3900 CHGVAR &MSG (' COMMANDE INVALIDE MODIFIER LE SCRIPT...' + 08/03/03
4000 *TCAT &CMD *TCAT '///' *CAT ' KEY -> ' *CAT &POPT ) 08/03/05
4100 SNDPGMMSG MSGID(ADM0001) MSGF(MERRADM) MSGDTA(&MSG) TOMSGQ(&USER) 08/02/22
4200 RETURN 08/02/22
4300 ENDDO 08/03/01
4400 /* */ 08/02/04
4500 /* ...and execute that command. */ 08/02/01
4600 /* */ 08/02/01
4700 CALLPRC MADMCMDEXC (&CMD &PRYN) 08/03/27
4800 IF (&PRYN *EQ 'N') GOTO MSGERR 08/03/06
4900 09/08/06
5000 08/02/01
5100 /*----------------------- Command loop ------------------------------*/ 08/02/01
5200 08/02/01
5300 CHGVAR &PRYN VALUE('Y') 08/02/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMEXCMBR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
5500 RETURN 08/02/04
5600 08/02/01
5700 /*---traitement Err Script --------------------------------------------------*/ 08/02/05
5800 MSGERR: 08/03/03
5900 RCVMSG MSGQ(*PGMQ) MSG(&MSG) 08/03/27
6000 SNDMSG MSG(&MSG) TOUSR(&USER) 08/03/27
6100 CHGVAR VAR(&MSG) + 08/02/29
6200 VALUE( &MSG *CAT 'COMMANDE INVALIDE MODIFIER LE SCRIPT...' + 08/03/05
6300 *TCAT &CMD *TCAT '///' *CAT ' KEY -> ' *CAT &POPT ) 08/03/05
6400 SNDPGMMSG MSGID(ADM0001) MSGF(MERRADM) MSGDTA(&MSG) TOMSGQ(&USER) 08/02/22
6500 08/03/27
6600 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
6700 CHGVAR &PRYN VALUE('N') 08/02/21
6800 08/02/29
6900 ENDPGM 08/02/01
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMEXPORT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &POBJ &PTYP &PTOLIB &PRYN ) 08/03/18
200 08/02/01
300 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/11
400 DCL VAR(&POBJ) TYPE(*CHAR) LEN(10) 08/03/18
500 DCL VAR(&PTYP) TYPE(*CHAR) LEN(10) 08/02/12
600 DCL VAR(&PTOLIB) TYPE(*CHAR) LEN(10) 08/03/18
700 08/03/18
800 DCL VAR(&PRYN) TYPE(*CHAR) LEN(1) 08/03/18
900 DCL VAR(&TROUVE) TYPE(*LGL) LEN(1) 08/03/18
1000 DCL VAR(&OFF) TYPE(*LGL) LEN(1) VALUE('0') 08/03/18
1100 DCL VAR(&ON ) TYPE(*LGL) LEN(1) VALUE('1') 08/03/18
1200 08/03/18
1300 DCL VAR(&ATR) TYPE(*CHAR) LEN(3) 08/03/18
1400 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) VALUE('*NONE') 08/03/18
1500 08/03/18
1600 MONMSG CPF0000 08/03/18
1700 08/03/18
1800 CALLPRC MADMOBJCHK (&PLIB &POBJ &PTYP &PMBR &TROUVE) 08/03/18
1900 IF (&TROUVE *EQ &OFF ) DO 08/03/18
2000 CHGVAR &PRYN VALUE('N') 08/03/18
2100 RETURN 08/03/18
2200 ENDDO 08/03/18
2300 08/03/18
2400 /* CONTROLE SI EXISTE OBJET TOLIB */ 08/03/18
2500 CALLPRC MADMOBJCHK (&PTOLIB &POBJ &PTYP &PMBR &TROUVE) 08/03/18
2600 08/03/18
2700 08/03/18
2800 SELECT 08/03/18
2900 WHEN COND(&PTYP *EQ *PGM ) THEN(DO) 08/03/18
3000 IF (&TROUVE = &ON ) DLTPGM &PTOLIB/&POBJ 08/03/18
3100 CRTDUPOBJ OBJ(&POBJ) FROMLIB(&PLIB) OBJTYPE(*PGM) TOLIB(&PTOLIB) 08/03/18
3200 ENDDO 08/03/18
3300 08/03/18
3400 WHEN COND(&PTYP *EQ *MODULE ) THEN(DO) 08/03/18
3500 IF (&TROUVE = &ON ) DLTMOD &PTOLIB/&POBJ 08/03/18
3600 CRTDUPOBJ OBJ(&POBJ) FROMLIB(&PLIB) OBJTYPE(*MODULE) TOLIB(&PTOLIB) 08/03/18
3700 ENDDO 08/03/18
3800 08/03/18
3900 WHEN COND(&PTYP *EQ *SRVPGM ) THEN(DO) 08/03/18
4000 IF (&TROUVE = &ON ) DLTSRVPGM &PTOLIB/&POBJ 08/03/18
4100 CRTDUPOBJ OBJ(&POBJ) FROMLIB(&PLIB) OBJTYPE(*SRVPGM) TOLIB(&PTOLIB) 08/03/18
4200 ENDDO 08/03/18
4300 08/03/18
4400 WHEN COND(&PTYP *EQ *FILE) THEN(DO) 08/03/18
4500 /* TEST SI FILE PF OR LF */ 08/03/18
4600 RTVMBRD FILE(&PLIB/&POBJ) FILEATR(&ATR) 08/03/18
4700 MONMSG MSGID(CPF3027 CPF9812) EXEC(DO) 08/03/18
4800 08/03/18
4900 IF (&TROUVE = &ON ) DLTF &PTOLIB/&POBJ 08/03/18
5000 CRTDUPOBJ OBJ(&POBJ) FROMLIB(&PLIB) OBJTYPE(*FILE) TOLIB(&PTOLIB) 08/03/18
5100 ENDDO 08/03/18
5200 ENDDO 08/03/18
5300 08/03/18
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMEXPORT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 WHEN COND(&PTYP *EQ *CMD ) THEN(DO) 08/03/18
5500 IF (&TROUVE = &ON ) DLTCMD &PTOLIB/&POBJ 08/03/18
5600 CRTDUPOBJ OBJ(&POBJ) FROMLIB(&PLIB) OBJTYPE(*CMD) TOLIB(&PTOLIB) 08/03/18
5700 ENDDO 08/03/18
5800 09/08/06
5900 WHEN COND(&PTYP *EQ *PNLGRP) THEN(DO) 09/08/06
6000 IF (&TROUVE = &ON ) DLTPNLGRP &PTOLIB/&POBJ 09/08/06
6100 CRTDUPOBJ OBJ(&POBJ) FROMLIB(&PLIB) OBJTYPE(*PNLGRP) TOLIB(&PTOLIB) 09/08/06
6200 ENDDO 09/08/06
6300 ENDSELECT 08/03/18
6400 08/03/18
6500 CHGVAR &PRYN ('Y') /* OK NOT PRBLM */ 08/03/18
6600 ENDPGM 08/02/01
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMOBJCHK
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &POBJ &PTYP &PMBR &PYN) 08/02/19
200 08/02/01
300 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/19
400 DCL VAR(&POBJ) TYPE(*CHAR) LEN(10) 08/02/19
500 DCL VAR(&PTYP) TYPE(*CHAR) LEN(10) 08/02/19
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 DCL VAR(&PYN) TYPE(*LGL) LEN(1) 08/02/19
800 08/02/01
900 08/02/01
1000 08/02/05
1100 08/02/05
1200 /*---------------------------------------------------------------------------*/ 08/02/05
1300 /* Global MONMSG... */ 08/02/05
1400 /*---------------------------------------------------------------------------*/ 08/02/05
1500 MONMSG MSGID(CPF0001) EXEC(GOTO NON) 08/02/22
1600 MONMSG MSGID(CPD0078) EXEC(GOTO NON) 08/02/22
1700 MONMSG MSGID(CPF9801) EXEC(GOTO NON) 08/02/05
1800 MONMSG MSGID(CPF9815) EXEC(GOTO NON) 08/02/05
1900 MONMSG MSGID(CPF9820) EXEC(GOTO NON) 08/03/11
2000 MONMSG MSGID(CPF9830) EXEC(GOTO NON) 08/03/11
2100 MONMSG MSGID(CPF9899) EXEC(GOTO NON) 08/03/11
2200 08/02/05
2300 08/02/05
2400 /* */ 08/02/05
2500 /* Verify that referenced file/mbr exist... */ 08/02/05
2600 /* */ 08/02/05
2700 IF (&PLIB *NE '*LIBL' ) + 08/02/26
2800 CHKOBJ OBJ(QSYS/&PLIB) OBJTYPE(*LIB) 08/02/19
2900 08/02/26
3000 CHKOBJ OBJ(&PLIB/&POBJ) OBJTYPE(&PTYP) 08/02/19
3100 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/19
3200 CHKOBJ OBJ(&PLIB/&POBJ) OBJTYPE(*FILE) MBR(&PMBR) 08/02/19
3300 ENDDO 08/02/19
3400 CHGVAR &PYN VALUE('1') 08/02/19
3500 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
3600 RETURN 08/04/03
3700 NON: CHGVAR &PYN VALUE('0') 08/02/19
3800 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
3900 FIN: ENDPGM 08/04/02
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMREFMBR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &POBJ &PMBR &TEXT &DATE) 08/02/19
200 08/02/01
300 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/19
400 DCL VAR(&POBJ) TYPE(*CHAR) LEN(10) 08/02/19
500 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
600 DCL VAR(&TEXT) TYPE(*CHAR) LEN(50) 08/02/19
700 DCL VAR(&DATE) TYPE(*CHAR) LEN(13) 08/02/19
800 08/02/01
900 08/02/01
1000 MONMSG MSGID(CPF0000 MCH0000) EXEC(GOTO FIN) 08/02/22
1100 08/02/05
1200 RTVMBRD FILE(&PLIB/&POBJ) MBR(&PMBR) + 08/02/19
1300 SRCCHGDATE(&DATE) TEXT(&TEXT) 08/02/19
1400 FIN: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
1500 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMRSTBLD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &PMBR ) 08/03/20
200 08/02/01
300 DCL VAR(&FSAV) TYPE(*CHAR) LEN(10) VALUE('QSAVBLD') 08/03/20
400 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/19
500 DCL VAR(&TSAV) TYPE(*CHAR) LEN(10) VALUE('QBLDOPTSRC') 08/03/20
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 08/02/01
800 08/02/01
900 08/02/05
1000 08/02/05
1100 /*---------------------------------------------------------------------------*/ 08/02/05
1200 /* Global MONMSG... */ 08/02/05
1300 /*---------------------------------------------------------------------------*/ 08/02/05
1400 MONMSG MSGID(CPF0001) EXEC(GOTO TERM) 08/03/11
1500 MONMSG MSGID(CPD0078) EXEC(GOTO TERM) 08/03/11
1600 MONMSG MSGID(CPF9801) EXEC(GOTO TERM) 08/03/11
1700 MONMSG MSGID(CPF9815) EXEC(GOTO TERM) 08/03/11
1800 MONMSG MSGID(CPF9820) EXEC(GOTO TERM) 08/03/11
1900 MONMSG MSGID(CPF9830) EXEC(GOTO TERM) 08/03/11
2000 MONMSG MSGID(CPF9899) EXEC(GOTO TERM) 08/03/11
2100 08/02/05
2200 08/02/05
2300 /* */ 08/02/05
2400 /* Verify that referenced file/mbr exist... */ 08/02/05
2500 /* */ 08/02/05
2600 CHKOBJ OBJ(QSYS/&PLIB) OBJTYPE(*LIB) 08/02/19
2700 CHKOBJ OBJ(&PLIB/&TSAV) OBJTYPE(*FILE) 08/03/20
2800 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) 08/03/20
2900 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/25
3000 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) MBR(&PMBR) 08/03/20
3100 /*--------------------------------------------*/ 08/02/29
3200 /* RESTORATION DU MBR ORIGINE BEFOR *COMPILE */ 08/02/29
3300 /*--------------------------------------------*/ 08/02/29
3400 CHKOBJ OBJ(&PLIB/&TSAV) OBJTYPE(*FILE) 08/03/20
3500 08/02/29
3600 CPYSRCF FROMFILE(&PLIB/&FSAV) TOFILE(&PLIB/&TSAV) FROMMBR(&PMBR) 08/03/20
3700 RMVM FILE(&PLIB/&FSAV) MBR(&PMBR) 08/03/20
3800 ENDDO 08/02/29
3900 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
4000 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMRSTMBR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &TSAV &PMBR ) 08/03/20
200 08/02/01
300 DCL VAR(&FSAV) TYPE(*CHAR) LEN(10) VALUE('QSAVSRC') 08/03/20
400 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/19
500 DCL VAR(&TSAV) TYPE(*CHAR) LEN(10) 08/03/20
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 08/02/01
800 08/02/01
900 08/02/05
1000 08/02/05
1100 /*---------------------------------------------------------------------------*/ 08/02/05
1200 /* Global MONMSG... */ 08/02/05
1300 /*---------------------------------------------------------------------------*/ 08/02/05
1400 MONMSG MSGID(CPF0001) EXEC(GOTO TERM) 08/03/11
1500 MONMSG MSGID(CPD0078) EXEC(GOTO TERM) 08/03/11
1600 MONMSG MSGID(CPF9801) EXEC(GOTO TERM) 08/03/11
1700 MONMSG MSGID(CPF9815) EXEC(GOTO TERM) 08/03/11
1800 MONMSG MSGID(CPF9820) EXEC(GOTO TERM) 08/03/11
1900 MONMSG MSGID(CPF9830) EXEC(GOTO TERM) 08/03/11
2000 MONMSG MSGID(CPF9899) EXEC(GOTO TERM) 08/03/11
2100 08/02/05
2200 08/02/05
2300 /* */ 08/02/05
2400 /* Verify that referenced file/mbr exist... */ 08/02/05
2500 /* */ 08/02/05
2600 CHKOBJ OBJ(QSYS/&PLIB) OBJTYPE(*LIB) 08/02/19
2700 CHKOBJ OBJ(&PLIB/&TSAV) OBJTYPE(*FILE) 08/03/20
2800 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) 08/03/20
2900 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/25
3000 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) MBR(&PMBR) 08/03/20
3100 /*--------------------------------------------*/ 08/02/29
3200 /* RESTORATION DU MBR ORIGINE BEFOR *COMPILE */ 08/02/29
3300 /*--------------------------------------------*/ 08/02/29
3400 CHKOBJ OBJ(&PLIB/&TSAV) OBJTYPE(*FILE) 08/03/20
3500 08/02/29
3600 CPYSRCF FROMFILE(&PLIB/&FSAV) TOFILE(&PLIB/&TSAV) FROMMBR(&PMBR) 08/03/20
3700 RMVM FILE(&PLIB/&FSAV) MBR(&PMBR) 08/03/20
3800 ENDDO 08/02/29
3900 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
4000 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMSAVBLD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &PMBR ) 08/03/01
200 08/02/01
300 DCL VAR(&TSAV) TYPE(*CHAR) LEN(10) VALUE('QSAVBLD') 08/03/20
400 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/19
500 DCL VAR(&FSAV) TYPE(*CHAR) LEN(10) VALUE('QBLBOPTSRC') 08/03/20
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 08/02/01
800 08/02/01
900 08/02/05
1000 08/02/05
1100 /*---------------------------------------------------------------------------*/ 08/02/05
1200 /* Global MONMSG... */ 08/02/05
1300 /*---------------------------------------------------------------------------*/ 08/02/05
1400 MONMSG MSGID(CPF0001) EXEC(GOTO TERM) 08/03/11
1500 MONMSG MSGID(CPD0078) EXEC(GOTO TERM) 08/03/11
1600 MONMSG MSGID(CPF9801) EXEC(GOTO TERM) 08/03/11
1700 MONMSG MSGID(CPF9815) EXEC(GOTO TERM) 08/03/11
1800 MONMSG MSGID(CPF9820) EXEC(GOTO TERM) 08/03/11
1900 MONMSG MSGID(CPF9830) EXEC(GOTO TERM) 08/03/11
2000 MONMSG MSGID(CPF9899) EXEC(GOTO TERM) 08/03/11
2100 08/02/05
2200 08/02/05
2300 /* */ 08/02/05
2400 /* Verify that referenced file/mbr exist... */ 08/02/05
2500 /* */ 08/02/05
2600 CHKOBJ OBJ(QSYS/&PLIB) OBJTYPE(*LIB) 08/02/19
2700 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) 08/03/20
2800 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/26
2900 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) MBR(&PMBR) 08/03/20
3000 /*--------------------------------------------*/ 08/02/25
3100 /* SAUVEGARDE DU MBR ORIGINE BEFOR *COMPILE */ 08/02/25
3200 /*--------------------------------------------*/ 08/02/25
3300 CHKOBJ OBJ(&PLIB/&TSAV) OBJTYPE(*FILE) 08/03/20
3400 MONMSG MSGID(CPF9801) EXEC(CRTSRCPF + 08/02/25
3500 FILE(&PLIB/&TSAV) RCDLEN(92) TEXT('MBR + 08/03/20
3600 de sauvegarde avant compile')) 08/02/25
3700 08/02/25
3800 CPYSRCF FROMFILE(&PLIB/&FSAV) TOFILE(&PLIB/&TSAV) FROMMBR(&PMBR) 08/03/20
3900 08/02/25
4000 ENDDO 08/02/29
4100 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
4200 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . MADMSAVMBR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&PLIB &FSAV &PMBR ) 08/03/20
200 08/02/01
300 DCL VAR(&TSAV) TYPE(*CHAR) LEN(10) VALUE('QSAVSRC') 08/03/20
400 DCL VAR(&PLIB) TYPE(*CHAR) LEN(10) 08/02/19
500 DCL VAR(&FSAV) TYPE(*CHAR) LEN(10) 08/03/20
600 DCL VAR(&PMBR) TYPE(*CHAR) LEN(10) 08/02/05
700 08/02/01
800 08/02/01
900 08/02/05
1000 08/02/05
1100 /*---------------------------------------------------------------------------*/ 08/02/05
1200 /* Global MONMSG... */ 08/02/05
1300 /*---------------------------------------------------------------------------*/ 08/02/05
1400 MONMSG MSGID(CPF0001) EXEC(GOTO TERM) 08/03/11
1500 MONMSG MSGID(CPD0078) EXEC(GOTO TERM) 08/03/11
1600 MONMSG MSGID(CPF9801) EXEC(GOTO TERM) 08/03/11
1700 MONMSG MSGID(CPF9815) EXEC(GOTO TERM) 08/03/11
1800 MONMSG MSGID(CPF9820) EXEC(GOTO TERM) 08/03/11
1900 MONMSG MSGID(CPF9830) EXEC(GOTO TERM) 08/03/11
2000 MONMSG MSGID(CPF9899) EXEC(GOTO TERM) 08/03/11
2100 08/02/05
2200 08/02/05
2300 /* */ 08/02/05
2400 /* Verify that referenced file/mbr exist... */ 08/02/05
2500 /* */ 08/02/05
2600 CHKOBJ OBJ(QSYS/&PLIB) OBJTYPE(*LIB) 08/02/19
2700 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) 08/03/20
2800 IF COND(&PMBR *NE '*NONE') THEN(DO) 08/02/26
2900 CHKOBJ OBJ(&PLIB/&FSAV) OBJTYPE(*FILE) MBR(&PMBR) 08/03/20
3000 /*--------------------------------------------*/ 08/02/25
3100 /* SAUVEGARDE DU MBR ORIGINE BEFOR *COMPILE */ 08/02/25
3200 /*--------------------------------------------*/ 08/02/25
3300 CHKOBJ OBJ(&PLIB/&TSAV) OBJTYPE(*FILE) 08/03/20
3400 MONMSG MSGID(CPF9801) EXEC(CRTSRCPF + 08/02/25
3500 FILE(&PLIB/&TSAV) RCDLEN(256) TEXT('MBR + 08/03/20
3600 de sauvegarde avant compile')) 08/02/25
3700 08/02/25
3800 CPYSRCF FROMFILE(&PLIB/&FSAV) TOFILE(&PLIB/&TSAV) FROMMBR(&PMBR) 08/03/20
3900 08/02/25
4000 ENDDO 08/02/29
4100 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/07
4200 ENDPGM 08/03/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMLSTHST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/27
200 DCL &QRY *CHAR 100 08/03/27
300 DCL &TESTDAT *CHAR 6 08/07/11
400 DCL &ANNEED *CHAR 4 08/07/11
500 DCL &MOID *CHAR 2 08/07/11
600 DCL &ANNEEF *CHAR 4 08/07/11
700 DCL &MOIF *CHAR 2 08/07/11
800 08/07/11
900 08/07/11
1000 /* Ecran de selection de periode */ 08/07/15
1100 DCLF FILE(SADMLSTHST) RCDFMT(SHSTS1) 08/07/11
1200 /* MONMSG pour Date invalide */ 08/03/28
1300 MONMSG MSGID(CPF0557 CPF0555 CPF0550) EXEC(GOTO + 08/03/28
1400 CMDLBL(ERR)) 08/06/30
1500 08/03/28
1600 DEBUT: 08/03/27
1700 SNDRCVF RCDFMT(SHSTS1) 08/07/11
1800 /* Recuperation de l'annee et le mois de la periode */ 08/07/15
1900 CHGVAR VAR(&ANNEED) VALUE(%SST(&V_DEB 1 4)) 08/07/11
2000 CHGVAR VAR(&ANNEEF) VALUE(%SST(&V_FIN 1 4)) 08/07/11
2100 CHGVAR VAR(&MOID) VALUE(%SST(&V_DEB 5 2)) 08/07/11
2200 CHGVAR VAR(&MOIF) VALUE(%SST(&V_FIN 5 2)) 08/07/11
2300 08/07/15
2400 IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(FIN)) 08/03/28
2500 08/03/28
2600 /* Test Validite des dates */ 08/07/15
2700 CVTDAT DATE(&V_DEB *CAT '01') TOVAR(&TESTDAT) FROMFMT(*YYMD) + 08/07/11
2800 TOFMT(*MDY) TOSEP(*NONE) 08/07/11
2900 CVTDAT DATE(&V_FIN *CAT '01') TOVAR(&TESTDAT) FROMFMT(*YYMD) + 08/07/11
3000 TOFMT(*MDY) TOSEP(*NONE) 08/07/11
3100 IF COND(&V_DEB >= &V_FIN) THEN(DO) 08/07/11
3200 ERR: CHGVAR &IN40 '1' 08/06/30
3300 GOTO DEBUT 08/03/27
3400 ENDDO 08/03/28
3500 08/03/28
3600 /* Selection des enregistrement */ 08/07/11
3700 CHGVAR &QRY ('HTKEY' *BCAT '*GE' *BCAT '''' *CAT &ANNEED *CAT '-' *CAT &MOID + 08/07/11
3800 *CAT '-01-00.00.00.000000''' *BCAT '*AND' *BCAT 'HTKEY' *BCAT '*LT' *BCAT + 08/07/15
3900 '''' *CAT &ANNEEF *CAT '-' *CAT &MOIF *CAT '-01-00.00.00.000000''') 08/07/11
4000 08/07/11
4100 OVRDBF FILE(FADMHST) OVRSCOPE(*JOB) SHARE(*YES) 08/07/11
4200 OPNQRYF FILE((FADMHST)) QRYSLT(&QRY) + 08/07/11
4300 KEYFLD(HTSOC HTPRJ ) + 08/07/11
4400 OPNSCOPE(*JOB) 08/07/11
4500 08/03/27
4600 CALL PGM(RADMLSTHST) 08/07/11
4700 CLOF FADMHST 08/07/11
4800 DLTOVR FADMHST 08/07/11
4900 08/06/23
5000 08/03/28
5100 FIN: 08/03/28
5200 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMMSGDEF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/08
200 DCL VAR(&MSGF) TYPE(*CHAR) LEN(10) VALUE('ADMJOBLOG') 08/03/08
300 DCL VAR(&MSG) TYPE(*CHAR) LEN(100) 08/03/10
400 DCL VAR(&T1) TYPE(*CHAR) LEN(50) 08/03/10
500 DCL VAR(&T2) TYPE(*CHAR) LEN(50) 08/03/10
600 DCL VAR(&ID) TYPE(*CHAR) LEN(7) 08/03/08
700 DCL VAR(&L) TYPE(*CHAR) LEN(6) /* LEN */ 08/03/08
800 DCL VAR(&I) TYPE(*DEC) LEN(3 0) VALUE(0) 08/03/08
900 DCL VAR(&P) TYPE(*DEC) LEN(3 0) VALUE(0) 08/03/08
1000 08/03/08
1100 MONMSG CPF0000 08/03/08
1200 08/03/08
1300 DLTMSGF MSGF(&MSGF) 08/03/08
1400 08/03/08
1500 CRTMSGF MSGF(ADMOPS/&MSGF) TEXT('Fichier pour JOBLOG') 08/03/08
1600 08/03/08
1700 08/03/08
1800 CHGVAR &P VALUE(04) /* MESSAGE SANS VARIABLE */ 08/03/08
1900 08/03/08
2000 MSG00: CHGVAR &I VALUE(&I + 1) 08/03/08
2100 08/03/08
2200 08/03/08
2300 IF (&I *GT &P ) GOTO NEXT_VAR1 08/03/08
2400 08/03/08
2500 IF (&I = 1 ) CHGVAR &ID VALUE('BEG0000') 08/03/10
2600 IF (&I = 1 ) CHGVAR &MSG VALUE('____________DEBUT_______________________') 08/03/08
2700 08/03/08
2800 IF (&I = 2 ) CHGVAR &ID VALUE('ESP0000') 08/03/08
2900 IF (&I = 2 ) CHGVAR &MSG VALUE(' ') 08/03/08
3000 08/03/08
3100 IF (&I = 3 ) CHGVAR &ID VALUE('LGN0000') 08/03/08
3200 IF (&I = 3 ) CHGVAR &MSG VALUE('________________________________________') 08/03/08
3300 08/03/08
3400 IF (&I = 4 ) CHGVAR &ID VALUE('END0000') 08/03/08
3500 IF (&I = 4 ) CHGVAR &MSG VALUE('_____________FIN________________________') 08/03/08
3600 08/03/08
3700 RMVMSGD MSGID(&ID) MSGF(&MSGF) 08/03/08
3800 ADDMSGD MSGID(&ID) MSGF(&MSGF) MSG(&MSG) 08/03/08
3900 GOTO MSG00 08/03/08
4000 08/03/08
4100 /*================================================================================*/ 08/03/08
4200 NEXT_VAR1: 08/03/08
4300 08/03/08
4400 CHGVAR &P VALUE(11) /* MESSAGE AVEC VARIABLE */ 08/03/10
4500 CHGVAR &I VALUE(0) 08/03/08
4600 08/03/08
4700 MSG01: CHGVAR &I VALUE(&I + 1) 08/03/08
4800 08/03/08
4900 08/03/08
5000 IF (&I *GT &P ) GOTO MSGPROG 08/03/10
5100 08/03/08
5200 IF (&I = 1 ) CHGVAR &ID VALUE('JOB0001') 08/03/08
5300 IF (&I = 1 ) CHGVAR &MSG VALUE('ADMOPS.........JOB......: &1 ') 08/03/08
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMMSGDEF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 08/03/08
5500 IF (&I = 2 ) CHGVAR &ID VALUE('USR0001') 08/03/10
5600 IF (&I = 2 ) CHGVAR &MSG VALUE('ADMOPS.........USER.....: &1 ') 08/03/08
5700 08/03/08
5800 IF (&I = 3 ) CHGVAR &ID VALUE('NUM0001') 08/03/08
5900 IF (&I = 3 ) CHGVAR &MSG VALUE('ADMOPS.........NUM......: &1 ') 08/03/08
6000 08/03/08
6100 IF (&I = 4 ) CHGVAR &ID VALUE('SYS0001') 08/03/08
6200 IF (&I = 4 ) CHGVAR &MSG VALUE('ADMOPS.........SYSLIB...: &1 ') 08/03/08
6300 08/03/08
6400 IF (&I = 5 ) CHGVAR &ID VALUE('CUR0001') 08/03/08
6500 IF (&I = 5 ) CHGVAR &MSG VALUE('ADMOPS.........CURLIB...: &1 ') 08/03/08
6600 08/03/08
6700 IF (&I = 6 ) CHGVAR &ID VALUE('LBL0001') 08/03/08
6800 IF (&I = 6 ) CHGVAR &MSG VALUE('ADMOPS.........USRLIBL..: &1 ') 08/03/08
6900 08/03/08
7000 IF (&I = 7 ) CHGVAR &ID VALUE('SPQ0001') 08/03/08
7100 IF (&I = 7 ) CHGVAR &MSG VALUE('ADMOPS.........OUTQ.....: &1 ') 08/03/08
7200 08/03/08
7300 IF (&I = 8 ) CHGVAR &ID VALUE('SPL0001') 08/03/08
7400 IF (&I = 8 ) CHGVAR &MSG VALUE('ADMOPS.........OUTQLIB..: &1 ') 08/03/08
7500 08/03/08
7600 IF (&I = 9 ) CHGVAR &ID VALUE('DAT0001') 08/03/08
7700 IF (&I = 9 ) CHGVAR &MSG VALUE('ADMOPS.........DATE.....: &1 ') 08/03/08
7800 08/03/08
7900 IF (&I = 10) CHGVAR &ID VALUE('LIB0002') 08/03/08
8000 IF (&I = 10) CHGVAR &MSG VALUE('ADMOPS..................: &1 ') 08/03/08
8100 08/03/08
8200 08/03/08
8300 /*==== TRAITEMENT PAR PROGRAMME ==================================================*/ 08/03/08
8400 08/03/08
8500 IF (&I = 11) CHGVAR &ID VALUE('PRC0001') 08/03/10
8600 IF (&I = 11) CHGVAR &MSG VALUE('ADMOPS.........PROCESS..: &1 ') 08/03/08
8700 08/03/08
8800 08/03/08
8900 RMVMSGD MSGID(&ID) MSGF(&MSGF) 08/03/08
9000 ADDMSGD MSGID(&ID) MSGF(&MSGF) MSG(&MSG) FMT((*CHAR 100)) 08/03/10
9100 GOTO MSG01 08/03/08
9200 08/03/08
9300 /*================================================================================*/ 08/03/10
9400 /* message de compilation ========================================================*/ 08/03/10
9500 /*================================================================================*/ 08/03/10
9600 MSGPROG: 08/03/10
9700 08/03/10
9800 CHGVAR &P VALUE(19) /* MESSAGE AVEC VARIABLE */ 08/03/18
9900 08/03/10
10000 CHGVAR &I VALUE(0) 08/03/10
10100 08/03/10
10200 MSG02: CHGVAR &I VALUE(&I + 1) 08/03/10
10300 08/03/10
10400 08/03/10
10500 IF (&I *GT &P ) GOTO BREAK 08/03/17
10600 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMMSGDEF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 IF (&I = 1 ) CHGVAR &ID VALUE('PRF0001') 08/03/10
10800 IF (&I = 1 ) CHGVAR &MSG VALUE('PROFIL...: &1 Non Autorisé') 08/03/10
10900 08/03/10
11000 IF (&I = 2 ) CHGVAR &ID VALUE('ENV0001') 08/03/10
11100 IF (&I = 2 ) CHGVAR &MSG VALUE('USER.....: &1 Non enregistré (envirronement non définit)') 08/03/10
11200 08/03/10
11300 IF (&I = 3 ) CHGVAR &ID VALUE('PRJ0001') 08/03/10
11400 IF (&I = 3 ) CHGVAR &MSG VALUE('PROJET...: &1 Invalide non reconnu dans ADMOPS') 08/03/10
11500 08/03/10
11600 IF (&I = 4 ) CHGVAR &ID VALUE('OBJ0001') 08/03/10
11700 IF (&I = 4 ) CHGVAR &MSG VALUE('OBJET....: &1 Invalide non reconnu dans ADMOPS') 08/03/10
11800 08/03/10
11900 IF (&I = 5 ) CHGVAR &ID VALUE('DVP0001') 08/03/10
12000 IF (&I = 5 ) CHGVAR &MSG VALUE('Developer: &1 il est impossible de faire cela vous n"etes pas en dé 08/03/10
veloppement')
12100 08/03/10
12200 IF (&I = 6 ) CHGVAR &ID VALUE('QUA0001') 08/03/10
12300 IF (&I = 6 ) CHGVAR &MSG VALUE('Developer: &1 il est impossible de faire cela vous n"etes pas quali 08/03/18
fié')
12400 08/03/10
12500 IF (&I = 7 ) CHGVAR &ID VALUE('EDT0001') 08/03/10
12600 IF (&I = 7 ) CHGVAR &MSG VALUE('EDITION..: &1 objet verouillé pour un autre travaille') 08/03/10
12700 08/03/10
12800 IF (&I = 8 ) CHGVAR &ID VALUE('CHG0001') 08/03/10
12900 IF (&I = 8 ) CHGVAR &MSG VALUE('LIB......: &1 CHGSYSLIBL Invalide corriger la définition de biblioth 08/03/10
čque')
13000 08/03/10
13100 IF (&I = 9 ) CHGVAR &ID VALUE('MBR8001') 08/03/10
13200 IF (&I = 9 ) CHGVAR &MSG VALUE('MBR......: &1 SOURCE Invalide (LIB/Fsrc.développement)') 08/03/10
13300 08/03/10
13400 IF (&I = 10) CHGVAR &ID VALUE('MBR9001') 08/03/10
13500 IF (&I = 10) CHGVAR &MSG VALUE('MBR......: &1 SOURCE Invalide (LIB/Fsrc.Qualité......)') 08/03/10
13600 08/03/18
13700 IF (&I = 11) CHGVAR &ID VALUE('EXP9001') 08/03/18
13800 IF (&I = 11) CHGVAR &MSG VALUE('Objet...: &1 Invalide veuillez exporter manuelement. probleme occurs 08/03/18
')
13900 08/03/10
14000 IF (&I = 12) CHGVAR &ID VALUE('BLD8001') 08/03/18
14100 IF (&I = 12) CHGVAR &MSG VALUE('MBR......: &1 BLDOTP Invalide (LIB/Fsrc.développement)') 08/03/18
14200 08/03/10
14300 IF (&I = 13) CHGVAR &ID VALUE('BLD9001') 08/03/18
14400 IF (&I = 13) CHGVAR &MSG VALUE('MBR......: &1 BLDOPT Invalide (LIB/Fsrc.Qualité......)') 08/03/18
14500 08/03/10
14600 IF (&I = 14) CHGVAR &ID VALUE('VAR0001') 08/03/18
14700 IF (&I = 14) CHGVAR &MSG VALUE('VARIABLE.: &1 ') 08/03/18
14800 08/03/10
14900 IF (&I = 15) CHGVAR &ID VALUE('VAL0001') 08/03/18
15000 IF (&I = 15) CHGVAR &MSG VALUE('VALUE.................:&1 ') 08/03/18
15100 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMMSGDEF
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
15200 08/03/10
15300 08/03/18
15400 IF (&I = 16) CHGVAR &ID VALUE('RGL0000') 08/03/20
15500 IF (&I = 16) CHGVAR &T1 VALUE('....:....0....:....2....:....3....:....4....:....5') 08/03/20
15600 IF (&I = 16) CHGVAR &T2 VALUE('....:....6....:....7....:....8....:....9....:....0') 08/03/20
15700 IF (&I = 16) CHGVAR &MSG VALUE(&T1 *TCAT &T2) 08/03/20
15800 08/03/10
15900 IF (&I = 17) CHGVAR &ID VALUE('CMD0001') 08/03/20
16000 IF (&I = 17) CHGVAR &MSG VALUE('VALUE.....COMMANDE BLDOPT..EXECUTER.: ') 08/03/20
16100 08/03/11
16200 IF (&I = 18) CHGVAR &ID VALUE('CMD8001') 08/03/20
16300 IF (&I = 18) CHGVAR &MSG VALUE('COMMANDE............................:&1 ') 08/03/18
16400 08/03/11
16500 IF (&I = 19) CHGVAR &ID VALUE('CMD9001') 08/03/18
16600 IF (&I = 19) CHGVAR &MSG VALUE('&1 ') 08/03/18
16700 08/03/17
16800 RMVMSGD MSGID(&ID) MSGF(&MSGF) 08/03/10
16900 ADDMSGD MSGID(&ID) MSGF(&MSGF) MSG(&MSG) FMT((*CHAR 100)) 08/03/10
17000 GOTO MSG02 08/03/10
17100 08/03/10
17200 BREAK: 08/03/17
17300 CHGVAR &ID VALUE('BRK0001') 08/03/17
17400 CHGVAR &MSG VALUE('&1') 08/03/18
17500 RMVMSGD MSGID(&ID) MSGF(&MSGF) 08/03/17
17600 ADDMSGD MSGID(&ID) MSGF(&MSGF) MSG(&MSG) SECLVL('Les + 08/03/17
17700 erreurs se trouvent dans le spool --Fichier + 08/03/17
17800 environnement-- ADMLOG et de COMPILATION') + 08/03/17
17900 SEV(50) FMT((*CHAR 100)) 08/03/17
18000 08/03/10
18100 CHGVAR &ID VALUE('BRK0002') 08/03/17
18200 CHGVAR &MSG VALUE('&1') 08/03/18
18300 RMVMSGD MSGID(&ID) MSGF(&MSGF) 08/03/17
18400 ADDMSGD MSGID(&ID) MSGF(&MSGF) MSG(&MSG) + 08/03/17
18500 SECLVL('Erreur dans le script Qbldopsrc') + 08/03/17
18600 SEV(50) FMT((*CHAR 100)) 08/03/17
18700 08/03/17
18800 TERM: 08/03/10
18900 08/03/10
19000 08/03/10
19100 08/03/10
19200 WRKMSGF ADMJOBLOG 08/03/10
19300 ENDPGM 08/03/10
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMOBJDAT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/27
200 DCL &QRY *CHAR 100 08/03/27
300 DCL &TESTDAT *CHAR 6 08/03/28
400 DCL &V_PARM *CHAR 1 08/06/23
500 08/03/28
600 /* Format date pour choix Ecran */ 08/03/27
700 DCLF FILE(SADMOBJDAT) RCDFMT(SOBJS1) 08/03/27
800 /* MONMSG pour Date invalide */ 08/03/28
900 MONMSG MSGID(CPF0557 CPF0555 CPF0550) EXEC(GOTO + 08/03/28
1000 CMDLBL(ERR)) 08/06/30
1100 08/03/28
1200 DEBUT: 08/03/27
1300 SNDRCVF RCDFMT(SOBJS1) 08/03/27
1400 /* Test Validite des dates */ 08/03/28
1500 IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(FIN)) 08/03/28
1600 08/03/28
1700 CVTDAT DATE(&V_DEB) TOVAR(&TESTDAT) FROMFMT(*YYMD) + 08/03/28
1800 TOFMT(*MDY) TOSEP(*NONE) 08/03/28
1900 CVTDAT DATE(&V_FIN) TOVAR(&TESTDAT) FROMFMT(*YYMD) + 08/03/28
2000 TOFMT(*MDY) TOSEP(*NONE) 08/03/28
2100 08/03/28
2200 IF COND(&V_DEB > &V_FIN) THEN(DO) 08/03/27
2300 ERR: CHGVAR &IN40 '1' 08/06/30
2400 GOTO DEBUT 08/03/27
2500 ENDDO 08/03/28
2600 08/03/28
2700 /* Par date de Creation de l'objet */ 08/06/23
2800 IF COND(&V_CM *EQ 'C') THEN(DO) 08/06/23
2900 CHGVAR &QRY ('OBODOC' *BCAT '*GE' *BCAT &V_DEB *BCAT '*AND' *BCAT 'OBODOC' *BCAT '*LE' *BCAT &V_FIN) 08/03/28
3000 08/03/28
3100 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/03/27
3200 OPNQRYF FILE((FADMOBJ)) QRYSLT(&QRY) KEYFLD(OBSOC OBPRJ OBOTYP OBOATR OBOOBJ) + 08/03/27
3300 OPNSCOPE(*JOB) 08/03/27
3400 08/03/27
3500 OVRPRTF FILE(WADMOBJDAT) USRDTA('DATCRT-OBJ') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
3600 CHGVAR VAR(&V_PARM) VALUE('C') 08/06/23
3700 ENDDO 08/06/23
3800 08/06/23
3900 /* Par date de Mise a jour du source Membre */ 08/06/24
4000 IF COND(&V_CM *EQ 'M') THEN(DO) 08/06/23
4100 CHGVAR &QRY ('OBODMJ' *BCAT '*GE' *BCAT &V_DEB *BCAT '*AND' *BCAT 'OBODMJ' *BCAT '*LE' *BCAT &V_FIN) 08/06/23
4200 08/06/23
4300 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/06/23
4400 OPNQRYF FILE((FADMOBJ)) QRYSLT(&QRY) KEYFLD(OBSOC OBPRJ OBOTYP OBOATR OBOOBJ) + 08/06/23
4500 OPNSCOPE(*JOB) 08/06/23
4600 08/06/23
4700 OVRPRTF FILE(WADMOBJDAT) USRDTA('DATMAJ-SRC') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
4800 CHGVAR VAR(&V_PARM) VALUE('M') 08/06/23
4900 ENDDO 08/06/23
5000 08/06/23
5100 08/06/24
5200 08/06/24
5300 CALL PGM(RADMOBJDAT) PARM(&V_PARM) 08/06/24
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMOBJDAT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 CLOF FADMOBJ 08/06/23
5500 DLTOVR FADMOBJ 08/06/23
5600 DLTOVR WADMOBJDAT 08/06/24
5700 08/06/23
5800 08/06/23
5900 08/06/23
6000 08/06/23
6100 08/03/28
6200 FIN: 08/03/28
6300 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMOBJMAJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/27
200 DCL &QRY *CHAR 100 08/03/27
300 DCL &TESTDAT *CHAR 6 08/03/28
400 08/03/28
500 /* Format date pour choix Ecran */ 08/03/27
600 DCLF FILE(SADMOBJDAT) RCDFMT(SOBJS1) 08/03/27
700 /* MONMSG pour Date invalide */ 08/03/28
800 MONMSG MSGID(CPF0557 CPF0555 CPF0550) EXEC(GOTO + 08/03/28
900 CMDLBL(DEBUT)) 08/03/28
1000 08/03/28
1100 DEBUT: 08/03/27
1200 SNDRCVF RCDFMT(SOBJS1) 08/03/27
1300 /* Test Validite des dates */ 08/03/28
1400 IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(FIN)) 08/03/28
1500 08/03/28
1600 CVTDAT DATE(&V_DEB) TOVAR(&TESTDAT) FROMFMT(*YYMD) + 08/03/28
1700 TOFMT(*MDY) TOSEP(*NONE) 08/03/28
1800 CVTDAT DATE(&V_FIN) TOVAR(&TESTDAT) FROMFMT(*YYMD) + 08/03/28
1900 TOFMT(*MDY) TOSEP(*NONE) 08/03/28
2000 08/03/28
2100 IF COND(&V_DEB > &V_FIN) THEN(DO) 08/03/27
2200 CHGVAR &IN40 '1' 08/06/30
2300 GOTO DEBUT 08/03/27
2400 ENDDO 08/03/28
2500 08/03/28
2600 CHGVAR &QRY ('OBODMJ' *BCAT '*GE' *BCAT &V_DEB *BCAT '*AND' *BCAT 'OBODMJ' *BCAT '*LE' *BCAT &V_FIN) 08/06/20
2700 08/03/28
2800 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/03/27
2900 OPNQRYF FILE((FADMOBJ)) QRYSLT(&QRY) KEYFLD(OBSOC OBPRJ OBOTYP OBOATR OBOOBJ) + 08/03/27
3000 OPNSCOPE(*JOB) 08/03/27
3100 08/03/27
3200 OVRPRTF FILE(WADMLSTOBJ) USRDTA('USER-DATE') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
3300 CALL PGM(RADMLSTOBJ) 08/03/27
3400 08/03/27
3500 CLOF FADMOBJ 08/03/27
3600 DLTOVR FADMOBJ 08/03/27
3700 DLTOVR WADMLSTOBJ 08/03/28
3800 08/03/28
3900 FIN: 08/03/28
4000 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMOBJOTH
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/20
200 DCL &IN01 *DEC 1 08/03/27
300 DCL &QRY *CHAR 512 08/03/27
400 DCLF FILE(FADMENV) 08/03/28
500 08/03/27
600 08/03/27
700 CHGVAR &QRY (&QRY *TCAT ' OBUSR *NE '' '' ' ) 08/03/28
800 08/03/28
900 LECTURE: RCVF 08/03/27
1000 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN)) 08/03/27
1100 CHGVAR &QRY (&QRY *TCAT ' *AND') 08/03/28
1200 CHGVAR &QRY (&QRY *TCAT ' OBUSR *NE ''' *CAT &ENUSR *CAT '''') 08/03/28
1300 08/03/28
1400 GOTO LECTURE 08/03/27
1500 FIN: 08/03/28
1600 08/03/28
1700 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/03/28
1800 OPNQRYF FILE((FADMOBJ)) QRYSLT(&QRY) KEYFLD(OBSOC OBPRJ OBOTYP OBOATR OBOOBJ) + 08/03/28
1900 OPNSCOPE(*JOB) 08/03/28
2000 08/03/27
2100 OVRPRTF FILE(WADMLSTOBJ) USRDTA('USER-OTHR') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
2200 CALL PGM(RADMLSTOBJ) 08/03/27
2300 08/03/27
2400 CLOF FADMOBJ 08/03/27
2500 DLTOVR FADMOBJ 08/03/27
2600 DLTOVR WADMLSTOBJ 08/03/28
2700 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMOBJUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/20
200 DCL &IN01 *DEC 1 08/03/27
300 DCL &QRY *CHAR 512 08/03/27
400 DCLF FILE(FADMENV) 08/03/28
500 08/03/27
600 08/03/27
700 CHGVAR &IN01 (0) 08/03/27
800 LECTURE: RCVF 08/03/27
900 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN)) 08/03/27
1000 IF (&IN01 = 1 ) CHGVAR &QRY (&QRY *TCAT ' *OR') 08/03/27
1100 CHGVAR &QRY (&QRY *TCAT ' OBUSR = ''' *CAT &ENUSR *CAT '''') 08/03/28
1200 CHGVAR &IN01 (1) 08/03/27
1300 GOTO LECTURE 08/03/27
1400 FIN: 08/03/27
1500 08/03/27
1600 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/03/27
1700 OPNQRYF FILE((FADMOBJ)) QRYSLT(&QRY) KEYFLD(OBSOC OBPRJ OBOTYP OBOATR OBOOBJ) + 08/03/27
1800 OPNSCOPE(*JOB) 08/03/27
1900 08/03/27
2000 OVRPRTF FILE(WADMLSTOBJ) USRDTA('USER-DEVP') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
2100 CALL PGM(RADMLSTOBJ) 08/03/27
2200 08/03/27
2300 CLOF FADMOBJ 08/03/27
2400 DLTOVR FADMOBJ 08/03/27
2500 DLTOVR WADMLSTOBJ 08/03/28
2600 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMPRINT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&V_USER &V_PRJ) 08/10/23
200 DCL &V_USER *CHAR 10 08/06/20
300 DCL &QRY *CHAR 100 08/10/23
400 DCL &V_PRJ *CHAR 10 08/10/23
500 08/10/23
600 08/10/23
700 /* Si Projet est selectionné = Selection Par USER et PROJET-*/ 08/10/23
800 SELECT 08/10/23
900 WHEN COND((&V_PRJ *NE ' ') *AND (&V_USER *NE ' ')) THEN(DO) 08/10/23
1000 CHGVAR VAR(&QRY) VALUE('OBUSR *EQ "' + 08/10/23
1100 *CAT &V_USER *CAT '"' + 08/10/23
1200 *CAT ' *AND OBPRJ *EQ "' + 08/10/23
1300 *CAT &V_PRJ *CAT '"' ) 08/10/23
1400 ENDDO 08/10/23
1500 08/10/23
1600 08/10/23
1700 /* Si Projet Seul est selectionné = Selection Par Projet */ 08/10/23
1800 WHEN COND(&V_USER *EQ ' ') THEN(DO) 08/10/23
1900 CHGVAR VAR(&QRY) VALUE('OBPRJ *EQ "' + 08/10/23
2000 *CAT &V_PRJ *CAT '"' ) 08/10/23
2100 ENDDO 08/10/23
2200 ENDSELECT 08/10/23
2300 08/10/23
2400 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/10/23
2500 08/10/23
2600 OPNQRYF FILE((FADMOBJ)) + 08/10/23
2700 QRYSLT(&QRY) + 08/10/23
2800 KEYFLD(OBSOC OBPRJ OBOOBJ) + 08/10/23
2900 OPNSCOPE(*JOB) 08/10/23
3000 08/10/23
3100 OVRPRTF FILE(WADMPRINT) USRDTA('XADMAPP') OVRSCOPE(*JOB) SHARE(*YES) 08/10/27
3200 CALL PGM(RADMPRINT) 08/10/27
3300 08/06/23
3400 CLOF FADMOBJ 08/10/23
3500 DLTOVR FADMOBJ 08/10/23
3600 DLTOVR WADMPRINT 08/10/27
3700 08/06/23
3800 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:58 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMPRTOBJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&V_USER) 08/06/20
200 DCL &V_USER *CHAR 10 08/06/20
300 08/06/23
400 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/03/27
500 08/05/19
600 OPNQRYF FILE((FADMOBJ)) + 08/05/19
700 QRYSLT('OBUSR = ''' *CAT &V_USER *CAT '''') + 08/06/23
800 KEYFLD(OBSOC OBPRJ OBOOBJ) + 08/05/19
900 OPNSCOPE(*JOB) 08/05/19
1000 08/06/23
1100 OVRPRTF FILE(WADMLSTOBJ) USRDTA('OBJ-USER') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
1200 CALL PGM(RADMLSTOBJ) 08/06/23
1300 08/06/23
1400 CLOF FADMOBJ 08/06/23
1500 DLTOVR FADMOBJ 08/06/23
1600 DLTOVR WADMLSTOBJ 08/06/23
1700 08/06/23
1800 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMPRT01
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&V_FULL &V_132 &V_198) 08/05/19
200 DCL &V_FULL *CHAR 1 /*Verouilles ou non*/ 08/05/20
300 DCL &V_132 *CHAR 1 08/05/19
400 DCL &V_198 *CHAR 1 08/05/19
500 08/05/19
600 DCL &IN01 *DEC 1 08/05/19
700 DCL &QRY *CHAR 512 /*Recupere les Users pour la requetes */ 08/05/20
800 DCL &QRY1 *CHAR 512 /*Recupere la Taille PG pour la requete */ 08/05/20
900 08/05/19
1000 DCLF FILE(FADMENV) 08/05/19
1100 08/05/19
1200 SELECT 08/05/19
1300 WHEN COND(&V_132 = 'O' *AND &V_198 ='O') THEN(DO) 08/05/19
1400 CHGVAR &QRY1 ('& (OBOPAG *EQ 132 *OR OBOPAG *EQ 198)' ) 08/05/20
1500 ENDDO 08/05/19
1600 WHEN COND(&V_132 = 'N' *AND &V_198 ='O') THEN(DO) 08/05/19
1700 CHGVAR &QRY1 ('& (OBOPAG *EQ 198)' ) 08/05/20
1800 ENDDO 08/05/19
1900 WHEN COND(&V_132 = 'O' *AND &V_198 ='N') THEN(DO) 08/05/19
2000 CHGVAR &QRY1 ('& (OBOPAG *EQ 132)' ) 08/05/20
2100 ENDDO 08/05/19
2200 WHEN COND(&V_132 = 'N' *AND &V_198 ='N') THEN(DO) 08/05/20
2300 CHGVAR &QRY1 ('& (OBOPAG *NE 132 *AND OBOPAG *NE 198)' ) 08/05/20
2400 ENDDO 08/05/20
2500 ENDSELECT 08/05/19
2600 08/05/19
2700 CHGVAR &IN01 (0) 08/05/19
2800 LECTURE: RCVF 08/05/19
2900 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN)) 08/05/19
3000 IF (&IN01 = 1) CHGVAR &QRY (&QRY *TCAT ' *OR') 08/05/19
3100 CHGVAR &QRY (&QRY *TCAT ' OBUSR = ''' *CAT &ENUSR *CAT '''') 08/05/19
3200 CHGVAR &IN01 (1) 08/05/19
3300 GOTO LECTURE 08/05/19
3400 08/05/19
3500 FIN: 08/05/19
3600 /* GOTO FINI */ 08/05/19
3700 OVRDBF FILE(FADMOBJ) OVRSCOPE(*JOB) SHARE(*YES) 08/03/27
3800 08/05/19
3900 SELECT 08/05/19
4000 /*Non Verrouilles*/ 08/05/20
4100 WHEN COND(&V_FULL = 'N') THEN(DO) 08/05/20
4200 OPNQRYF FILE((FADMOBJ)) + 08/05/19
4300 QRYSLT('OBOATR *EQ "PRTF"' + 08/05/20
4400 *BCAT &QRY1 ) + 08/05/20
4500 KEYFLD(OBSOC OBPRJ OBOOBJ) + 08/05/19
4600 OPNSCOPE(*JOB) 08/05/19
4700 ENDDO 08/05/19
4800 08/05/19
4900 /*Verrouilles*/ 08/05/20
5000 WHEN COND(&V_FULL = 'O') THEN(DO) 08/05/20
5100 OPNQRYF FILE((FADMOBJ)) + 08/05/19
5200 QRYSLT('(' *BCAT &QRY *BCAT ')' + 08/05/20
5300 *BCAT '& OBOATR *EQ "PRTF"' *BCAT + 08/05/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . PADMPRT01
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 &QRY1 ) + 08/05/20
5500 KEYFLD(OBSOC OBPRJ OBOOBJ) + 08/05/19
5600 OPNSCOPE(*JOB) 08/05/19
5700 08/05/19
5800 ENDDO 08/05/19
5900 08/05/19
6000 ENDSELECT 08/05/19
6100 08/05/19
6200 OVRPRTF FILE(WADMPRT01) USRDTA('PRTF-PRJ') OVRSCOPE(*JOB) SHARE(*YES) 08/08/19
6300 CALL PGM(RADMPRT01) 08/05/19
6400 08/03/27
6500 CLOF FADMOBJ 08/03/27
6600 DLTOVR FADMOBJ 08/03/27
6700 DLTOVR WADMPRT01 08/05/19
6800 ENDPGM 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGBRK
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&ID ) 08/03/17
200 08/03/10
300 DCL &ID *CHAR 7 08/03/10
400 08/03/10
500 DCL &TXT *CHAR 100 08/03/10
600 08/03/17
700 DCL &JOB *CHAR 10 08/03/17
800 DCL &USER *CHAR 10 08/03/17
900 DCL &NUM *CHAR 6 08/03/17
1000 DCL &D *CHAR 20 08/03/17
1100 08/03/10
1200 RTVJOBA JOB(&JOB) USER(&USER) NBR(&NUM) DATETIME(&D) 08/03/17
1300 08/03/17
1400 08/03/17
1500 CHGVAR &TXT ('FIN ANORMAL JOB:' + 08/03/18
1600 *TCAT &JOB *TCAT '.' *TCAT &USER *TCAT '.' *TCAT &NUM *CAT ' -- ' *CAT %SST(&D 1 4) *TCAT '/' *TCAT 08/03/18
%SST(&D 5 2) +
1700 *TCAT '/' *TCAT %SST(&D 7 2) *TCAT '--' *TCAT %SST(&D 9 2) *TCAT ':' *TCAT %SST(&D 11 2) *TCAT ':' 08/03/18
*CAT %SST(&D 13 2) )
1800 08/03/17
1900 08/03/17
2000 SNDPGMMSG MSGID(&ID) MSGF(ADMOPS/ADMJOBLOG) MSGDTA(&TXT) TOMSGQ(&USER) MSGTYPE(*DIAG) 08/03/17
2100 08/03/10
2200 08/03/10
2300 ENDPGM 08/03/10
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGID
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&ID &TXT) 08/03/10
200 08/03/10
300 DCL &ID *CHAR 7 08/03/10
400 08/03/10
500 DCL &TXT *CHAR 100 08/03/10
600 08/03/10
700 SNDPGMMSG MSGID(&ID) MSGF(ADMOPS/ADMJOBLOG) MSGDTA(&TXT) TOMSGQ(QTEMP/ADMJOBLOG) 08/03/10
800 08/03/10
900 08/03/10
1000 ENDPGM 08/03/10
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGINI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&COMPILE) 08/03/10
200 08/03/08
300 DCL &COMPILE *CHAR 10 08/03/10
400 08/03/10
500 DCL &MSGF *CHAR 10 VALUE('ADMJOBLOG') 08/03/08
600 DCL &MSGQ *CHAR 10 VALUE('ADMJOBLOG') 08/03/08
700 08/03/08
800 DCL &LEN *DEC (5 0) 08/03/08
900 DCL &ARG *DEC (15 5) 08/03/08
1000 08/03/08
1100 DCL VAR(&INT) TYPE(*INT) LEN(4) 08/03/08
1200 DCL VAR(&START) TYPE(*INT) LEN(4) 08/03/08
1300 DCL VAR(&END) TYPE(*INT) LEN(4) 08/03/08
1400 08/03/08
1500 DCL &LIB *CHAR 10 08/03/08
1600 08/03/08
1700 DCL &JOB *CHAR 10 08/03/08
1800 DCL &USER *CHAR 10 08/03/08
1900 DCL &NUM *CHAR 6 08/03/08
2000 DCL &SYSLIB *CHAR 165 /* 15 */ 08/03/08
2100 DCL &CURLIB *CHAR 10 08/03/08
2200 DCL &USRLIB *CHAR 2750 /* 250 */ 08/03/08
2300 DCL &OUTQ *CHAR 10 08/03/08
2400 DCL &OUTQL *CHAR 10 08/03/08
2500 DCL &DX *CHAR 20 /* AAAA MM JJ 901234*/ 08/03/11
2600 DCL &DATE *CHAR 21 /* ..../../..---HHMMSS*/ 08/03/11
2700 08/03/08
2800 08/03/08
2900 RTVJOBA JOB(&JOB) USER(&USER) NBR(&NUM) + 08/03/08
3000 SYSLIBL(&SYSLIB) + 08/03/08
3100 CURLIB(&CURLIB) + 08/03/08
3200 USRLIBL(&USRLIB) + 08/03/08
3300 OUTQ(&OUTQ) + 08/03/08
3400 OUTQLIB(&OUTQL) + 08/03/08
3500 DATETIME(&DX) 08/03/11
3600 CHGVAR &DATE (%SST(&DX 1 4) *CAT '/' *CAT %SST(&DX 5 2) *CAT '/' *CAT %SST(&DX 7 2) + 08/03/11
3700 *CAT '---' *CAT %SST(&DX 9 2) *CAT ':' *CAT %SST(&DX 11 2) *CAT ':' *CAT %SST(&DX 13 08/03/11
2) )
3800 08/03/08
3900 DLTMSGQ MSGQ(QTEMP/ADMJOBLOG) 08/03/08
4000 MONMSG CPF0000 08/03/08
4100 CRTMSGQ MSGQ(QTEMP/ADMJOBLOG) MSGQFULL(*WRAP) 08/03/08
4200 08/03/10
4300 OVRPRTF FILE(ADMLOG) OUTQ(&OUTQ) SCHEDULE(*FILEEND) + 08/03/11
4400 HOLD(*YES) USRDTA(&COMPILE) + 08/03/11
4500 OVRSCOPE(*JOB) SHARE(*YES) OPNSCOPE(*JOB) 08/03/11
4600 08/03/10
4700 /* _____DEBUT________________________________________*/ 08/03/08
4800 SNDPGMMSG MSGID(BEG0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/10
4900 SNDPGMMSG MSGID(DAT0001) MSGF(&MSGF) MSGDTA(&DATE) TOMSGQ(&MSGQ) 08/03/08
5000 08/03/08
5100 SNDPGMMSG MSGID(ESP0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGINI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5200 08/03/08
5300 /* _____JOB_____USER_____NUM_________________________*/ 08/03/08
5400 SNDPGMMSG MSGID(JOB0001) MSGF(&MSGF) MSGDTA(&JOB) TOMSGQ(&MSGQ) 08/03/08
5500 SNDPGMMSG MSGID(USR0001) MSGF(&MSGF) MSGDTA(&USER) TOMSGQ(&MSGQ) 08/03/08
5600 SNDPGMMSG MSGID(NUM0001) MSGF(&MSGF) MSGDTA(&NUM) TOMSGQ(&MSGQ) 08/03/08
5700 08/03/08
5800 SNDPGMMSG MSGID(LGN0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
5900 08/03/08
6000 08/03/08
6100 08/03/08
6200 /* SYSLIBL __________________________________________*/ 08/03/08
6300 ADMLEN VALUE(&SYSLIB) LEN(&LEN) 08/03/08
6400 CHGVAR &INT (0) 08/03/08
6500 CHGVAR &END (&LEN) 08/03/08
6600 DOFOR VAR(&INT) FROM(1) TO(&END) BY(11) 08/03/08
6700 CHGVAR &LIB %SST(&SYSLIB &INT 11) 08/03/08
6800 SELECT 08/03/08
6900 WHEN COND(&INT *EQ 1 ) THEN(DO) 08/03/08
7000 SNDPGMMSG MSGID(SYS0001) MSGF(&MSGF) MSGDTA(&LIB) TOMSGQ(&MSGQ) 08/03/08
7100 ENDDO 08/03/08
7200 WHEN COND(&INT *GT 1 ) THEN(DO) 08/03/08
7300 SNDPGMMSG MSGID(LIB0002) MSGF(&MSGF) MSGDTA(&LIB) TOMSGQ(&MSGQ) 08/03/08
7400 ENDDO 08/03/08
7500 ENDSELECT 08/03/08
7600 ENDDO 08/03/08
7700 08/03/08
7800 SNDPGMMSG MSGID(LGN0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
7900 08/03/08
8000 08/03/08
8100 08/03/08
8200 08/03/08
8300 /* CURLIBL __________________________________________*/ 08/03/08
8400 SNDPGMMSG MSGID(CUR0001) MSGF(&MSGF) MSGDTA(&CURLIB) TOMSGQ(&MSGQ) 08/03/08
8500 08/03/08
8600 SNDPGMMSG MSGID(LGN0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
8700 08/03/08
8800 08/03/08
8900 08/03/08
9000 08/03/08
9100 08/03/08
9200 /* USRLIBL __________________________________________*/ 08/03/08
9300 ADMLEN VALUE(&USRLIB) LEN(&LEN) 08/03/08
9400 CHGVAR &INT (0) 08/03/08
9500 CHGVAR &END (&LEN) 08/03/08
9600 DOFOR VAR(&INT) FROM(1) TO(&END) BY(11) 08/03/08
9700 CHGVAR &LIB %SST(&USRLIB &INT 11) 08/03/08
9800 SELECT 08/03/08
9900 WHEN COND(&INT *EQ 1 ) THEN(DO) 08/03/08
10000 SNDPGMMSG MSGID(LBL0001) MSGF(&MSGF) MSGDTA(&LIB) TOMSGQ(&MSGQ) 08/03/08
10100 ENDDO 08/03/08
10200 WHEN COND(&INT *GT 1 ) THEN(DO) 08/03/08
10300 SNDPGMMSG MSGID(LIB0002) MSGF(&MSGF) MSGDTA(&LIB) TOMSGQ(&MSGQ) 08/03/08
10400 ENDDO 08/03/08
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGINI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10500 ENDSELECT 08/03/08
10600 ENDDO 08/03/08
10700 08/03/08
10800 SNDPGMMSG MSGID(LGN0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
10900 08/03/08
11000 08/03/08
11100 08/03/08
11200 08/03/08
11300 08/03/08
11400 /* _____OUTQ____OUTQLIB______DATE____________________*/ 08/03/08
11500 SNDPGMMSG MSGID(SPQ0001) MSGF(&MSGF) MSGDTA(&OUTQ) TOMSGQ(&MSGQ) 08/03/08
11600 SNDPGMMSG MSGID(SPL0001) MSGF(&MSGF) MSGDTA(&OUTQL) TOMSGQ(&MSGQ) 08/03/08
11700 08/03/08
11800 08/03/08
11900 08/03/08
12000 SNDPGMMSG MSGID(LGN0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
12100 SNDPGMMSG MSGID(ESP0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
12200 SNDPGMMSG MSGID(ESP0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
12300 SNDPGMMSG MSGID(ESP0000) MSGF(&MSGF) TOMSGQ(&MSGQ) 08/03/08
12400 08/03/08
12500 08/03/08
12600 ENDPGM 08/03/08
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGRCV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&RDATA &RID) 08/03/08
200 08/03/08
300 DCL &RDATA *CHAR 130 08/03/08
400 DCL &RID *CHAR 7 08/03/08
500 08/03/08
600 08/03/08
700 RCVMSG MSGQ(QTEMP/ADMJOBLOG) MSGTYPE(*NEXT) + 08/03/08
800 MSGKEY(*TOP) RMV(*YES) MSG(&RDATA) + 08/03/08
900 MSGID(&RID) 08/03/08
1000 ENDPGM 08/03/08
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . QADMMSGVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&ID &VAR &TXT) 08/03/10
200 08/03/10
300 DCL &ID *CHAR 7 08/03/10
400 08/03/10
500 DCL &VAR *CHAR 10 08/03/10
600 DCL &TXT *CHAR 100 08/03/10
700 08/03/10
800 08/03/10
900 SNDPGMMSG MSGID(&ID) MSGF(ADMOPS/ADMJOBLOG) MSGDTA(&VAR) TOMSGQ(QTEMP/ADMJOBLOG) 08/03/10
1000 SNDPGMMSG MSGID(VAL0001) MSGF(ADMOPS/ADMJOBLOG) MSGDTA(&TXT) TOMSGQ(QTEMP/ADMJOBLOG) 08/03/20
1100 08/03/10
1200 ENDPGM 08/03/10
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . STRADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/02/29
200 DCL &USER *CHAR 10 05/06/06
300 08/02/19
400 DCL &SOC *CHAR 10 /* SOCIETE */ 08/02/19
500 DCL &PRJ *CHAR 20 /* PROJET */ 08/03/13
600 DCL &LIB *CHAR 20 /* LIBPROD */ 08/03/13
700 08/02/19
800 DCL &IN03 *CHAR 1 /* FIN */ 08/03/04
900 08/03/18
1000 08/03/18
1100 08/03/18
1200 DCL &OPT *CHAR 2 /* ATTN */ 08/03/18
1300 DCL &MSG *CHAR 30 /* ATTN */ 08/03/18
1400 08/03/18
1500 MONMSG CPF0000 08/03/18
1600 08/04/03
1700 RTVJOBA USER(&USER) 08/03/27
1800 08/03/18
1900 CHGVAR &OPT ('00') 08/03/27
2000 08/03/27
2100 RTVDTAARA DTAARA(*GDA ( 1 2)) RTNVAR(&OPT) 08/03/18
2200 MONMSG MSGID(CPF1046) EXEC(GOTO NOT_ATTN) 08/03/27
2300 RTVDTAARA DTAARA(*GDA (10 30)) RTNVAR(&MSG) /* ATTN */ 08/03/18
2400 08/03/18
2500 NOT_ATTN: 08/08/12
2600 IF (&OPT *LT '01' *OR &OPT *GT '06') DO 08/08/12
2700 CALLPRC XADMAPPX (&SOC &PRJ &LIB &IN03) 08/08/12
2800 IF (&IN03 = '1' ) RETURN 08/08/12
2900 ENDDO 08/08/12
3000 08/03/18
3100 08/03/18
3200 IF (&OPT *GE '01' *AND &OPT *LE '06') DO /* SEPCIFIQUE ATTN LIMITE 6 ATTGRP */ 08/03/27
3300 CHGVAR &SOC %SST(&MSG 1 10) 08/03/18
3400 CHGVAR &PRJ %SST(&MSG 11 20) 08/03/18
3500 08/03/18
3600 CALLPRC XADMPRJN (&SOC &PRJ &LIB &IN03 ) /* RTV PRJ..LIB */ 08/03/19
3700 08/03/18
3800 IF (&IN03= '1') RETURN 08/03/18
3900 ENDDO 08/03/27
4000 08/03/18
4100 08/08/12
4200 08/03/18
4300 08/03/18
4400 08/03/18
4500 CALLPRC XADMLIBL (&SOC &PRJ) 08/03/13
4600 08/03/04
4700 CHKOBJ OBJ(ADMOPS/FADMOPT) OBJTYPE(*FILE) MBR(&USER) 08/03/04
4800 MONMSG MSGID(CPF9815) EXEC( DO ) 08/04/03
4900 ADDPFM FILE(ADMOPS/FADMOPT) MBR(&USER) 08/04/03
5000 CPYF FROMFILE(ADMOPS/FADMOPT) + 08/04/03
5100 TOFILE(ADMOPS/FADMOPT) FROMMBR(ADMOPS) + 08/04/03
5200 TOMBR(&USER) MBROPT(*REPLACE) 08/04/03
5300 ENDDO 08/04/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . STRADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 CHKOBJ OBJ(ADMOPS/LADMOPTA) OBJTYPE(*FILE) MBR(&USER) 08/04/03
5500 MONMSG MSGID(CPF9815) EXEC(ADDLFM + 08/04/03
5600 FILE(ADMOPS/LADMOPTA) MBR(&USER) + 08/04/03
5700 DTAMBRS((ADMOPS/FADMOPT (&USER)))) 08/04/03
5800 OVRDBF FILE(LADMOPTA) TOFILE(ADMOPS/LADMOPTA) + 08/04/03
5900 MBR(&USER) OVRSCOPE(*JOB) 08/04/03
6000 08/04/03
6100 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/27
6200 CALLPRC XADMAPP (&SOC &LIB) 08/03/13
6300 DLTOVR *ALL 08/03/03
6400 CHGCURLIB CURLIB(*CRTDFT) 08/08/04
6500 ENDPGM 05/05/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . STRADMATTN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM &MSG 08/03/18
200 08/02/19
300 DCL &SOC *CHAR 10 VALUE('STRALFORS') /* SOCIETE */ 08/07/03
400 DCL &PRJ *CHAR 20 /* PROJET */ 08/03/13
500 DCL &LIB *CHAR 20 /* LIBPROD */ 08/03/13
600 08/02/19
700 DCL &IN03 *CHAR 1 /* FIN */ 08/03/04
800 08/03/18
900 DCL &CLIB *CHAR 20 /* CURLIB */ 08/03/18
1000 08/03/18
1100 08/03/18
1200 DCL &MSG *CHAR 30 /* ATTN */ 08/03/18
1300 08/03/18
1400 08/03/18
1500 MONMSG CPF0000 08/03/18
1600 08/03/18
1700 08/03/18
1800 RTVJOBA CURLIB(&CLIB) 08/03/18
1900 ADDLIBLE LIB(ADMOPS) 08/08/04
2000 08/03/18
2100 08/03/18
2200 /* CALLPRC XADMAPPX (&SOC &PRJ &LIB &IN03) /* AVEC CHOIX DE SOCIETE */ 08/07/03
2300 CALLPRC XADMAPPY (&SOC &PRJ &LIB &IN03) /* DIRECT ET DETAIL SOCIETE */ 08/07/03
2400 IF (&IN03 = '1' ) GOTO END 08/03/18
2500 08/03/18
2600 CHGVAR &MSG VALUE(&SOC *CAT &PRJ) /* ATTN */ 08/03/18
2700 END: RMVLIBLE LIB(ADMOPS) 08/08/04
2800 CHGCURLIB CURLIB(VIDE) 08/08/04
2900 ENDPGM 05/05/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . STRADMOPS
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/31
200 DCL &USER *CHAR 10 08/03/31
300 DCLF FILE(SADMOPSMNU) RCDFMT(SOPSMNUS1) 08/03/31
400 MONMSG MSGID(CPF0000 MCH0000) 08/03/31
500 08/03/31
600 08/03/31
700 RTVJOBA USER(&USER) 08/03/31
800 08/03/31
900 IF (&USER *NE 'ADMOPS' ) GOTO FIN 08/03/31
1000 08/03/31
1100 08/03/31
1200 RE: SNDRCVF RCDFMT(SOPSMNUS1) 08/03/31
1300 IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(FIN)) 08/03/31
1400 08/03/31
1500 IF (&CHOIX = 1 ) STRADMAPP 08/04/03
1600 IF (&CHOIX = 2 ) CALLPRC XADMMNUGNL 08/03/31
1700 GOTO RE 08/03/31
1800 FIN: SIGNOFF 08/03/31
1900 ENDPGM 08/03/31
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . STRADMSCN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/06/12
200 DCL &USER *CHAR 10 08/06/12
300 DCL &OUTQ *CHAR 10 08/06/12
400 DCL &JOBQ *CHAR 10 08/06/12
500 DCL &OUTQL *CHAR 10 08/06/12
600 DCL &JOBQL *CHAR 10 08/06/12
700 08/06/12
800 08/06/12
900 DCL &SOC *CHAR 10 08/06/12
1000 DCL &PRJX *CHAR 20 08/06/12
1100 DCL &PRJ *CHAR 1000 /* 50 PROJETS */ 08/06/12
1200 DCL &DB2 *CHAR 4 08/06/12
1300 DCL &DSPF *CHAR 4 08/06/12
1400 DCL &PRTF *CHAR 4 08/06/12
1500 DCL &CL *CHAR 4 08/06/12
1600 DCL &RPG *CHAR 4 08/06/12
1700 DCL &C *CHAR 4 08/06/12
1800 DCL &SRV *CHAR 4 08/06/12
1900 DCL &LSTR *CHAR 4 08/06/12
2000 DCL &LSTD *CHAR 4 08/06/12
2100 DCL &CHK *CHAR 4 08/06/12
2200 DCL &STRING *CHAR 50 08/06/12
2300 08/06/12
2400 DCL &OK *CHAR 1 /* IN03 = 1 =ABANDON */ 08/06/12
2500 08/06/12
2600 RTVJOBA USER(&USER) 08/06/12
2700 08/06/12
2800 08/06/12
2900 NEXT: 08/06/12
3000 CHGVAR &SOC VALUE(*BLANK) 08/06/12
3100 CHGVAR &PRJ VALUE(*BLANK) 08/06/12
3200 CHGVAR &STRING VALUE(*BLANK) 08/06/12
3300 08/06/12
3400 CALLPRC XADMSCNALL (&SOC &PRJ &DB2 &DSPF &PRTF &CL &RPG &C &SRV &LSTR &LSTD &CHK &STRING &JOBQ &JOBQ 08/06/12
L &OUTQ &OUTQL &OK)
3500 08/06/12
3600 IF (&OK *EQ '1' ) GOTO TERM 08/06/12
3700 08/06/12
3800 SBMJOB + 08/06/12
3900 CMD(ADMOPS/ADMSCNSRCI SOC(&SOC) PRJ(&PRJ) + 08/06/12
4000 DB2(&DB2) DSPF(&DSPF) PRTF(&PRTF) CL(&CL) + 08/06/12
4100 RPG(&RPG) C(&C) SRV(&SRV) LSTR(&LSTR) + 08/06/12
4200 LSTD(&LSTD) CHK(&CHK) STRING(&STRING)) + 08/06/12
4300 JOB(SCNSRC) JOBD(JBDADMOPS) + 08/06/12
4400 JOBQ(&JOBQL/&JOBQ) OUTQ(&OUTQL/&OUTQ) 08/06/12
4500 CHGVAR &OK VALUE('2') 08/06/12
4600 GOTO NEXT 08/06/12
4700 TERM: ENDPGM 08/06/12
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . XADMCMPPFM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&PLIBD &PSRC &PMBR &PLIBP) 09/07/22
200 DCL &PLIBD *CHAR 10 09/07/22
300 DCL &PLIBP *CHAR 10 09/07/22
400 DCL &PSRC *CHAR 10 08/03/18
500 DCL &PMBR *CHAR 10 08/03/18
600 08/03/21
700 MONMSG CPF0000 09/07/22
800 ?CMPPFM NEWFILE(&PLIBD/&PSRC) NEWMBR(&PMBR) + 09/07/22
900 ??OLDFILE(&PLIBP/&PSRC) ??OLDMBR(&PMBR) 09/07/22
1000 ENDPGM 08/03/18
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . XADMLIBL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&SOC &PRJ) 08/03/13
200 08/03/08
300 DCL &SOC *CHAR 10 08/03/13
400 DCL &PRJ *CHAR 20 08/03/13
500 08/03/10
600 08/03/08
700 DCL &LEN *DEC (5 0) 08/03/08
800 08/03/08
900 DCL VAR(&INT) TYPE(*INT) LEN(4) 08/03/08
1000 DCL VAR(&END) TYPE(*INT) LEN(4) 08/03/08
1100 08/03/08
1200 DCL &LIB *CHAR 10 08/03/13
1300 08/03/08
1400 DCL &JOB *CHAR 10 08/03/08
1500 DCL &USER *CHAR 10 08/03/08
1600 DCL &NUM *CHAR 6 08/03/08
1700 DCL &SYSLIB *CHAR 165 /* 15 */ 08/03/13
1800 DCL &USRLIB *CHAR 2750 /* 250 */ 08/03/08
1900 08/03/08
2000 MONMSG CPF0000 08/03/13
2100 08/03/08
2200 RTVJOBA JOB(&JOB) USER(&USER) NBR(&NUM) + 08/03/08
2300 USRLIBL(&USRLIB) + 08/03/08
2400 08/03/13
2500 08/03/13
2600 08/03/27
2700 08/03/13
2800 08/03/08
2900 08/03/08
3000 /* SYSLIBL ________REMOVE____________________________*/ 08/03/13
3100 CHGVAR &SYSLIB VALUE(' ') 08/03/13
3200 CHGVAR &INT (0) 08/03/13
3300 CALLPRC XADMLIBRMV (&SOC &PRJ &SYSLIB &LEN) 08/03/13
3400 IF (&LEN = 0 ) GOTO USRLIB 08/03/13
3500 CHGVAR &END (&LEN) 08/03/13
3600 DOFOR VAR(&INT) FROM(1) TO(&END) BY(11) 08/03/13
3700 CHGVAR &LIB %SST(&SYSLIB &INT 10) 08/03/13
3800 CHGSYSLIBL &LIB *REMOVE 08/03/13
3900 ENDDO 08/03/13
4000 08/03/13
4100 08/03/13
4200 08/03/13
4300 USRLIB: 08/03/13
4400 /* USRLIBL ________REMOVE____________________________*/ 08/03/13
4500 ADMLEN VALUE(&USRLIB) LEN(&LEN) 08/03/13
4600 CHGVAR &INT (0) 08/03/13
4700 CHGVAR &END (&LEN) 08/03/13
4800 DOFOR VAR(&INT) FROM(1) TO(&END) BY(11) 08/03/13
4900 CHGVAR &LIB %SST(&USRLIB &INT 10) 08/03/13
5000 RMVLIBLE &LIB 08/03/13
5100 ENDDO 08/03/13
5200 08/03/13
5300 08/03/13
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . XADMLIBL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 08/03/13
5500 /* USRLIBL ________ADDLIBLE__*LAST___________________*/ 08/03/13
5600 CHGVAR &USRLIB VALUE(' ') 08/03/13
5700 CHGVAR &INT (0) 08/03/13
5800 CALLPRC XADMLIBADD (&SOC &PRJ &USRLIB &LEN) 08/03/13
5900 IF (&LEN = 0 ) GOTO TERM 08/03/13
6000 CHGVAR &END (&LEN) 08/03/13
6100 DOFOR VAR(&INT) FROM(1) TO(&END) BY(11) 08/03/13
6200 CHGVAR &LIB %SST(&USRLIB &INT 10) 08/03/13
6300 ADDLIBLE &LIB *LAST 08/03/13
6400 ENDDO 08/03/13
6500 08/03/08
6600 TERM: RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/13
6700 ENDPGM 08/03/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . XADMSCNPDM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM (&PLIB &PSRC &PMBR &PSTRING &POPTION &PCOL1 &PCOL2 &PCASE &PRYN) 08/03/25
200 DCL &ID *CHAR 7 08/03/18
300 DCL &PLIB *CHAR 10 08/03/18
400 DCL &PSRC *CHAR 10 08/03/18
500 DCL &PMBR *CHAR 10 08/03/18
600 08/03/18
700 DCL &PRYN *CHAR 1 08/03/18
800 08/03/18
900 08/03/18
1000 DCL &PSTRING *CHAR 50 08/03/18
1100 DCL &POPTION *CHAR 5 08/03/18
1200 DCL &PCOL1 *CHAR 7 08/03/18
1300 DCL &PCOL2 *CHAR 7 08/03/18
1400 DCL &PCASE *CHAR 7 08/03/18
1500 DCL &PPRTRCD *CHAR 5 08/03/20
1600 DCL &PPRTLST *CHAR 4 08/03/18
1700 09/08/10
1800 08/03/21
1900 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/18
2000 09/08/10
2100 QPDA/FNDSTRPDM STRING(&PSTRING) FILE(&PLIB/&PSRC) + 08/03/25
2200 MBR(&PMBR) OPTION(&POPTION) COL(&PCOL1 + 08/03/25
2300 &PCOL2) CASE(&PCASE) PRTMBRLIST(*NO) 08/03/25
2400 08/03/18
2500 RE: RCVMSG MSGQ(*PGMQ) MSGID(&ID) 09/08/10
2600 IF (&ID *EQ 'PDM0558') CHGVAR &PRYN VALUE('N') /* ANNULÉ RECHERCHE */ 08/03/18
2700 IF (&ID *EQ 'PDM0558') GOTO STOP 08/03/18
2800 09/08/10
2900 IF (&ID *EQ 'PDM0575') CHGVAR &PRYN VALUE('Y') /* TRAITÉ RECHERCHE */ 08/03/18
3000 IF (&ID *EQ 'PDM0575') GOTO STOP 08/03/18
3100 GOTO RE 08/03/18
3200 08/03/18
3300 08/03/22
3400 STOP: 08/03/25
3500 RMVMSG MSGQ(*PGMQ) CLEAR(*ALL) 08/03/22
3600 ENDPGM 08/03/18
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:58:59 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QCLLESRC
MEMBRE . . . . . . . . . XADMSCNPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 PGM 08/03/21
200 DCL &USER *CHAR 10 08/03/20
300 DCL &OUTQ *CHAR 10 08/03/21
400 DCL &JOBQ *CHAR 10 08/03/21
500 DCL &OUTQL *CHAR 10 08/03/21
600 DCL &JOBQL *CHAR 10 08/03/21
700 08/03/27
800 08/03/21
900 DCL &SOC *CHAR 10 08/03/21
1000 DCL &PRJX *CHAR 20 08/03/21
1100 DCL &PRJ *CHAR 1000 /* 50 PROJETS */ 08/03/21
1200 DCL &DB2 *CHAR 4 08/03/21
1300 DCL &DSPF *CHAR 4 08/03/21
1400 DCL &PRTF *CHAR 4 08/03/21
1500 DCL &CL *CHAR 4 08/03/21
1600 DCL &RPG *CHAR 4 08/03/21
1700 DCL &C *CHAR 4 08/03/21
1800 DCL &SRV *CHAR 4 08/03/21
1900 DCL &LSTR *CHAR 4 08/03/25
2000 DCL &LSTD *CHAR 4 08/03/25
2100 DCL &CHK *CHAR 4 09/01/27
2200 DCL &DEP *CHAR 4 09/01/27
2300 DCL &STRING *CHAR 50 08/03/21
2400 08/03/20
2500 DCL &OK *CHAR 1 /* IN03 = 1 =ABANDON */ 08/03/25
2600 08/03/21
2700 08/03/21
2800 RTVJOBA USER(&USER) 08/03/27
2900 08/03/21
3000 08/03/21
3100 08/03/21
3200 CALLPRC XADMSCNALL + 09/01/27
3300 (&SOC &PRJ &DB2 &DSPF &PRTF &CL &RPG &C &SRV &LSTR &LSTD &CHK &DEP &STRING &JOBQ &JOBQL &OUTQ &OUTQL 09/01/27
&OK)
3400 08/03/21
3500 08/03/21
3600 IF COND(&OK = '0') THEN(SBMJOB + 09/01/27
3700 CMD(ADMOPS/ADMSCNSRCI SOC(&SOC) PRJ(&PRJ) + 09/01/27
3800 DB2(&DB2) DSPF(&DSPF) PRTF(&PRTF) CL(&CL) + 09/01/27
3900 RPG(&RPG) C(&C) SRV(&SRV) LSTR(&LSTR) + 09/01/27
4000 LSTD(&LSTD) CHK(&CHK) DEP(&DEP) + 09/01/27
4100 STRING(&STRING)) JOB(SCNSRC) + 09/01/27
4200 JOBD(JBDADMOPS) JOBQ(&JOBQL/&JOBQ) + 09/01/27
4300 OUTQ(&OUTQL/&OUTQ) LOG(0 30) + 09/01/27
4400 LOGCLPGM(*NO) JOBMSGQFL(*WRAP)) 09/01/27
4500 ENDPGM 08/03/21
* * * * F I N D U S O U R C E * * * *
Copyright © <2009>, <Laroche Jean-Pierre>
Created with the Freeware Edition of HelpNDoc: Full featured Help generator