RPGLESRC
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKIN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 **OPTION(*NODEBUGIO) 09/03/03
300 FFADMOBJ UF E K DISK 08/03/13
400 FFADMPRJ IF E K DISK 08/02/26
500 FFADMUSR IF E K DISK 08/02/26
600 FFADMLIB IF E K DISK 08/02/26
700 FFADMENV IF E K DISK 08/02/26
800 96/03/05
900 08/02/26
1000 *---------------------------------------------------------* 08/02/26
1100 * SDS USER 08/02/26
1200 *---------------------------------------------------------* 08/02/26
1300 D SDS 08/02/26
1400 D V_USER 254 263 UTILISATEUR 08/02/26
1500 08/02/26
1600 *---------------------------------------------------------* 08/02/26
1700 * INFO PARM * 08/02/26
1800 *---------------------------------------------------------* 08/02/26
1900 D C_DEB C '(''' 08/02/26
2000 D C_INT C ''' ''' 08/02/26
2100 D C_FIN C ''')' 08/02/26
2200 D C_SBM C 'SBMJOB CMD(CALL PGM(' 96/03/05
2300 D C_PARM C ' PARM' 08/02/26
2400 D C_JOB C ' JOB(' 08/02/26
2500 D C_JOBD C ' JOBD(' 08/02/26
2600 D C_JOBQ C ' JOBQ(' 08/02/26
2700 D C_MSGQ C ' MSGQ(*NONE)' 08/02/26
2800 D C_OUTQ C ' OUTQ(' 08/02/26
2900 D C_SYSLIBL C ' SYSLIBL(*SYSVAL)' 08/03/14
3000 D C_CURLIB C ' CURLIB(ADMOPS)' 08/03/06
3100 D C_INLLIBL C ' INLLIBL(' 08/03/14
3200 96/03/05
3300 D P_JOBD S 21 08/02/26
3400 D P_JOBQ S 21 08/02/26
3500 D P_OUTQ S 21 08/02/26
3600 D P_LIBL S 275 25 LIB MAX 08/02/26
3700 96/03/05
3800 D P_CMD S 3200 08/02/26
3900 D P_CDE S 3200 INZ 08/02/26
4000 D P_CDE_LEN S 15 5 INZ(%SIZE(P_CDE)) 08/02/26
4100 D P_JOB S LIKE(OBOOBJ) 08/02/26
4200 96/03/05
4300 *--------------------------------------------------------------------------------------------- 08/02/26
4400 C K_PR KLIST 08/02/26
4500 C KFLD P_SOC 08/02/26
4600 C KFLD P_PRJ 08/02/26
4700 C K_OBJ KLIST 08/02/26
4800 C KFLD P_SOC 08/02/26
4900 C KFLD P_OBJ 08/02/26
5000 C KFLD P_TYP 08/02/26
5100 96/03/18
5200 C *ENTRY PLIST 89/01/09
5300 C PARM P_SOC 10 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKIN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C PARM P_PRJ 20 08/02/26
5500 C PARM P_OBJ 10 08/02/26
5600 C PARM P_TYP 10 08/02/26
5700 C PARM P_PRM 1 08/02/26
5800 C PARM P_SPL 1 08/03/04
5900 C PARM P_RYN 1 08/02/26
6000 96/03/05
6100 C V_USER CHAIN ADMUSRF1 66 08/02/26
6200 C 66 GOTO T_FIN 08/02/26
6300 08/02/26
6400 C V_USER CHAIN ADMENVF1 66 08/03/13
6500 C 66 GOTO T_FIN 08/02/26
6600 08/03/07
6700 08/02/26
6800 C K_PR CHAIN ADMPRJF1 66 08/02/26
6900 C 66 GOTO T_FIN 08/02/26
7000 08/02/26
7100 C T_OBJ TAG 08/03/13
7200 C K_OBJ CHAIN ADMOBJF1 6633 08/03/13
7300 C 66 GOTO T_FIN 08/03/13
7400 C 33 GOTO T_OBJ 08/03/13
7500 08/03/08
7600 C EVAL *IN66 = OBT <> *BLANK 08/03/07
7700 C 66 GOTO T_FIN 08/03/07
7800 08/02/26
7900 C EVAL *IN66 = V_USER <> OBUSR 08/03/04
8000 C 66 GOTO T_FIN 08/03/04
8100 08/03/08
8200 * USPRD = MISE EN PROD = NON PAS DE PROMOTION 09/01/30
8300 * USDVP = DEVELOPPEMENT= NON PAS DE COMPILATION 09/01/30
8400 C EVAL *IN66 = USPRD ='N' AND OBU <> *BLANK 08/04/05
8500 C AND P_PRM ='Y' 08/04/05
8600 C 66 GOTO T_FIN 08/04/05
8700 C EVAL *IN66 = USDVP ='N' AND OBU <> *BLANK 08/04/05
8800 C 66 GOTO T_FIN 08/04/05
8900 08/04/05
9000 C EVAL *IN66 = USPRD ='N' AND OBQ <> *BLANK 09/01/30
9100 C AND P_PRM ='Y' AND OBD = *BLANK 09/01/30
9200 C 66 GOTO T_FIN 08/03/08
9300 09/01/30
9400 C EVAL *IN66 = P_PRM ='N' AND OBQ <> *BLANK PAS DE COMPILATION 09/01/30
9500 C AND OBD = *BLANK QUALITE 09/01/30
9600 C 66 GOTO T_FIN 09/01/30
9700 09/01/30
9800 C EVAL *IN66 = USDVP ='N' AND OBD <> *BLANK 08/03/08
9900 C 66 GOTO T_FIN 08/03/04
10000 *--- 96/03/05
10100 * ADDLILBLE LIB COMPILE 08/02/26
10200 C SELECT 08/02/26
10300 C WHEN OBU <> *BLANK AND P_PRM ='N' 08/04/05
10400 C EVAL P_LIBL = PRLIBU URGENCE 08/04/05
10500 C EVAL P_LIBL = %TRIM(P_LIBL) + 08/04/06
10600 C ' ' + %TRIM(PRLIBP) 08/04/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKIN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 08/04/06
10800 C WHEN OBU <> *BLANK AND P_PRM ='Y' 08/04/06
10900 C EVAL P_LIBL = PRLIBP URG->PRODUCTION 08/04/06
11000 08/04/06
11100 C WHEN OBD <> *BLANK AND P_PRM ='N' 08/06/25
11200 C EVAL P_LIBL = PRLIBD DEVELOPPEMENT 08/03/06
11300 C IF PRLIBQ <> '*NONE' 08/06/25
11400 C EVAL P_LIBL = %TRIM(P_LIBL) + 08/04/06
11500 C ' ' + %TRIM(PRLIBQ) 08/04/06
11600 C ENDIF 08/06/25
11700 C EVAL P_LIBL = %TRIM(P_LIBL) + 08/04/06
11800 C ' ' + %TRIM(PRLIBP) 08/04/06
11900 08/06/25
12000 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND 08/06/24
12100 C PRLIBQ ='*NONE' 08/06/24
12200 C EVAL P_LIBL = PRLIBP CGI->PRODUCTION 08/06/24
12300 08/06/24
12400 08/04/06
12500 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND 08/06/24
12600 C PRLIBQ <>'*NONE' 08/06/24
12700 C EVAL P_LIBL = PRLIBQ DEV->QUALITE 08/03/06
12800 C EVAL P_LIBL = %TRIM(P_LIBL) + 08/04/06
12900 C ' ' + %TRIM(PRLIBP) 08/04/06
13000 08/04/06
13100 08/04/06
13200 C WHEN OBQ <> *BLANK AND P_PRM ='N' 08/03/06
13300 C EVAL P_LIBL = PRLIBQ QUALITE 08/03/06
13400 C EVAL P_LIBL = %TRIM(P_LIBL) + 08/04/06
13500 C ' ' + %TRIM(PRLIBP) 08/04/06
13600 08/04/06
13700 C WHEN OBQ <> *BLANK AND P_PRM ='Y' 08/02/26
13800 C EVAL P_LIBL = PRLIBP QUA->PRODUCTION 08/03/06
13900 C ENDSL 08/02/26
14000 08/02/26
14100 C 08/02/26
14200 *ADDLIBLE LIB(LIPLIB) POSITION(*LAST) 08/02/26
14300 C *LOVAL SETLL FADMLIB 08/02/26
14400 C K_PR SETLL FADMLIB 08/02/26
14500 C DO 22 08/03/06
14600 C K_PR READE ADMLIBF1 33 08/02/26
14700 C 33 LEAVE 08/02/26
14800 *- 08/02/26
14900 C IF LIADDRMV = 'A' 08/02/26
15000 C EVAL P_LIBL = %TRIM(P_LIBL) + 08/02/26
15100 C ' ' + %TRIM(LIPLIB) 08/02/26
15200 C ENDIF 08/02/26
15300 *- 08/02/26
15400 C ENDDO 08/02/26
15500 C 08/03/06
15600 08/04/06
15700 08/03/06
15800 *--------------------------------------------------------------------------------------------- 08/02/26
15900 C EVAL P_JOBD = %TRIM(ENJBDL)+'/'+ %TRIM(ENJOBD) 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKIN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C EVAL P_JOBQ = %TRIM(ENJBQL)+'/'+ %TRIM(ENJOBQ) 08/02/26
16100 C EVAL P_OUTQ = %TRIM(ENOUTL)+'/'+ %TRIM(ENOUTQ) 08/02/26
16200 *--------------------------------------------------------------------------------------------- 08/02/26
16300 C EVAL P_CMD= C_DEB + P_SOC +C_INT + P_PRJ + 08/02/26
16400 C C_INT + P_OBJ +C_INT + P_TYP + 08/02/26
16500 C C_INT + P_PRM +C_INT + P_SPL + 08/03/04
16600 C C_INT + P_RYN + C_FIN 08/03/04
16700 *--------------------------------------------------------------------------------------------- 08/02/26
16800 C EVAL P_CDE = C_SBM + 'ADMCHKPRM' + ')' + 08/03/27
16900 C C_PARM + %TRIM(P_CMD) + ')' + 08/02/26
17000 C C_JOB + %TRIM(OBOOBJ) + ')' + 08/02/26
17100 C C_JOBD + %TRIM(P_JOBD) + ')' + 08/02/26
17200 C C_JOBQ + %TRIM(P_JOBQ) + ')' + 08/02/26
17300 C C_MSGQ + 08/02/26
17400 C C_OUTQ + %TRIM(P_OUTQ) + ')' + 08/02/26
17500 C C_SYSLIBL + 08/03/14
17600 C C_CURLIB + 08/03/06
17700 C C_INLLIBL + %TRIM(P_LIBL) + ')' 08/03/14
17800 96/03/05
17900 C CALL 'QCMDEXC' 96/03/05
18000 C PARM P_CDE 08/02/26
18100 C PARM P_CDE_LEN 08/02/26
18200 C MOVE 'J' OBT 08/03/13
18300 C UPDATE ADMOBJF1 08/03/13
18400 C T_FIN TAG 08/02/26
18500 C SETON LR 96/03/05
18600 *========================================================================= 96/03/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKOUT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMOBJ UF E K DISK 08/02/12
300 FFADMPRJ IF E K DISK 08/02/12
400 FFADMUSR IF E K DISK 08/02/20
500 FFADMENV IF E K DISK 08/03/07
600 *--------------------------------------------------------------------------------------------- 08/02/19
700 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
800 *--------------------------------------------------------------------------------------------- 08/02/20
900 D V_LIB S LIKE(PRLIBP) 08/02/20
1000 D V_FCH S LIKE(OBOFCH) 08/03/01
1100 *--------------------------------------------------------------------------------------------- 08/02/20
1200 D P_LIBF S LIKE(PRLIBP) 08/04/06
1300 D P_SOC S LIKE(PRSOC) 08/02/20
1400 D P_PRJ S LIKE(PRPRJ) 08/02/20
1500 D P_LIB S LIKE(OBOLIB) 08/02/20
1600 D P_OBJ S LIKE(OBOOBJ) 08/02/20
1700 D P_MBR S LIKE(OBOOBJ) 08/02/20
1800 D P_TYP S LIKE(OBOTYP) 08/02/20
1900 D P_TEXT S LIKE(OBTXTU) 08/02/20
2000 D P_DATE S LIKE(OBDCTL) 08/02/20
2100 D P_RYN S 1A 08/02/20
2200 *--------------------------------------------------------------------------------------------- 08/02/12
2300 D TROUVE S LIKE(*IN) 08/02/29
2400 D OK S LIKE(*IN) 08/02/29
2500 D I S 5S 0 INZ(*ZEROS) 08/02/12
2600 D CMD S 120 INZ(*BLANK) 08/02/12
2700 D P_CMD S 3200 INZ(*BLANK) 08/02/12
2800 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/02/12
2900 *--------------------------------------------------------------------------------------------- 08/02/12
3000 C K_PR KLIST 08/02/12
3100 C KFLD P_SOC 08/02/12
3200 C KFLD P_PRJ 08/02/12
3300 C K_OBJ KLIST 08/02/12
3400 C KFLD P_SOC 08/02/12
3500 C KFLD P_OBJ 08/02/12
3600 C KFLD P_TYP 08/02/12
3700 *--------------------------------------------------------------------------------------------- 08/02/12
3800 C *ENTRY PLIST 08/02/12
3900 C PARM P_SOC 08/02/20
4000 C PARM P_PRJ 08/02/20
4100 C PARM P_OBJ 08/02/20
4200 C PARM P_TYP 08/02/20
4300 C PARM P_RYN 08/02/20
4400 *--------------------------------------------------------------------------------------------- 08/02/22
4500 * INIT DU PGM 08/02/22
4600 *--------------------------------------------------------------------------------------------- 08/02/22
4700 C MOVE *ALL'0' *IN 08/02/22
4800 *--------------------------------------------------------------------------------------------- 08/02/22
4900 C V_USER CABEQ 'ADMOPS' T_FIN 66 08/03/06
5000 C V_USER CABEQ 'OTHER' T_FIN 66 08/03/06
5100 08/02/12
5200 C V_USER CHAIN ADMUSRF1 66 08/02/20
5300 C 66 GOTO T_FIN 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKOUT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 08/02/20
5500 C V_USER CHAIN ADMENVF1 66 08/03/07
5600 C 66 GOTO T_FIN 08/03/07
5700 08/03/07
5800 C K_PR CHAIN ADMPRJF1 66 08/02/20
5900 C 66 GOTO T_FIN 08/02/20
6000 08/02/12
6100 C K_OBJ CHAIN ADMOBJF1 6666 08/02/20
6200 C 66 GOTO T_FIN 08/02/20
6300 08/04/05
6400 C EVAL *IN66 = OBUSR <> *BLANK AND OBQ = *BLANK 08/04/07
6500 C 66 GOTO T_FIN 08/04/05
6600 C EVAL *IN66 = OBUSR <> *BLANK AND OBD <> *BLANK 08/04/07
6700 C 66 GOTO T_FIN 08/04/07
6800 08/02/12
6900 * RECHERCHE SI FICHIER SOURCE.MBR DEJA PRESENT EN DEVELOPPEMENT 08/02/12
7000 C IF OBOYNS ='Y' 08/03/01
7100 C EVAL V_FCH = OBOFCH 08/03/01
7200 C EXSR $DUP 08/03/01
7300 C 66 GOTO T_FIN 08/03/01
7400 C ENDIF 08/03/01
7500 * RECHERCHE SI FICHIER DBLOPT.MBR DEJA PRESENT EN DEVELOPPEMENT 08/03/01
7600 C IF OBB ='B' 08/03/01
7700 C EVAL V_FCH = 'QBLDOPTSRC' 08/03/01
7800 C EXSR $DUP 08/03/01
7900 C 66 GOTO T_FIN 08/03/01
8000 C ENDIF 08/03/01
8100 C CALLB 'MADMREFMBR' 08/02/20
8200 C PARM PRLIBD P_LIB 08/02/20
8300 C PARM OBOFCH P_OBJ 08/02/20
8400 C PARM OBOOBJ P_MBR 08/02/20
8500 C PARM P_TEXT 08/02/20
8600 C PARM P_DATE 08/02/20
8700 C MOVE 'D' OBD 08/02/20
8800 C MOVE *ALL'0' OBDATU 08/02/20
8900 C MOVE P_DATE OBDCTL 08/02/20
9000 08/03/07
9100 C IF ENCHKT= 'Y' AND ENTRF ='Y' 08/03/27
9200 C MOVE ENTAG OBUSR 08/03/07
9300 C ELSE 08/03/07
9400 C MOVE V_USER OBUSR 08/03/07
9500 C ENDIF 08/03/07
9600 08/03/07
9700 C UPDATE ADMOBJF1 08/02/12
9800 C T_FIN TAG 08/02/12
9900 C MOVE 'Y' P_RYN 08/02/20
10000 C 66 MOVE 'N' P_RYN 08/02/20
10100 C 08/02/12
10200 *---------- 95/11/17
10300 C SETON LR 96/04/26
10400 *========================================================================= 94/03/02
10500 CSR $DUP BEGSR 08/03/01
10600 08/03/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKOUT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C CALLB 'MADMOBJCHK' 08/03/01
10800 C PARM PRLIBD P_LIB 08/03/01
10900 C PARM V_FCH P_OBJ 08/03/01
11000 C PARM '*FILE' P_TYP 08/03/01
11100 C PARM OBOOBJ P_MBR 08/03/01
11200 C PARM TROUVE 08/03/01
11300 C TROUVE CABEQ *ON T_DUP999 66 08/03/01
11400 * RECHERCHE SI FICHIER SOURCE.MBR EXISTE DANS LIB ORIGINE 08/03/01
11500 C EVAL OK = *ON 08/03/01
11600 C SELECT 08/03/01
11700 C WHEN OBQ = 'Q' 08/03/01
11800 C MOVE PRLIBQ V_LIB 08/03/01
11900 C CALLB 'MADMOBJCHK' 08/03/01
12000 C PARM V_LIB P_LIB 08/03/01
12100 C PARM V_FCH P_OBJ 08/03/01
12200 C PARM '*FILE' P_TYP 08/03/01
12300 C PARM OBOOBJ P_MBR 08/03/01
12400 C PARM OK 08/03/01
12500 C WHEN OBP = 'P' 08/03/01
12600 C MOVE PRLIBP V_LIB 08/03/01
12700 C CALLB 'MADMOBJCHK' 08/03/01
12800 C PARM V_LIB P_LIB 08/03/01
12900 C PARM V_FCH P_OBJ 08/03/01
13000 C PARM '*FILE' P_TYP 08/03/01
13100 C PARM OBOOBJ P_MBR 08/03/01
13200 C PARM OK 08/03/01
13300 C ENDSL 08/03/01
13400 08/03/01
13500 C OK CABEQ *OFF T_DUP999 66 08/03/01
13600 * NOT EXISTE TO CREATE FILE SOURCE 08/04/06
13700 C CALLB 'MADMCPYMBR' 08/04/06
13800 C PARM V_LIB P_LIBF 08/04/07
13900 C PARM PRLIBD P_LIB 08/04/06
14000 C PARM V_FCH P_OBJ 08/04/06
14100 C PARM OBOOBJ P_MBR 08/04/06
14200 C T_DUP999 ENDSR 08/03/01
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMOBJ UF E K DISK 08/02/29
300 FFADMPRJ IF E K DISK 08/02/12
400 FFADMUSR IF E K DISK 08/02/20
500 FFADMENV IF E K DISK 08/03/07
600 FFADMLIB IF E K DISK 08/02/25
700 FFADMHST O A E K DISK PREFIX(OB :2) 08/04/05
800 *--------------------------------------------------------------------------------------------- 08/02/19
900 D/COPY ADMOPS/QRPGLEINC,ADMQDBLDBR 08/03/14
1000 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1100 *--------------------------------------------------------------------------------------------- 08/02/20
1200 D V_LIB S LIKE(PRLIBP) 08/02/20
1300 D DTIMESTAMP S Z INZ(*SYS) 08/04/05
1400 *--------------------------------------------------------------------------------------------- 08/02/20
1500 D P_SOC S LIKE(PRSOC) 08/02/20
1600 D P_PRJ S LIKE(PRPRJ) 08/02/20
1700 D P_OBJ S LIKE(OBOOBJ) 08/02/20
1800 D P_TYP S LIKE(OBOTYP) 08/02/20
1900 D P_OBJX S LIKE(OBOOBJ) 08/03/08
2000 D P_TYPX S LIKE(OBOTYP) 08/03/08
2100 D P_PRM S 1A PROMOTION 08/03/04
2200 D P_SPL S 1A SPOOL 08/03/04
2300 D P_RYN S 1A 08/02/25
2400 D P_RYNBLD S 1A 08/03/11
2500 08/02/25
2600 D P_QF S LIKE(OBOFCH) 08/02/25
2700 D P_BLDOPT S LIKE(OBB) 08/02/25
2800 D P_SRCYN S LIKE(OBOYNS) 08/03/01
2900 D P_CMDOPT S LIKE(OBOCMD) 08/02/25
3000 D P_ERROPT S 10A 08/02/25
3100 08/02/25
3200 D P_LIBF S LIKE(OBOLIB) 08/02/29
3300 D P_LIB S LIKE(OBOLIB) 08/02/25
3400 D P_TOLIB S LIKE(OBOLIB) 08/03/18
3500 D P_MBR S LIKE(OBOOBJ) 08/02/25
3600 D P_TEXT S LIKE(OBTXTU) 08/02/20
3700 D P_DATE S LIKE(OBDCTL) 08/02/20
3800 D P_IDX S 7A 08/03/11
3900 D P_IDTXTX S 100A 08/03/11
4000 D P_ID S 7A 08/03/10
4100 D P_IDNOM S 10A 08/03/10
4200 D P_IDTXT S 100A 08/03/10
4300 08/03/11
4400 D P_LIBCLR S LIKE(OBOLIB) 09/08/14
4500 D P_OBJCLR S LIKE(OBOOBJ) 09/08/14
4600 09/08/14
4700 D P_RCMDOPT S 32000A COMMANDE AVEC PRBLM 08/03/11
4800 D DOPT DS 08/03/11
4900 D WCMD 100A DIM(320) 08/03/11
5000 D V_RCMDOPT 1 32000A 08/03/11
5100 *--------------------------------------------------------------------------------------------- 08/02/12
5200 D PTR_LST S * 08/02/25
5300 D OK S LIKE(*IN) 08/02/25
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 D TROUVE S LIKE(*IN) 08/02/20
5500 D FIN S LIKE(*IN) 08/02/25
5600 D I S 5S 0 INZ(*ZEROS) 08/02/12
5700 D L S INZ(*ZEROS) LIKE(I) 08/03/11
5800 D R S INZ(*ZEROS) LIKE(I) 08/03/11
5900 D CMD S 16000 INZ(*BLANK) 08/02/25
6000 D P_CMD S 16000 INZ(*BLANK) 08/02/25
6100 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/02/12
6200 *--------------------------------------------------------------------------------------------- 08/02/12
6300 C K_PR KLIST 08/02/12
6400 C KFLD P_SOC 08/02/12
6500 C KFLD P_PRJ 08/03/08
6600 C K_OBJ KLIST 08/02/12
6700 C KFLD P_SOC 08/03/08
6800 C KFLD P_OBJX 08/03/08
6900 C KFLD P_TYPX 08/03/08
7000 *--------------------------------------------------------------------------------------------- 08/02/12
7100 C *ENTRY PLIST 08/02/12
7200 C PARM P_SOC 08/03/08
7300 C PARM P_PRJ 08/03/08
7400 C PARM P_OBJX 08/03/08
7500 C PARM P_TYPX 08/03/08
7600 C PARM P_PRM 08/02/25
7700 C PARM P_SPL 08/03/04
7800 C PARM P_RYN 08/02/20
7900 *--------------------------------------------------------------------------------------------- 08/02/12
8000 C V_USER CHAIN ADMUSRF1 66 08/02/20
8100 C 66 EVAL P_IDX = 'USR0001' 08/03/11
8200 C 66 EVAL P_IDTXTX = V_USER 08/03/11
8300 C 66 EXSR $ERRMSG 08/03/10
8400 C 66 GOTO T_ERR 08/02/29
8500 08/03/10
8600 C V_USER CHAIN ADMENVF1 66 08/03/07
8700 C 66 EVAL P_IDX = 'ENV0001' 08/03/11
8800 C 66 EVAL P_IDTXTX = V_USER 08/03/11
8900 C 66 EXSR $ERRMSG 08/03/10
9000 C 66 GOTO T_ERR 08/03/07
9100 08/02/12
9200 C K_PR CHAIN ADMPRJF1 66 08/02/20
9300 C 66 EVAL P_IDX = 'PRJ0001' 08/03/11
9400 C 66 EVAL P_IDTXTX = P_SOC + '/' +P_PRJ 08/03/11
9500 C 66 EXSR $ERRMSG 08/03/10
9600 C 66 GOTO T_ERR 08/02/29
9700 08/02/12
9800 C K_OBJ CHAIN ADMOBJF1 6666 08/02/25
9900 C 66 EVAL P_IDX = 'OBJ0001' 08/03/11
10000 C 66 EVAL P_IDTXTX = P_SOC + '/' +P_PRJ +'.' + P_OBJX 08/03/11
10100 C 66 EXSR $ERRMSG 08/03/10
10200 C 66 GOTO T_ERR 08/02/29
10300 08/03/07
10400 C EVAL *IN66 = USDVP ='N' DEVELOP. 08/03/07
10500 C AND OBD <> *BLANK 08/03/07
10600 C 66 EVAL P_IDX = 'DVP0001' 08/03/11
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C 66 EVAL P_IDTXTX = V_USER 08/03/11
10800 C 66 EXSR $ERRMSG 08/03/10
10900 C 66 GOTO T_ERR 08/03/07
11000 08/03/07
11100 C EVAL *IN66 = USPRD= 'N' QUALITE 08/03/07
11200 C AND OBD = *BLANK 09/01/30
11300 C AND OBQ <> *BLANK 08/03/07
11400 C 66 EVAL P_IDX = 'QUA0001' 08/03/11
11500 C 66 EVAL P_IDTXTX = V_USER 08/03/11
11600 C 66 EXSR $ERRMSG 08/03/10
11700 C 66 GOTO T_ERR 08/02/29
11800 08/03/07
11900 C EVAL *IN66 = OBT <> 'J' JOBQ 08/03/13
12000 C 66 EVAL P_IDX = 'EDT0001' 08/03/11
12100 C 66 EVAL P_IDTXTX = P_OBJX + 'E = EDITION * COMPILE' + 08/03/13
12200 C ' SUBMIT <> J ????' 08/03/13
12300 C 66 EXSR $ERRMSG 08/03/10
12400 C 66 GOTO T_ERR 08/03/07
12500 08/03/07
12600 08/03/07
12700 C V_USER COMP 'ADMOPS' 66 08/03/10
12800 C N66V_USER COMP 'DLYJOB' 66 08/03/10
12900 C N66V_USER COMP OBUSR 6666 08/03/11
13000 C 66 EVAL P_IDX = 'USR0001' 08/03/11
13100 C 66 EVAL P_IDTXTX = V_USER 08/03/11
13200 C 66 EXSR $ERRMSG 08/03/10
13300 C 66 GOTO T_ERR 08/03/10
13400 *---------------------------------------------------------------------------------------- 08/02/26
13500 *RMVLIBLE LIB(LIPLIB) 08/02/26
13600 C *LOVAL SETLL FADMLIB 08/02/25
13700 C K_PR SETLL FADMLIB 08/02/25
13800 C DO *HIVAL 08/02/25
13900 C K_PR READE ADMLIBF1 33 08/02/25
14000 C 33 LEAVE 08/02/25
14100 08/02/26
14200 C SELECT 08/02/25
14300 C WHEN LIADDRMV = 'R' 08/02/26
14400 C EVAL CMD = 'CHGSYSLIBL ' + LIPLIB + ' *REMOVE' 08/02/26
14500 C EXSR $CMD 08/02/26
14600 C 66 EVAL P_IDX = 'CHG0001' 08/03/11
14700 C 66 EVAL P_IDTXTX = LIPLIB + ' *REMOVE' 08/03/11
14800 C 66 EXSR $ERRMSG 08/03/10
14900 C *IN66 CABEQ *ON T_ERR 08/02/29
15000 C ENDSL 08/02/25
15100 C ENDDO 08/02/25
15200 *---------------------------------------------------------------------------------------- 08/03/10
15300 08/02/25
15400 *TEST SI SOURCE PRESENT 08/03/10
15500 C IF OBOYNS ='Y' 08/03/10
15600 C SELECT 08/03/10
15700 08/04/05
15800 08/04/05
15900 C WHEN OBU <> *BLANK OR URGENCE 08/04/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C OBU <> *BLANK AND P_PRM ='Y' URG->PRODUCTION 08/04/05
16100 C CALLB 'MADMOBJCHK' 08/04/05
16200 C PARM PRLIBU P_LIB 08/04/05
16300 C PARM OBOFCH P_OBJ 08/04/05
16400 C PARM '*FILE 'P_TYP 08/04/05
16500 C PARM OBOOBJ P_MBR 08/04/05
16600 C PARM TROUVE 08/04/05
16700 C EVAL *IN66 = TROUVE = *OFF 08/04/05
16800 C 66 EVAL P_IDX = 'MBR8001' 08/04/05
16900 C 66 EVAL P_IDTXTX= PRLIBU + '/' + OBOFCH +'.' + OBOOBJ 08/04/05
17000 C 66 EXSR $ERRMSG 08/04/05
17100 C 66 GOTO T_ERR 08/04/05
17200 08/04/05
17300 08/04/05
17400 C WHEN OBD <> *BLANK OR DEV 08/03/10
17500 C OBD <> *BLANK AND P_PRM ='Y' DEV->QUALITE 08/03/10
17600 C CALLB 'MADMOBJCHK' 08/03/10
17700 C PARM PRLIBD P_LIB 08/03/10
17800 C PARM OBOFCH P_OBJ 08/03/10
17900 C PARM '*FILE 'P_TYP 08/03/10
18000 C PARM OBOOBJ P_MBR 08/03/10
18100 C PARM TROUVE 08/03/10
18200 C EVAL *IN66 = TROUVE = *OFF 08/03/10
18300 C 66 EVAL P_IDX = 'MBR8001' 08/03/11
18400 C 66 EVAL P_IDTXTX= PRLIBD + '/' + OBOFCH +'.' + OBOOBJ 08/03/11
18500 C 66 EXSR $ERRMSG 08/03/10
18600 C 66 GOTO T_ERR 08/03/10
18700 08/04/05
18800 08/04/05
18900 C WHEN OBQ <> *BLANK OR DEV 08/03/10
19000 C OBQ <> *BLANK AND P_PRM ='Y' DEV->QUALITE 08/03/10
19100 C CALLB 'MADMOBJCHK' 08/03/10
19200 C PARM PRLIBQ P_LIB 08/03/10
19300 C PARM OBOFCH P_OBJ 08/03/10
19400 C PARM '*FILE 'P_TYP 08/03/10
19500 C PARM OBOOBJ P_MBR 08/03/10
19600 C PARM TROUVE 08/03/10
19700 C EVAL *IN66 = TROUVE = *OFF 08/03/10
19800 C 66 EVAL P_IDX = 'MBR9001' 08/03/11
19900 C 66 EVAL P_IDTXTX= PRLIBQ + '/' + OBOFCH +'.' + OBOOBJ 08/03/11
20000 C 66 EXSR $ERRMSG 08/03/11
20100 C 66 GOTO T_ERR 08/03/10
20200 C ENDSL 08/03/10
20300 C ENDIF 08/03/10
20400 08/03/10
20500 08/03/10
20600 *TEST SI BLDOPT PRESENT 08/03/10
20700 C IF OBB ='B' 08/03/10
20800 C SELECT 08/03/10
20900 C WHEN OBU <> *BLANK OR URGENCE 08/06/24
21000 C OBU <> *BLANK AND P_PRM ='Y' URG->PRODUCTION 08/04/05
21100 C CALLB 'MADMOBJCHK' 08/04/05
21200 C PARM PRLIBU P_LIB 08/04/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C PARM 'QBLDOPTSRC' P_OBJ 08/04/05
21400 C PARM '*FILE 'P_TYP 08/04/05
21500 C PARM OBOOBJ P_MBR 08/04/05
21600 C PARM TROUVE 08/04/05
21700 C EVAL *IN66 = TROUVE = *OFF 08/04/05
21800 C 66 EVAL P_IDX = 'BLD9001' 08/04/05
21900 C 66 EVAL P_IDTXTX = PRLIBU+'/QBLDOPTSRC.'+ OBOOBJ 08/04/05
22000 C 66 EXSR $ERRMSG 08/04/05
22100 C 66 GOTO T_ERR 08/04/05
22200 08/04/05
22300 C WHEN OBD <> *BLANK OR DEV 08/03/10
22400 C OBD <> *BLANK AND P_PRM ='Y' DEV->QUALITE 08/03/10
22500 C CALLB 'MADMOBJCHK' 08/03/10
22600 C PARM PRLIBD P_LIB 08/03/10
22700 C PARM 'QBLDOPTSRC' P_OBJ 08/03/10
22800 C PARM '*FILE 'P_TYP 08/03/10
22900 C PARM OBOOBJ P_MBR 08/03/10
23000 C PARM TROUVE 08/03/10
23100 C EVAL *IN66 = TROUVE = *OFF 08/03/10
23200 C 66 EVAL P_IDX = 'BLD8001' 08/03/11
23300 C 66 EVAL P_IDTXTX = PRLIBD+'/QBLDOPTSRC.'+ OBOOBJ 08/03/11
23400 C 66 EXSR $ERRMSG 08/03/10
23500 C 66 GOTO T_ERR 08/03/10
23600 08/04/05
23700 C WHEN OBQ <> *BLANK OR DEV 08/03/10
23800 C OBQ <> *BLANK AND P_PRM ='Y' DEV->QUALITE 08/03/10
23900 C CALLB 'MADMOBJCHK' 08/03/10
24000 C PARM PRLIBQ P_LIB 08/03/10
24100 C PARM 'QBLDOPTSRC' P_OBJ 08/03/10
24200 C PARM '*FILE 'P_TYP 08/03/10
24300 C PARM OBOOBJ P_MBR 08/03/10
24400 C PARM TROUVE 08/03/10
24500 C EVAL *IN66 = TROUVE = *OFF 08/03/10
24600 C 66 EVAL P_IDX = 'BLD9001' 08/03/11
24700 C 66 EVAL P_IDTXTX = PRLIBQ+'/QBLDOPTSRC.'+ OBOOBJ 08/03/11
24800 C 66 EXSR $ERRMSG 08/03/10
24900 C 66 GOTO T_ERR 08/03/10
25000 C ENDSL 08/03/10
25100 C ENDIF 08/03/10
25200 08/03/10
25300 *---------------------------------------------------------------------------------------- 08/02/26
25400 C EVAL OK = *ON 08/02/29
25500 08/02/25
25600 C 08/02/26
25700 * PREPARATION COMPILE 08/02/29
25800 C SELECT 08/02/26
25900 08/04/05
26000 C WHEN OBU <> *BLANK AND P_PRM ='N' URGENCE 08/04/06
26100 C EVAL V_LIB = PRLIBU 08/04/06
26200 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/04/06
26300 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/04/06
26400 C EXSR $DLT_DQ 08/04/06
26500 C ENDIF 08/04/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 08/06/24
26700 08/06/24
26800 C WHEN OBU <> *BLANK AND P_PRM ='Y' URG->PRODUCTION 08/06/24
26900 C EVAL V_LIB = PRLIBU 08/06/24
27000 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/06/24
27100 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/06/24
27200 C EXSR $DLT_DQ 08/06/24
27300 C ENDIF 08/06/24
27400 C EVAL V_LIB = PRLIBP 08/06/24
27500 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/06/24
27600 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/06/24
27700 C EXSR $DLT_DQ 08/06/24
27800 C ENDIF 08/06/24
27900 C IF OBOYNS ='Y' 08/06/24
28000 C CALLB 'MADMSAVMBR' 08/06/24
28100 C PARM PRLIBP P_LIB 08/06/24
28200 C PARM OBOFCH P_OBJ 08/06/24
28300 C PARM OBOOBJ P_MBR 08/06/24
28400 C CALLB 'MADMCPYMBR' 08/06/24
28500 C PARM PRLIBU P_LIBF 08/06/24
28600 C PARM PRLIBP P_LIB 08/06/24
28700 C PARM OBOFCH P_OBJ 08/06/24
28800 C PARM OBOOBJ P_MBR 08/06/24
28900 C ENDIF 08/06/24
29000 C IF OBB ='B' 08/06/24
29100 C CALLB 'MADMSAVBLD' 08/06/24
29200 C PARM PRLIBP P_LIB 08/06/24
29300 C PARM OBOOBJ P_MBR 08/06/24
29400 C CALLB 'MADMCPYBLD' 08/06/24
29500 C PARM PRLIBU P_LIBF FROM 08/06/24
29600 C PARM PRLIBP P_LIB TO 08/06/24
29700 C PARM OBOOBJ P_MBR 08/06/24
29800 C ELSE 08/06/24
29900 C CALLB 'MADMOBJCHK' 08/06/24
30000 C PARM PRLIBP P_LIB 08/06/24
30100 C PARM 'QBLDOPTSRC' P_OBJ 08/06/24
30200 C PARM '*FILE 'P_TYP 08/06/24
30300 C PARM OBOOBJ P_MBR 08/06/24
30400 C PARM TROUVE 08/06/24
30500 C IF TROUVE = *ON 08/06/24
30600 C CALLB 'MADMSAVBLD' 08/06/24
30700 C PARM PRLIBP P_LIB 08/06/24
30800 C PARM OBOOBJ P_MBR 08/06/24
30900 C ENDIF 08/06/24
31000 C ENDIF 08/06/24
31100 08/06/24
31200 08/06/24
31300 08/06/24
31400 08/04/06
31500 08/04/05
31600 C WHEN OBD <> *BLANK AND P_PRM ='N' DEVELOPPEMENT 08/02/29
31700 C EVAL V_LIB = PRLIBD 08/02/29
31800 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/02/29
32000 C EXSR $DLT_DQ 08/03/14
32100 C ENDIF 08/02/29
32200 08/06/24
32300 08/06/24
32400 08/06/24
32500 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND CGI->PRODUCTION 08/06/24
32600 C PRLIBQ ='*NONE' 08/06/24
32700 C EVAL V_LIB = PRLIBD 08/06/24
32800 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/06/24
32900 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/06/24
33000 C EXSR $DLT_DQ 08/06/24
33100 C ENDIF 08/06/24
33200 C EVAL V_LIB = PRLIBP 08/06/24
33300 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/06/24
33400 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/06/24
33500 C EXSR $DLT_DQ 08/06/24
33600 C ENDIF 08/06/24
33700 C IF OBOYNS ='Y' 08/06/24
33800 C CALLB 'MADMSAVMBR' 08/06/24
33900 C PARM PRLIBP P_LIB 08/06/24
34000 C PARM OBOFCH P_OBJ 08/06/24
34100 C PARM OBOOBJ P_MBR 08/06/24
34200 C CALLB 'MADMCPYMBR' 08/06/24
34300 C PARM PRLIBD P_LIBF 08/06/24
34400 C PARM PRLIBP P_LIB 08/06/24
34500 C PARM OBOFCH P_OBJ 08/06/24
34600 C PARM OBOOBJ P_MBR 08/06/24
34700 C ENDIF 08/06/24
34800 C IF OBB ='B' 08/06/24
34900 C CALLB 'MADMSAVBLD' 08/06/24
35000 C PARM PRLIBP P_LIB 08/06/24
35100 C PARM OBOOBJ P_MBR 08/06/24
35200 C CALLB 'MADMCPYBLD' 08/06/24
35300 C PARM PRLIBD P_LIBF FROM 08/06/24
35400 C PARM PRLIBP P_LIB TO 08/06/24
35500 C PARM OBOOBJ P_MBR 08/06/24
35600 C ELSE 08/06/24
35700 C CALLB 'MADMOBJCHK' 08/06/24
35800 C PARM PRLIBP P_LIB 08/06/24
35900 C PARM 'QBLDOPTSRC' P_OBJ 08/06/24
36000 C PARM '*FILE 'P_TYP 08/06/24
36100 C PARM OBOOBJ P_MBR 08/06/24
36200 C PARM TROUVE 08/06/24
36300 C IF TROUVE = *ON 08/06/24
36400 C CALLB 'MADMSAVBLD' 08/06/24
36500 C PARM PRLIBP P_LIB 08/06/24
36600 C PARM OBOOBJ P_MBR 08/06/24
36700 C ENDIF 08/06/24
36800 C ENDIF 08/06/24
36900 08/06/24
37000 08/06/24
37100 08/06/24
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 8
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
37200 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND DEV->QUALITE 08/06/24
37300 C PRLIBQ <> '*NONE' 08/06/24
37400 C EVAL V_LIB = PRLIBD 08/06/24
37500 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/03/14
37600 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/03/14
37700 C EXSR $DLT_DQ 08/03/14
37800 C ENDIF 08/03/14
37900 C EVAL V_LIB = PRLIBQ 08/06/24
38000 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/06/24
38100 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/06/24
38200 C EXSR $DLT_DQ 08/06/24
38300 C ENDIF 08/06/24
38400 C IF OBOYNS ='Y' 08/03/01
38500 C CALLB 'MADMCPYMBR' 08/02/29
38600 C PARM PRLIBD P_LIBF 08/02/29
38700 C PARM PRLIBQ P_LIB 08/02/29
38800 C PARM OBOFCH P_OBJ 08/02/29
38900 C PARM OBOOBJ P_MBR 08/02/29
39000 C ENDIF 08/03/01
39100 C IF OBB ='B' 08/03/01
39200 C CALLB 'MADMCPYBLD' 08/03/01
39300 C PARM PRLIBD P_LIBF FROM 08/03/20
39400 C PARM PRLIBQ P_LIB TO 08/03/20
39500 C PARM OBOOBJ P_MBR 08/03/01
39600 C ENDIF 08/03/01
39700 08/02/29
39800 C WHEN OBQ <> *BLANK AND P_PRM ='N' QUALITE 08/02/29
39900 C EVAL V_LIB = PRLIBQ 08/02/29
40000 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/02/29
40100 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/02/29
40200 C EXSR $DLT_DQ 08/03/14
40300 C ENDIF 08/02/29
40400 08/02/29
40500 08/03/14
40600 08/03/14
40700 C WHEN OBQ <> *BLANK AND P_PRM ='Y' AND QUA->PRODUCTION 08/06/24
40800 C PRLIBQ <>'*NONE' 08/06/24
40900 C EVAL V_LIB = PRLIBQ 08/06/24
41000 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/06/24
41100 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/06/24
41200 C EXSR $DLT_DQ 08/06/24
41300 C ENDIF 08/06/24
41400 C EVAL V_LIB = PRLIBP 08/03/14
41500 C IF OBOTYP = '*FILE' AND OBOATR = 'PF ' OR 08/03/14
41600 C OBOTYP = '*FILE' AND OBOATR = 'LF ' 08/03/14
41700 C EXSR $DLT_DQ 08/03/14
41800 C ENDIF 08/03/14
41900 C IF OBOYNS ='Y' 08/03/01
42000 C CALLB 'MADMSAVMBR' 08/02/29
42100 C PARM PRLIBP P_LIB 08/02/29
42200 C PARM OBOFCH P_OBJ 08/02/29
42300 C PARM OBOOBJ P_MBR 08/02/29
42400 C CALLB 'MADMCPYMBR' 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 9
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
42500 C PARM PRLIBQ P_LIBF 08/02/29
42600 C PARM PRLIBP P_LIB 08/02/29
42700 C PARM OBOFCH P_OBJ 08/02/29
42800 C PARM OBOOBJ P_MBR 08/02/29
42900 C ENDIF 08/03/01
43000 C IF OBB ='B' 08/03/01
43100 C CALLB 'MADMSAVBLD' 08/03/01
43200 C PARM PRLIBP P_LIB 08/03/01
43300 C PARM OBOOBJ P_MBR 08/03/01
43400 C CALLB 'MADMCPYBLD' 08/03/01
43500 C PARM PRLIBQ P_LIBF FROM 08/03/20
43600 C PARM PRLIBP P_LIB TO 08/03/20
43700 C PARM OBOOBJ P_MBR 08/03/01
43800 C ELSE 08/03/20
43900 C CALLB 'MADMOBJCHK' 08/03/20
44000 C PARM PRLIBP P_LIB 08/04/05
44100 C PARM 'QBLDOPTSRC' P_OBJ 08/03/20
44200 C PARM '*FILE 'P_TYP 08/03/20
44300 C PARM OBOOBJ P_MBR 08/03/20
44400 C PARM TROUVE 08/03/20
44500 C IF TROUVE = *ON 08/03/20
44600 C CALLB 'MADMSAVBLD' 08/03/20
44700 C PARM PRLIBP P_LIB 08/03/20
44800 C PARM OBOOBJ P_MBR 08/03/20
44900 C ENDIF 08/03/20
45000 C ENDIF 08/03/20
45100 C ENDSL 08/02/26
45200 08/02/25
45300 08/03/07
45400 * POINTE POUR CONTROLE 08/03/07
45500 C IF OBOYNO ='Y' FABRICATION OBJET 08/03/10
45600 C T_01 TAG 08/03/07
45700 C K_OBJ CHAIN ADMOBJF1 3355 08/03/07
45800 C 55 GOTO T_01 08/03/07
45900 C MOVE '*' OBT 08/03/08
46000 C UPDATE ADMOBJF1 08/03/07
46100 08/03/07
46200 08/03/07
46300 C CALLB 'MADMBLDCRT' 66 08/03/06
46400 C PARM V_LIB P_LIB 08/02/25
46500 C PARM OBOOBJ P_OBJ 08/02/25
46600 C PARM OBOTYP P_TYP 08/02/25
46700 C PARM OBOFCH P_QF 08/02/25
46800 C PARM OBB P_BLDOPT 08/02/25
46900 C PARM OBOCMD P_CMDOPT 08/02/25
47000 C PARM P_SPL 08/03/06
47100 C PARM P_RYNBLD 08/03/11
47200 C PARM P_RCMDOPT 08/03/11
47300 08/03/07
47400 C MOVE V_LIB P_LIBCLR 09/08/14
47500 C MOVE OBOOBJ P_OBJCLR 09/08/14
47600 08/03/14
47700 * LES MESSAGES PREMIER NIVEAU SONT PRIS EN CHARGE PAR BLDCRT ENVOYER --> USER 08/03/11
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 10
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
47800 C IF P_RYNBLD = 'N' 08/03/11
47900 C SETON 66 08/03/11
48000 C EVAL P_IDX ='CMD0001' 08/03/11
48100 C EXSR $ERRMSG 08/03/11
48200 C *IN66 CABEQ *ON T_ERR 08/03/11
48300 C ENDIF 08/03/01
48400 C ENDIF 08/03/11
48500 08/03/11
48600 08/03/18
48700 08/03/18
48800 C IF V_LIB = PRLIBP AND PRLIBE <> *BLANK 08/03/18
48900 08/03/18
49000 C IF OBOTYP = '*PGM' OR 08/03/18
49100 C OBOTYP = '*MODULE' OR 08/03/18
49200 C OBOTYP = '*SRVPGM' OR 08/03/18
49300 C OBOTYP = '*CMD' OR 08/03/18
49400 C OBOTYP = '*PNLGRP' OR 09/08/06
49500 C OBOTYP = '*FILE' AND OBOATR = 'DSPF' OR 08/03/18
49600 C OBOTYP = '*FILE' AND OBOATR = 'PRTF' 08/03/18
49700 C CALLB 'MADMEXPORT' 66 08/03/18
49800 C PARM V_LIB P_LIB 08/03/18
49900 C PARM OBOOBJ P_OBJ 08/03/18
50000 C PARM OBOTYP P_TYP 08/03/18
50100 C PARM PRLIBE P_TOLIB 08/03/18
50200 C PARM P_RYNBLD 08/03/18
50300 C IF P_RYNBLD = 'N' 08/03/18
50400 C SETON 66 08/03/18
50500 C EVAL P_IDX ='EXP0001' 08/03/18
50600 C EVAL P_IDTXTX = PRLIBP+' TO.'+ PRLIBE +'.'+OBOOBJ 08/03/18
50700 C EXSR $ERRMSG 08/03/18
50800 C *IN66 CABEQ *ON T_ERR 08/03/18
50900 C ENDIF 08/03/18
51000 C ENDIF 08/03/18
51100 C ENDIF 08/03/18
51200 08/03/18
51300 08/03/11
51400 C EXSR $UPDATE 08/02/25
51500 C GOTO T_TERM 08/02/29
51600 08/03/10
51700 08/03/10
51800 08/03/10
51900 08/03/10
52000 08/03/10
52100 C T_ERR TAG 08/02/29
52200 * RMVM SI FABRICATION NON VALIDER SOURCE AND OBJET 08/03/01
52300 C IF OK = *ON AND *IN66 08/02/25
52400 C SELECT 08/02/29
52500 08/04/05
52600 08/04/05
52700 C WHEN OBU <> *BLANK AND P_PRM ='Y' URG->PRODUCTION 08/04/05
52800 C IF OBOYNS ='Y' 08/04/05
52900 C CALLB 'MADMRSTMBR' 33 08/04/05
53000 C PARM PRLIBP P_LIB 08/04/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 11
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
53100 C PARM OBOFCH P_OBJ 08/04/05
53200 C PARM OBOOBJ P_MBR 08/04/05
53300 C ENDIF 08/04/05
53400 C IF OBB ='B' 08/04/05
53500 C CALLB 'MADMRSTBLD' 08/04/05
53600 C PARM PRLIBP P_LIB 08/04/05
53700 C PARM OBOOBJ P_MBR 08/04/05
53800 C ELSE 08/04/05
53900 C CALLB 'MADMOBJCHK' 08/04/05
54000 C PARM PRLIBD P_LIB 08/04/05
54100 C PARM 'QSAVBLD' P_OBJ 08/04/05
54200 C PARM '*FILE 'P_TYP 08/04/05
54300 C PARM OBOOBJ P_MBR 08/04/05
54400 C PARM TROUVE 08/04/05
54500 C IF TROUVE = *ON 08/04/05
54600 C CALLB 'MADMRSTBLD' 08/04/05
54700 C PARM PRLIBP P_LIB 08/04/05
54800 C PARM OBOOBJ P_MBR 08/04/05
54900 C ENDIF 08/04/05
55000 C ENDIF 08/04/05
55100 08/04/05
55200 08/06/24
55300 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND CGI->PRODUCTION 08/06/24
55400 C PRLIBQ = '*NONE' AND OBU = *BLANK 08/06/24
55500 C IF OBOYNS ='Y' 08/06/24
55600 C CALLB 'MADMRSTMBR' 33 08/06/24
55700 C PARM PRLIBP P_LIB 08/06/24
55800 C PARM OBOFCH P_OBJ 08/06/24
55900 C PARM OBOOBJ P_MBR 08/06/24
56000 C ENDIF 08/06/24
56100 C IF OBB ='B' 08/06/24
56200 C CALLB 'MADMRSTBLD' 08/06/24
56300 C PARM PRLIBP P_LIB 08/06/24
56400 C PARM OBOOBJ P_MBR 08/06/24
56500 C ELSE 08/06/24
56600 C CALLB 'MADMOBJCHK' 08/06/24
56700 C PARM PRLIBP P_LIB 08/06/24
56800 C PARM 'QSAVBLD' P_OBJ 08/06/24
56900 C PARM '*FILE 'P_TYP 08/06/24
57000 C PARM OBOOBJ P_MBR 08/06/24
57100 C PARM TROUVE 08/06/24
57200 C IF TROUVE = *ON 08/06/24
57300 C CALLB 'MADMRSTBLD' 08/06/24
57400 C PARM PRLIBP P_LIB 08/06/24
57500 C PARM OBOOBJ P_MBR 08/06/24
57600 C ENDIF 08/06/24
57700 C ENDIF 08/06/24
57800 08/06/24
57900 08/06/24
58000 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND DEV->QUALITE 08/06/24
58100 C PRLIBQ <>'*NONE' AND OBU = *BLANK 08/06/24
58200 C IF OBOYNS ='Y' 08/03/01
58300 C EVAL CMD = 'RMVM FILE(' + 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 12
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
58400 C %TRIM(PRLIBQ) +'/'+%TRIM(OBOFCH) + 08/02/29
58500 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/02/29
58600 C EXSR $CMD 08/02/29
58700 C ENDIF 08/03/01
58800 08/03/01
58900 C IF OBB ='B' 08/03/01
59000 C EVAL CMD = 'RMVM FILE(' + 08/03/01
59100 C %TRIM(PRLIBQ) + '/QBLDOPTSRC' + 08/03/01
59200 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/01
59300 C EXSR $CMD 08/03/01
59400 C ENDIF 08/03/01
59500 C EXSR $DLT_DQ 08/02/29
59600 08/02/29
59700 08/03/01
59800 08/03/01
59900 C WHEN OBQ <> *BLANK AND P_PRM ='Y' AND OBU = *BLANK QUA->PRODUCTION 08/04/05
60000 C IF OBOYNS ='Y' 08/03/01
60100 C CALLB 'MADMRSTMBR' 33 08/02/29
60200 C PARM PRLIBP P_LIB 08/02/29
60300 C PARM OBOFCH P_OBJ 08/02/29
60400 C PARM OBOOBJ P_MBR 08/02/29
60500 C ENDIF 08/03/01
60600 C IF OBB ='B' 08/03/01
60700 C CALLB 'MADMRSTBLD' 08/03/01
60800 C PARM PRLIBP P_LIB 08/03/01
60900 C PARM OBOOBJ P_MBR 08/03/01
61000 C ELSE 08/03/20
61100 C CALLB 'MADMOBJCHK' 08/03/20
61200 C PARM PRLIBP P_LIB 08/06/24
61300 C PARM 'QSAVBLD' P_OBJ 08/03/20
61400 C PARM '*FILE 'P_TYP 08/03/20
61500 C PARM OBOOBJ P_MBR 08/03/20
61600 C PARM TROUVE 08/03/20
61700 C IF TROUVE = *ON 08/03/20
61800 C CALLB 'MADMRSTBLD' 08/03/20
61900 C PARM PRLIBP P_LIB 08/03/20
62000 C PARM OBOOBJ P_MBR 08/03/20
62100 C ENDIF 08/03/20
62200 C ENDIF 08/03/01
62300 C ENDSL 08/02/29
62400 C ENDIF 08/02/25
62500 C 08/02/12
62600 *---------- 95/11/17
62700 C T_TERM TAG 08/02/29
62800 C IF P_SPL = 'Y' AND P_RYNBLD = 'Y' FORCE EDITION LOG 08/03/11
62900 C SETOFF 66 08/03/14
63000 C EVAL P_IDX ='CMD0001' 08/03/11
63100 C EXSR $ERRMSG 08/03/11
63200 C ENDIF 08/03/11
63300 08/03/11
63400 C EVAL CMD = 'CLRLIB QTEMP' 08/03/10
63500 C EXSR $CMD 08/03/10
63600 C EVAL CMD = 'DLTOVR *ALL ' 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 13
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
63700 C EXSR $CMD 08/03/10
63800 * DEPOINTE POUR CONTROLE PAR DEFAUT 08/03/14
63900 C T_03 TAG 08/03/14
64000 C K_OBJ CHAIN ADMOBJF1 3355 08/03/14
64100 C 55 GOTO T_03 08/03/14
64200 C MOVE *BLANK OBT 08/03/14
64300 C UPDATE ADMOBJF1 08/03/14
64400 C SETON LR 96/04/26
64500 C IF P_LIBCLR <> *BLANKS 09/08/14
64600 C CALLB 'MADMOBJCLR' 66 09/08/14
64700 C PARM P_LIBCLR 09/08/14
64800 C PARM P_OBJCLR 09/08/14
64900 C ENDIF 09/08/14
65000 C CALLB 'MADMUSPDLT' 66 09/08/14
65100 *========================================================================= 94/03/02
65200 C $CMD BEGSR 08/02/25
65300 C CALL 'QCMDEXC' 66 08/02/25
65400 C PARM CMD P_CMD 08/02/29
65500 C PARM P_CMD_LEN 08/02/25
65600 C EVAL CMD = *BLANK 08/02/29
65700 C ENDSR 08/02/25
65800 *========================================================================= 08/02/25
65900 C $UPDATE BEGSR 08/02/25
66000 C T_04 TAG 08/03/07
66100 C K_OBJ CHAIN ADMOBJF1 3355 08/03/07
66200 C 55 GOTO T_04 08/03/07
66300 C SELECT 08/02/25
66400 08/03/20
66500 C WHEN OBU <> *BLANK AND P_PRM ='Y' URG->PRODUCTION 08/04/05
66600 *RMV MBR SRC & SAV 08/04/05
66700 C EVAL CMD = 'RMVM FILE(' + 08/04/05
66800 C %TRIM(PRLIBU) +'/'+%TRIM(OBOFCH) + 08/04/05
66900 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
67000 C EXSR $CMD 08/04/05
67100 C CALLB 'MADMOBJCHK' 08/04/05
67200 C PARM PRLIBP P_LIB 08/04/05
67300 C PARM 'QSAVSRC' P_OBJ 08/04/05
67400 C PARM '*FILE 'P_TYP 08/04/05
67500 C PARM OBOOBJ P_MBR 08/04/05
67600 C PARM TROUVE 08/04/05
67700 C IF TROUVE = *ON 08/04/05
67800 C EVAL CMD = 'RMVM FILE(' + 08/04/05
67900 C %TRIM(PRLIBP) + '/QSAVSRC' + 08/04/05
68000 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
68100 C EXSR $CMD 08/04/05
68200 C ENDIF 08/04/05
68300 *RMV BLDOPT SRC & SAV 08/04/05
68400 C IF OBB ='B' 08/04/05
68500 C EVAL CMD = 'RMVM FILE(' + 08/04/05
68600 C %TRIM(PRLIBU) + '/QBLDOPTSRC' + 08/04/05
68700 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
68800 C EXSR $CMD 08/04/05
68900 C ELSE 08/04/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 14
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
69000 C CALLB 'MADMOBJCHK' 08/04/05
69100 C PARM PRLIBP P_LIB 08/04/05
69200 C PARM 'QBLDOPTSRC' P_OBJ 08/04/05
69300 C PARM '*FILE 'P_TYP 08/04/05
69400 C PARM OBOOBJ P_MBR 08/04/05
69500 C PARM TROUVE 08/04/05
69600 C IF TROUVE = *ON 08/04/05
69700 C EVAL CMD = 'RMVM FILE(' + 08/04/05
69800 C %TRIM(PRLIBP) + '/QBLDOPTSRC' + 08/04/05
69900 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
70000 C EXSR $CMD 08/04/05
70100 C ENDIF 08/04/05
70200 C ENDIF 08/04/05
70300 C CALLB 'MADMOBJCHK' 08/04/05
70400 C PARM PRLIBP P_LIB 08/04/05
70500 C PARM 'QSAVBLD' P_OBJ 08/04/05
70600 C PARM '*FILE 'P_TYP 08/04/05
70700 C PARM OBOOBJ P_MBR 08/04/05
70800 C PARM TROUVE 08/04/05
70900 C IF TROUVE = *ON 08/04/05
71000 C EVAL CMD = 'RMVM FILE(' + 08/04/05
71100 C %TRIM(PRLIBP) + '/QSAVBLD' + 08/04/05
71200 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
71300 C EXSR $CMD 08/04/05
71400 C ENDIF 08/04/05
71500 * DLT OBJET 08/04/05
71600 C MOVE PRLIBU V_LIB 08/04/05
71700 C EXSR $DLT_DQ 08/04/05
71800 08/03/20
71900 08/03/20
72000 08/03/20
72100 08/06/24
72200 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND CGI->PRODUCTION 08/06/25
72300 C PRLIBQ = '*NONE' 08/06/24
72400 *RMV MBR SRC & SAV 08/06/24
72500 C EVAL CMD = 'RMVM FILE(' + 08/06/24
72600 C %TRIM(PRLIBD) +'/'+%TRIM(OBOFCH) + 08/06/24
72700 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/06/24
72800 C EXSR $CMD 08/06/24
72900 C CALLB 'MADMOBJCHK' 08/06/24
73000 C PARM PRLIBP P_LIB 08/06/24
73100 C PARM 'QSAVSRC' P_OBJ 08/06/24
73200 C PARM '*FILE 'P_TYP 08/06/24
73300 C PARM OBOOBJ P_MBR 08/06/24
73400 C PARM TROUVE 08/06/24
73500 C IF TROUVE = *ON 08/06/24
73600 C EVAL CMD = 'RMVM FILE(' + 08/06/24
73700 C %TRIM(PRLIBP) + '/QSAVSRC' + 08/06/24
73800 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/06/24
73900 C EXSR $CMD 08/06/24
74000 C ENDIF 08/06/24
74100 *RMV BLDOPT SRC & SAV 08/06/24
74200 C IF OBB ='B' 08/06/24
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 15
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
74300 C EVAL CMD = 'RMVM FILE(' + 08/06/24
74400 C %TRIM(PRLIBD) + '/QBLDOPTSRC' + 08/06/24
74500 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/06/24
74600 C EXSR $CMD 08/06/24
74700 C ELSE 08/06/24
74800 C CALLB 'MADMOBJCHK' 08/06/24
74900 C PARM PRLIBP P_LIB 08/06/24
75000 C PARM 'QBLDOPTSRC' P_OBJ 08/06/24
75100 C PARM '*FILE 'P_TYP 08/06/24
75200 C PARM OBOOBJ P_MBR 08/06/24
75300 C PARM TROUVE 08/06/24
75400 C IF TROUVE = *ON 08/06/24
75500 C EVAL CMD = 'RMVM FILE(' + 08/06/24
75600 C %TRIM(PRLIBP) + '/QBLDOPTSRC' + 08/06/24
75700 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/06/24
75800 C EXSR $CMD 08/06/24
75900 C ENDIF 08/06/24
76000 C ENDIF 08/06/24
76100 C CALLB 'MADMOBJCHK' 08/06/24
76200 C PARM PRLIBP P_LIB 08/06/24
76300 C PARM 'QSAVBLD' P_OBJ 08/06/24
76400 C PARM '*FILE 'P_TYP 08/06/24
76500 C PARM OBOOBJ P_MBR 08/06/24
76600 C PARM TROUVE 08/06/24
76700 C IF TROUVE = *ON 08/06/24
76800 C EVAL CMD = 'RMVM FILE(' + 08/06/24
76900 C %TRIM(PRLIBP) + '/QSAVBLD' + 08/06/24
77000 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/06/24
77100 C EXSR $CMD 08/06/24
77200 C ENDIF 08/06/24
77300 * DLT OBJET 08/06/24
77400 C MOVE PRLIBD V_LIB 08/06/24
77500 C EXSR $DLT_DQ 08/06/24
77600 08/06/24
77700 08/06/24
77800 08/06/24
77900 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND DEV->QUALITE 08/06/24
78000 C PRLIBQ <>'*NONE' 08/06/24
78100 C EVAL CMD = 'RMVM FILE(' + 08/02/25
78200 C %TRIM(PRLIBD) +'/'+%TRIM(OBOFCH) + 08/02/29
78300 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/02/25
78400 C EXSR $CMD 08/02/25
78500 C IF OBB ='B' 08/03/01
78600 C EVAL CMD = 'RMVM FILE(' + 08/03/01
78700 C %TRIM(PRLIBD) + '/QBLDOPTSRC' + 08/03/01
78800 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/01
78900 C EXSR $CMD 08/03/01
79000 C ENDIF 08/03/01
79100 *DLT OBJET 08/03/20
79200 C MOVE PRLIBD V_LIB 08/02/29
79300 C EXSR $DLT_DQ 08/02/25
79400 08/03/20
79500 08/03/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 16
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
79600 08/03/20
79700 08/02/25
79800 C WHEN OBQ <> *BLANK AND P_PRM ='Y' AND QUA->PRODUCTION 08/03/14
79900 C OBD = *BLANK 08/03/14
80000 C MOVE OBOCMD OBOCMDP 08/08/13
80100 *RMV MBR SRC & SAV 08/03/20
80200 C EVAL CMD = 'RMVM FILE(' + 08/02/25
80300 C %TRIM(PRLIBQ) +'/'+%TRIM(OBOFCH) + 08/03/20
80400 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/02/25
80500 C EXSR $CMD 08/02/25
80600 C CALLB 'MADMOBJCHK' 08/03/20
80700 C PARM PRLIBP P_LIB 08/03/20
80800 C PARM 'QSAVSRC' P_OBJ 08/03/20
80900 C PARM '*FILE 'P_TYP 08/03/20
81000 C PARM OBOOBJ P_MBR 08/03/20
81100 C PARM TROUVE 08/03/20
81200 C IF TROUVE = *ON 08/03/20
81300 C EVAL CMD = 'RMVM FILE(' + 08/03/20
81400 C %TRIM(PRLIBP) + '/QSAVSRC' + 08/03/20
81500 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/20
81600 C EXSR $CMD 08/03/20
81700 C ENDIF 08/03/20
81800 *RMV BLDOPT SRC & SAV 08/03/20
81900 C IF OBB ='B' 08/03/01
82000 C EVAL CMD = 'RMVM FILE(' + 08/03/01
82100 C %TRIM(PRLIBQ) + '/QBLDOPTSRC' + 08/03/01
82200 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/01
82300 C EXSR $CMD 08/03/01
82400 C ELSE 08/03/20
82500 C CALLB 'MADMOBJCHK' 08/03/20
82600 C PARM PRLIBP P_LIB 08/03/20
82700 C PARM 'QBLDOPTSRC' P_OBJ 08/03/20
82800 C PARM '*FILE 'P_TYP 08/03/20
82900 C PARM OBOOBJ P_MBR 08/03/20
83000 C PARM TROUVE 08/03/20
83100 C IF TROUVE = *ON 08/03/20
83200 C EVAL CMD = 'RMVM FILE(' + 08/03/20
83300 C %TRIM(PRLIBP) + '/QBLDOPTSRC' + 08/03/20
83400 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/20
83500 C EXSR $CMD 08/03/20
83600 C ENDIF 08/03/20
83700 C ENDIF 08/03/20
83800 C CALLB 'MADMOBJCHK' 08/03/20
83900 C PARM PRLIBP P_LIB 08/03/20
84000 C PARM 'QSAVBLD' P_OBJ 08/03/20
84100 C PARM '*FILE 'P_TYP 08/03/20
84200 C PARM OBOOBJ P_MBR 08/03/20
84300 C PARM TROUVE 08/03/20
84400 C IF TROUVE = *ON 08/03/20
84500 C EVAL CMD = 'RMVM FILE(' + 08/03/20
84600 C %TRIM(PRLIBP) + '/QSAVBLD' + 08/03/20
84700 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/20
84800 C EXSR $CMD 08/03/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 17
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
84900 C ENDIF 08/03/01
85000 * DLT OBJET 08/03/20
85100 C MOVE PRLIBQ V_LIB 08/02/29
85200 C EXSR $DLT_DQ 08/02/25
85300 C ENDSL 08/02/25
85400 08/03/20
85500 08/03/20
85600 08/03/20
85700 08/03/20
85800 * UPDATE FILE FADMOBJ 08/02/29
85900 C SELECT 08/04/06
86000 C WHEN OBU <> *BLANK AND P_PRM ='Y' URG->PRODUCTION 08/04/06
86100 C MOVE *DATE OBODOC DATE OBJET 08/04/05
86200 C IF OBTXTU <> *BLANK 08/04/05
86300 C MOVE OBTXTU OBTXTP TEXT SOURCE MAJ 08/04/05
86400 C ENDIF 08/04/05
86500 C IF OBDATU <> *ZEROS 08/04/05
86600 C MOVEL OBDATU OBODMJ DATE SOURCE MAJ 08/04/05
86700 C ENDIF 08/04/05
86800 * MOVE *BLANK OBTXTU 08/04/05
86900 * MOVE *ZEROS OBDCTL 08/04/08
87000 * MOVE *ZEROS OBDATU 08/04/08
87100 C MOVE 'N' OBOYNS 08/04/05
87200 C MOVE 'N' OBOYNO 08/04/05
87300 C CALLB 'MADMOBJCHK' 08/04/05
87400 C PARM PRLIBP P_LIB 08/04/05
87500 C PARM OBOOBJ P_OBJ 08/04/05
87600 C PARM OBOTYP P_TYP 08/04/05
87700 C PARM '*NONE 'P_MBR 08/04/05
87800 C PARM TROUVE 08/04/05
87900 C IF TROUVE=*ON 08/04/05
88000 C MOVE 'Y' OBOYNO OBJET PRESENT 08/04/05
88100 C ENDIF 08/04/05
88200 C CALLB 'MADMOBJCHK' 08/04/05
88300 C PARM PRLIBP P_LIB 08/04/05
88400 C PARM OBOFCH P_OBJ 08/04/05
88500 C PARM '*FILE' P_TYP 08/04/05
88600 C PARM OBOOBJ P_MBR 08/04/05
88700 C PARM TROUVE 08/04/05
88800 C IF TROUVE=*ON 08/04/05
88900 C MOVE 'Y' OBOYNS SOURCE PRESENT 08/04/05
89000 C ENDIF 08/04/05
89100 C MOVE 'P' OBP 08/04/05
89200 C TIME OBKEY 08/04/05
89300 C MOVE *YEAR OBAA 08/04/05
89400 C MOVE *MONTH OBMM 08/04/05
89500 C MOVE *DAY OBJJ 08/04/05
89600 C MOVE V_USER OBUSR 08/04/05
89700 C WRITE ADMHSTF1 08/04/05
89800 C MOVE *BLANK OBU 08/04/08
89900 08/04/05
90000 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND QUA->PRODUCTION 08/06/24
90100 C PRLIBQ = '*NONE' AND OBU = *BLANK 08/06/24
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 18
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
90200 C MOVE *DATE OBODOC DATE OBJET 08/06/24
90300 C MOVE OBOCMD OBOCMDP 08/08/13
90400 C IF OBTXTU <> *BLANK 08/06/24
90500 C MOVE OBTXTU OBTXTP TEXT SOURCE MAJ 08/06/24
90600 C ENDIF 08/06/24
90700 C IF OBDATU <> *ZEROS 08/06/24
90800 C MOVEL OBDATU OBODMJ DATE SOURCE MAJ 08/06/24
90900 C ENDIF 08/06/24
91000 C MOVE *BLANK OBTXTU 08/06/26
91100 C MOVE *ZEROS OBDCTL 08/06/26
91200 C MOVE *ZEROS OBDATU 08/06/26
91300 C MOVE 'N' OBOYNS 08/06/24
91400 C MOVE 'N' OBOYNO 08/06/24
91500 C CALLB 'MADMOBJCHK' 08/06/24
91600 C PARM PRLIBP P_LIB 08/06/24
91700 C PARM OBOOBJ P_OBJ 08/06/24
91800 C PARM OBOTYP P_TYP 08/06/24
91900 C PARM '*NONE 'P_MBR 08/06/24
92000 C PARM TROUVE 08/06/24
92100 C IF TROUVE=*ON 08/06/24
92200 C MOVE 'Y' OBOYNO OBJET PRESENT 08/06/24
92300 C ENDIF 08/06/24
92400 C CALLB 'MADMOBJCHK' 08/06/24
92500 C PARM PRLIBP P_LIB 08/06/24
92600 C PARM OBOFCH P_OBJ 08/06/24
92700 C PARM '*FILE' P_TYP 08/06/24
92800 C PARM OBOOBJ P_MBR 08/06/24
92900 C PARM TROUVE 08/06/24
93000 C IF TROUVE=*ON 08/06/24
93100 C MOVE 'Y' OBOYNS SOURCE PRESENT 08/06/24
93200 C ENDIF 08/06/24
93300 C MOVE 'P' OBP 08/06/24
93400 C TIME OBKEY 08/06/24
93500 C MOVE *YEAR OBAA 08/06/24
93600 C MOVE *MONTH OBMM 08/06/24
93700 C MOVE *DAY OBJJ 08/06/24
93800 C MOVE V_USER OBUSR 08/06/26
93900 C WRITE ADMHSTF1 08/06/24
94000 C MOVE *BLANK OBUSR 08/06/26
94100 C MOVE *BLANK OBD 08/06/24
94200 08/06/24
94300 C WHEN OBQ <> *BLANK AND P_PRM ='Y' AND QUA->PRODUCTION 08/04/06
94400 C OBD = *BLANK AND OBU = *BLANK AND 08/06/24
94500 C PRLIBQ <> '*NONE' 08/06/24
94600 C MOVE *DATE OBODOC DATE OBJET 08/02/29
94700 C IF OBTXTU <> *BLANK 08/02/25
94800 C MOVE OBTXTU OBTXTP TEXT SOURCE MAJ 08/02/29
94900 C ENDIF 08/02/25
95000 C IF OBDATU <> *ZEROS 08/02/25
95100 C MOVEL OBDATU OBODMJ DATE SOURCE MAJ 08/02/29
95200 C ENDIF 08/02/25
95300 C MOVE *BLANK OBTXTU 08/02/25
95400 C MOVE *ZEROS OBDCTL 08/04/08
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 19
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
95500 C MOVE *ZEROS OBDATU 08/04/08
95600 C MOVE 'N' OBOYNS 08/02/29
95700 C MOVE 'N' OBOYNO 08/02/29
95800 C CALLB 'MADMOBJCHK' 08/02/29
95900 C PARM PRLIBP P_LIB 08/02/29
96000 C PARM OBOOBJ P_OBJ 08/02/29
96100 C PARM OBOTYP P_TYP 08/02/29
96200 C PARM '*NONE 'P_MBR 08/02/29
96300 C PARM TROUVE 08/02/29
96400 C IF TROUVE=*ON 08/02/29
96500 C MOVE 'Y' OBOYNO OBJET PRESENT 08/02/29
96600 C ENDIF 08/02/25
96700 C CALLB 'MADMOBJCHK' 08/02/29
96800 C PARM PRLIBP P_LIB 08/02/29
96900 C PARM OBOFCH P_OBJ 08/02/29
97000 C PARM '*FILE' P_TYP 08/02/29
97100 C PARM OBOOBJ P_MBR 08/02/29
97200 C PARM TROUVE 08/02/29
97300 C IF TROUVE=*ON 08/02/29
97400 C MOVE 'Y' OBOYNS SOURCE PRESENT 08/02/29
97500 C ENDIF 08/02/29
97600 C MOVE *BLANK OBQ 08/02/29
97700 C MOVE 'P' OBP 08/02/29
97800 C TIME OBKEY 08/04/05
97900 C MOVE *YEAR OBAA 08/04/05
98000 C MOVE *MONTH OBMM 08/04/05
98100 C MOVE *DAY OBJJ 08/04/05
98200 C MOVE V_USER OBUSR 08/04/05
98300 C WRITE ADMHSTF1 08/04/05
98400 C MOVE *BLANK OBUSR 08/04/05
98500 08/02/29
98600 08/02/29
98700 C WHEN OBD <> *BLANK AND P_PRM ='Y' AND OBU = *BLANK DEV->QUALITE 08/04/06
98800 C MOVE *BLANK OBD 08/02/29
98900 C MOVE 'Q' OBQ 08/02/29
99000 C ENDSL 08/04/06
99100 C UPDATE ADMOBJF1 08/02/29
99200 C SETOFF 66 08/03/10
99300 C ENDSR 08/02/25
99400 *========================================================================= 08/02/25
99500 C $DLT_DQ BEGSR 08/02/25
99600 C EVAL CMD = *BLANK 08/02/25
99700 C SELECT 08/02/25
99800 C WHEN OBOTYP = '*FILE' AND OBOATR <>'PF ' 08/02/29
99900 C EVAL CMD = 'DLTF ' 08/02/29
100000 08/02/25
100100 C WHEN OBOTYP = '*FILE' AND OBOATR = 'PF ' 08/02/29
100200 C EXSR $FILE 08/02/29
100300 C EVAL CMD = 'DLTF ' 08/03/14
100400 08/02/29
100500 C WHEN OBOTYP = '*PGM ' 08/02/25
100600 C EVAL CMD = 'DLTMOD ' 08/03/15
100700 C EVAL CMD = %TRIM(CMD) + ' ' + 08/03/15
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 20
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100800 C %TRIM(V_LIB) +'/' + %TRIM(OBOOBJ) 08/03/15
100900 C EXSR $CMD 08/03/15
101000 C EVAL CMD = 'DLTPGM ' 08/03/15
101100 08/02/25
101200 C WHEN OBOTYP = '*MODULE' 08/02/25
101300 C EVAL CMD = 'DLTMOD ' 08/02/25
101400 08/02/25
101500 C WHEN OBOTYP = '*SRVPGM' 08/02/25
101600 C EVAL CMD = 'DLTSRVPGM ' 08/02/25
101700 08/02/25
101800 C WHEN OBOTYP = '*CMD' 08/02/25
101900 C EVAL CMD = 'DLTCMD ' 08/02/25
102000 08/02/25
102100 C WHEN OBOTYP = '*PNLGRP' 09/08/06
102200 C EVAL CMD = 'DLTPNLGRP' 09/08/06
102300 09/08/06
102400 C WHEN OBOTYP = '*DTAARA' 08/02/25
102500 C EVAL CMD = 'DLTDTAARA ' 08/02/25
102600 08/02/25
102700 08/02/25
102800 C WHEN OBOTYP = '*MSGF' 08/02/25
102900 C EVAL CMD = 'DLTMSGF ' 08/02/25
103000 08/02/25
103100 C WHEN OBOTYP = '*MENU' 08/02/25
103200 C EVAL CMD = 'DLTMNU ' 08/02/25
103300 08/02/25
103400 C WHEN OBOTYP = '*QMQRY' 08/02/25
103500 C EVAL CMD = 'DLTQMQRY' 08/02/25
103600 08/02/25
103700 C WHEN OBOTYP = '*QMFORM' 08/02/25
103800 C EVAL CMD = 'DLTQMFORM' 08/02/25
103900 08/02/25
104000 C ENDSL 08/02/25
104100 C IF CMD <> *BLANKS 08/02/25
104200 C EVAL CMD = %TRIM(CMD) + ' ' + 08/02/29
104300 C %TRIM(V_LIB) +'/' + %TRIM(OBOOBJ) 08/02/29
104400 C EXSR $CMD 08/02/25
104500 C ENDIF 08/02/25
104600 C ENDSR 08/02/25
104700 *========================================================================= 08/02/25
104800 C $FILE BEGSR 08/02/29
104900 C EVAL CMD = *BLANK 08/02/29
105000 08/02/29
105100 C CALLB 'MADMOBJCHK' 08/02/29
105200 C PARM V_LIB P_LIB 08/02/29
105300 C PARM OBOOBJ P_OBJ 08/02/29
105400 C PARM '*FILE 'P_TYP 08/02/29
105500 C PARM '*NONE 'P_MBR 08/02/29
105600 C PARM TROUVE 08/02/29
105700 C EVAL *IN33 = TROUVE = *OFF 08/02/29
105800 C 33 LEAVESR 08/02/29
105900 C CALLB 'MADMDBRLST' 08/03/14
106000 C PARM V_LIB P_LIB 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 21
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
106100 C PARM OBOOBJ P_OBJ 08/02/29
106200 C DO *HIVAL 08/02/29
106300 C CALLB 'MADMUSPLST' 08/02/29
106400 C PARM PTR_LST 08/02/29
106500 C PARM FIN 08/02/29
106600 C EVAL *IN33 = FIN 08/02/29
106700 C 33 LEAVE 08/02/29
106800 C IF QDBDFILN <> '*NONE' 08/03/14
106900 C EVAL CMD = 'DLTF ' 08/02/29
107000 C EVAL CMD = %TRIM(CMD) + ' ' + 08/02/29
107100 C %TRIM(V_LIB) +'/' + %TRIM(QDBDFILN ) 08/03/14
107200 C EXSR $CMD 08/02/29
107300 C ENDIF 08/03/14
107400 C ENDDO 08/02/29
107500 08/02/29
107600 C ENDSR 08/02/29
107700 *========================================================================= 08/03/10
107800 C $ERRMSG BEGSR 08/03/10
107900 08/03/10
108000 * RRTVJOBA 08/03/10
108100 C CALLB 'QADMMSGINI' 08/03/10
108200 C PARM OBOOBJ P_IDNOM 08/03/11
108300 08/03/10
108400 * PROCESS 08/03/10
108500 C 66 EVAL P_IDTXT ='* CHKIN * ****ERREUR****' 08/03/14
108600 C N66 EVAL P_IDTXT ='* CHKIN * **** OK ****' 08/03/14
108700 C CALLB 'QADMMSGID' 08/03/11
108800 C PARM 'PRC0001' P_ID 08/03/10
108900 C PARM P_IDTXT 08/03/14
109000 08/03/10
109100 * VAR 08/03/10
109200 C CALLB 'QADMMSGVAR' 08/03/11
109300 C PARM 'VAR0001' P_ID 08/03/10
109400 C PARM 'SOCIETE ' P_IDNOM 08/03/10
109500 C PARM P_SOC P_IDTXT 08/03/10
109600 C CALLB 'QADMMSGVAR' 08/03/11
109700 C PARM 'VAR0001' P_ID 08/03/10
109800 C PARM 'PROJET ' P_IDNOM 08/03/10
109900 C PARM P_PRJ P_IDTXT 08/03/10
110000 C CALLB 'QADMMSGVAR' 08/03/11
110100 C PARM 'VAR0001' P_ID 08/03/10
110200 C PARM 'OBJET ' P_IDNOM 08/03/10
110300 C PARM P_OBJX P_IDTXT 08/03/10
110400 C CALLB 'QADMMSGVAR' 08/03/11
110500 C PARM 'VAR0001' P_ID 08/03/10
110600 C PARM 'TYPE ' P_IDNOM 08/03/10
110700 C PARM P_TYPX P_IDTXT 08/03/10
110800 C CALLB 'QADMMSGVAR' 08/03/11
110900 C PARM 'VAR0001' P_ID 08/03/10
111000 C PARM 'PROMOT ' P_IDNOM 08/03/10
111100 C PARM P_PRM P_IDTXT 08/03/10
111200 C CALLB 'QADMMSGVAR' 08/03/11
111300 C PARM 'VAR0001' P_ID 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 22
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
111400 C PARM 'SPOOL ' P_IDNOM 08/03/10
111500 C PARM P_SPL P_IDTXT 08/03/10
111600 C CALLB 'QADMMSGVAR' 08/03/20
111700 C PARM 'VAR0001' P_ID 08/03/20
111800 C PARM 'BLDOPT ' P_IDNOM 08/03/20
111900 C PARM OBB P_IDTXT 08/03/20
112000 * TRAITEMENT 08/03/10
112100 C CALLB 'QADMMSGID' 08/03/11
112200 C PARM 'ESP0000' P_ID 08/03/10
112300 C PARM *BLANK P_IDTXT 08/03/11
112400 C CALLB 'QADMMSGID' 08/03/11
112500 C PARM 'LGN0000' P_ID 08/03/11
112600 C PARM *BLANK P_IDTXT 08/03/11
112700 * TRAITEMENT ERR COMPILE 08/03/11
112800 C IF P_IDX = 'CMD0001' 08/03/11
112900 C CALLB 'QADMMSGID' 08/03/11
113000 C PARM 'ESP0000' P_ID 08/03/20
113100 C PARM *BLANK P_IDTXT 08/03/20
113200 C CALLB 'QADMMSGID' 08/03/11
113300 C PARM 'CMD8001' P_ID 08/03/11
113400 C PARM OBOCMD P_IDTXT 08/03/11
113500 C CALLB 'QADMMSGID' 08/03/20
113600 C PARM 'RGL0000' P_ID 08/03/20
113700 C PARM *BLANK P_IDTXT 08/03/20
113800 C EVAL V_RCMDOPT = %TRIM(P_RCMDOPT) 08/03/11
113900 C EVAL L = %LEN(%TRIM(V_RCMDOPT)) 08/03/11
114000 C DIV 100 L 08/03/11
114100 C MVR R 33 08/03/11
114200 C 33 ADD 1 L 08/03/11
114300 C DO L R 08/03/18
114400 C CALLB 'QADMMSGID' 08/03/11
114500 C PARM 'CMD9001' P_ID 08/03/11
114600 C PARM WCMD(R) P_IDTXT 08/03/18
114700 C ENDDO 08/03/11
114800 08/03/11
114900 * TRAITEMENT ERR DIVERS (MBR ABSENT ......) 08/03/11
115000 C ELSE 08/03/11
115100 C CALLB 'QADMMSGID' 08/03/11
115200 C PARM P_IDX P_ID 08/03/11
115300 C PARM P_IDTXTX P_IDTXT 08/03/11
115400 C ENDIF 08/03/11
115500 08/03/10
115600 *END 08/03/10
115700 C CALLB 'QADMMSGID' 08/03/11
115800 C PARM 'END0000' P_ID 08/03/10
115900 C PARM P_IDTXT 08/03/10
116000 *LIST 08/03/11
116100 C CALLB 'QADMMSGLST' 08/03/11
116200 *BREAK MESSAGE 08/03/17
116300 08/03/17
116400 C IF *IN66 = *ON 08/03/17
116500 C CALLB 'QADMMSGBRK' 08/03/17
116600 C PARM 'BRK0001' P_ID 08/03/17
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 23
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . ADMCHKPRM
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
116700 C ENDIF 08/03/17
116800 08/03/17
116900 C ENDSR 08/03/10
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDEVT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/03
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 *--------------------------------------------------------------------------------------------- 08/02/05
600 D UP C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 08/02/22
700 D LO C 'abcdefghijklmnopqrstuvwxyz' 08/02/22
800 * 08/01/30
900 D I S 5S 0 INZ(*ZEROS) INDEX TRT DEBUT 08/02/21
1000 D X S LIKE(I) INZ(*ZEROS) INDEX TRT FIN 08/02/21
1100 D L S LIKE(I) INZ(*ZEROS) LEN P_CMD 08/02/21
1200 D V_T S LIKE(I) INZ(*ZEROS) POS 08/02/21
1300 D CMD S 32767 INZ(*BLANK) 08/02/21
1400 D V_CMD S INZ(*BLANK) LIKE(CMD) 08/02/21
1500 D CMDR S INZ(*BLANK) LIKE(CMD) 08/02/21
1600 D V_X S 50 INZ(*BLANK) 08/02/21
1700 * 08/02/05
1800 *--------------------------------------------------------------------------------------------- 08/01/30
1900 * 08/01/30
2000 C *ENTRY PLIST 08/02/05
2100 C PARM P_CMD 32000 80CHAR * 400 LIGN 08/03/06
2200 C PARM P_L 10 LIB EX: 08/02/21
2300 C PARM P_O 10 OBJET/MBR ... 08/02/21
2400 C PARM P_F 10 FILE SRC ... 08/03/14
2500 C PARM P_RYN 1 OK = Y 08/02/21
2600 *--------------------------------------------------------------------------------------------- 08/01/30
2700 08/02/12
2800 C EVAL P_CMD = %XLATE(LO:UP:P_CMD) 08/02/22
2900 C EVAL CMDR =%TRIM(P_CMD) 08/02/21
3000 C MOVE 'Y' P_RYN 08/02/21
3100 C EVAL L = %SIZE(P_CMD) 08/02/21
3200 08/02/21
3300 *-------------------- 08/02/21
3400 *-- VAR LIB ------- 08/02/21
3500 *-------------------- 08/02/21
3600 C DO *HIVAL 08/02/21
3700 C EVAL V_T = %SCAN(' &L ' : CMDR) 08/02/21
3800 C V_T CABGT *ZEROS T_L 08/02/21
3900 C EVAL V_T = %SCAN(' &L/' : CMDR) 08/02/21
4000 C V_T CABGT *ZEROS T_L 08/02/21
4100 C EVAL V_T = %SCAN('/&L ' : CMDR) 08/02/21
4200 C V_T CABGT *ZEROS T_L 08/02/21
4300 C EVAL V_T = %SCAN('(&L/' : CMDR) 08/02/21
4400 C V_T CABGT *ZEROS T_L 08/02/21
4500 C EVAL V_T = %SCAN('/&L)' : CMDR) 08/02/21
4600 C V_T CABGT *ZEROS T_L 08/02/21
4700 C EVAL V_T = %SCAN('(&L)' : CMDR) 08/02/21
4800 C V_T CABGT *ZEROS T_L 08/02/21
4900 08/02/21
5000 C T_L TAG 08/02/21
5100 C IF V_T > *ZEROS 08/02/21
5200 C V_T ADD 1 I 08/02/21
5300 C V_T ADD 3 X 08/02/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDEVT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EVAL V_X = P_L 08/02/21
5500 C EXSR $VAR 08/02/21
5600 C *IN66 CABEQ *ON T_FIN 08/02/21
5700 C ELSE 08/02/21
5800 C LEAVE 08/02/21
5900 C ENDIF 08/02/21
6000 C ENDDO 08/02/21
6100 08/02/05
6200 08/02/21
6300 *-------------------- 08/02/21
6400 *-- VAR OBJET ------- 08/02/21
6500 *-------------------- 08/02/21
6600 C DO *HIVAL 08/02/21
6700 C EVAL V_T = %SCAN(' &O ' : CMDR) 08/02/21
6800 C V_T CABGT *ZEROS T_O 08/02/21
6900 C EVAL V_T = %SCAN(' &O/' : CMDR) 08/02/21
7000 C V_T CABGT *ZEROS T_O 08/02/21
7100 C EVAL V_T = %SCAN('/&O ' : CMDR) 08/02/21
7200 C V_T CABGT *ZEROS T_O 08/02/21
7300 C EVAL V_T = %SCAN('(&O/' : CMDR) 08/02/21
7400 C V_T CABGT *ZEROS T_O 08/02/21
7500 C EVAL V_T = %SCAN('/&O)' : CMDR) 08/02/21
7600 C V_T CABGT *ZEROS T_O 08/02/21
7700 C EVAL V_T = %SCAN('(&O)' : CMDR) 08/02/21
7800 C V_T CABGT *ZEROS T_O 08/02/21
7900 08/02/21
8000 C T_O TAG 08/02/21
8100 08/02/21
8200 C IF V_T > *ZEROS 08/02/21
8300 C V_T ADD 1 I 08/02/21
8400 C V_T ADD 3 X 08/02/22
8500 C EVAL V_X = P_O 08/02/21
8600 C EXSR $VAR 08/02/21
8700 C *IN66 CABEQ *ON T_FIN 08/02/21
8800 C ELSE 08/02/21
8900 C LEAVE 08/02/21
9000 C ENDIF 08/02/21
9100 C ENDDO 08/02/21
9200 08/02/21
9300 08/02/21
9400 *-------------------- 08/02/21
9500 *-- VAR F.SRC ------- 08/02/21
9600 *-------------------- 08/02/21
9700 C DO *HIVAL 08/02/21
9800 C EVAL V_T = %SCAN(' &F ' : CMDR) 08/03/14
9900 C V_T CABGT *ZEROS T_F 08/03/14
10000 C EVAL V_T = %SCAN(' &F/' : CMDR) 08/03/14
10100 C V_T CABGT *ZEROS T_F 08/03/14
10200 C EVAL V_T = %SCAN('/&F ' : CMDR) 08/03/14
10300 C V_T CABGT *ZEROS T_F 08/03/14
10400 C EVAL V_T = %SCAN('(&F/' : CMDR) 08/03/14
10500 C V_T CABGT *ZEROS T_F 08/03/14
10600 C EVAL V_T = %SCAN('/&F)' : CMDR) 08/03/14
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDEVT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C V_T CABGT *ZEROS T_F 08/03/14
10800 C EVAL V_T = %SCAN('(&F)' : CMDR) 08/03/14
10900 C V_T CABGT *ZEROS T_F 08/03/14
11000 08/02/21
11100 C T_F TAG 08/03/14
11200 08/02/21
11300 C IF V_T > *ZEROS 08/02/21
11400 C V_T ADD 1 I 08/02/21
11500 C V_T ADD 3 X 08/02/22
11600 C EVAL V_X = P_F 08/03/14
11700 C EXSR $VAR 08/02/21
11800 C *IN66 CABEQ *ON T_FIN 08/02/21
11900 C ELSE 08/02/21
12000 C LEAVE 08/02/21
12100 C ENDIF 08/02/21
12200 C ENDDO 08/02/21
12300 08/02/22
12400 *-------------------- 08/02/22
12500 *-- VAR CONTROLE ---- 08/02/22
12600 *-------------------- 08/02/22
12700 C EVAL I = %SCAN('TEXT(' : CMDR) 08/02/22
12800 C EVAL X = %SCAN('&' : CMDR) 08/02/22
12900 C EVAL *IN66 = I > *ZEROS AND X < I 08/02/22
13000 C N66 EVAL *IN66 = I = *ZEROS AND X > *ZEROS 08/02/22
13100 08/02/22
13200 C T_FIN TAG 08/02/21
13300 C 66 MOVE 'N' P_RYN 08/02/22
13400 08/02/21
13500 C EVAL P_CMD = %TRIM(CMDR) + 08/04/01
13600 C ' OPTION(*EVENTF)' 08/04/02
13700 C 'REPLACE' SCAN P_CMD 33 08/04/02
13800 C N33 EVAL P_CMD = %TRIM(CMDR) + 08/04/02
13900 C ' REPLACE(*YES)' 08/04/02
14000 C