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 SETON LR 08/02/05
14100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/21
14200 CSR $VAR BEGSR 08/02/21
14300 C EVAL V_T = I + %LEN(%TRIM(V_X)) 08/02/21
14400 C V_T CABGT 15000 T_VAR999 66 08/02/22
14500 08/02/21
14600 C EVAL CMD = %SUBST(CMDR : 1 : I-1) 08/02/21
14700 C EVAL V_CMD = %TRIM(CMD) + %TRIM(V_X) 08/02/21
14800 *ADD FIN + 10 PRECAUTION 08/02/21
14900 C EVAL V_T = V_T + 08/02/22
15000 C %LEN(%TRIM(V_X)) + 08/02/21
15100 C %LEN(%TRIM(CMDR)) - X 08/02/22
15200 08/02/21
15300 C V_T CABGT 15000 T_VAR999 66 08/02/22
15400 08/02/21
15500 C EVAL CMD = %SUBST(CMDR : X: %LEN(%TRIM(CMDR))-X+1) 08/02/22
15600 C EVAL CMDR =%TRIM(V_CMD) + %TRIM(CMD) 08/02/21
15700 08/02/21
15800 C T_VAR999 TAG 08/02/21
15900 C Z-ADD *ZEROS V_T 08/02/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDEVT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 CSR ENDSR 08/02/21
* * * * 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 . . . . . . . . . MADMBLDRTV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FLADMOBJT IF E K DISK RENAME(ADMOBJF1:ADMOBJFT) 08/04/01
300 DP_SOC S LIKE(OBSOC ) 08/04/01
400 DP_PRJ S LIKE(OBPRJ ) 08/04/02
500 DP_OBJ S LIKE(OBOOBJ) 08/04/01
600 DP_ATR S LIKE(OBOATR) 08/04/01
700 DP_CMD S LIKE(OBOCMD) 08/04/01
800 DP_PRD S LIKE(OBOLIB) 08/04/03
900 08/04/01
1000 * 08/03/17
1100 C K_OBJT KLIST 08/04/01
1200 C KFLD P_SOC 08/04/01
1300 C KFLD P_OBJ 08/04/01
1400 C KFLD P_ATR 08/04/01
1500 C *ENTRY PLIST 08/04/01
1600 C PARM P_SOC 08/04/01
1700 C PARM P_OBJ 08/04/01
1800 C PARM P_ATR 08/04/01
1900 C PARM P_CMD 08/04/01
2000 C PARM P_PRJ 08/04/02
2100 C PARM P_PRD 08/04/03
2200 C K_OBJT CHAIN ADMOBJFT 55 08/04/01
2300 C N55 EVAL P_CMD = OBOCMD 08/04/01
2400 C N55 EVAL P_PRJ = OBPRJ 08/04/02
2500 C N55 EVAL P_PRD = OBOLIB 08/04/03
2600 C 55 EVAL P_CMD = '*NONE' 08/04/01
2700 C 55 EVAL P_PRJ = '*NONE' 08/04/02
2800 C 55 EVAL P_PRD = '*NONE' 08/04/03
2900 C SETON LR 08/04/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 . . . . . . . . . MADMBLDSPL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 ***************************************************************** 92/02/12
200 * SUPPRESSION FICHIERS D'EDITION * 92/02/12
300 * API UTILISES: QUSCRTUS, QUSLSPL, QUSRTVUS, QUSRSPLA * 92/02/12
400 ***************************************************************** 92/02/12
500 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/04/02
600 08/04/02
700 D CMD S 120 INZ(*BLANK) 08/04/03
800 D P_CMD S 3200 INZ(*BLANK) 08/04/03
900 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/04/03
1000 08/04/02
1100 D TYPE C '*USRSPC' 08/04/02
1200 D P_LIB S 10 08/04/02
1300 D P_NOM S 10 08/04/02
1400 D P_TYP S 10 08/04/02
1500 D P_MBR S 10 08/04/02
1600 D TROUVE S LIKE(*IN) 08/04/02
1700 * 92/04/07
1800 D WSTA S 10 DIM(3) CTDATA PERRCD(1) 92/04/07
1900 D WSTB S 4 DIM(3) ALT(WSTA) 92/04/07
2000 * USERSPACE 92/02/12
2100 D USRSPC DS 92/02/13
2200 D USNAME 1 10 INZ('USRSP99 ') 92/02/27
2300 D USLIB 11 20 INZ('QTEMP ') 92/02/27
2400 * DATE 92/02/12
2500 D TGTDAT DS 92/02/12
2600 D TGTCEN 1 1 0 INZ 95/05/23
2700 D TGTYR 2 3 0 INZ 95/05/23
2800 D TGTMTH 4 5 0 INZ 95/05/23
2900 D TGTDAY 6 7 0 INZ 95/05/23
3000 * VARIABLE DE RETOUR 92/02/12
3100 D RCVVAR DS 92/02/12
3200 D OFFSET 1 4B 0 92/02/12
3300 D NOENTR 9 12B 0 92/02/12
3400 D LSTSIZ 13 16B 0 92/02/12
3500 * 92/02/12
3600 D/COPY ADMOPS/QRPGLEINC,ADMUSLSPL 08/04/02
3700 D/COPY ADMOPS/QRPGLEINC,ADMUSRSPLA 08/04/02
3800 * 92/02/12
3900 D DS1 DS 92/02/12
4000 D LENDTA 1 4B 0 92/02/12
4100 D STRPOS 5 8B 0 92/02/12
4200 D SPLF$ 9 12B 0 92/02/12
4300 D RCVLE1 13 16B 0 92/02/12
4400 D FIL$ 17 22 NUM 08/04/02
4500 D RCVLE2 23 26B 0 92/02/12
4600 * 92/02/14
4700 D USSIZE 1 4B 0 92/02/27
4800 ************************************************************************** 92/02/12
4900 D USR1 S 1A 97/01/06
5000 ************************************************************************** 92/02/12
5100 C *ENTRY PLIST 92/02/12
5200 C PARM USRNME 10 92/02/12
5300 C PARM FILEN 10 08/04/02
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDSPL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C PARM OUTQN 10 08/04/02
5500 C PARM OUTQL 10 08/04/02
5600 *PARM PAR DEFAULT 08/04/02
5700 *POSSIBILITE DE DERTERMINER LA OUTQ 08/04/02
5800 *POSSIBILITE DE DERTERMINER LA OUTQ LIB 08/04/02
5900 *POSSIBILITE DE DERTERMINER LE FORMTYPE IMPRIMÉ 08/04/02
6000 C MOVEL '*ALL' FORTYP 10 08/04/02
6100 *POSSIBILITE DE DERTERMINER LA REFERENCE IMPRIMÉ 08/04/02
6200 C MOVEL '*ALL' USRDAT 10 08/04/02
6300 08/04/02
6400 *POSSIBILITE DE DERTERMINER LE STATUS 08/04/02
6500 C MOVE '*ALL' STUS 4 08/04/02
6600 *POSSIBILITE DE DERTERMINER A TEL DATE 08/04/02
6700 C Z-ADD *ZEROS DLTDAT 6 0 08/04/02
6800 * 92/02/12
6900 C MOVEL OUTQN OUTQ 92/03/03
7000 C MOVE OUTQL OUTQ 92/03/03
7100 C Z-ADD 100 USSIZE 92/02/27
7200 C MOVE DLTDAT TGTDAT DS TGTDAT 95/05/23
7300 C TGTDAT COMP '0000000' 33 92/02/27
7400 C 33 MOVE UDATE TGTDAT 92/02/27
7500 C DLTDAT IFLT 500000 95/05/23
7600 C Z-ADD 1 TGTCEN 95/05/23
7700 C ENDIF 95/05/23
7800 C MOVE FORTYP FRMTYP DS RCVAR2 92/02/12
7900 C MOVE USRDAT USRDTA 92/02/14
8000 C Z-ADD 0 DLTCNT 15 0 COMPTEUR SUPPR. 92/02/14
8100 ************************************************************************** 92/02/12
8200 * CREATION USER SPACE D'APRES LES PARAMETRES DE LA COMMANDE * 92/02/12
8300 ************************************************************************** 92/02/14
8400 C CALLB 'MADMOBJCHK' 08/04/03
8500 C PARM USLIB P_LIB 09/08/12
8600 C PARM USNAME P_NOM 08/04/03
8700 C PARM TYPE P_TYP 08/04/03
8800 C PARM '*NONE' P_MBR 08/04/03
8900 C PARM TROUVE 08/04/03
9000 C IF TROUVE = *OFF 08/04/03
9100 08/04/02
9200 C CALL 'QUSCRTUS' 33 92/02/14
9300 C PARM USRSPC PARM 1 92/02/12
9400 C PARM 'SPLF' EXTATR 10 92/02/27
9500 C PARM USSIZE 92/02/27
9600 C PARM ' ' USINIT 1 92/02/27
9700 C PARM '*ALL' USAUTH 10 92/02/27
9800 C PARM '*NONE' USTEXT 50 92/02/27
9900 C ENDIF 08/04/03
10000 08/04/03
10100 ************************************************************************** 92/02/12
10200 * REMPLISSAGE DU USER SPACE AVEC LES FICHIERS SPOULE D'APRES LE * 92/02/12
10300 * PARAMETRAGE DE LA COMMANDE * 92/02/12
10400 ************************************************************************** 92/02/12
10500 C CALL 'QUSLSPL' 92/02/14
10600 C PARM USRSPC PARM 1 92/02/12
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDSPL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C PARM 'SPLF0100' FMTNME 8 92/02/27
10800 C PARM USRNME PARM 3 92/02/27
10900 C PARM OUTQ 20 PARM 4 92/03/03
11000 C PARM FRMTYP 92/02/27
11100 C PARM USRDTA 10 92/02/12
11200 ************************************************************************** 92/02/12
11300 * TRAITEMENT * 92/02/12
11400 ************************************************************************** 92/02/12
11500 C Z-ADD 16 LENDTA DS1 BINAIRE 92/02/12
11600 C Z-ADD 125 STRPOS DS1 BINAIRE 92/02/14
11700 * 92/02/12
11800 C CALL 'QUSRTVUS' 92/02/12
11900 C PARM USRSPC 92/02/12
12000 C PARM STRPOS 92/02/12
12100 C PARM LENDTA 92/02/12
12200 C PARM RCVVAR 92/02/12
12300 * 92/02/12
12400 C Z-ADD OFFSET STRPOS DS RCVVAR --> OFFSE 92/02/12
12500 C ADD 1 STRPOS 92/02/12
12600 C Z-ADD LSTSIZ LENDTA DS RCVVAR --> LSTSI 92/02/12
12700 C Z-ADD 164 RCVLE1 DS1 92/02/12
12800 C Z-ADD 209 RCVLE2 DS1 92/02/12
12900 C Z-ADD 1 COUNT 15 0 92/02/12
13000 *-------------------- 92/02/12
13100 C COUNT DOWLE NOENTR DS RCVVAR 92/02/12
13200 * FICHIER SPOULE 92/02/13
13300 C CALL 'QUSRTVUS' 92/02/12
13400 C PARM USRSPC 92/02/12
13500 C PARM STRPOS 92/02/12
13600 C PARM LENDTA 92/02/12
13700 C PARM W_SPLF0100 97/01/06
13800 * ATTRIBUTS DU FICHIER SPOULE 92/02/13
13900 C MOVE IJOBID JOBID DS RCVAR1 DS RCVAR2 92/02/13
14000 C MOVE ISPLID SPLFID DS RCVAR1 DS RCVAR2 92/02/13
14100 C MOVE *BLANK JOBINF 92/02/13
14200 C MOVEL '*INT' JOBINF 26 92/02/13
14300 C MOVEL '*INT' SPLFNM 10 08/04/02
14400 C MOVE *BLANK SPLF$ DS1 92/02/13
14500 * 92/02/13
14600 C CALL 'QUSRSPLA' 92/02/13
14700 C PARM W_SPLA0100 97/04/25
14800 C PARM RCVLE2 92/02/13
14900 C PARM 'SPLA0100' FMTNM1 8 92/02/27
15000 C PARM JOBINF 92/02/13
15100 C PARM JOBID 92/02/13
15200 C PARM SPLFID 92/02/13
15300 C PARM SPLFNM 08/04/02
15400 C PARM SPLF$ 92/02/13
15500 *--- 92/02/13
15600 C SELECT 92/03/17
15700 C WHEN DATFOP = TGTDAT AND FILNAM = FILEN 08/04/02
15800 C EXSR $CLDLT 92/03/17
15900 *- 92/03/17
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMBLDSPL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C ENDSL 92/03/17
16100 *--- 92/03/17
16200 C ADD LSTSIZ STRPOS 92/02/13
16300 C ADD 1 COUNT 92/02/13
16400 C ENDDO 92/02/13
16500 *-------------------- 92/02/13
16600 C SETON LR 92/02/27
16700 ************************************************************************** 92/02/13
16800 ********************* 92/02/13
16900 C $CLDLT BEGSR 92/02/13
17000 ********************* 92/02/13
17100 C Z-ADD 1 I 1 0 92/04/07
17200 C STATUS LOOKUP WSTA(I) 33 92/04/07
17300 C *IN33 CABEQ *OFF àENDSR 92/04/07
17400 *-- 92/04/07
17500 C STUS IFEQ '*ALL' 92/04/07
17600 C STUS OREQ WSTB(I) 92/04/07
17700 C MOVE FILNUM FIL$ 92/02/13
17800 C CALLB 'MADMDELSPL' 08/04/02
17900 C PARM FILNAM DS RCVAR2 92/02/13
18000 C PARM JOBNUM DS RCVAR2 92/02/13
18100 C PARM USRNAM DS RCVAR2 92/02/13
18200 C PARM JOBNAM DS RCVAR2 92/02/13
18300 C PARM FIL$ DS1 92/02/13
18400 C ENDIF 92/04/07
18500 *-- 92/04/07
18600 C àENDSR ENDSR 92/04/07
18700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/04/03
18800 C $CMD BEGSR 08/04/03
18900 C CALL 'QCMDEXC' 66 08/04/03
19000 C PARM CMD P_CMD 08/04/03
19100 C PARM P_CMD_LEN 08/04/03
19200 C ENDSR 08/04/03
19300 ************************************************************************** 92/04/07
19400 ** WSTA / WSTB 92/04/07
19500 *READY *RDY 92/04/07
19600 *HELD *HLD 92/04/07
19700 *SAVED *SAV 92/04/07
* * * * 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 . . . . . . . . . MADMBLDVAR
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 . . . . . . . . . MADMBLDVAR
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 . . . . . . . . . MADMBLDVAR
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 C T_FIN TAG 08/02/21
12500 C 66 MOVE 'N' P_RYN 08/02/22
12600 08/02/21
12700 C EVAL P_CMD = %TRIM(CMDR) 08/02/21
12800 08/02/21
12900 C SETON LR 08/02/05
13000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/21
13100 CSR $VAR BEGSR 08/02/21
13200 C EVAL V_T = I + %LEN(%TRIM(V_X)) 08/02/21
13300 C V_T CABGT 15000 T_VAR999 66 08/02/22
13400 08/02/21
13500 C EVAL CMD = %SUBST(CMDR : 1 : I-1) 08/02/21
13600 C EVAL V_CMD = %TRIM(CMD) + %TRIM(V_X) 08/02/21
13700 *ADD FIN + 10 PRECAUTION 08/02/21
13800 C EVAL V_T = V_T + 08/02/22
13900 C %LEN(%TRIM(V_X)) + 08/02/21
14000 C %LEN(%TRIM(CMDR)) - X 08/02/22
14100 08/02/21
14200 C V_T CABGT 15000 T_VAR999 66 08/02/22
14300 08/02/21
14400 C EVAL CMD = %SUBST(CMDR : X: %LEN(%TRIM(CMDR))-X+1) 08/02/22
14500 C EVAL CMDR =%TRIM(V_CMD) + %TRIM(CMD) 08/02/21
14600 08/02/21
14700 C T_VAR999 TAG 08/02/21
14800 C Z-ADD *ZEROS V_T 08/02/21
14900 CSR ENDSR 08/02/21
* * * * 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 . . . . . . . . . MADMCMDEXC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D P_RYN S 1A 08/02/20
300 *--------------------------------------------------------------------------------------------- 08/02/12
400 D P_CMD S 32000 08/03/06
500 D P_CMD_LEN S 15 5 08/03/06
600 *--------------------------------------------------------------------------------------------- 08/02/12
700 *--------------------------------------------------------------------------------------------- 08/02/12
800 C *ENTRY PLIST 08/02/12
900 C PARM P_CMD 08/03/06
1000 C PARM P_RYN 08/02/20
1100 08/03/05
1200 C MOVE 'Y' P_RYN 08/03/06
1300 C EVAL P_CMD_LEN = %LEN(%TRIM(P_CMD)) 08/03/27
1400 C CALL 'QCMDEXC' 66 08/02/20
1500 C PARM P_CMD 08/03/06
1600 C PARM P_CMD_LEN 08/02/20
1700 C 66 MOVE 'N' P_RYN 08/03/06
1800 C SETON LR 08/03/06
* * * * 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 . . . . . . . . . MADMDBRLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 95/11/14
500 D P_LIB S 10 08/02/08
600 D P_NOM S LIKE(P_LIB) 08/02/08
700 D P_MBR S LIKE(P_LIB) 08/02/08
800 D P_RCDFMT S LIKE(P_LIB) RECORD FORMAT 08/03/14
900 95/11/15
1000 D REQUETTE S 20 95/11/15
1100 D FORMAT S 8 INZ('DBRL0100') 08/03/14
1200 D FILOVR S 1 INZ('0') 95/11/17
1300 95/11/15
1400 D SDS 95/11/15
1500 D PGM *PROC 95/11/15
1600 95/11/15
1700 C *ENTRY PLIST 95/06/07
1800 C PARM P_LIB 08/02/08
1900 C PARM P_NOM 08/02/08
2000 95/06/07
2100 C EVAL SPACE = PGM 95/11/15
2200 C EVAL USRSPACE = SPACE + USPLIB 95/11/15
2300 C EVAL REQUETTE = P_NOM + P_LIB 08/02/08
2400 95/11/15
2500 C CALLB 'MADMUSPCRT' 08/02/12
2600 95/11/15
2700 C Z-ADD 16 QUSBPRV 95/11/15
2800 95/11/17
2900 C CALL 'QDBLDBR' 08/03/14
3000 C PARM USRSPACE 95/06/13
3100 C PARM FORMAT 95/11/17
3200 C PARM REQUETTE 95/10/25
3300 C PARM *BLANK P_MBR 08/03/14
3400 C PARM *BLANK P_RCDFMT 08/03/14
3500 C PARM QUSEC 95/06/14
3600 95/11/15
3700 C RETURN 95/10/25
3800 *========================================================================= 95/10/25
* * * * 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 . . . . . . . . . MADMEXCVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/05
200 *--------------------------------------------------------------------------------------------- 08/03/05
300 * DECLARATION DE FICHIER 08/03/05
400 *--------------------------------------------------------------------------------------------- 08/03/05
500 *--------------------------------------------------------------------------------------------- 08/03/05
600 D UP C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 08/03/05
700 D LO C 'abcdefghijklmnopqrstuvwxyz' 08/03/05
800 * 08/03/05
900 D I S 5S 0 INZ(*ZEROS) INDEX TRT DEBUT 08/03/05
1000 D X S LIKE(I) INZ(*ZEROS) INDEX TRT FIN 08/03/05
1100 D L S LIKE(I) INZ(*ZEROS) LEN P_CMD 08/03/05
1200 D V_T S LIKE(I) INZ(*ZEROS) POS 08/03/05
1300 D CMD S 32767 INZ(*BLANK) 08/03/05
1400 D V_CMD S INZ(*BLANK) LIKE(CMD) 08/03/05
1500 D CMDR S INZ(*BLANK) LIKE(CMD) 08/03/05
1600 D V_X S 50 INZ(*BLANK) 08/03/05
1700 * 08/03/05
1800 *--------------------------------------------------------------------------------------------- 08/03/05
1900 * 08/03/05
2000 C *ENTRY PLIST 08/03/05
2100 C PARM P_CMD 32000 80CHAR * 400 LIGN 08/03/06
2200 C PARM P_L 10 LIB EX: 08/03/05
2300 C PARM P_O 10 OBJET/MBR ... 08/03/05
2400 C PARM P_Q 10 FILE.SRC ... 08/03/27
2500 C PARM P_T 10 TYPE ... 08/03/06
2600 C PARM P_F 10 FILE ... 08/03/27
2700 C PARM P_A 10 ATTRIBUT ... 08/03/05
2800 C PARM P_X 50 TEXT SRC ... 08/03/06
2900 C PARM P_RYN 1 OK = Y 08/03/05
3000 *--------------------------------------------------------------------------------------------- 08/03/05
3100 08/03/05
3200 C EVAL P_CMD = %XLATE(LO:UP:P_CMD) 08/03/05
3300 C EVAL CMDR =%TRIM(P_CMD) 08/03/05
3400 C MOVE 'Y' P_RYN 08/03/05
3500 C EVAL L = %SIZE(P_CMD) 08/03/05
3600 08/03/05
3700 *-------------------- 08/03/05
3800 *-- VAR LIB ------- 08/03/05
3900 *-------------------- 08/03/05
4000 C DO *HIVAL 08/03/05
4100 C EVAL V_T = %SCAN(' &L ' : CMDR) 08/03/05
4200 C V_T CABGT *ZEROS T_L 08/03/05
4300 C EVAL V_T = %SCAN(' &L/' : CMDR) 08/03/05
4400 C V_T CABGT *ZEROS T_L 08/03/05
4500 C EVAL V_T = %SCAN('/&L ' : CMDR) 08/03/05
4600 C V_T CABGT *ZEROS T_L 08/03/05
4700 C EVAL V_T = %SCAN('(&L/' : CMDR) 08/03/05
4800 C V_T CABGT *ZEROS T_L 08/03/05
4900 C EVAL V_T = %SCAN('/&L)' : CMDR) 08/03/05
5000 C V_T CABGT *ZEROS T_L 08/03/05
5100 C EVAL V_T = %SCAN('(&L)' : CMDR) 08/03/05
5200 C V_T CABGT *ZEROS T_L 08/03/05
5300 08/03/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMEXCVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C T_L TAG 08/03/05
5500 C IF V_T > *ZEROS 08/03/05
5600 C V_T ADD 1 I 08/03/05
5700 C V_T ADD 3 X 08/03/05
5800 C EVAL V_X = P_L 08/03/05
5900 C EXSR $VAR 08/03/05
6000 C *IN66 CABEQ *ON T_FIN 08/03/05
6100 C ELSE 08/03/05
6200 C LEAVE 08/03/05
6300 C ENDIF 08/03/05
6400 C ENDDO 08/03/05
6500 08/03/05
6600 08/03/05
6700 *-------------------- 08/03/05
6800 *-- VAR OBJET ------- 08/03/05
6900 *-------------------- 08/03/05
7000 C DO *HIVAL 08/03/05
7100 C EVAL V_T = %SCAN(' &O ' : CMDR) 08/03/05
7200 C V_T CABGT *ZEROS T_O 08/03/05
7300 C EVAL V_T = %SCAN(' &O/' : CMDR) 08/03/05
7400 C V_T CABGT *ZEROS T_O 08/03/05
7500 C EVAL V_T = %SCAN('/&O ' : CMDR) 08/03/05
7600 C V_T CABGT *ZEROS T_O 08/03/05
7700 C EVAL V_T = %SCAN('(&O/' : CMDR) 08/03/05
7800 C V_T CABGT *ZEROS T_O 08/03/05
7900 C EVAL V_T = %SCAN('/&O)' : CMDR) 08/03/05
8000 C V_T CABGT *ZEROS T_O 08/03/05
8100 C EVAL V_T = %SCAN('(&O)' : CMDR) 08/03/05
8200 C V_T CABGT *ZEROS T_O 08/03/05
8300 08/03/05
8400 C T_O TAG 08/03/05
8500 08/03/05
8600 C IF V_T > *ZEROS 08/03/05
8700 C V_T ADD 1 I 08/03/05
8800 C V_T ADD 3 X 08/03/05
8900 C EVAL V_X = P_O 08/03/05
9000 C EXSR $VAR 08/03/05
9100 C *IN66 CABEQ *ON T_FIN 08/03/05
9200 C ELSE 08/03/05
9300 C LEAVE 08/03/05
9400 C ENDIF 08/03/05
9500 C ENDDO 08/03/05
9600 08/03/05
9700 08/03/05
9800 *-------------------- 08/03/05
9900 *-- VAR FILE SRC ---- 08/03/27
10000 *-------------------- 08/03/05
10100 C DO *HIVAL 08/03/05
10200 C EVAL V_T = %SCAN(' &Q ' : CMDR) 08/03/27
10300 C V_T CABGT *ZEROS T_Q 08/03/27
10400 C EVAL V_T = %SCAN(' &Q/' : CMDR) 08/03/27
10500 C V_T CABGT *ZEROS T_Q 08/03/27
10600 C EVAL V_T = %SCAN('/&Q ' : CMDR) 08/03/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMEXCVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C V_T CABGT *ZEROS T_Q 08/03/27
10800 C EVAL V_T = %SCAN('(&Q/' : CMDR) 08/03/27
10900 C V_T CABGT *ZEROS T_Q 08/03/27
11000 C EVAL V_T = %SCAN('/&Q)' : CMDR) 08/03/27
11100 C V_T CABGT *ZEROS T_Q 08/03/27
11200 C EVAL V_T = %SCAN('(&Q)' : CMDR) 08/03/27
11300 C V_T CABGT *ZEROS T_Q 08/03/27
11400 08/03/05
11500 C T_Q TAG 08/03/27
11600 08/03/05
11700 C IF V_T > *ZEROS 08/03/05
11800 C V_T ADD 1 I 08/03/05
11900 C V_T ADD 3 X 08/03/05
12000 C EVAL V_X = P_Q 08/03/27
12100 C EXSR $VAR 08/03/05
12200 C *IN66 CABEQ *ON T_FIN 08/03/05
12300 C ELSE 08/03/05
12400 C LEAVE 08/03/05
12500 C ENDIF 08/03/05
12600 C ENDDO 08/03/05
12700 08/03/27
12800 08/03/27
12900 *-------------------- 08/03/27
13000 *-- VAR FILE ------- 08/03/27
13100 *-------------------- 08/03/27
13200 C DO *HIVAL 08/03/27
13300 C EVAL V_T = %SCAN(' &F ' : CMDR) 08/03/27
13400 C V_T CABGT *ZEROS T_F 08/03/27
13500 C EVAL V_T = %SCAN(' &F/' : CMDR) 08/03/27
13600 C V_T CABGT *ZEROS T_F 08/03/27
13700 C EVAL V_T = %SCAN('/&F ' : CMDR) 08/03/27
13800 C V_T CABGT *ZEROS T_F 08/03/27
13900 C EVAL V_T = %SCAN('(&F/' : CMDR) 08/03/27
14000 C V_T CABGT *ZEROS T_F 08/03/27
14100 C EVAL V_T = %SCAN('/&F)' : CMDR) 08/03/27
14200 C V_T CABGT *ZEROS T_F 08/03/27
14300 C EVAL V_T = %SCAN('(&F)' : CMDR) 08/03/27
14400 C V_T CABGT *ZEROS T_F 08/03/27
14500 08/03/27
14600 C T_F TAG 08/03/27
14700 08/03/27
14800 C IF V_T > *ZEROS 08/03/27
14900 C V_T ADD 1 I 08/03/27
15000 C V_T ADD 3 X 08/03/27
15100 C EVAL V_X = P_F 08/03/27
15200 C EXSR $VAR 08/03/27
15300 C *IN66 CABEQ *ON T_FIN 08/03/27
15400 C ELSE 08/03/27
15500 C LEAVE 08/03/27
15600 C ENDIF 08/03/27
15700 C ENDDO 08/03/27
15800 08/03/05
15900 08/03/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMEXCVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 *-------------------- 08/03/06
16100 *-- VAR TYPE ------- 08/03/06
16200 *-------------------- 08/03/06
16300 C DO *HIVAL 08/03/06
16400 C EVAL V_T = %SCAN(' &T ' : CMDR) 08/03/06
16500 C V_T CABGT *ZEROS T_T 08/03/06
16600 C EVAL V_T = %SCAN(' &T/' : CMDR) 08/03/06
16700 C V_T CABGT *ZEROS T_T 08/03/06
16800 C EVAL V_T = %SCAN('/&T ' : CMDR) 08/03/06
16900 C V_T CABGT *ZEROS T_T 08/03/06
17000 C EVAL V_T = %SCAN('(&T/' : CMDR) 08/03/06
17100 C V_T CABGT *ZEROS T_T 08/03/06
17200 C EVAL V_T = %SCAN('/&T)' : CMDR) 08/03/06
17300 C V_T CABGT *ZEROS T_T 08/03/06
17400 C EVAL V_T = %SCAN('(&T)' : CMDR) 08/03/06
17500 C V_T CABGT *ZEROS T_T 08/03/06
17600 08/03/06
17700 C T_T TAG 08/03/06
17800 08/03/06
17900 C IF V_T > *ZEROS 08/03/06
18000 C V_T ADD 1 I 08/03/06
18100 C V_T ADD 3 X 08/03/06
18200 C EVAL V_X = P_T 08/03/06
18300 C EXSR $VAR 08/03/06
18400 C *IN66 CABEQ *ON T_FIN 08/03/06
18500 C ELSE 08/03/06
18600 C LEAVE 08/03/06
18700 C ENDIF 08/03/06
18800 C ENDDO 08/03/06
18900 08/03/06
19000 08/03/05
19100 *-------------------- 08/03/05
19200 *-- VAR ATTRIBUT----- 08/03/05
19300 *-------------------- 08/03/05
19400 C DO *HIVAL 08/03/05
19500 C EVAL V_T = %SCAN(' &A ' : CMDR) 08/03/05
19600 C V_T CABGT *ZEROS T_A 08/03/05
19700 C EVAL V_T = %SCAN(' &A/' : CMDR) 08/03/05
19800 C V_T CABGT *ZEROS T_A 08/03/05
19900 C EVAL V_T = %SCAN('/&A ' : CMDR) 08/03/05
20000 C V_T CABGT *ZEROS T_A 08/03/05
20100 C EVAL V_T = %SCAN('(&A/' : CMDR) 08/03/05
20200 C V_T CABGT *ZEROS T_A 08/03/05
20300 C EVAL V_T = %SCAN('/&A)' : CMDR) 08/03/05
20400 C V_T CABGT *ZEROS T_A 08/03/05
20500 C EVAL V_T = %SCAN('(&A)' : CMDR) 08/03/05
20600 C V_T CABGT *ZEROS T_A 08/03/05
20700 08/03/05
20800 C T_A TAG 08/03/05
20900 08/03/05
21000 C IF V_T > *ZEROS 08/03/05
21100 C V_T ADD 1 I 08/03/05
21200 C V_T ADD 3 X 08/03/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMEXCVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C EVAL V_X = P_A 08/03/05
21400 C EXSR $VAR 08/03/05
21500 C *IN66 CABEQ *ON T_FIN 08/03/05
21600 C ELSE 08/03/05
21700 C LEAVE 08/03/05
21800 C ENDIF 08/03/05
21900 C ENDDO 08/03/05
22000 08/03/05
22100 08/03/05
22200 *-------------------- 08/03/05
22300 *-- VAR TEXT ------- 08/03/05
22400 *-------------------- 08/03/05
22500 C DO *HIVAL 08/03/05
22600 C EVAL V_T = %SCAN(' &X ' : CMDR) 08/03/05
22700 C V_T CABGT *ZEROS T_X 08/03/05
22800 C EVAL V_T = %SCAN(' &X/' : CMDR) 08/03/05
22900 C V_T CABGT *ZEROS T_X 08/03/05
23000 C EVAL V_T = %SCAN('/&X ' : CMDR) 08/03/05
23100 C V_T CABGT *ZEROS T_X 08/03/05
23200 C EVAL V_T = %SCAN('(&X/' : CMDR) 08/03/05
23300 C V_T CABGT *ZEROS T_X 08/03/05
23400 C EVAL V_T = %SCAN('/&X)' : CMDR) 08/03/05
23500 C V_T CABGT *ZEROS T_X 08/03/05
23600 C EVAL V_T = %SCAN('(&X)' : CMDR) 08/03/05
23700 C V_T CABGT *ZEROS T_X 08/03/05
23800 08/03/05
23900 C T_X TAG 08/03/05
24000 08/03/05
24100 C IF V_T > *ZEROS 08/03/05
24200 C V_T ADD 1 I 08/03/05
24300 C V_T ADD 3 X 08/03/05
24400 C EVAL V_X = P_X 08/03/06
24500 C EXSR $VAR 08/03/05
24600 C *IN66 CABEQ *ON T_FIN 08/03/05
24700 C ELSE 08/03/05
24800 C LEAVE 08/03/05
24900 C ENDIF 08/03/05
25000 C ENDDO 08/03/05
25100 08/03/05
25200 08/03/05
25300 08/03/05
25400 *-------------------- 08/03/05
25500 *-- VAR CONTROLE ---- 08/03/05
25600 *-------------------- 08/03/05
25700 C EVAL I = %SCAN('TEXT(' : CMDR) 08/03/05
25800 C EVAL X = %SCAN('&' : CMDR) 08/03/05
25900 C EVAL *IN66 = I > *ZEROS AND X < I 08/03/05
26000 C N66 EVAL *IN66 = I = *ZEROS AND X > *ZEROS 08/03/05
26100 08/03/05
26200 C T_FIN TAG 08/03/05
26300 C 66 MOVE 'N' P_RYN 08/03/05
26400 08/03/05
26500 C EVAL P_CMD = %TRIM(CMDR) 08/03/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:45 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMEXCVAR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 08/03/05
26700 C SETON LR 08/03/05
26800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/05
26900 CSR $VAR BEGSR 08/03/05
27000 C EVAL V_T = I + %LEN(%TRIM(V_X)) 08/03/05
27100 C V_T CABGT 15000 T_VAR999 66 08/03/05
27200 08/03/05
27300 C EVAL CMD = %SUBST(CMDR : 1 : I-1) 08/03/05
27400 C EVAL V_CMD = %TRIM(CMD) + %TRIM(V_X) 08/03/05
27500 *ADD FIN + 10 PRECAUTION 08/03/05
27600 C EVAL V_T = V_T + 08/03/05
27700 C %LEN(%TRIM(V_X)) + 08/03/05
27800 C %LEN(%TRIM(CMDR)) - X 08/03/05
27900 08/03/05
28000 C V_T CABGT 15000 T_VAR999 66 08/03/05
28100 08/03/05
28200 C EVAL CMD = %SUBST(CMDR : X: %LEN(%TRIM(CMDR))-X+1) 08/03/05
28300 C EVAL CMDR =%TRIM(V_CMD) + %TRIM(CMD) 08/03/05
28400 08/03/05
28500 C T_VAR999 TAG 08/03/05
28600 C Z-ADD *ZEROS V_T 08/03/05
28700 CSR ENDSR 08/03/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMJOBI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMJOBI 08/03/12
300 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
400 95/11/24
500 D C_FMT_200 C 'JOBI0200' 08/03/12
600 08/03/12
700 D PTR_FMT S * 08/03/12
800 01/07/13
900 96/02/05
1000 D RCVVAR S LIKE(QUSI020000) 08/03/12
1100 D RCVLEN S 4B 0 INZ(%SIZE(RCVVAR)) 08/03/12
1200 D FORMAT S 8 08/03/12
1300 D REQUETTE S 26 08/03/12
1400 96/02/05
1500 D P_JOB S 10 08/03/12
1600 D P_NAME S 10 08/03/12
1700 D P_NUM S 10 08/03/12
1800 D P_TYP S 16 08/03/12
1900 95/11/15
2000 C *ENTRY PLIST 95/06/07
2100 C PARM P_JOB 08/03/12
2200 C PARM P_NAME 08/03/12
2300 C PARM P_NUM 08/03/12
2400 C PARM P_TYP 08/03/12
2500 C PARM PTR_FMT 96/02/05
2600 95/06/07
2700 C EVAL QUSBPRV = 16 96/02/05
2800 C CLEAR QUSEI 96/02/05
2900 C EVAL REQUETTE = P_JOB + P_NAME + P_NUM 08/03/12
3000 96/02/05
3100 C CALL 'QUSRJOBI' 08/03/12
3200 C PARM RCVVAR 08/03/12
3300 C PARM RCVLEN 96/02/05
3400 C PARM C_FMT_200 FORMAT 08/03/12
3500 C PARM REQUETTE 08/03/12
3600 C PARM P_TYP 08/03/12
3700 C PARM QUSEC 95/06/14
3800 96/02/05
3900 C IF QUSEI = *BLANK 08/03/12
4000 C EVAL PTR_FMT = %ADDR(RCVVAR) 08/03/12
4100 C ELSE 08/03/12
4200 C EVAL PTR_FMT = *NULL 08/03/12
4300 C ENDIF 08/03/12
4400 08/03/12
4500 C RETURN 95/10/25
4600 *========================================================================= 95/10/25
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMJOBLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/12
400 95/11/14
500 08/03/12
600 D FORMAT S 8 INZ('JOBL0100') 08/03/12
700 D STATUS S 10 INZ('*ALL ') 08/03/12
800 95/11/15
900 D JOB DS 08/03/12
1000 D NAME 1 10 INZ('*ALL ') 08/03/12
1100 D USER 11 20 08/03/12
1200 D NUM 21 26 INZ('*ALL ') 08/03/12
1300 D SDS 95/11/15
1400 D PGM *PROC 95/11/15
1500 95/06/07
1600 C *ENTRY PLIST 08/03/12
1700 C PARM P_USER 10 08/03/12
1800 *----- 95/11/15
1900 C MOVE P_USER USER 08/03/12
2000 C EVAL SPACE = PGM 08/03/12
2100 C EVAL USRSPACE = SPACE + USPLIB 08/03/12
2200 08/03/12
2300 C CALLB 'MADMUSPCRT' 08/03/12
2400 08/03/12
2500 C Z-ADD 16 QUSBPRV 08/03/12
2600 *----- 08/03/12
2700 C CALL 'QUSLJOB' 08/03/12
2800 C PARM USRSPACE 08/03/12
2900 C PARM FORMAT 08/03/12
3000 C PARM JOB 08/03/12
3100 C PARM STATUS 08/03/12
3200 C PARM QUSEC 95/11/21
3300 95/11/15
3400 C RETURN 95/10/25
3500 *========================================================================= 95/10/25
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMLCKI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 * 92/11/13
300 08/03/12
400 D TROUVE S LIKE(*IN) 08/03/12
500 D FIN S LIKE(*IN) 08/03/12
600 08/03/12
700 D I S 5S 0 08/03/12
800 08/03/12
900 D P_LIB S 10 09/08/07
1000 D P_OBJ S 10 09/08/07
1100 D P_TYP S 10 09/08/07
1200 D P_MBR S 10 09/08/07
1300 D P_RETURN S 1 09/08/07
1400 *--------------------------------------------------------------------------------------------- 08/03/12
1500 *--- 92/11/16
1600 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/12
1700 D/COPY ADMOPS/QRPGLEINC,ADMOBJLCK 09/08/07
1800 *==================== 92/11/13
1900 D PTR_LST S * 08/03/12
2000 08/03/12
2100 08/03/12
2200 C *ENTRY PLIST 09/08/07
2300 C PARM P_LIB 09/08/07
2400 C PARM P_OBJ 09/08/07
2500 C PARM P_TYP 09/08/07
2600 C PARM P_MBR 09/08/07
2700 C PARM P_RETURN 09/08/07
2800 08/03/12
2900 C CALLB 'MADMOBJCHK' 09/08/07
3000 C PARM P_LIB 09/08/07
3100 C PARM P_OBJ 09/08/07
3200 C PARM P_TYP 09/08/07
3300 C PARM P_MBR 09/08/07
3400 C PARM P_RETURN 09/08/07
3500 C P_RETURN CABEQ 'N' T_SUITE 09/08/07
3600 09/08/07
3700 09/08/07
3800 C CALLB 'MADMOBJLCK' 09/08/07
3900 C PARM P_LIB 09/08/07
4000 C PARM P_OBJ 09/08/07
4100 C PARM P_TYP 09/08/07
4200 C PARM P_MBR 09/08/07
4300 ************************************************************************** 08/03/12
4400 * TRAITEMENT * 08/03/12
4500 ************************************************************************** 08/03/12
4600 C CALLB 'MADMUSPLST' 09/08/07
4700 C PARM PTR_LST 09/08/07
4800 C PARM FIN 08/03/12
4900 C FIN CABEQ *ON T_SUITE 08/03/12
5000 * FICHIER JOBQ 08/03/12
5100 * 92/11/13
5200 C QWCLS COMP '*NONE' 33 09/08/07
5300 C 33 MOVE 'N' P_RETURN 09/08/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMLCKI
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C N33 MOVE 'Y' P_RETURN 09/08/07
5500 *--------------------------------------------------------------------------------------------- 08/03/12
5600 C T_SUITE TAG 09/08/07
5700 *--------------------------------------------------------------------------------------------- 08/03/12
5800 C SETON LR 08/03/12
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMMBRLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 95/11/14
500 D P_LIB S 10 08/02/08
600 D P_NOM S LIKE(P_LIB) 08/02/08
700 D P_MBR S LIKE(P_LIB) 08/02/08
800 95/11/15
900 D REQUETTE S 20 95/11/15
1000 D FORMAT S 8 INZ('MBRL0200') 95/11/17
1100 D FILOVR S 1 INZ('0') 95/11/17
1200 95/11/15
1300 D SDS 95/11/15
1400 D PGM *PROC 95/11/15
1500 95/11/15
1600 C *ENTRY PLIST 95/06/07
1700 C PARM P_LIB 08/02/08
1800 C PARM P_NOM 08/02/08
1900 C PARM P_MBR 08/02/08
2000 95/06/07
2100 C EVAL SPACE = PGM 95/11/15
2200 C EVAL USRSPACE = SPACE + USPLIB 95/11/15
2300 C EVAL REQUETTE = P_NOM + P_LIB 08/02/08
2400 95/11/15
2500 C CALLB 'MADMUSPCRT' 08/02/12
2600 95/11/15
2700 C Z-ADD 16 QUSBPRV 95/11/15
2800 95/11/17
2900 C CALL 'QUSLMBR' 95/11/17
3000 C PARM USRSPACE 95/06/13
3100 C PARM FORMAT 95/11/17
3200 C PARM REQUETTE 95/10/25
3300 C PARM P_MBR 08/02/08
3400 C PARM FILOVR 95/11/17
3500 C PARM QUSEC 95/06/14
3600 95/11/15
3700 C RETURN 95/10/25
3800 *========================================================================= 95/10/25
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJCLR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/02/15
300 * CE PROGRAMME PURGE QRPLOBJ DES OBJET OBSOLETE APRES USAGE ET COMPILATION 08/02/15
400 *--------------------------------------------------------------------------------------------- 08/02/15
500 D/COPY ADMOPS/QRPGLEINC,ADMOBJLST 08/03/06
600 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
700 95/11/17
800 D PTR_LST S * 01/07/13
900 01/07/13
1000 D FMTTYPE S 10 INZ('USAGE ') 05/06/22
1100 95/11/17
1200 D TROUVE S LIKE(*IN) 08/02/14
1300 D FIN S LIKE(*IN) 98/11/24
1400 95/11/17
1500 D TOUS C '*ALL' 95/11/17
1600 95/11/17
1700 08/02/14
1800 D V_TEXT S 50 INZ(*BLANK) 09/08/14
1900 *--------------------------------------------------------------------------------------------- 08/02/15
2000 D CMD S 120 INZ(*BLANK) 08/02/15
2100 D P_CMD S 3200 INZ(*BLANK) 08/02/15
2200 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/02/15
2300 *--------------------------------------------------------------------------------------------- 08/02/15
2400 08/02/15
2500 C *ENTRY PLIST 09/08/14
2600 C PARM P_LIB 09/08/14
2700 C PARM P_OBJ 09/08/14
2800 C EVAL V_TEXT = %TRIM(P_LIB) +'/' +%TRIM(P_OBJ) 09/08/14
2900 09/08/14
3000 09/08/14
3100 *--- RECUPERE LES OBJETS 08/02/14
3200 C CALLB 'MADMOBJLST' 08/02/12
3300 C PARM FMTTYPE 08/02/14
3400 C PARM 'QRPLOBJ' P_LIB 10 08/02/15
3500 C PARM TOUS P_OBJ 10 08/02/14
3600 C PARM TOUS P_TYPE 10 08/02/14
3700 C EXSR $TRT 08/02/18
3800 95/11/17
3900 C SETON LR 08/02/18
4000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/18
4100 C $TRT BEGSR 08/02/18
4200 *--- LISTE LES OBJETS 08/02/14
4300 C DO *HIVAL 95/11/17
4400 C CALLB 'MADMUSPLST' 08/02/12
4500 C PARM PTR_LST 95/11/17
4600 C PARM FIN 98/11/24
4700 C FIN CABEQ *ON T_TRT999 08/02/18
4800 08/02/18
4900 *------------------------------ 09/08/14
5000 * NETTOTAGE DE L'OBJET COMPILER 09/08/14
5100 * ATTENTION CELA N'EST PAS PARFAIT CAR DANS UNE OPTION DE COMPILATION 09/08/14
5200 * PEUT CE CACHER PLUSIEURS OBJETS !!!!!! 09/08/14
5300 *------------------------------ 09/08/14
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJCLR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C IF V_TEXT = QUSTD10 09/08/14
5500 09/08/14
5600 C EVAL P_OBJ = QUSOBJNU05 NOM OBJET 08/02/15
5700 C EVAL P_TYPE = QUSOBJTU05 TYPE OBJET 08/02/15
5800 C SELECT 08/02/15
5900 * 08/02/15
6000 C WHEN P_TYPE = '*PGM' 09/08/14
6100 09/08/14
6200 C EVAL CMD = 'DLTPGM ' + 08/02/15
6300 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
6400 C EXSR $CMD 08/02/15
6500 08/02/15
6600 * 08/02/15
6700 C WHEN P_TYPE = '*MODULE' 09/08/14
6800 09/08/14
6900 C EVAL CMD = 'DLTMOD ' + 08/02/15
7000 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
7100 C EXSR $CMD 08/02/15
7200 08/02/15
7300 * 08/02/15
7400 C WHEN P_TYPE = '*SRVPGM' 09/08/14
7500 09/08/14
7600 C EVAL CMD = 'DLTSRVPGM ' + 08/02/15
7700 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
7800 C EXSR $CMD 08/02/15
7900 08/02/15
8000 * 08/02/15
8100 C WHEN P_TYPE = '*FILE' 09/08/14
8200 09/08/14
8300 C EVAL CMD = 'DLTF ' + 08/02/20
8400 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
8500 C EXSR $CMD 08/02/15
8600 09/08/06
8700 * 09/08/06
8800 C WHEN P_TYPE = '*PNLGRP' 09/08/14
8900 09/08/14
9000 C EVAL CMD = 'DLTPNLGRP ' + 09/08/06
9100 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 09/08/06
9200 C EXSR $CMD 09/08/06
9300 08/02/15
9400 * 08/02/15
9500 C WHEN P_TYPE = '*CMD ' 09/08/14
9600 09/08/14
9700 C EVAL CMD = 'DLTCMD ' + 08/02/15
9800 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
9900 C EXSR $CMD 08/02/15
10000 08/02/15
10100 * 08/02/15
10200 C WHEN P_TYPE = '*DTAARA ' 09/08/14
10300 09/08/14
10400 C EVAL CMD = 'DLTDTAARA ' + 08/02/15
10500 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
10600 C EXSR $CMD 08/02/15
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJCLR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 08/02/15
10800 * 08/02/15
10900 C WHEN P_TYPE = '*MSGF ' 09/08/14
11000 09/08/14
11100 C EVAL CMD = 'DLTMSGF ' + 08/02/15
11200 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
11300 C EXSR $CMD 08/02/15
11400 08/02/15
11500 * 08/02/15
11600 C WHEN P_TYPE = '*MENU ' 09/08/14
11700 09/08/14
11800 C EVAL CMD = 'DLTMNU ' + 08/02/15
11900 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
12000 C EXSR $CMD 08/02/15
12100 08/02/15
12200 * 08/02/15
12300 C WHEN P_TYPE = '*QMQRY ' 09/08/14
12400 09/08/14
12500 C EVAL CMD = 'DLTQMQRY ' + 08/02/15
12600 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
12700 C EXSR $CMD 08/02/15
12800 08/02/15
12900 * 08/02/15
13000 C WHEN P_TYPE = '*QMFORM ' 09/08/14
13100 C 09/08/14
13200 C EVAL CMD = 'DLTQMFORM ' + 08/02/15
13300 C 'QRPLOBJ/'+ %TRIM(P_OBJ) 08/02/15
13400 C EXSR $CMD 08/02/15
13500 08/02/15
13600 C ENDSL 08/02/15
13700 C ENDIF 09/08/14
13800 C ENDDO 08/02/15
13900 C T_TRT999 ENDSR 08/02/18
14000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/15
14100 C $CMD BEGSR 08/02/15
14200 C CALL 'QCMDEXC' 33 09/08/06
14300 C PARM CMD P_CMD 08/02/15
14400 C PARM P_CMD_LEN 08/02/15
14500 C ENDSR 08/02/15
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMOBJD 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
400 95/11/24
500 D C_FMT_NOM C 'OBJD0400' 96/02/05
600 01/07/13
700 D PTR_FMT S * 01/07/13
800 96/02/05
900 D RCVVAR S LIKE(QUSD0400) 96/02/05
1000 D RCVLEN S 4B 0 INZ(%SIZE(RCVVAR)) 96/02/05
1100 D FORMAT S 8 INZ(C_FMT_NOM) 96/02/05
1200 D REQUETTE S 20 96/02/05
1300 96/02/05
1400 D P_LIB S 10 08/02/08
1500 D P_OBJ S 10 08/02/08
1600 D P_TYP S 10 08/02/12
1700 95/11/15
1800 C *ENTRY PLIST 95/06/07
1900 C PARM P_LIB 08/02/08
2000 C PARM P_OBJ 08/02/08
2100 C PARM P_TYP 08/02/12
2200 C PARM PTR_FMT 96/02/05
2300 95/06/07
2400 C EVAL QUSBPRV = 16 96/02/05
2500 C CLEAR QUSEI 96/02/05
2600 C EVAL REQUETTE = P_OBJ + P_LIB 08/02/08
2700 96/02/05
2800 C CALL 'QUSROBJD' 96/02/05
2900 C PARM RCVVAR 96/02/05
3000 C PARM RCVLEN 96/02/05
3100 C PARM FORMAT 96/02/05
3200 C PARM REQUETTE 95/10/25
3300 C PARM P_TYP 08/02/12
3400 C PARM QUSEC 95/06/14
3500 96/02/05
3600 C IF QUSEI = *BLANK 96/02/05
3700 C EVAL PTR_FMT = %ADDR(RCVVAR) 96/02/05
3800 C ELSE 08/02/11
3900 C EVAL PTR_FMT = *NULL 08/02/11
4000 C ENDIF 96/02/05
4100 96/02/05
4200 C RETURN 95/10/25
4300 *========================================================================= 95/10/25
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/02/23
300 * ATTENTION RETURN P_RYN ET NOT TROUVE 08/02/23
400 * PROGRAMME MIS EN MODULE POUR PROTECTION DELETE 08/02/23
500 *--------------------------------------------------------------------------------------------- 08/02/23
600 FFADMOBJ UF E K DISK 08/02/12
700 FFADMPRJ IF E K DISK 08/02/12
800 FFADMUSR IF E K DISK 08/02/20
900 *--------------------------------------------------------------------------------------------- 08/02/19
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 *--------------------------------------------------------------------------------------------- 08/02/20
1400 D P_SOC S LIKE(PRSOC) 08/02/20
1500 D P_PRJ S LIKE(PRPRJ) 08/02/20
1600 D P_LIB S LIKE(OBOLIB) 08/02/20
1700 D P_OBJ S LIKE(OBOOBJ) 08/02/20
1800 D P_MBR S LIKE(OBOOBJ) 08/02/20
1900 D P_TYP S LIKE(OBOTYP) 08/02/20
2000 D P_TEXT S LIKE(OBTXTU) 08/02/20
2100 D P_DATE S LIKE(OBDCTL) 08/02/20
2200 D P_RYN S 1A 08/02/20
2300 *--------------------------------------------------------------------------------------------- 08/02/12
2400 D TROUVE S LIKE(*IN) 08/02/20
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 PRSOC 08/03/05
3200 C KFLD PRPRJ 08/03/05
3300 C K_OBJ KLIST 08/02/12
3400 C KFLD PRSOC 08/03/05
3500 C KFLD OBOOBJ 08/03/05
3600 C KFLD OBOTYP 08/03/05
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/03/05
4500 C MOVE P_SOC PRSOC 08/03/05
4600 C MOVE P_PRJ PRPRJ 08/03/05
4700 C MOVE P_OBJ OBOOBJ 08/03/05
4800 C MOVE P_TYP OBOTYP 08/03/05
4900 *--------------------------------------------------------------------------------------------- 08/02/12
5000 C V_USER CHAIN ADMUSRF1 66 08/02/20
5100 C 66 GOTO T_FIN 08/02/20
5200 08/02/12
5300 C K_PR CHAIN ADMPRJF1 66 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C 66 GOTO T_FIN 08/02/20
5500 08/02/12
5600 C K_OBJ CHAIN ADMOBJF1 6666 08/02/20
5700 C 66 GOTO T_FIN 08/02/20
5800 C EVAL *IN66 = OBT <> *BLANK AND 08/04/03
5900 C OBT <> 'W' 08/04/03
6000 C 66 GOTO T_FIN 08/03/07
6100 08/02/12
6200 C IF OBU = *BLANK AND 08/04/05
6300 C OBD = *BLANK AND 08/04/05
6400 C OBQ = *BLANK AND 08/03/05
6500 C OBP <>*BLANK 08/03/05
6600 C V_USER CABNE 'ADMOPS' T_FIN 66 08/03/05
6700 C ENDIF 08/02/20
6800 08/02/20
6900 C SELECT 08/02/20
7000 C WHEN OBU <> *BLANK 08/04/05
7100 C EVAL V_LIB = PRLIBU 08/04/05
7200 C WHEN OBD <> *BLANK 08/02/20
7300 C EVAL V_LIB = PRLIBD 08/02/20
7400 C WHEN OBQ <> *BLANK 08/02/20
7500 C EVAL V_LIB = PRLIBQ 08/02/20
7600 C WHEN OBP <> *BLANK AND V_USER = 'ADMOPS' 08/03/05
7700 C EVAL V_LIB = PRLIBP 08/02/20
7800 C ENDSL 08/02/20
7900 * RECHERCHE SI OBJET PRESENT 08/02/20
8000 C SETOFF 66 08/03/05
8100 C CALLB 'MADMOBJCHK' 08/02/20
8200 C PARM V_LIB P_LIB 08/02/20
8300 C PARM OBOOBJ P_OBJ 08/02/20
8400 C PARM OBOTYP P_TYP 08/02/20
8500 C PARM '*NONE' P_MBR 08/02/20
8600 C PARM TROUVE 08/02/20
8700 C IF TROUVE = *ON 08/02/20
8800 C SELECT 08/02/20
8900 * 08/02/20
9000 C WHEN P_TYP = '*USRSPC' 08/02/20
9100 C EVAL CMD = 'DLTUSRSPC ' + 08/02/20
9200 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
9300 C EXSR $CMD 08/02/20
9400 08/02/20
9500 * 08/02/20
9600 C WHEN P_TYP = '*PGM' 08/02/20
9700 C EVAL CMD = 'DLTMOD ' + 08/02/20
9800 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
9900 C EXSR $CMD 08/03/15
10000 C EVAL CMD = 'DLTPGM ' + 08/02/20
10100 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
10200 C EXSR $CMD 08/02/20
10300 08/02/20
10400 * 08/02/20
10500 C WHEN P_TYP = '*MODULE' 08/02/20
10600 C EVAL CMD = 'DLTMOD ' + 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
10800 C EXSR $CMD 08/02/20
10900 08/02/20
11000 * 08/02/20
11100 C WHEN P_TYP = '*SRVPGM' 08/02/20
11200 C EVAL CMD = 'DLTSRVPGM ' + 08/02/20
11300 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
11400 C EXSR $CMD 08/02/20
11500 08/02/20
11600 * 08/02/20
11700 C WHEN P_TYP = '*FILE' 08/02/20
11800 C EVAL CMD = 'DLTF ' + 08/02/20
11900 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
12000 C EXSR $CMD 08/02/20
12100 08/02/20
12200 * 08/02/20
12300 C WHEN P_TYP = '*CMD ' 08/02/20
12400 C EVAL CMD = 'DLTCMD ' + 08/02/20
12500 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
12600 C EXSR $CMD 08/02/20
12700 08/02/20
12800 * 09/08/06
12900 C WHEN P_TYP = '*PNLGRP' 09/08/06
13000 C EVAL CMD = 'DLTPNLGRP ' + 09/08/06
13100 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 09/08/06
13200 C EXSR $CMD 09/08/06
13300 09/08/06
13400 * 08/02/20
13500 C WHEN P_TYP = '*DTAARA ' 08/02/20
13600 C EVAL CMD = 'DLTDTAARA ' + 08/02/20
13700 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
13800 C EXSR $CMD 08/02/20
13900 08/02/20
14000 * 08/02/20
14100 C WHEN P_TYP = '*MSGF ' 08/02/20
14200 C EVAL CMD = 'DLTMSGF ' + 08/02/20
14300 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
14400 C EXSR $CMD 08/02/20
14500 08/02/20
14600 * 08/02/20
14700 C WHEN P_TYP = '*MENU ' 08/02/20
14800 C EVAL CMD = 'DLTMNU ' + 08/02/20
14900 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
15000 C EXSR $CMD 08/02/20
15100 08/02/20
15200 * 08/02/20
15300 C WHEN P_TYP = '*QMQRY ' 08/02/20
15400 C EVAL CMD = 'DLTQMQRY ' + 08/02/20
15500 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
15600 C EXSR $CMD 08/02/20
15700 08/02/20
15800 * 08/02/20
15900 C WHEN P_TYP = '*QMFORM ' 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C EVAL CMD = 'DLTQMFORM ' + 08/02/20
16100 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/02/20
16200 C EXSR $CMD 08/02/20
16300 08/02/20
16400 C ENDSL 08/02/20
16500 C *IN66 CABEQ *ON T_FIN 08/02/20
16600 C ENDIF 08/02/20
16700 08/02/20
16800 * RECHERCHE SI SOURCE PRESENT 08/02/20
16900 C IF OBOYNS = 'Y' 08/02/20
17000 C CALLB 'MADMOBJCHK' 08/02/20
17100 C PARM V_LIB P_LIB 08/02/20
17200 C PARM OBOFCH P_OBJ 08/02/20
17300 C PARM '*FILE' P_TYP 08/02/20
17400 C PARM OBOOBJ P_MBR 08/02/20
17500 C PARM TROUVE 08/02/20
17600 C IF TROUVE = *ON 08/02/20
17700 C EVAL CMD = 'RMVM FILE(' + 08/04/05
17800 C %TRIM(V_LIB)+'/'+ %TRIM(OBOFCH) + 08/03/05
17900 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
18000 C EXSR $CMD 08/02/20
18100 C ENDIF 08/02/20
18200 C ENDIF 08/02/20
18300 08/02/20
18400 * 08/02/20
18500 * RECHERCHE SI BLDOPT PRESENT 08/02/20
18600 C IF OBB = 'B' 08/03/05
18700 C CALLB 'MADMOBJCHK' 08/02/20
18800 C PARM V_LIB P_LIB 08/02/20
18900 C PARM 'QBLDOPTSRC' P_OBJ 08/02/20
19000 C PARM '*FILE' P_TYP 08/02/20
19100 C PARM OBOOBJ P_MBR 08/02/20
19200 C PARM TROUVE 08/02/20
19300 C IF TROUVE = *ON 08/02/20
19400 C EVAL CMD = 'RMVM FILE(' + 08/04/05
19500 C %TRIM(V_LIB)+'/QBLDOPTSRC' + 08/03/05
19600 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
19700 C EXSR $CMD 08/02/20
19800 C ENDIF 08/02/20
19900 C ENDIF 08/02/20
20000 08/08/13
20100 08/02/20
20200 C SELECT 08/02/20
20300 C WHEN OBU <> *BLANK 08/04/05
20400 C MOVE ' ' OBU 08/04/05
20500 C UPDATE ADMOBJF1 08/04/05
20600 08/04/05
20700 C WHEN OBD <> *BLANK 08/02/20
20800 C MOVE ' ' OBD 08/02/20
20900 C IF OBQ = *BLANK 08/02/29
21000 C MOVE *ALL'0' OBDATU 08/02/20
21100 C MOVE *ALL'0' OBDCTL 08/02/20
21200 C MOVE *BLANK OBUSR 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C MOVE *BLANK OBTXTU 08/02/20
21400 C IF OBOCMDP <> OBOCMD 08/08/13
21500 C EVAL OBOCMD = OBOCMDP 08/08/13
21600 C EVAL *IN55 = OBOCMD = OBOOBJ 08/08/13
21700 C N55 MOVE ' ' OBB 08/08/13
21800 C 55 MOVE 'B' OBB 08/08/13
21900 C ENDIF 08/08/13
22000 C ENDIF 08/04/23
22100 C UPDATE ADMOBJF1 08/03/05
22200 C IF OBP = *BLANK 08/03/05
22300 C K_OBJ CHAIN ADMOBJF1 6666 08/03/05
22400 C N66 DELETE ADMOBJF1 08/03/05
22500 C ENDIF 08/03/05
22600 08/04/05
22700 C WHEN OBQ <> *BLANK 08/02/20
22800 C MOVE ' ' OBQ 08/02/20
22900 C MOVE *ALL'0' OBDATU 08/02/20
23000 C MOVE *ALL'0' OBDCTL 08/02/20
23100 C MOVE *BLANK OBUSR 08/02/20
23200 C MOVE *BLANK OBTXTU 08/02/20
23300 C IF OBP = *BLANK 08/03/05
23400 C DELETE ADMOBJF1 08/03/05
23500 C ELSE 08/03/05
23600 C IF OBOCMDP <> OBOCMD 08/08/13
23700 C EVAL OBOCMD = OBOCMDP 08/08/13
23800 C EVAL *IN55 = OBOCMD = OBOOBJ 08/08/13
23900 C N55 MOVE ' ' OBB 08/08/13
24000 C 55 MOVE 'B' OBB 08/08/13
24100 C ENDIF 08/08/13
24200 C UPDATE ADMOBJF1 08/02/20
24300 C ENDIF 08/03/05
24400 C WHEN OBP <> *BLANK AND V_USER = 'ADMOPS' 08/03/05
24500 C DELETE ADMOBJF1 08/03/05
24600 C ENDSL 08/02/20
24700 * 08/02/20
24800 C T_FIN TAG 08/02/20
24900 C MOVE 'Y' P_RYN 08/02/20
25000 C 66 MOVE 'N' P_RYN 08/02/20
25100 08/02/20
25200 C SETON LR 08/02/20
25300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/20
25400 C $CMD BEGSR 08/02/20
25500 C CALL 'QCMDEXC' 66 08/02/20
25600 C PARM CMD P_CMD 08/02/20
25700 C PARM P_CMD_LEN 08/02/20
25800 C MOVE *BLANK CMD 08/03/15
25900 C ENDSR 08/02/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJLCK
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 08/02/07
500 08/02/07
600 D REQUETTE S 20 08/02/07
700 D FORMAT S 8 INZ('OBJL0100') 08/02/07
800 D V_MBR S 10 INZ(*BLANK) 08/02/12
900 08/02/07
1000 D SDS 08/02/07
1100 D PGM *PROC 08/02/07
1200 08/02/07
1300 08/02/07
1400 08/02/07
1500 C *ENTRY PLIST 08/02/07
1600 C PARM P_LIB 10 08/02/12
1700 C PARM P_OBJ 10 08/02/07
1800 C PARM P_TYP 10 08/02/12
1900 C PARM P_MBR 10 08/02/07
2000 08/02/07
2100 C IF P_MBR = '*NONE' 08/02/12
2200 C EVAL V_MBR = *BLANK 08/02/12
2300 C ELSE 08/02/12
2400 C EVAL V_MBR = P_MBR 08/02/12
2500 C ENDIF 08/02/12
2600 08/02/12
2700 08/02/12
2800 C EVAL SPACE = PGM 08/02/18
2900 C EVAL USRSPACE = SPACE + USPLIB 08/02/07
3000 C EVAL REQUETTE = P_OBJ + P_LIB 08/02/07
3100 08/02/07
3200 C CALLB 'MADMUSPCRT' 08/02/12
3300 08/02/07
3400 C Z-ADD 16 QUSBPRV 08/02/07
3500 C CALL 'QWCLOBJL' 08/02/12
3600 C PARM USRSPACE 08/02/12
3700 C PARM FORMAT 08/02/12
3800 C PARM REQUETTE 08/02/12
3900 C PARM P_TYP 08/02/12
4000 C PARM V_MBR 08/02/12
4100 C PARM QUSEC 08/02/12
4200 C RETURN 08/02/07
4300 *========================================================================= 08/02/07
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 95/11/14
500 95/11/15
600 D FMTTYPE S 10 95/11/15
700 D FMTNOM S 8 95/11/15
800 D DIM_7 C CONST(7) 95/11/17
900 95/11/15
1000 D REQUETTE S 20 95/11/15
1100 D FORMAT S 8 95/11/15
1200 D P_LIB S 10 08/02/08
1300 D P_OBJ S 10 08/02/08
1400 D P_TYP S 10 08/02/12
1500 95/11/15
1600 D TAB_TYP S LIKE(FMTTYPE) DIM(DIM_7) CTDATA 08/02/08
1700 D TAB_FMT S LIKE(FMTNOM) DIM(DIM_7) CTDATA 08/02/08
1800 95/11/15
1900 D SDS 95/11/15
2000 D PGM *PROC 95/11/15
2100 95/11/15
2200 C *ENTRY PLIST 95/06/07
2300 C PARM FMTTYPE 95/11/15
2400 C PARM P_LIB 08/02/08
2500 C PARM P_OBJ 08/02/08
2600 C PARM P_TYP 08/02/12
2700 95/06/07
2800 C EVAL SPACE = PGM 95/11/15
2900 C EVAL USRSPACE = SPACE + USPLIB 95/11/15
3000 C EVAL REQUETTE = P_OBJ + P_LIB 08/02/08
3100 95/11/15
3200 C CALLB 'MADMUSPCRT' 08/02/12
3300 95/11/15
3400 C Z-ADD 16 QUSBPRV 95/11/15
3500 *----- 95/11/15
3600 C FMTTYPE LOOKUP TAB_TYP TAB_FMT 33 08/02/08
3700 C 33 CALL 'QUSLOBJ' 95/11/17
3800 C PARM USRSPACE 95/06/13
3900 C PARM TAB_FMT FORMAT 95/11/17
4000 C PARM REQUETTE 95/10/25
4100 C PARM P_TYP 08/02/12
4200 C PARM QUSEC 95/11/21
4300 95/11/15
4400 C RETURN 95/10/25
4500 *========================================================================= 95/10/25
4600 ** CTDATA 95/11/17
4700 TYPE 95/11/17
4800 ATTRIBUT 95/11/17
4900 STOCKAGE 95/11/17
5000 CREATION 95/11/17
5100 SAUVEGARDE 95/11/17
5200 USAGE 95/11/17
5300 TAILLE 95/11/17
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMOBJLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 ** CTDATA 95/11/15
5500 OBJL0100 95/11/17
5600 OBJL0200 95/11/17
5700 OBJL0300 95/11/17
5800 OBJL0400 95/11/17
5900 OBJL0500 95/11/17
6000 OBJL0600 95/11/17
6100 OBJL0700 95/11/17
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPCRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 95/11/14
500 D PTR_RTV S * 09/08/12
600 D TYPE C '*USRSPC' 96/02/05
700 96/02/05
800 D P_LIB S 10 08/02/08
900 D P_NOM S 10 08/02/08
1000 D P_TYP S 10 INZ(TYPE) 09/08/12
1100 D P_MBR S 10 08/03/15
1200 D TROUVE S LIKE(*IN) 96/02/05
1300 96/02/05
1400 D U_ATTRIBUT S 10 INZ('LISTE') 95/11/14
1500 D U_TAILLE S 4B 0 INZ(100) 95/11/14
1600 D U_INIT S 1 INZ(*BLANK) 95/11/14
1700 D U_AUT S 10 INZ('*ALL') 95/11/14
1800 D U_TEXTE S 50 INZ(*BLANK) 95/11/14
1900 D U_REMPLACE S 10 INZ('*YES') 95/11/14
2000 95/06/13
2100 08/02/18
2200 C CALLB 'MADMOBJCHK' 08/03/15
2300 C PARM USPLIB P_LIB 09/08/12
2400 C PARM SPACE P_NOM 08/04/03
2500 C PARM P_TYP 08/02/12
2600 C PARM '*NONE' P_MBR 08/03/15
2700 C PARM TROUVE 96/02/05
2800 96/02/05
2900 C IF TROUVE = *OFF 09/08/12
3000 C EVAL USRSPACE = SPACE + USPLIB 95/11/14
3100 C Z-ADD 16 QUSBPRV 95/10/24
3200 95/06/13
3300 C CALL 'QUSCRTUS' 94/03/08
3400 C PARM USRSPACE 95/06/13
3500 C PARM U_ATTRIBUT 95/11/14
3600 C PARM U_TAILLE 95/11/14
3700 C PARM U_INIT 95/11/14
3800 C PARM U_AUT 95/11/14
3900 C PARM U_TEXTE 95/11/14
4000 C PARM U_REMPLACE 95/11/14
4100 C PARM QUSEC 95/10/24
4200 C ENDIF 96/02/05
4300 96/02/05
4400 C RETURN 95/10/24
4500 *========================================================================= 95/10/24
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/02/15
300 * CE PROGRAMME PURGE QRPLOBJ DES OBJET OBSOLETE APRES USAGE ET COMPILATION 08/02/15
400 *--------------------------------------------------------------------------------------------- 08/02/15
500 D/COPY ADMOPS/QRPGLEINC,ADMOBJLST 08/03/06
600 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
700 95/11/17
800 D PTR_LST S * 01/07/13
900 01/07/13
1000 D FMTTYPE S 10 INZ('USAGE ') 05/06/22
1100 95/11/17
1200 D TROUVE S LIKE(*IN) 08/02/14
1300 D FIN S LIKE(*IN) 98/11/24
1400 95/11/17
1500 D TOUS C '*ALL' 95/11/17
1600 95/11/17
1700 08/02/14
1800 *--------------------------------------------------------------------------------------------- 08/02/15
1900 D CMD S 120 INZ(*BLANK) 08/02/15
2000 D P_CMD S 3200 INZ(*BLANK) 08/02/15
2100 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/02/15
2200 *--------------------------------------------------------------------------------------------- 08/02/15
2300 08/02/15
2400 08/02/15
2500 *--- RECUPERE LES OBJETS 08/02/18
2600 C CALLB 'MADMOBJLST' 09/08/14
2700 C PARM FMTTYPE 08/02/18
2800 C PARM 'QTEMP ' P_LIB 10 08/03/15
2900 C PARM TOUS P_OBJ 10 08/02/18
3000 C PARM '*USRSPC' P_TYPE 10 08/03/15
3100 08/02/18
3200 *--- LISTE LES OBJETS 08/02/14
3300 C DO *HIVAL 95/11/17
3400 C CALLB 'MADMUSPLST' 09/08/14
3500 C PARM PTR_LST 95/11/17
3600 C PARM FIN 98/11/24
3700 C FIN CABEQ *ON T_FIN 08/02/18
3800 C EVAL P_OBJ = QUSOBJNU05 NOM OBJET 08/02/15
3900 C EVAL P_TYPE = QUSOBJTU05 TYPE OBJET 08/02/15
4000 C SELECT 08/02/15
4100 * 08/02/15
4200 C WHEN P_TYPE = '*USRSPC' AND 08/02/15
4300 C QUSCUP01 = V_USER 08/02/15
4400 C EVAL CMD = 'DLTUSRSPC ' + 08/02/15
4500 C 'QTEMP/'+ %TRIM(P_OBJ) 08/03/15
4600 C EXSR $CMD 08/02/15
4700 08/02/15
4800 C ENDSL 08/02/15
4900 C ENDDO 08/02/15
5000 C T_FIN TAG 08/02/18
5100 *--------------------------------------------------------------------------------------------- 08/03/15
5200 C EVAL CMD = 'DLTUSRSPC ' + 08/03/15
5300 C 'QTEMP/'+ %TRIM('MADMUSPLST') 08/03/15
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPDLT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EXSR $CMD 08/03/15
5500 C EVAL CMD = 'DLTUSRSPC ' + 08/03/15
5600 C 'QRPLOBJ/Q*' 08/03/15
5700 C EXSR $CMD 08/03/15
5800 *--------------------------------------------------------------------------------------------- 08/03/15
5900 C SETON LR 08/02/18
6000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/15
6100 C $CMD BEGSR 08/02/15
6200 C CALL 'QCMDEXC' 66 08/02/15
6300 C PARM CMD P_CMD 08/02/15
6400 C PARM P_CMD_LEN 08/02/15
6500 C ENDSR 08/02/15
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPEXP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 D/COPY ADMOPS/QRPGLEINC,ADMUSPEXP 08/03/06
200 95/11/14
300 C RETURN 95/11/14
400 *======================================================================== 95/11/14
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 95/11/14
500 * PARAMETRES 95/11/14
600 D ARR S 1 BASED(PTR_LST) DIM(32767) 95/10/25
700 D FIN S LIKE(*IN45) 95/11/14
800 95/11/14
900 D PTR_SPC S * 95/10/25
1000 95/10/25
1100 95/06/14
1200 C *ENTRY PLIST 95/06/07
1300 C PARM PTR_LST 95/10/25
1400 C PARM FIN 95/10/25
1500 95/06/07
1600 C SELECT 95/11/14
1700 C WHEN NOT *IN45 95/11/14
1800 C Z-ADD 16 QUSBPRV 95/06/14
1900 95/06/14
2000 C CALLB 'MADMUSPPTR' 08/02/12
2100 C PARM PTR_SPC 95/10/25
2200 C PARM FIN 09/08/14
2300 95/10/25
2400 C EVAL PTR_LST = PTR_SPC 95/10/25
2500 C EVAL PTR_LST = %ADDR(ARR(LST_DEB + 1)) 95/11/15
2600 95/11/14
2700 C OTHER 95/11/14
2800 C EVAL PTR_LST = %ADDR(ARR(LST_SIZ + 1)) 95/11/15
2900 C ENDSL 95/11/14
3000 95/11/14
3100 C EVAL FIN = LST_NBR <= 0 95/11/22
3200 C EVAL LST_NBR = LST_NBR - 1 95/11/22
3300 C EVAL *IN45 = FIN = *OFF 08/02/11
3400 C IF *IN45 = *ON 09/08/14
3500 C RETURN 09/08/14
3600 C ELSE 09/08/14
3700 C CALLB 'MADMUSPPTR' 09/08/14
3800 C PARM PTR_SPC 09/08/14
3900 C PARM FIN 09/08/14
4000 C SETON LR 09/08/14
4100 C ENDIF 09/08/14
4200 *========================================================================= 95/10/25
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPPTR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/06
300 D/COPY ADMOPS/QRPGLEINC,ADMUSPIMP 08/03/06
400 95/06/13
500 * PARAMETRES SORTIE 95/10/25
600 DQUSH0100 DS BASED(PTR_SPC) Generic Header 95/11/06
700 D QUSUA 1 64 User Area 95/11/06
800 D QUSSGH 65 68B 0 95/06/14
900 D* Size Generic Header 95/06/14
1000 D QUSSRL 69 72 95/06/14
1100 D* Structure Release Level 95/06/14
1200 D QUSFN 73 80 95/06/14
1300 D* Format Name 95/06/14
1400 D QUSAU 81 90 95/06/14
1500 D* Api Used 95/06/14
1600 D QUSDTC 91 103 95/06/14
1700 D* Date Time Created 95/06/14
1800 D QUSIS 104 104 95/06/14
1900 D* Information Status 95/06/14
2000 D QUSSUS 105 108B 0 95/06/14
2100 D* Size User Space 95/06/14
2200 D QUSOIP 109 112B 0 95/06/14
2300 D* Offset Input Parameter 95/06/14
2400 D QUSSIP 113 116B 0 95/06/14
2500 D* Size Input Parameter 95/06/14
2600 D QUSOHS 117 120B 0 95/06/14
2700 D* Offset Header Section 95/06/14
2800 D QUSSHS 121 124B 0 95/06/14
2900 D* Size Header Section 95/06/14
3000 D QUSOLD 125 128B 0 95/06/14
3100 D* Offset List Data 95/06/14
3200 D QUSSLD 129 132B 0 95/06/14
3300 D* Size List Data 95/06/14
3400 D QUSNBRLE 133 136B 0 95/06/14
3500 D* Number List Entries 95/06/14
3600 D QUSSEE 137 140B 0 95/06/14
3700 D* Size Each Entry 95/06/14
3800 D QUSSIDLE 141 144B 0 95/06/14
3900 D* CCSID List Ent 95/06/14
4000 D QUSCID 145 146 95/06/14
4100 D* Country ID 95/06/14
4200 D QUSLID 147 149 95/06/14
4300 D* Language ID 95/06/14
4400 D QUSSLI 150 150 95/06/14
4500 D* Subset List Indicator 95/06/14
4600 D QUSERVED00 151 192 95/06/14
4700 D* Reserved 95/06/14
4800 95/06/14
4900 * PARAMETRES 09/08/14
5000 D FIN S LIKE(*IN45) 09/08/14
5100 C *ENTRY PLIST 95/06/07
5200 C PARM PTR_SPC 95/10/26
5300 C PARM FIN 09/08/14
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . MADMUSPPTR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 95/06/07
5500 C IF FIN = *OFF 09/08/14
5600 C Z-ADD 16 QUSBPRV 95/10/25
5700 95/06/14
5800 C CALL 'QUSPTRUS' 95/06/07
5900 C PARM USRSPACE 95/06/13
6000 C PARM *NULL PTR_SPC 95/10/26
6100 C PARM QUSEC 95/06/14
6200 95/06/07
6300 C Z-ADD QUSOLD LST_DEB 95/11/14
6400 C Z-ADD QUSNBRLE LST_NBR 95/11/14
6500 C Z-ADD QUSSEE LST_SIZ 95/11/14
6600 95/06/14
6700 C RETURN 95/10/24
6800 C ELSE 09/08/14
6900 C SETON LR 09/08/14
7000 C ENDIF 09/08/14
7100 *========================================================================= 95/10/24
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . QADMMSGLST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FWADMOPSLOGO F 132 PRINTER OFLIND(*INOF) 08/04/06
300 D P_OBJ S 10 08/03/08
400 D P_LIB S 10 08/03/08
500 D P_ID S 7 08/03/08
600 D P_MSG S 130 08/03/08
700 08/03/08
800 C DOW NOT *IN33 08/03/08
900 C CALLB 'QADMMSGRCV' 08/03/10
1000 C PARM P_MSG 08/03/08
1100 C PARM P_ID 08/03/08
1200 C EXCEPT WRT 08/03/08
1300 C EVAL *IN33 = P_ID = 'END0000' 08/03/08
1400 C ENDDO 08/03/08
1500 08/03/08
1600 C SETON LR 08/03/08
1700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/08
1800 OWADMOPSLOGE WRT 1 08/04/06
1900 O P_MSG 132 08/03/08
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/02/11
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMENV IF E K DISK 08/03/21
600 FSADMAFFENVCF E WORKSTN INFDS(V_DSPF) 08/03/21
700 F SFILE(SENVE1:LIGN1) 08/02/11
800 * 08/01/30
900 *--------------------------------------------------------------------------------------------- 08/01/30
1000 * UDS 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 *--------------------------------------------------------------------------------------------- 08/01/30
1400 D I S 4S 0 INZ(*ZEROS) 08/02/26
1500 D S_USR S LIKE(ENUSR) 08/02/26
1600 *--------------------------------------------------------------------------------------------- 08/03/04
1700 *--------------------------------------------------------------------------------------------- 08/01/30
1800 * KLIST DES FICHIERS 08/01/30
1900 *--------------------------------------------------------------------------------------------- 08/01/30
2000 C K_ENV KLIST FADMENV 08/02/11
2100 C KFLD V_USRX NOM USER 08/03/28
2200 * 08/01/30
2300 *--------------------------------------------------------------------------------------------- 08/01/30
2400 * 08/01/30
2500 * 08/01/30
2600 *--------------------------------------------------------------------------------------------- 08/01/30
2700 * INIT DU PGM 08/01/30
2800 *--------------------------------------------------------------------------------------------- 08/01/30
2900 C MOVE *ALL'0' *IN 08/01/30
3000 *--------------------------------------------------------------------------------------------- 08/01/30
3100 C EXSR $SFL 08/02/26
3200 C DO *HIVAL 08/01/30
3300 C WRITE SENVI1 08/02/26
3400 C EXFMT SENVC1 08/02/26
3500 C 03 LEAVE 08/01/30
3600 08/01/30
3700 C EXSR $SFL 08/03/21
3800 *----------------------------------------------* 08/01/30
3900 C ENDDO 08/01/30
4000 *--------------------------------------------------------------------------------------------- 08/01/30
4100 *--------------------------------------------------------------------------------------------- 08/01/30
4200 * FIN PROPRAMME 08/01/30
4300 *--------------------------------------------------------------------------------------------- 08/01/30
4400 C SETON LR 08/01/30
4500 ********************************************************************************************** 08/01/30
4600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
4700 * SFL 08/01/30
4800 *--------------------------------------------------------------------------------------------- 08/01/30
4900 C $SFL BEGSR 08/01/30
5000 *---KEY ACCES SFL 08/01/30
5100 C K_SFL KLIST FADMENV 08/03/28
5200 C KFLD S_USR 08/02/26
5300 *----- 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C SETOFF 9195 08/01/30
5500 C SETON 96 08/01/30
5600 C WRITE SENVC1 08/02/11
5700 C SETOFF 96 08/01/30
5800 *--------------------------------------------------------------------------------------------- 08/01/30
5900 C SELECT 08/01/30
6000 C WHEN V_KEY = F_PGA 08/01/30
6100 C *LOVAL SETLL FADMENV 08/02/11
6200 C K_SFL SETLL FADMENV 08/02/11
6300 C DO 17 08/01/30
6400 C READP ADMENVF1 33 08/03/21
6500 C 33 LEAVE 08/01/30
6600 C MOVE ENUSR S_USR 08/02/26
6700 C ENDDO 08/01/30
6800 *- 08/01/30
6900 C WHEN V_KEY = F_PGB 08/01/30
7000 *- 08/01/30
7100 C OTHER 08/01/30
7200 C MOVE V_USRX S_USR 08/02/26
7300 C ENDSL 08/01/30
7400 *--------------------------------------------------------------------------------------------- 08/01/30
7500 C *LOVAL SETLL FADMENV 08/02/11
7600 C K_SFL SETLL FADMENV 08/02/11
7700 08/02/03
7800 C DO 18 LIGN1 4 0 08/01/30
7900 C READ ADMENVF1 95 IND MORE 08/03/21
8000 C 95 LEAVE 08/02/03
8100 C WRITE SENVE1 08/02/11
8200 *- 08/01/30
8300 C LIGN1 IFEQ 1 08/01/30
8400 C MOVE ENUSR S_USR 08/02/26
8500 C ENDIF 08/01/30
8600 *- 08/01/30
8700 C SETON 91 08/01/30
8800 C ENDDO 08/01/30
8900 C Z-ADD 1 LIGN1 08/01/30
9000 *----- 08/01/30
9100 C ENDSR 08/01/30
9200 ***************************************************************** 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMGRP IF E K DISK 08/03/21
600 FSADMAFFGRPCF E WORKSTN INFDS(V_DSPF) 08/03/21
700 F SFILE(SGRPE1:LIGN1) 08/01/30
800 * 08/01/30
900 *--------------------------------------------------------------------------------------------- 08/01/30
1000 * UDS 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/01/30
1400 D S_SOC S LIKE(GRSOC) 08/02/03
1500 D S_GRP S LIKE(GRGRP) 08/01/30
1600 *--------------------------------------------------------------------------------------------- 08/01/30
1700 * 08/01/30
1800 * 08/01/30
1900 *--------------------------------------------------------------------------------------------- 08/01/30
2000 * KLIST DES FICHIERS 08/01/30
2100 *--------------------------------------------------------------------------------------------- 08/01/30
2200 C K_GR KLIST FADMGRP 08/02/03
2300 C KFLD V_SOC NOM SOCIETE 08/02/03
2400 C KFLD V_GRP NOM DU GROUPE 08/01/30
2500 * 08/01/30
2600 *--------------------------------------------------------------------------------------------- 08/01/30
2700 * 08/01/30
2800 * 08/01/30
2900 *--------------------------------------------------------------------------------------------- 08/01/30
3000 * INIT DU PGM 08/01/30
3100 *--------------------------------------------------------------------------------------------- 08/01/30
3200 C MOVE *ALL'0' *IN 08/01/30
3300 *--------------------------------------------------------------------------------------------- 08/01/30
3400 *--------------------------------------------------------------------------------------------- 08/01/30
3500 * DEBUT PROGRAMME 08/01/30
3600 *--------------------------------------------------------------------------------------------- 08/01/30
3700 C EXSR $SFL 08/02/22
3800 C WRITE SGRPI1 08/03/21
3900 C DO *HIVAL 08/01/30
4000 C EXFMT SGRPC1 08/01/30
4100 C 03 LEAVE 08/01/30
4200 08/01/30
4300 C EXSR $SFL 08/03/21
4400 *----------------------------------------------* 08/01/30
4500 C ENDDO 08/01/30
4600 *--------------------------------------------------------------------------------------------- 08/01/30
4700 *--------------------------------------------------------------------------------------------- 08/01/30
4800 * FIN PROGRAMME 08/01/30
4900 *--------------------------------------------------------------------------------------------- 08/01/30
5000 C SETON LR 08/01/30
5100 ********************************************************************************************** 08/01/30
5200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
5300 * SFL 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *--------------------------------------------------------------------------------------------- 08/01/30
5500 C $SFL BEGSR 08/01/30
5600 *---KEY ACCES SFL 08/01/30
5700 C K_SFL KLIST FADMGRP 08/02/03
5800 C KFLD S_SOC 08/02/03
5900 C KFLD S_GRP 08/01/30
6000 *----- 08/01/30
6100 C SETOFF 9195 08/01/30
6200 C SETON 96 08/01/30
6300 C WRITE SGRPC1 08/01/30
6400 C SETOFF 96 08/01/30
6500 *--------------------------------------------------------------------------------------------- 08/01/30
6600 C SELECT 08/01/30
6700 C WHEN V_KEY = F_PGA 08/01/30
6800 C *LOVAL SETLL FADMGRP 08/02/03
6900 C K_SFL SETLL FADMGRP 08/02/03
7000 C DO 18 08/01/30
7100 C READP ADMGRPF1 33 08/03/21
7200 C 33 LEAVE 08/02/03
7300 C MOVE GRSOC S_SOC 08/02/03
7400 C MOVE GRGRP S_GRP 08/02/03
7500 C ENDDO 08/01/30
7600 *- 08/01/30
7700 C WHEN V_KEY = F_PGB 08/01/30
7800 *- 08/01/30
7900 C OTHER 08/01/30
8000 C MOVE V_SOC S_SOC 08/02/03
8100 C MOVE V_GRP S_GRP 08/01/30
8200 C ENDSL 08/01/30
8300 *--------------------------------------------------------------------------------------------- 08/01/30
8400 C *LOVAL SETLL FADMGRP 08/02/03
8500 C K_SFL SETLL FADMGRP 08/02/03
8600 *----- 08/01/30
8700 C DO 19 LIGN1 4 0 08/01/30
8800 C READ ADMGRPF1 95 IND MORE 08/03/21
8900 C 95 LEAVE 08/01/30
9000 C WRITE SGRPE1 08/01/30
9100 *- 08/01/30
9200 C LIGN1 IFEQ 1 08/01/30
9300 C MOVE GRSOC S_SOC 08/02/03
9400 C MOVE GRGRP S_GRP 08/01/30
9500 C ENDIF 08/01/30
9600 *- 08/01/30
9700 C SETON 91 08/01/30
9800 C ENDDO 08/01/30
9900 C Z-ADD 1 LIGN1 08/01/30
10000 *----- 08/01/30
10100 C ENDSR 08/01/30
10200 *============================================================================================= 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMLIB IF E K DISK 08/03/21
600 FSADMAFFLIBCF E WORKSTN INFDS(V_DSPF) 08/03/21
700 F SFILE(SLIBE1:LIGN1) 08/03/26
800 FFADMSOC IF E K DISK 08/03/04
900 FFADMPRJ IF E K DISK 08/03/04
1000 FLADMPRJC IF E K DISK RENAME(ADMPRJF1 :ADMPRJFC) 08/03/21
1100 * 08/02/05
1200 *--------------------------------------------------------------------------------------------- 08/02/05
1300 * UDS 08/02/05
1400 *--------------------------------------------------------------------------------------------- 08/02/05
1500 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/26
1600 D LIGN2 S LIKE(LIGN1) 08/03/23
1700 D I S 4S 0 INZ(*ZEROS) 08/02/05
1800 D S_SOC S LIKE(LISOC ) 08/02/22
1900 D S_PRJ S LIKE(LIPRJ ) 08/02/22
2000 *--------------------------------------------------------------------------------------------- 08/03/04
2100 D P_SOC S LIKE(PRSOC ) 08/03/04
2200 D P_PRJ S LIKE(PRPRJ) 08/03/04
2300 D P_IN03 S LIKE(*IN) 08/03/04
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 * KLIST DES FICHIERS 08/02/05
2600 *--------------------------------------------------------------------------------------------- 08/02/05
2700 C K_LI KLIST *FADMLIB 08/02/22
2800 C KFLD V_SOC *SOCIETE 08/02/22
2900 C KFLD V_PRJ *PROJET 08/02/22
3000 C KFLD V_SEQ *SEQUENCE 08/03/23
3100 * 08/02/22
3200 C K_PR KLIST *FADMPRJ 08/03/23
3300 C KFLD V_SOC *NOM SOCIETE 08/03/23
3400 C KFLD V_PRJ *NOM DU PROJET 08/03/23
3500 * 08/03/21
3600 C K_PRC KLIST *FADMPRJ 08/03/23
3700 C KFLD LISOC *NOM SOCIETE 08/03/25
3800 C KFLD LIPLIB *LIB PROJET 08/03/25
3900 * 08/02/22
4000 * 08/02/05
4100 *--------------------------------------------------------------------------------------------- 08/02/05
4200 * 08/02/05
4300 * 08/02/05
4400 *--------------------------------------------------------------------------------------------- 08/02/05
4500 * INIT DU PGM 08/02/05
4600 *--------------------------------------------------------------------------------------------- 08/02/05
4700 C MOVE *ALL'0' *IN 08/02/05
4800 *--------------------------------------------------------------------------------------------- 08/02/22
4900 * DEBUT PROPRAMME (DEMANDE LA SOCIETE & PROJET) 08/02/22
5000 C DO *HIVAL 08/03/25
5100 * 08/03/25
5200 C MOVE *BLANKS V_PRJ 08/03/25
5300 C MOVE *BLANKS V_SOC 08/03/25
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C CLEAR SOTXT 08/03/25
5500 * 08/03/25
5600 C DO *HIVAL 08/02/22
5700 C EXFMT SLIBS1 08/02/22
5800 C 03 GOTO T_FIN 08/03/25
5900 C 04 EXSR $HLP_01 08/03/04
6000 C 04 ITER 08/02/22
6100 08/02/22
6200 C V_SOC CHAIN ADMSOCF1 27 08/03/25
6300 C N27K_PR CHAIN ADMPRJF1 27 08/03/25
6400 C 27 ITER 08/02/22
6500 C EVAL *IN28 = SOSHS = 1 ENRG HS 08/03/25
6600 C 28 ITER 08/02/22
6700 C 10 LEAVE 08/03/25
6800 C ENDDO 08/02/22
6900 *--------------------------------------------------------------------------------------------- 08/02/22
7000 *--------------------------------------------------------------------------------------------- 08/02/05
7100 * DEBUT PROPRAMME 08/02/05
7200 *--------------------------------------------------------------------------------------------- 08/02/05
7300 C EXSR $SFL 08/02/13
7400 C WRITE SLIBI1 08/03/21
7500 C DO *HIVAL 08/02/05
7600 C EXFMT SLIBC1 08/02/22
7700 C 03 LEAVE 08/02/05
7800 C 12 LEAVE 08/03/25
7900 C EXSR $SFL 08/03/21
8000 *----------------------------------------------* 08/02/05
8100 C ENDDO 08/02/05
8200 C 03 LEAVE 08/03/25
8300 C ENDDO 08/03/25
8400 *--------------------------------------------------------------------------------------------- 08/02/05
8500 *--------------------------------------------------------------------------------------------- 08/02/05
8600 * FIN PROPRAMME 08/02/05
8700 *--------------------------------------------------------------------------------------------- 08/02/05
8800 C T_FIN TAG 08/02/22
8900 C SETON LR 08/02/05
9000 ********************************************************************************************** 08/02/05
9100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
9200 * SFL 08/02/05
9300 *--------------------------------------------------------------------------------------------- 08/02/05
9400 C $SFL BEGSR 08/02/05
9500 *---KEY ACCES SFL 08/02/05
9600 C K_SFL KLIST *FADMLIB 08/02/22
9700 C KFLD V_SOC *SOCIETE 08/02/22
9800 C KFLD V_PRJ *PROJET 08/03/25
9900 *----- 08/02/05
10000 C SETOFF 9195 08/02/05
10100 C SETON 96 08/02/05
10200 C WRITE SLIBC1 08/02/22
10300 C SETOFF 96 08/02/05
10400 *--------------------------------------------------------------------------------------------- 08/02/05
10500 *--------------------------------------------------------------------------------------------- 08/02/05
10600 C Z-ADD *ZEROS LIGN1 08/03/25
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:46 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C Z-ADD *ZEROS LIGN2 08/03/25
10800 * 08/03/25
10900 C *LOVAL SETLL ADMLIBF1 08/02/22
11000 C K_LI SETLL ADMLIBF1 08/03/21
11100 08/02/05
11200 C DO *HIVAL LIGN1 4 0 08/02/22
11300 C K_SFL READE ADMLIBF1 95 *95 =EOF & SFLEND 08/03/21
11400 C 95 LEAVE 08/02/05
11500 * 08/03/25
11600 C K_PRC CHAIN ADMPRJFC 33 08/02/22
11700 C 33 EVAL PRTXT = '*EXTERN PROJET' 08/02/22
11800 C WRITE SLIBE1 08/02/22
11900 * 08/03/25
12000 C LIGN1 IFEQ 1 08/03/25
12100 C MOVE LISEQ V_SEQ 08/03/25
12200 C ENDIF 08/03/25
12300 C IF LISEQ = V_SEQ AND 08/03/25
12400 C LISOC = V_SOC AND 08/03/25
12500 C LIPRJ = V_PRJ 08/03/25
12600 C Z-ADD LIGN1 LIGN2 08/03/25
12700 C ENDIF 08/03/25
12800 * 08/03/21
12900 C SETON 91 08/02/05
13000 C ENDDO 08/02/05
13100 * 08/03/23
13200 C MOVE *BLANKS V_SEQ 08/03/23
13300 * 08/03/23
13400 C LIGN2 IFGT *ZEROS 08/03/25
13500 C Z-ADD LIGN2 LIGN1 08/03/25
13600 C ELSE 08/03/25
13700 C Z-ADD 1 LIGN1 08/03/23
13800 C ENDIF 08/03/25
13900 *----- 08/02/05
14000 C ENDSR 08/02/05
14100 ***************************************************************** 08/02/05
14200 *--------------------------------------------------------------------------------------------- 08/02/22
14300 * TOUCHE F4 08/02/22
14400 *--------------------------------------------------------------------------------------------- 08/02/22
14500 C 08/02/22
14600 C $HLP_01 BEGSR 08/02/22
14700 * 08/02/22
14800 C C CALLB 'XADMPRJP' 08/03/25
14900 C PARM P_SOC 08/03/04
15000 C PARM P_PRJ 08/03/04
15100 C PARM P_IN03 08/03/04
15200 C MOVE P_SOC V_SOC 08/02/25
15300 C MOVE P_PRJ V_PRJ 08/02/25
15400 C MOVE P_IN03 *IN03 08/03/04
15500 C V_SOC CHAIN ADMSOCF1 33 08/03/25
15600 C ENDSR 08/02/22
15700 ***************************************************************** 08/02/22
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMMNU UF A E K DISK 08/03/04
600 FSADMAFFMNUCF E WORKSTN INFDS(V_DSPF) 08/03/26
700 F SFILE(SMNUE1:LIGN1) 08/02/26
800 * 08/01/30
900 *--------------------------------------------------------------------------------------------- 08/01/30
1000 * UDS 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/01/30
1400 D S_OOBJ S LIKE(MNOOBJ) 08/02/26
1500 D LIGN2 S LIKE(LIGN1) 08/03/04
1600 *--------------------------------------------------------------------------------------------- 08/01/30
1700 * 08/01/30
1800 * 08/01/30
1900 *--------------------------------------------------------------------------------------------- 08/01/30
2000 * KLIST DES FICHIERS 08/01/30
2100 *--------------------------------------------------------------------------------------------- 08/01/30
2200 C K_MN KLIST FADMMNU 08/02/26
2300 C KFLD V_OOBJ NOM OBJET 08/02/26
2400 * 08/01/30
2500 *--------------------------------------------------------------------------------------------- 08/01/30
2600 * 08/01/30
2700 * 08/01/30
2800 *--------------------------------------------------------------------------------------------- 08/01/30
2900 * INIT DU PGM 08/01/30
3000 *--------------------------------------------------------------------------------------------- 08/01/30
3100 C MOVE *ALL'0' *IN 08/01/30
3200 *--------------------------------------------------------------------------------------------- 08/01/30
3300 *--------------------------------------------------------------------------------------------- 08/01/30
3400 * DEBUT PROGRAMME 08/01/30
3500 *--------------------------------------------------------------------------------------------- 08/01/30
3600 C EXSR $SFL 08/03/26
3700 C WRITE SMNUI1 08/03/26
3800 C DO *HIVAL 08/01/30
3900 C EXFMT SMNUC1 08/02/26
4000 * 08/03/26
4100 C MOVE *ZEROS V_NTYP 08/03/26
4200 C MOVE *ZEROS V_NOPT 08/03/26
4300 C MOVE *BLANKS V_TXT 08/03/26
4400 C MOVE *ZEROS V_SHS 08/03/26
4500 C SETOFF 50 08/03/26
4600 * 08/03/26
4700 C 03 LEAVE 08/01/30
4800 C SETOFF 55 08/02/29
4900 08/02/29
5000 C EXSR $SFL 08/03/26
5100 *----------------------------------------------* 08/01/30
5200 C 03 LEAVE 08/01/30
5300 C ENDDO 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *--------------------------------------------------------------------------------------------- 08/01/30
5500 *--------------------------------------------------------------------------------------------- 08/01/30
5600 * FIN PROGRAMME 08/01/30
5700 *--------------------------------------------------------------------------------------------- 08/01/30
5800 C SETON LR 08/01/30
5900 ********************************************************************************************** 08/01/30
6000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
6100 * SFL 08/01/30
6200 *--------------------------------------------------------------------------------------------- 08/01/30
6300 C $SFL BEGSR 08/01/30
6400 *----- 08/01/30
6500 C K_SFL KLIST 08/03/26
6600 C KFLD V_OOBJ 08/03/26
6700 * 08/03/26
6800 C SETOFF 9195 08/01/30
6900 C SETON 96 08/01/30
7000 C WRITE SMNUC1 08/02/26
7100 C SETOFF 96 08/01/30
7200 *--------------------------------------------------------------------------------------------- 08/01/30
7300 C *LOVAL SETLL FADMMNU 08/03/26
7400 C K_SFL SETLL FADMMNU 08/03/26
7500 *----- 08/01/30
7600 C DO *HIVAL LIGN1 4 0 08/03/04
7700 C READ ADMMNUF1 95 IND MORE 08/03/26
7800 C 95 LEAVE 08/01/30
7900 C WRITE SMNUE1 08/03/26
8000 *- 08/01/30
8100 C V_OOBJ IFEQ MNOOBJ 08/03/04
8200 C SETON 50 08/03/26
8300 C Z-ADD MNNTYP V_NTYP 08/03/26
8400 C Z-ADD MNNOPT V_NOPT 08/03/26
8500 C MOVE MNTXT V_TXT 08/03/26
8600 C Z-ADD *ZEROS V_SHS 08/03/26
8700 * 08/03/26
8800 C Z-ADD LIGN1 LIGN2 55 08/03/04
8900 C ENDIF 08/01/30
9000 *- 08/01/30
9100 C SETON 91 08/01/30
9200 C ENDDO 08/01/30
9300 * 08/03/26
9400 C Z-ADD 1 LIGN1 08/01/30
9500 C 55 Z-ADD LIGN2 LIGN1 08/03/04
9600 *----- 08/01/30
9700 C ENDSR 08/01/30
9800 ***************************************************************** 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/04/07
200 *DFTACTGRP(*NO) 08/04/07
300 *--------------------------------------------------------------------------------------------- 08/01/30
400 * DECLARATION DE FICHIER 08/01/30
500 *--------------------------------------------------------------------------------------------- 08/01/30
600 FFADMPRJ IF E K DISK 08/04/07
700 FFADMSOC IF E K DISK 08/04/07
800 FSADMAFFPRJCF E WORKSTN INFDS(V_DSPF) 08/04/07
900 F SFILE(SPRJE1:LIGN1) 08/01/30
1000 * 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 * UDS 08/01/30
1300 *--------------------------------------------------------------------------------------------- 08/01/30
1400 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1500 D I S 4S 0 INZ(*ZEROS) 08/01/30
1600 D S_GRP S LIKE(PRGRP) 08/01/30
1700 D S_SEQ S LIKE(PRSEQ) 08/01/30
1800 D S_PRJ S LIKE(PRPRJ) 08/01/30
1900 *--------------------------------------------------------------------------------------------- 08/01/30
2000 * 08/01/30
2100 D P_SOC S LIKE(PRSOC) 08/02/29
2200 D P_GRP S LIKE(PRGRP) 08/02/29
2300 D P_IN03 S LIKE(*IN ) 08/03/04
2400 *--------------------------------------------------------------------------------------------- 08/01/30
2500 * 08/01/30
2600 * 08/01/30
2700 *--------------------------------------------------------------------------------------------- 08/01/30
2800 * KLIST DES FICHIERS 08/01/30
2900 *--------------------------------------------------------------------------------------------- 08/01/30
3000 C K_PR KLIST FADMPRJ 08/02/03
3100 C KFLD SOSOC NOM SOCIETE 08/02/03
3200 C KFLD V_PRJ NOM DU PROJET 08/01/30
3300 * 08/01/30
3400 *--------------------------------------------------------------------------------------------- 08/01/30
3500 * 08/01/30
3600 * 08/01/30
3700 *--------------------------------------------------------------------------------------------- 08/01/30
3800 * INIT DU PGM 08/01/30
3900 *--------------------------------------------------------------------------------------------- 08/01/30
4000 C MOVE *ALL'0' *IN 08/01/30
4100 *--------------------------------------------------------------------------------------------- 08/01/30
4200 *--------------------------------------------------------------------------------------------- 08/01/30
4300 * DEBUT PROPRAMME (DEMANDE LA SOCIETE) 08/02/21
4400 C T_DEBUT TAG 08/04/07
4500 C CLEAR SOSOC 08/04/07
4600 C CLEAR SOTXT 08/04/07
4700 C CLEAR PRPRJ 08/04/07
4800 C DO *HIVAL 08/02/03
4900 C EXFMT SPRJS1 08/02/03
5000 C 03 GOTO T_FIN 08/02/14
5100 C 04 EXSR $HLP_01 08/02/22
5200 C SOSOC CHAIN ADMSOCF1 27 08/02/03
5300 C 27 ITER 08/02/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EVAL *IN28 = NOT *IN27 AND SOSHS = 1 ENRG HS 08/02/03
5500 C 28 ITER 08/02/03
5600 C 10 LEAVE 08/02/03
5700 C ENDDO 08/02/03
5800 *--------------------------------------------------------------------------------------------- 08/01/30
5900 C EXSR $SFL 08/04/07
6000 C DO *HIVAL 08/01/30
6100 C WRITE SPRJI1 08/01/30
6200 C EXFMT SPRJC1 08/01/30
6300 C SETOFF 50 08/04/07
6400 C 03 LEAVE 08/01/30
6500 C 12 GOTO T_DEBUT 08/04/07
6600 08/01/30
6700 C EXSR $SFL 08/04/07
6800 *----------------------------------------------* 08/01/30
6900 C* 03 LEAVE 08/04/07
7000 C ENDDO 08/01/30
7100 *--------------------------------------------------------------------------------------------- 08/01/30
7200 *--------------------------------------------------------------------------------------------- 08/01/30
7300 * FIN PROPRAMME 08/01/30
7400 *--------------------------------------------------------------------------------------------- 08/01/30
7500 C T_FIN TAG 08/02/14
7600 C SETON LR 08/01/30
7700 ********************************************************************************************** 08/01/30
7800 C Z-ADD *ZEROS LIGN1 08/04/07
7900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
8000 * SFL 08/01/30
8100 *--------------------------------------------------------------------------------------------- 08/01/30
8200 C $SFL BEGSR 08/01/30
8300 *---KEY ACCES SFL 08/01/30
8400 C K_SFL KLIST FADMPRJ 08/04/07
8500 C KFLD SOSOC NOM SOCIETE 08/04/07
8600 C KFLD S_PRJ NOM DU PROJET 08/04/07
8700 *----- 08/01/30
8800 C SETOFF 9195 08/01/30
8900 C SETON 96 08/01/30
9000 C WRITE SPRJC1 08/01/30
9100 C SETOFF 96 08/01/30
9200 *--------------------------------------------------------------------------------------------- 08/01/30
9300 C SELECT 08/01/30
9400 C WHEN V_KEY = F_PGA 08/01/30
9500 C *LOVAL SETLL ADMPRJF1 08/04/07
9600 C K_SFL SETLL ADMPRJF1 08/04/07
9700 C DO 17 08/03/18
9800 C SOSOC READPE ADMPRJF1 33 08/04/07
9900 C 33 LEAVE 08/01/30
10000 C MOVE PRPRJ S_PRJ 08/01/30
10100 C ENDDO 08/01/30
10200 *- 08/01/30
10300 C WHEN V_KEY = F_PGB 08/01/30
10400 C MOVE PRPRJ S_PRJ 08/02/21
10500 *- 08/01/30
10600 C OTHER 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C K_PR CHAIN ADMPRJF1 33 08/04/07
10800 C IF NOT *IN33 08/01/30
10900 C MOVE V_PRJ S_PRJ 08/01/30
11000 C ELSE 08/02/03
11100 C MOVE *BLANKS S_PRJ 08/01/30
11200 C ENDIF 08/01/30
11300 C ENDSL 08/01/30
11400 *--------------------------------------------------------------------------------------------- 08/01/30
11500 C *LOVAL SETLL FADMPRJ 08/04/07
11600 C K_SFL SETLL FADMPRJ 08/04/07
11700 08/02/03
11800 C DO 18 LIGN1 4 0 08/02/22
11900 C SOSOC READE ADMPRJF1 95 IND MORE 08/04/07
12000 C 95 LEAVE 08/02/03
12100 C WRITE SPRJE1 08/01/30
12200 *- 08/01/30
12300 C LIGN1 IFEQ 1 08/02/21
12400 C MOVE PRPRJ S_PRJ 08/01/30
12500 C ENDIF 08/01/30
12600 * 08/04/07
12700 C IF PRPRJ = V_PRJ 08/04/07
12800 C SETON 50 08/04/07
12900 C MOVE PRTXT V_TXT 08/04/07
13000 C MOVE PRGRP V_GRP 08/04/07
13100 C MOVE PRLIBP V_LIBP 08/04/07
13200 C MOVE PRSEQ V_SEQ 08/04/07
13300 C MOVE PRLIBD V_LIBD 08/04/07
13400 C MOVE PRLIBQ V_LIBQ 08/04/07
13500 C MOVE PRLIBE V_LIBE 08/04/07
13600 C MOVE PRLIBU V_LIBU 08/04/07
13700 C ENDIF 08/04/07
13800 *- 08/01/30
13900 C SETON 91 08/01/30
14000 C ENDDO 08/01/30
14100 C Z-ADD 1 LIGN1 08/02/21
14200 *----- 08/01/30
14300 C ENDSR 08/01/30
14400 *============================================================================================= 08/01/30
14500 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
14600 * ERR ECRAN 01 08/01/30
14700 *--------------------------------------------------------------------------------------------- 08/01/30
14800 ***************************************************************** 08/01/30
14900 *--------------------------------------------------------------------------------------------- 08/02/14
15000 * TOUCHE F4 08/02/14
15100 *--------------------------------------------------------------------------------------------- 08/02/14
15200 * RECUPERATION SOCIETE 08/02/29
15300 C $HLP_01 BEGSR 08/02/14
15400 C C CALLB 'XADMSOCP' 33 08/04/07
15500 C PARM P_SOC 08/04/07
15600 C PARM P_IN03 08/04/07
15700 C MOVE P_SOC SOSOC 08/04/07
15800 C MOVE P_IN03 *IN03 08/04/07
15900 C ENDSR 08/02/14
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMTYP UF A E K DISK 08/04/02
600 FSADMAFFTYPCF E WORKSTN INFDS(V_DSPF) 08/04/02
700 F SFILE(STYPE1:LIGN1) 08/04/02
800 * 08/01/30
900 *--------------------------------------------------------------------------------------------- 08/01/30
1000 * UDS 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/01/30
1400 D LIGN2 S LIKE(LIGN1) 08/03/04
1500 *--------------------------------------------------------------------------------------------- 08/01/30
1600 * 08/01/30
1700 * 08/01/30
1800 *--------------------------------------------------------------------------------------------- 08/01/30
1900 * KLIST DES FICHIERS 08/01/30
2000 *--------------------------------------------------------------------------------------------- 08/01/30
2100 C K_TY KLIST FADMTYP 08/04/02
2200 C KFLD V_OTYP NOM OBJET 08/04/02
2300 * 08/01/30
2400 *--------------------------------------------------------------------------------------------- 08/01/30
2500 * 08/01/30
2600 * 08/01/30
2700 *--------------------------------------------------------------------------------------------- 08/01/30
2800 * INIT DU PGM 08/01/30
2900 *--------------------------------------------------------------------------------------------- 08/01/30
3000 C MOVE *ALL'0' *IN 08/01/30
3100 *--------------------------------------------------------------------------------------------- 08/01/30
3200 *--------------------------------------------------------------------------------------------- 08/01/30
3300 * DEBUT PROGRAMME 08/01/30
3400 *--------------------------------------------------------------------------------------------- 08/01/30
3500 C EXSR $SFL 08/03/26
3600 C WRITE STYPI1 08/04/02
3700 C DO *HIVAL 08/01/30
3800 C EXFMT STYPC1 08/04/02
3900 C MOVE *BLANKS V_TXT 08/04/02
4000 * 08/03/26
4100 C SETOFF 50 08/03/26
4200 * 08/03/26
4300 C 03 LEAVE 08/01/30
4400 C SETOFF 55 08/02/29
4500 08/02/29
4600 C EXSR $SFL 08/03/26
4700 *----------------------------------------------* 08/01/30
4800 C 03 LEAVE 08/01/30
4900 C ENDDO 08/01/30
5000 *--------------------------------------------------------------------------------------------- 08/01/30
5100 *--------------------------------------------------------------------------------------------- 08/01/30
5200 * FIN PROGRAMME 08/01/30
5300 *--------------------------------------------------------------------------------------------- 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C SETON LR 08/01/30
5500 ********************************************************************************************** 08/01/30
5600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
5700 * SFL 08/01/30
5800 *--------------------------------------------------------------------------------------------- 08/01/30
5900 C $SFL BEGSR 08/01/30
6000 *----- 08/01/30
6100 C K_SFL KLIST 08/03/26
6200 C KFLD V_OTYP 08/04/02
6300 * 08/03/26
6400 C SETOFF 9195 08/01/30
6500 C SETON 96 08/01/30
6600 C WRITE STYPC1 08/04/02
6700 C SETOFF 96 08/01/30
6800 *--------------------------------------------------------------------------------------------- 08/01/30
6900 C *LOVAL SETLL FADMTYP 08/04/02
7000 C K_SFL SETLL FADMTYP 08/04/02
7100 *----- 08/01/30
7200 C DO *HIVAL LIGN1 4 0 08/03/04
7300 C READ ADMTYPF1 95 IND MORE 08/04/02
7400 C 95 LEAVE 08/01/30
7500 C WRITE STYPE1 08/04/02
7600 *- 08/01/30
7700 C V_OTYP IFEQ TYOTYP 08/04/02
7800 C V_OATR ANDEQ TYOATR 08/04/02
7900 C V_OFCH ANDEQ TYOFCH 08/04/02
8000 C V_OCMD ANDEQ TYOCMD 08/04/02
8100 C SETON 50 08/03/26
8200 C MOVE TYOTYP V_OTYP 08/04/02
8300 C MOVE TYOATR V_OATR 08/04/02
8400 C MOVE TYOFCH V_OFCH 08/04/02
8500 C MOVE TYOCMD V_OCMD 08/04/02
8600 C MOVE TYTXT V_TXT 08/04/02
8700 C MOVE TYOYNS V_OYNS 08/04/02
8800 C MOVE TYOYNO V_OYNO 08/04/02
8900 C Z-ADD TYSHS V_SHS 08/04/02
9000 * 08/03/26
9100 C Z-ADD LIGN1 LIGN2 55 08/03/04
9200 C ENDIF 08/01/30
9300 *- 08/01/30
9400 C SETON 91 08/01/30
9500 C ENDDO 08/01/30
9600 * 08/03/26
9700 C Z-ADD 1 LIGN1 08/01/30
9800 C 55 Z-ADD LIGN2 LIGN1 08/03/04
9900 *----- 08/01/30
10000 C ENDSR 08/01/30
10100 ***************************************************************** 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMUSR UF A E K DISK 08/03/04
600 FSADMAFFUSRCF E WORKSTN INFDS(V_DSPF) 08/03/26
700 F SFILE(SUSRE1:LIGN1) 08/02/20
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/02/05
1400 D LIGN2 S LIKE(LIGN1) 08/03/04
1500 *--------------------------------------------------------------------------------------------- 08/02/05
1600 * 08/02/05
1700 * 08/02/05
1800 *--------------------------------------------------------------------------------------------- 08/02/05
1900 * KLIST DES FICHIERS 08/02/05
2000 *--------------------------------------------------------------------------------------------- 08/02/05
2100 C K_US KLIST *FADMUSR 08/02/20
2200 C KFLD V_USR USER 08/02/20
2300 * 08/02/05
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 * 08/02/05
2600 * 08/02/05
2700 *--------------------------------------------------------------------------------------------- 08/02/05
2800 * INIT DU PGM 08/02/05
2900 *--------------------------------------------------------------------------------------------- 08/02/05
3000 C MOVE *ALL'0' *IN 08/02/05
3100 *--------------------------------------------------------------------------------------------- 08/02/05
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 * DEBUT PROPRAMME 08/02/05
3400 *--------------------------------------------------------------------------------------------- 08/02/05
3500 C* V_USER CABNE 'ADMOPS' T_FIN 08/03/26
3600 C EXSR $SFL 08/02/13
3700 C DO *HIVAL 08/02/05
3800 C WRITE SUSRI1 08/02/20
3900 C EXFMT SUSRC1 08/02/20
4000 C 03 LEAVE 08/02/05
4100 08/02/05
4200 C SETOFF 50 08/03/26
4300 *----------------------------------------------* 08/02/05
4400 C EXSR $SFL 08/03/26
4500 C 03 LEAVE 08/02/05
4600 C ENDDO 08/02/05
4700 *--------------------------------------------------------------------------------------------- 08/02/05
4800 *--------------------------------------------------------------------------------------------- 08/02/05
4900 * FIN PROPRAMME 08/02/05
5000 *--------------------------------------------------------------------------------------------- 08/02/05
5100 C T_FIN TAG 08/03/17
5200 C SETON LR 08/02/05
5300 ********************************************************************************************** 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMAFFUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
5500 * SFL 08/02/05
5600 *--------------------------------------------------------------------------------------------- 08/02/05
5700 C $SFL BEGSR 08/02/05
5800 *----- 08/02/05
5900 C K_SFL KLIST *FADMUSR 08/03/26
6000 C KFLD V_USR USER 08/03/26
6100 *----- 08/03/26
6200 C SETOFF 9195 08/02/05
6300 C SETON 96 08/02/05
6400 C WRITE SUSRC1 08/02/20
6500 C SETOFF 96 08/02/05
6600 C SETOFF 55 08/03/04
6700 *--------------------------------------------------------------------------------------------- 08/02/05
6800 C *LOVAL SETLL ADMUSRF1 08/02/20
6900 C K_SFL SETLL ADMUSRF1 08/03/26
7000 *----- 08/03/26
7100 C DO 18 LIGN1 4 0 08/02/12
7200 C READ ADMUSRF1 95 *95 =EOF & SFLEND 08/03/04
7300 C 95 LEAVE 08/02/05
7400 C WRITE SUSRE1 08/02/20
7500 *- 08/02/05
7600 C V_USR IFEQ USUSR 08/03/04
7700 C SETON 50 08/03/26
7800 C MOVE USUSR V_USR 08/03/26
7900 C MOVE USDVP V_DVP 08/03/26
8000 C MOVE USPRD V_PRD 08/03/26
8100 C Z-ADD USSHS V_SHS 08/03/26
8200 * 08/03/26
8300 C Z-ADD LIGN1 LIGN2 55 08/03/04
8400 C ENDIF 08/02/05
8500 *- 08/02/05
8600 C SETON 91 08/02/05
8700 C ENDDO 08/02/05
8800 C Z-ADD 1 LIGN1 08/02/05
8900 C 55 Z-ADD LIGN2 LIGN1 08/03/04
9000 *----- 08/02/05
9100 C ENDSR 08/02/05
9200 ***************************************************************** 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMENV IP E K DISK 08/03/28
300 FWADMLSTENVO E PRINTER OFLIND(*IN99) 08/03/20
400 * 08/03/17
500 08/03/17
600 C 99 08/03/20
700 CORN45 WRITE WENVE01 08/03/20
800 C SETON 45 08/03/17
900 * 08/03/17
1000 C WRITE WENVD01 08/03/18
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMGRP IP E K DISK 08/03/17
300 FWADMLSTGRPO E PRINTER OFLIND(*IN99) 08/03/17
400 08/03/17
500 IADMGRPF1 01 08/03/17
600 I GRSOC L1 08/03/17
700 * 08/03/17
800 C 99 08/03/17
900 COR L1 WRITE WGRPE01 99 08/03/17
1000 C WRITE WGRPD01 08/03/17
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTHST
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMHST IP E DISK 08/07/11
300 FWADMLSTHSTO E PRINTER OFLIND(*IN99) 08/07/11
400 * 08/03/17
500 DV_HTKEY S 26A CONVERT HORO EN ALPH 08/07/11
600 IADMHSTF1 01 08/07/11
700 I HTPRJ L1 08/07/11
800 I HTSOC L2 08/07/11
900 * 08/03/17
1000 C L2 08/03/19
1100 COR 99 WRITE WHSTE01 08/07/11
1200 * 08/03/20
1300 C 99 08/03/20
1400 COR L1 WRITE WHSTE02 08/07/11
1500 C EVAL *IN30 =(*INL1 OR *IN99) 08/03/20
1600 C WRITE WHSTD02 99 08/07/11
1700 C MOVE HTODMC V_ODMC DATE CRT SRC.MBR 08/07/11
1800 C MOVE HTODMJ V_ODMJ DATE MAJ SRC.MBR 08/07/16
1900 C *ISO MOVE HTKEY V_HTKEY 08/07/11
2000 ************** V_HTKEY1 = AAAA/MM/JJ ********************** 08/07/11
2100 C EVAL V_HTKEY1 = %SUBST(V_HTKEY:1:4) + '/' + 08/07/11
2200 C %SUBST(V_HTKEY:6:2) + '/' + 08/07/11
2300 C %SUBST(V_HTKEY:9:2) 08/07/11
2400 ************** V_HTKEY2 = HH:MM ********************** 08/07/11
2500 C EVAL V_HTKEY2 = %SUBST(V_HTKEY:12:2) + ':' + 08/07/11
2600 C %SUBST(V_HTKEY:15:2) 08/07/11
2700 C WRITE WHSTD01 08/07/11
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMLIB IP E K DISK 08/03/18
300 FWADMLSTLIBO E PRINTER OFLIND(*IN99) 08/03/18
400 08/03/17
500 * 08/03/18
600 IADMLIBF1 01 08/03/18
700 I LISOC L1 08/03/18
800 I LIPRJ L1 08/03/18
900 C 99 08/03/18
1000 COR L1 WRITE WLIBE01 99 08/03/18
1100 C WRITE WLIBD01 08/03/18
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FLADMMNUA IP E K DISK 08/03/20
300 FWADMLSTMNUO E PRINTER OFLIND(*IN99) 08/03/20
400 * 08/03/17
500 08/03/17
600 C 99 08/03/20
700 CORN45 WRITE WMNUE01 08/03/20
800 C SETON 45 08/03/17
900 * 08/03/17
1000 C WRITE WMNUD01 08/03/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTOBJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMOBJ IP E DISK 08/03/19
300 FFADMPRJ IF E K DISK 09/01/19
400 FWADMLSTOBJO E PRINTER OFLIND(*IN99) 08/03/19
500 FWADMLSTPRJO E PRINTER OFLIND(*IN98) 09/01/19
600 * 08/03/17
700 IADMOBJF1 01 08/03/19
800 I OBPRJ L1 08/03/19
900 I OBSOC L2 08/03/27
1000 C K_PRJ KLIST 09/01/19
1100 C KFLD OBSOC 09/01/19
1200 C KFLD OBPRJ 09/01/19
1300 * 08/03/17
1400 C L1 09/01/19
1500 COR 99 WRITE WOBJE01 08/03/20
1600 C L2 09/01/19
1700 COR 98 WRITE WPRJE01 09/01/19
1800 * 08/03/20
1900 C 99 08/03/20
2000 COR L1 WRITE WOBJE02 08/03/20
2100 C EVAL *IN30 =(*INL1 OR *IN99) 08/03/20
2200 C WRITE WOBJD02 99 08/03/20
2300 C MOVE OBODOC V_ODOC DATE CRT OBJ-SRC 08/06/30
2400 C WRITE WOBJD01 08/03/20
2500 C L1K_PRJ CHAIN ADMPRJF1 33 09/01/19
2600 C L1 WRITE WPRJD01 98 09/01/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FLADMPRJA IP E K DISK 08/03/17
300 FWADMLSTPRJO E PRINTER OFLIND(*IN99) 08/03/17
400 * 08/03/17
500 08/03/17
600 IADMPRJFA 01 08/03/17
700 I PRSOC L1 08/03/18
800 I PRGRP L1 08/03/18
900 * 08/03/17
1000 C 99 08/03/17
1100 COR L1 WRITE WPRJE01 99 08/03/18
1200 * 08/03/17
1300 C WRITE WPRJD01 08/03/17
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTSOC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMSOC IP E K DISK 08/03/17
300 FWADMLSTSOCO E PRINTER OFLIND(*IN99) 08/03/20
400 * 08/03/17
500 08/03/17
600 C 99 08/03/20
700 CORN45 WRITE WSOCE01 08/03/20
800 C SETON 45 08/03/17
900 * 08/03/17
1000 C WRITE WSOCD01 08/03/17
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMTYP IP E K DISK 08/03/18
300 FWADMLSTTYPO E PRINTER OFLIND(*IN99) 08/03/18
400 * 08/03/17
500 08/03/17
600 IADMTYPF1 01 08/03/18
700 I TYOTYP L1 08/03/18
800 * 08/03/17
900 C 99 08/03/17
1000 COR L1 WRITE WTYPE01 99 08/03/20
1100 * 08/03/17
1200 C WRITE WTYPD01 08/03/18
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMLSTUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMUSR IP E K DISK 08/03/20
300 FWADMLSTUSRO E PRINTER OFLIND(*IN99) 08/03/20
400 * 08/03/17
500 08/03/17
600 C 99 08/03/20
700 CORN45 WRITE WUSRE01 08/03/20
800 C SETON 45 08/03/17
900 * 08/03/17
1000 C WRITE WUSRD01 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMOBJDAT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMOBJ IP E DISK 08/03/19
300 FWADMOBJDATO E PRINTER OFLIND(*IN99) 08/06/24
400 * 08/03/17
500 D CRT C CONST('C') 08/06/30
600 D MAJ C CONST('M') 08/06/30
700 08/06/30
800 IADMOBJF1 01 08/03/19
900 I OBPRJ L1 08/03/19
1000 I OBSOC L2 08/06/23
1100 * 08/03/17
1200 C *ENTRY PLIST 08/06/23
1300 C PARM P_CM 1 CHOIX MAJ OU CRT 08/06/30
1400 08/06/23
1500 08/06/23
1600 * ---- 1°FOIS 08/06/30
1700 C *IN45 IFEQ *OFF 08/06/23
1800 C SETON 45 08/06/23
1900 C SELECT 08/06/23
2000 C WHEN P_CM = CRT CREATION 08/06/30
2100 C EVAL V_TXT = 'DATE DE CREATION DE L''OBJET' 08/06/23
2200 C EVAL V_TXTA = 'DatCrt-Obj' 08/06/23
2300 08/06/23
2400 C WHEN P_CM = MAJ MISE A JOUR 08/06/30
2500 C EVAL V_TXT = 'DATE DE MISE A JOUR DU SOURCE' 08/06/23
2600 C EVAL V_TXTA = 'DatMaj-Src' 08/06/23
2700 C ENDSL 08/06/23
2800 C ENDIF 08/06/23
2900 C 08/06/23
3000 C IF *INL2 OR *INL1 OR *IN99 08/06/30
3100 C WRITE WOBJE01 08/06/30
3200 C ENDIF 08/06/30
3300 * 08/03/20
3400 C 99 08/03/20
3500 COR L1 WRITE WOBJE02 08/03/20
3600 C EVAL *IN30 =(*INL1 OR *IN99) 08/03/20
3700 C WRITE WOBJD02 99 08/03/20
3800 08/06/30
3900 08/06/30
4000 C SELECT 08/06/30
4100 C WHEN P_CM = CRT CREATION 08/06/30
4200 C MOVE OBODOC V_DATE 08/06/30
4300 08/06/30
4400 C WHEN P_CM = MAJ MISE A JOUR 08/06/30
4500 C MOVE OBODMJ V_DATE 08/06/30
4600 C ENDSL 08/06/30
4700 08/06/30
4800 08/06/30
4900 C WRITE WOBJD01 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRINT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMOBJ IP E DISK 08/03/19
300 FWADMPRINT O E PRINTER OFLIND(*IN99) 08/10/27
400 * 08/03/17
500 IADMOBJF1 01 08/03/19
600 I OBPRJ L1 08/03/19
700 I OBSOC L2 08/03/27
800 * 08/03/17
900 C L2 08/03/19
1000 COR 99 WRITE WOBJE01 08/03/20
1100 * 08/03/20
1200 C 99 08/03/20
1300 COR L1 WRITE WOBJE02 08/03/20
1400 C EVAL *IN30 =(*INL1 OR *IN99) 08/03/20
1500 C 30 WRITE WOBJD02 99 08/10/27
1600 C MOVE OBODOC V_ODOC DATE CRT OBJ-SRC 08/06/30
1700 C WRITE WOBJD01 08/03/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FSADMPRT CF E WORKSTN INFDS(V_DSPF) 08/05/19
300 08/05/19
400 D/COPY QRPGLEINC,ADMR_UDS 09/07/22
500 08/05/19
600 * DEBUT PROGRAMME 08/05/19
700 *==================== 08/05/19
800 08/05/19
900 C MOVE NON V_FULL 08/05/20
1000 C MOVE OUI V_132 08/05/19
1100 C MOVE OUI V_198 08/05/19
1200 08/05/19
1300 C WRITE SPRTB0 08/05/19
1400 C WRITE SPRTW01 08/05/19
1500 C EXFMT SPRTS01 08/05/19
1600 08/05/19
1700 C *IN03 CABEQ *ON T_FIN LR 08/05/19
1800 C CALL 'PADMPRT01' 08/06/02
1900 C PARM V_FULL 08/05/19
2000 C PARM V_132 08/05/19
2100 C PARM V_198 08/05/20
2200 * 08/05/19
2300 C T_FIN TAG 08/05/19
2400 C SETON LR 08/05/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRTERR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FLADMOBJC IPE E K DISK 08/10/29
300 FWADMPRTERRO E PRINTER OFLIND(*IN99) 08/10/29
400 99/05/17
500 *--------------------------------------------------------------------------------------------- 08/04/03
600 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/04/03
700 *--------------------------------------------------------------------------------------------- 08/04/03
800 D P_LIB S LIKE(OBOLIB) 08/10/29
900 D P_OBJ S LIKE(OBOOBJ) 08/10/29
1000 D P_TYP S LIKE(OBOTYP) 08/10/29
1100 D P_MBR S LIKE(OBOOBJ) 08/10/29
1200 D TROUVE S LIKE(*IN) 08/10/29
1300 *--------------------------------------------------------------------------------------------- 08/10/29
1400 IADMOBJF1 01 08/05/16
1500 I OBSOC L3 08/03/25
1600 I OBPRJ L2 08/03/25
1700 I OBOOBJ L1 08/03/25
1800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/06/22
1900 * 08/03/25
2000 C 99 EXSR $PAGE 08/10/29
2100 * 08/04/04
2200 C L2 SETON 50 08/10/29
2300 C L2 SETOFF 51 08/10/29
2400 C IF *INL1 08/10/29
2500 C SETOFF 4041 08/10/29
2600 C IF OBOYNS ='Y' 08/10/29
2700 C CALLB 'MADMOBJCHK' 08/10/29
2800 C PARM OBOLIB P_LIB 08/10/29
2900 C PARM OBOFCH P_OBJ 08/10/29
3000 C PARM '*FILE' P_TYP 08/10/29
3100 C PARM OBOOBJ P_MBR 08/10/29
3200 C PARM TROUVE 08/10/29
3300 C EVAL *IN40 = TROUVE = *OFF 08/10/29
3400 C ENDIF 08/10/29
3500 C IF OBOYNO ='Y' 08/10/29
3600 C CALLB 'MADMOBJCHK' 08/10/29
3700 C PARM OBOLIB P_LIB 08/10/29
3800 C PARM OBOOBJ P_OBJ 08/10/29
3900 C PARM OBOTYP P_TYP 08/10/29
4000 C PARM '*NONE' P_MBR 08/10/29
4100 C PARM TROUVE 08/10/29
4200 C EVAL *IN41 = TROUVE = *OFF 08/10/29
4300 C ENDIF 08/10/29
4400 C IF *IN40 OR *IN41 08/10/29
4500 C 50 EXSR $PAGE 08/10/29
4600 C WRITE WPRTD01 08/10/29
4700 C ENDIF 08/10/29
4800 C ENDIF 08/10/29
4900 CL2 51 WRITE WPRTD02 08/10/29
5000 C 08/10/29
5100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/04/04
5200 C $PAGE BEGSR 08/04/04
5300 C WRITE WPRTE01 08/05/16
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRTERR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C WRITE WPRTE02 08/05/16
5500 C SETOFF 9950 08/10/29
5600 C SETON 51 08/10/29
5700 C ENDSR 08/04/04
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRTOBJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/06/20
200 *--------------------------------------------------------------------------------------------- 08/06/20
300 * DECLARATION DE FICHIER 08/06/20
400 *--------------------------------------------------------------------------------------------- 08/06/20
500 FFADMUSR IF E K DISK 08/06/20
600 FSADMPRTOBJCF E WORKSTN INFDS(V_DSPF) 08/06/24
700 F SFILE(SPRTOBJWE1:LIGN1) 08/06/24
800 * 08/06/20
900 *--------------------------------------------------------------------------------------------- 08/06/20
1000 * UDS 08/06/20
1100 *--------------------------------------------------------------------------------------------- 08/06/20
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/06/20
1300 D V_USR S LIKE(USUSR) 08/06/20
1400 * 08/06/20
1500 *--------------------------------------------------------------------------------------------- 08/06/20
1600 * DEBUT PROPRAMME 08/06/20
1700 *--------------------------------------------------------------------------------------------- 08/06/20
1800 C WRITE SPRTOBJB0 08/06/24
1900 C EXSR $SFL 08/06/20
2000 C DO *HIVAL 08/06/20
2100 C EXFMT SPRTOBJC1 08/06/24
2200 08/06/20
2300 C 91 READC SPRTOBJWE1 33 08/06/24
2400 C 91 IF NOT *IN33 08/06/20
2500 C MOVEL USUSR V_USR 08/06/20
2600 C MOVE *BLANK V_CHX 08/06/20
2700 C UPDATE SPRTOBJWE1 08/06/24
2800 08/06/23
2900 C CALL 'PADMPRTOBJ' 08/06/24
3000 C PARM V_USR 08/06/23
3100 08/06/23
3200 C LEAVE 08/06/20
3300 C ENDIF 08/06/23
3400 * 08/06/20
3500 *----------------------------------------------* 08/06/20
3600 C 03 LEAVE 08/06/20
3700 C ENDDO 08/06/20
3800 *--------------------------------------------------------------------------------------------- 08/06/20
3900 * FIN PROPRAMME 08/06/20
4000 *--------------------------------------------------------------------------------------------- 08/06/20
4100 C SETON LR 08/06/20
4200 ********************************************************************************************** 08/06/20
4300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/06/20
4400 * SFL 08/06/20
4500 *--------------------------------------------------------------------------------------------- 08/06/20
4600 C $SFL BEGSR 08/06/20
4700 *----- 08/06/20
4800 C SETOFF 9195 08/06/20
4900 C SETON 96 08/06/20
5000 C WRITE SPRTOBJC1 08/06/24
5100 C SETOFF 96 08/06/20
5200 C MOVE *BLANK V_CHX 08/06/20
5300 *--------------------------------------------------------------------------------------------- 08/06/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:47 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRTOBJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C *LOVAL SETLL ADMUSRF1 08/06/20
5500 08/06/20
5600 C DO *HIVAL LIGN1 4 0 08/06/20
5700 C READ ADMUSRF1 95 *95 =EOF & SFLEND 08/06/20
5800 C 95 LEAVE 08/06/20
5900 C WRITE SPRTOBJWE1 08/06/24
6000 *- 08/06/20
6100 C SETON 91 08/06/20
6200 C ENDDO 08/06/20
6300 C Z-ADD 1 LIGN1 08/06/20
6400 *----- 08/06/20
6500 C ENDSR 08/06/20
6600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/06/20
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . RADMPRT01
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FFADMOBJ IPE E DISK 08/05/16
300 FWADMPRT01 O E PRINTER OFLIND(*IN99) 08/05/16
400 99/05/17
500 *--------------------------------------------------------------------------------------------- 08/04/03
600 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/04/03
700 *--------------------------------------------------------------------------------------------- 08/04/03
800 IADMOBJF1 01 08/05/16
900 I OBSOC L3 08/03/25
1000 I OBPRJ L2 08/03/25
1100 I OBOOBJ L1 08/03/25
1200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/06/22
1300 * 08/03/25
1400 C 99 08/05/19
1500 COR L2 EXSR $PAGE 08/05/19
1600 * 08/04/04
1700 C L1 IF NOT *INL2 08/04/04
1800 C WRITE WPRTD01 08/05/16
1900 C ENDIF 08/04/04
2000 08/04/04
2100 C L1 WRITE WPRTD02 08/05/19
2200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/04/04
2300 C $PAGE BEGSR 08/04/04
2400 C WRITE WPRTE01 08/05/16
2500 C WRITE WPRTE02 08/05/16
2600 C WRITE WPRTD01 08/05/16
2700 C SETOFF 99 08/04/04
2800 C ENDSR 08/04/04
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 05/11/03
300 * DECLARATION DE FICHIER 05/11/03
400 *--------------------------------------------------------------------------------------------- 05/11/03
500 FLADMOBJG IF E K DISK RENAME(ADMOBJF1:ADMOBJFG) 08/02/19
600 FLADMOBJH IF E K DISK RENAME(ADMOBJF1:ADMOBJFH) 08/02/19
700 FLADMPRJC IF E K DISK RENAME(ADMPRJF1:ADMPRJFC) 08/02/19
800 FFADMOBJ UF E K DISK 08/02/20
900 FLADMOPTA IF E K DISK 08/04/03
1000 FFADMENV IF E K DISK 08/03/07
1100 FFADMUSR IF E K DISK 08/03/07
1200 FSADMAPP CF E WORKSTN INFDS(V_DSPF) 08/02/19
1300 F SFILE(SADME01:LIGN1) 08/02/19
1400 *--------------------------------------------------------------------------------------------- 08/03/06
1500 * *IN97 OR *IN98 POS CURSOR ECRAN 08/03/17
1600 *--------------------------------------------------------------------------------------------- 05/11/03
1700 * UDS 05/11/03
1800 *--------------------------------------------------------------------------------------------- 05/11/03
1900 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
2000 D I S 4S 0 INZ(*ZEROS) 05/11/03
2100 D TROUVE S LIKE(*IN) 08/02/26
2200 D P_INXX S LIKE(*IN) 08/03/20
2300 *--------------------------------------------------------------------------------------------- 05/11/03
2400 * 05/11/03
2500 D S_OTYP S LIKE(OBOTYP) 08/02/19
2600 D S_OATR S LIKE(OBOATR) 08/02/19
2700 D S_OOBJ S LIKE(OBOOBJ) 08/02/19
2800 D S_LIG S LIKE(LIGN1) INZ(*ZEROS) 05/11/03
2900 D V_LIG S LIKE(LIGN1) INZ(*ZEROS) 05/11/03
3000 D LIGN2 S LIKE(LIGN1) INZ(*ZEROS) 08/03/06
3100 D V_DUP S LIKE(V_OPT) 05/11/03
3200 D V_SCAN S LIKE(OBOOBJ) 08/02/20
3300 D V_NAME S LIKE(OBOOBJ) 08/02/20
3400 D V_LIB S LIKE(PRLIBP) 08/02/19
3500 D V_DAT6 S 6A 08/02/20
3600 D X_LIB S LIKE(OBOLIB) 08/02/20
3700 D X_SOC S LIKE(PRSOC) 08/02/20
3800 D V_OPAG S 3A 08/04/30
3900 *--------------------------------------------------------------------------------------------- 05/11/03
4000 D P_USER S 10A 08/10/23
4100 D P_SOC S LIKE(PRSOC) 08/02/20
4200 D P_PRJ S LIKE(PRPRJ) 08/02/20
4300 D P_LIB S LIKE(OBOLIB) 08/02/20
4400 D P_OBJ S LIKE(OBOOBJ) 08/02/20
4500 D P_MBR S LIKE(OBOOBJ) 08/02/20
4600 D P_TYP S LIKE(OBOTYP) 08/02/20
4700 D P_TEXT S LIKE(OBTXTU) 08/02/20
4800 D P_DATE S LIKE(OBDCTL) 08/02/20
4900 D P_OPT S LIKE(V_OPT) 08/03/03
5000 D P_FCH S LIKE(OBOFCH) 08/03/05
5100 D P_FIL S LIKE(OBOOBJ) 08/03/05
5200 D P_ATR S LIKE(OBOATR) 08/03/05
5300 D P_CHK S 10A 08/03/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 D P_RYN S 1A 08/02/20
5500 D P_PRM S 1A 08/02/26
5600 D P_SPL S 1A 08/03/06
5700 D P_SPC S 1A 09/08/10
5800 D P_VUE S LIKE(*IN) 08/03/07
5900 08/03/17
6000 D P_TOPC S LIKE(*IN) 08/03/31
6100 D P_FRMPC S LIKE(*IN) 08/03/31
6200 08/03/31
6300 D P_LIBX S LIKE(OBOLIB) 09/07/22
6400 08/03/31
6500 D P_XCMD S 250A 08/03/27
6600 D P_PRJX S 1000A 08/03/26
6700 D P_DB2 S 4A 08/03/26
6800 D P_DSPF S 4A 08/03/26
6900 D P_PRTF S 4A 08/03/26
7000 D P_CL S 4A 08/03/26
7100 D P_RPGLE S 4A 08/03/26
7200 D P_C S 4A 08/03/26
7300 D P_SRV S 4A 08/03/26
7400 D P_LSTR S 4A 08/03/26
7500 D P_LSTD S 4A 08/03/26
7600 D P_CHKP S 4A 08/03/26
7700 D P_DEP S 4A 09/01/27
7800 *--------------------------------------------------------------------------------------------- 08/03/18
7900 D P_STRING S 50A 08/03/18
8000 D P_OPTION S 5A 08/03/18
8100 D P_COL1 S 7A 08/03/18
8200 D P_COL2 S 7A 08/03/18
8300 D P_CASE S 7A 08/03/18
8400 D P_PRTRCD S 5A 08/03/20
8500 D P_PRTLST S 4A 08/03/18
8600 *--------------------------------------------------------------------------------------------- 08/02/20
8700 D A S 5S 0 INZ(*ZEROS) DEBUT 05/11/03
8800 D Z S LIKE(A) INZ(*ZEROS) FIN 05/11/03
8900 D X S LIKE(A) INZ(*ZEROS) 05/11/03
9000 *--------------------------------------------------------------------------------------------- 08/02/19
9100 D CMD S 512 INZ(*BLANK) 08/02/19
9200 D P_CMD S 3200 INZ(*BLANK) 08/02/19
9300 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/02/19
9400 *--------------------------------------------------------------------------------------------- 09/07/22
9500 C 99 EXFMT SADMWC1 09/07/22
9600 C 99 WRITE SADMWE1 09/07/22
9700 C 99 EXFMT SADMWC2 09/07/22
9800 C 99 WRITE SADMWE2 09/07/22
9900 *--------------------------------------------------------------------------------------------- 08/02/19
10000 C K_PRC KLIST 08/02/19
10100 C KFLD P_SOC 08/02/19
10200 C KFLD P_LIB 08/02/19
10300 C K_OBJ KLIST 08/02/20
10400 C KFLD OBSOC 08/02/20
10500 C KFLD OBOOBJ 08/02/20
10600 C KFLD OBOTYP 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 *--------------------------------------------------------------------------------------------- 05/11/03
10800 C *ENTRY PLIST 08/02/19
10900 C PARM P_SOC 08/02/20
11000 C PARM P_LIB 08/02/20
11100 C IF V_USER <> 'ADMOPS' 08/03/27
11200 C V_USER CHAIN ADMENVF1 33 FADMENV 08/03/07
11300 C 33 GOTO T_FIN 08/03/07
11400 C ENDIF 08/03/27
11500 C WRITE WAIT 05/11/03
11600 *--------------------------------------------------------------------------------------------- 05/11/03
11700 * INIT DU PGM 05/11/03
11800 *--------------------------------------------------------------------------------------------- 05/11/03
11900 C MOVE P_SOC X_SOC 08/02/20
12000 C MOVE P_LIB X_LIB 08/02/20
12100 C EVAL V_PATR = *BLANK 08/11/17
12200 C EVAL V_PTYP = *BLANK 08/11/17
12300 C EVAL V_PDQP = *BLANK 09/01/30
12400 08/02/20
12500 08/02/20
12600 C K_PRC CHAIN ADMPRJFC 33 08/02/19
12700 C MOVE *ALL'0' *IN 05/11/03
12800 C EXSR $SFL 05/11/03
12900 *--------------------------------------------------------------------------------------------- 05/11/03
13000 *--------------------------------------------------------------------------------------------- 05/11/03
13100 * DEBUT PROGRAMME 05/11/03
13200 *--------------------------------------------------------------------------------------------- 05/11/03
13300 C DO *HIVAL 05/11/03
13400 C Z-ADD *ZEROS S_LIG 09/04/10
13500 C WRITE SADMI01 08/02/19
13600 C EXFMT SADMC01 08/02/19
13700 C IF *IN03 08/03/07
13800 C EXFMT SADMW01 08/03/07
13900 C 12 ITER 08/03/07
14000 C ENDIF 08/03/07
14100 C 03 LEAVE 08/03/07
14200 C SETON 98 05/11/03
14300 C SETOFF 77 FIN OPT 25 08/03/18
14400 C SELECT 05/11/03
14500 *-- 05/11/03
14600 C WHEN *IN01 08/03/21
14700 C EXSR $AID HELP 08/03/21
14800 C ITER 08/03/21
14900 08/03/21
15000 C WHEN V_KEY = F_PRT 08/10/23
15100 C MOVE 'Y' V_PRINT 08/10/23
15200 C EXFMT SADMW02 PRINT 08/10/23
15300 C 12 ITER 08/10/23
15400 C IF V_PRINT = 'Y' 08/10/23
15500 C CALL 'PADMPRINT' 08/10/23
15600 C PARM V_USER P_USER 08/10/23
15700 C PARM PRPRJ P_PRJ 08/10/23
15800 C ELSE 08/10/23
15900 C CALL 'PADMPRINT' 08/10/23
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C PARM *BLANK P_USER 08/10/23
16100 C PARM PRPRJ P_PRJ 08/10/23
16200 C ENDIF 08/10/23
16300 C ITER 08/10/23
16400 08/10/23
16500 08/03/21
16600 08/03/21
16700 C WHEN *IN24 08/03/20
16800 C CALLB 'XADMMNUGNL' 33 MENU-GNL 08/03/27
16900 C ITER 08/03/20
17000 08/03/20
17100 C WHEN *IN21 08/03/12
17200 C CALLB 'XADMWRKJOB' 33 WRKUSRJOB 08/03/14
17300 C ITER 08/03/12
17400 08/03/14
17500 08/03/14
17600 C WHEN *IN18 08/03/06
17700 C CALLB 'XADMENVP' 33 CHG PARAMETRE 08/03/06
17800 C ITER 05/11/03
17900 08/03/14
18000 08/03/14
18100 C WHEN *IN16 08/03/12
18200 C CALLB 'XADMOPT' 33 OPTION LIBRE 08/03/12
18300 C ITER 08/03/12
18400 08/03/21
18500 08/03/21
18600 08/03/21
18700 C WHEN *IN15 08/03/21
18800 C CALLB 'XADMSCNPRJ' 33 SCN-SRC-ALL 08/03/25
18900 C ITER 08/03/21
19000 08/03/21
19100 08/03/14
19200 08/03/14
19300 C WHEN *IN10 05/11/03
19400 C CALL 'QCMD' 33 QCMD 08/02/20
19500 C ITER 05/11/03
19600 08/11/17
19700 08/11/17
19800 08/11/17
19900 C WHEN *IN04 AND FLD = 'V_PATR' 08/11/17
20000 C CALLB 'XADMAPPF4A' 33 ATTRIBUT 08/11/17
20100 C PARM V_PATR 08/11/17
20200 C ITER 08/11/17
20300 C WHEN *IN04 AND FLD = 'V_PTYP' 08/11/17
20400 C CALLB 'XADMAPPF4T' 33 ATTRIBUT 08/11/17
20500 C PARM V_PTYP 08/11/17
20600 C ITER 08/11/17
20700 C WHEN *IN04 AND FLD = 'V_PDQP' 09/01/30
20800 C CALLB 'XADMAPPF4X' 33 D-Q-P 09/01/30
20900 C PARM V_PDQP 09/01/30
21000 C ITER 09/01/30
21100 08/03/14
21200 08/03/14
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C WHEN *IN11 AND *IN22 = *ON 06/02/16
21400 C SETOFF 22 06/02/16
21500 C X_DVP COMP '*ALL' 36 08/03/27
21600 C N36X_DVP COMP *BLANK 36 08/03/27
21700 C 36 EXSR $SFL 08/03/27
21800 C N36 EXSR $SFLDVP 08/03/27
21900 C ITER 06/02/16
22000 08/03/14
22100 08/03/14
22200 C WHEN *IN11 AND *IN22 = *OFF 06/02/16
22300 C SETON 22 06/02/16
22400 C X_DVP COMP '*ALL' 36 08/03/27
22500 C N36X_DVP COMP *BLANK 36 08/03/27
22600 C 36 EXSR $SFL 08/03/27
22700 C N36 EXSR $SFLDVP 08/03/27
22800 C ITER 08/03/06
22900 08/03/14
23000 08/03/14
23100 C WHEN *IN06 05/11/03
23200 C CALLB 'XADMPF6' 33 ADDOBJ 08/03/05
23300 C PARM X_SOC P_SOC 08/03/05
23400 C PARM PRPRJ P_PRJ 08/03/05
23500 C EVAL X_DVP = V_USER 08/04/10
23600 C SETOFF 30 RREAFFICHAGE 08/03/06
23700 C X_DVP COMP '*ALL' 36 08/03/05
23800 C N36X_DVP COMP *BLANK 36 08/03/05
23900 C 36 EXSR $SFL 08/03/05
24000 C N36 EXSR $SFLDVP 08/03/05
24100 C ITER 08/03/05
24200 08/03/14
24300 08/03/14
24400 08/03/14
24500 C WHEN *IN05 05/11/03
24600 C SETOFF 30 RREAFFICHAGE 08/03/18
24700 C MOVE *BLANK V_LIB 09/08/13
24800 C MOVE *BLANK V_OPT 09/08/13
24900 C MOVE *BLANK V_DUP 09/08/13
25000 C Z-ADD *ZEROS S_LIG 09/08/13
25100 C Z-ADD *ZEROS V_LIG 09/08/13
25200 C Z-ADD *ZEROS LIGN1 09/08/13
25300 C X_DVP COMP '*ALL' 36 09/08/13
25400 C N36X_DVP COMP *BLANK 36 05/11/03
25500 C 36 EXSR $SFL 05/11/03
25600 C N36 EXSR $SFLDVP 05/11/03
25700 C ITER 05/11/03
25800 C WHEN *IN13 AND *IN91 05/11/03
25900 C READC SADME01 40 08/02/19
26000 C 40 ITER 05/11/03
26100 C SETON 30 05/11/03
26200 C EVAL V_DUP = V_OPT 05/11/03
26300 C EVAL V_LIG = LIGN1 05/11/03
26400 C V_LIG DO *HIVAL LIGN1 05/11/03
26500 C LIGN1 CHAIN SADME01 3333 08/02/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C 33 LEAVE 05/11/03
26700 C EVAL V_OPT = V_DUP 05/11/03
26800 C UPDATE SADME01 08/02/19
26900 C ENDDO 05/11/03
27000 C Z-ADD V_LIG LIGN1 05/11/03
27100 C ITER 05/11/03
27200 *-- 05/11/03
27300 C ENDSL 05/11/03
27400 05/11/03
27500 C 91 READC SADME01 40 08/02/19
27600 C 91*IN40 CASEQ *OFF $FONC 05/11/03
27700 C 91*IN30 CASEQ *ON $FONC 05/11/03
27800 C ENDCS 05/11/03
27900 C 77 ITER 08/03/18
28000 C X_DVP COMP '*ALL' 36 05/11/03
28100 C N36X_DVP COMP *BLANK 36 05/11/03
28200 C 36 EXSR $SFL 05/11/03
28300 C N36 EXSR $SFLDVP 05/11/03
28400 *----------------------------------------------* 05/11/03
28500 C ENDDO 05/11/03
28600 *--------------------------------------------------------------------------------------------- 05/11/03
28700 * FIN PROGRAMME 05/11/03
28800 *--------------------------------------------------------------------------------------------- 05/11/03
28900 C T_FIN TAG 08/03/07
29000 C SETON LR 05/11/03
29100 C CALLB 'MADMUSPDLT' 66 09/08/13
29200 ********************************************************************************************** 05/11/03
29300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/11/03
29400 * SFL 05/11/03
29500 *--------------------------------------------------------------------------------------------- 05/11/03
29600 C $SFL BEGSR 05/11/03
29700 *---KEY ACCES SFL 05/11/03
29800 C K_SFL KLIST 05/11/03
29900 C KFLD X_SOC 08/02/20
30000 C KFLD X_LIB 08/02/20
30100 *----- 05/11/03
30200 C IF *IN98 AND S_LIG > *ZEROS 05/11/03
30300 C SETOFF 98 05/11/03
30400 C ENDIF 05/11/03
30500 *----- 05/11/03
30600 C SETOFF 919692 08/03/18
30700 C SETON 96 05/11/03
30800 C WRITE SADMC01 08/02/19
30900 C SETOFF 96 05/11/03
31000 C SETOFF 39 08/03/18
31100 *--------------------------------------------------------------------------------------------- 05/11/03
31200 C MOVE *BLANK V_OPT 05/11/03
31300 C *LOVAL SETLL LADMOBJG 08/02/19
31400 C K_SFL SETLL LADMOBJG 08/02/19
31500 *----- 05/11/03
31600 C Z-ADD *ZEROS LIGN1 4 0 05/11/03
31700 C DO *HIVAL 05/11/03
31800 C K_SFL READE ADMOBJFG 95 IND MORE 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C 95 LEAVE 05/11/03
32000 05/11/03
32100 C X_DVP COMP '*ALL' 33 07/09/11
32200 C 33 IF OBUSR = *BLANK 08/02/19
32300 C ITER 07/09/11
32400 C ENDIF 07/09/11
32500 05/11/03
32600 C EVAL V_NAME = OBOOBJ 08/02/20
32700 *------------------ 05/11/03
32800 C IF V_PATR <> *BLANK AND 08/11/17
32900 C OBOATR <> V_PATR 08/11/17
33000 C ITER 08/11/17
33100 C ENDIF 08/11/17
33200 C IF V_PTYP <> *BLANK AND 08/11/17
33300 C OBOTYP <> V_PTYP 08/11/17
33400 C ITER 08/11/17
33500 C ENDIF 08/11/17
33600 09/01/30
33700 C SELECT 09/01/30
33800 C WHEN V_PDQP = 'D' AND OBD = *BLANK 09/01/30
33900 C ITER 09/01/30
34000 C WHEN V_PDQP = 'Q' AND OBQ = *BLANK OR 09/02/10
34100 C V_PDQP = 'Q' AND OBD <> *BLANK 09/02/10
34200 C ITER 09/01/30
34300 C WHEN V_PDQP = 'P' AND OBP = *BLANK OR 09/02/10
34400 C V_PDQP = 'P' AND OBQ <> *BLANK OR 09/02/10
34500 C V_PDQP = 'P' AND OBD <> *BLANK 09/02/10
34600 C ITER 09/01/30
34700 C WHEN V_PDQP = 'U' AND OBU = *BLANK 09/01/30
34800 C ITER 09/01/30
34900 C WHEN V_PDQP = 'B' AND OBB = *BLANK 09/01/30
35000 C ITER 09/01/30
35100 C ENDSL 09/01/30
35200 09/01/30
35300 C IF V_OBJET <> *BLANK 07/09/11
35400 C SETON 88 05/11/03
35500 C V_OBJET CASGT *BLANK $SCAN 05/11/03
35600 C ENDCS 05/11/03
35700 C N88 ITER 05/11/03
35800 C ENDIF 07/09/11
35900 05/11/03
36000 C EXSR $OBJENV 05/11/03
36100 *- 05/11/03
36200 *- 05/11/03
36300 C ENDDO 05/11/03
36400 C IF *IN91 AND S_LIG <> *ZEROS AND 08/03/18
36500 C S_LIG <= LIGN1 05/11/03
36600 C Z-ADD S_LIG LIGN1 08/03/07
36700 C ELSE 09/04/10
36800 C Z-ADD 1 LIGN1 09/04/10
36900 C ENDIF 05/11/03
37000 *----- 05/11/03
37100 C ENDSR 05/11/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 8
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
37200 ***************************************************************** 05/11/03
37300 *--------------------------------------------------------------------------------------------- 05/11/03
37400 *--------------------------------------------------------------------------------------------- 05/11/03
37500 *--------------------------------------------------------------------------------------------- 05/11/03
37600 C $SFLDVP BEGSR 05/11/03
37700 *---KEY ACCES SFL 05/11/03
37800 C K_SFLD KLIST 05/11/03
37900 C KFLD X_DVP 08/02/19
38000 C KFLD X_SOC 08/02/20
38100 C KFLD X_LIB 08/02/20
38200 *----- 05/11/03
38300 C IF *IN98 AND S_LIG > *ZEROS 05/11/03
38400 C SETOFF 98 05/11/03
38500 C ENDIF 05/11/03
38600 *----- 05/11/03
38700 C SETOFF 9196992 08/03/18
38800 C SETON 96 05/11/03
38900 C WRITE SADMC01 08/02/19
39000 C WRITE SADMC01 08/02/19
39100 C SETOFF 96 05/11/03
39200 *--------------------------------------------------------------------------------------------- 05/11/03
39300 C V_USER CHAIN ADMENVF1 33 08/03/18
39400 C MOVE *BLANK V_OPT 05/11/03
39500 C *LOVAL SETLL LADMOBJH 08/02/19
39600 C K_SFLD SETLL LADMOBJH 08/02/19
39700 *----- 05/11/03
39800 C Z-ADD *ZEROS LIGN1 4 0 05/11/03
39900 C DO *HIVAL 05/11/03
40000 C K_SFLD READE ADMOBJFH 95 IND MORE 08/02/26
40100 C 95 LEAVE 05/11/03
40200 05/11/03
40300 *------------------ 05/11/03
40400 C IF V_PATR <> *BLANK AND 08/11/17
40500 C OBOATR <> V_PATR 08/11/17
40600 C ITER 08/11/17
40700 C ENDIF 08/11/17
40800 C IF V_PTYP <> *BLANK AND 08/11/17
40900 C OBOTYP <> V_PTYP 08/11/17
41000 C ITER 08/11/17
41100 C ENDIF 08/11/17
41200 09/01/30
41300 C SELECT 09/01/30
41400 C WHEN V_PDQP = 'D' AND OBD = *BLANK 09/01/30
41500 C ITER 09/01/30
41600 C WHEN V_PDQP = 'Q' AND OBQ = *BLANK OR 09/02/10
41700 C V_PDQP = 'Q' AND OBD <> *BLANK 09/02/10
41800 C ITER 09/02/10
41900 C WHEN V_PDQP = 'P' AND OBP = *BLANK OR 09/02/10
42000 C V_PDQP = 'P' AND OBQ <> *BLANK OR 09/02/10
42100 C V_PDQP = 'P' AND OBD <> *BLANK 09/02/10
42200 C ITER 09/02/10
42300 C WHEN V_PDQP = 'U' AND OBU = *BLANK 09/01/30
42400 C ITER 09/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 9
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
42500 C WHEN V_PDQP = 'B' AND OBB = *BLANK 09/01/30
42600 C ITER 09/01/30
42700 C ENDSL 09/01/30
42800 08/11/17
42900 C EVAL V_NAME = OBOOBJ 08/02/20
43000 C SETON 88 05/11/03
43100 C V_OBJET CASGT *BLANK $SCAN 05/11/03
43200 C ENDCS 05/11/03
43300 C N88 ITER 05/11/03
43400 05/11/03
43500 C EVAL *IN39 = OBD <> *BLANK AND ENCTXT ='Y' 08/03/18
43600 C EXSR $OBJENV 05/11/03
43700 05/11/03
43800 *- 05/11/03
43900 *- 05/11/03
44000 C ENDDO 05/11/03
44100 C IF *IN91 AND S_LIG <> *ZEROS AND 08/03/18
44200 C S_LIG <= LIGN1 05/11/03
44300 C Z-ADD S_LIG LIGN1 06/02/16
44400 C ELSE 09/04/10
44500 C Z-ADD 1 LIGN1 09/04/10
44600 C ENDIF 05/11/03
44700 C SETOFF 39 08/03/18
44800 *----- 05/11/03
44900 C ENDSR 05/11/03
45000 ***************************************************************** 05/11/03
45100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/11/03
45200 *--------------------------------------------------------------------------------------------- 05/11/03
45300 * RECHERCHE SI DEV QUA PND ET ERR COMPILE OU COMPILER 05/11/03
45400 *--------------------------------------------------------------------------------------------- 05/11/03
45500 CSR $OBJENV BEGSR 05/11/03
45600 06/02/16
45700 C EVAL V_TXT = OBTXTP 08/02/20
45800 08/02/19
45900 C IF OBTXTU <> *BLANK 08/02/20
46000 C EVAL V_TXT = OBTXTU 08/02/20
46100 C ENDIF 08/02/20
46200 08/02/19
46300 C SELECT 08/02/20
46400 C WHEN OBDATU <> *ZEROS 08/02/20
46500 C MOVE OBDATU V_DATE DATE MAJ USAGE 08/02/20
46600 C OTHER 08/02/20
46700 C MOVE OBODMJ V_DATE DATE MAJ PRODUCTION 08/02/20
46800 C ENDSL 08/02/20
46900 08/03/27
47000 08/03/27
47100 C SELECT 08/03/27
47200 C WHEN *IN22 = *OFF 08/03/27
47300 C EVAL V_F11 = OBOATR ATTRIBUT 08/03/27
47400 C OTHER 08/03/27
47500 C EVAL V_F11 = %SUBST(OBODMC:1 :4) + '/' + DATE CRT SOURCE 08/03/27
47600 C %SUBST(OBODMC:5 :2) + '/' + 08/03/27
47700 C %SUBST(OBODMC: 7 :2) 08/03/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 10
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
47800 C ENDSL 08/03/27
47900 08/02/19
48000 C SETON 91 05/11/03
48100 C ADD 1 LIGN1 08/03/06
48200 C S_LIG COMP LIGN1 97 05/11/03
48300 C Z-ADD LIGN1 LIG 05/11/03
48400 C EVAL C= *BLANK 08/02/28
48500 * RECHERCHE SI LIB.OBJ EXISTE 08/03/14
48600 C IF OBOYNO ='Y' 08/03/14
48700 C SELECT 08/02/26
48800 C WHEN OBU = 'U' 08/04/06
48900 C CALLB 'MADMOBJCHK' 08/04/06
49000 C PARM PRLIBU P_LIB 08/04/06
49100 C PARM OBOOBJ P_OBJ 08/04/06
49200 C PARM OBOTYP P_TYP 08/04/06
49300 C PARM '*NONE' P_MBR 08/04/06
49400 C PARM TROUVE 08/04/06
49500 C IF TROUVE = *OFF AND OBOYNO ='Y' 08/04/06
49600 C EVAL C= '?' 08/04/06
49700 C ENDIF 08/04/06
49800 * RECUPERE SI MODIFICATION SOURCE 09/02/10
49900 C IF OBOATR = 'PF' OR OBOATR ='LF' 09/02/10
50000 C CALLB 'MADMREFMBR' 09/02/10
50100 C PARM P_LIB 09/02/10
50200 C PARM OBOFCH P_OBJ 09/02/10
50300 C PARM OBOOBJ P_MBR 09/02/10
50400 C PARM P_TEXT 09/02/10
50500 C PARM P_DATE 09/02/10
50600 C T_RTVDATE TAG 09/02/10
50700 C K_OBJ CHAIN ADMOBJF1 3366 09/02/10
50800 C 66 GOTO T_RTVDATE 09/02/10
50900 09/02/10
51000 C MOVE P_TEXT OBTXTU 09/02/10
51100 C IF OBDCTL <> P_DATE 09/02/10
51200 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 09/02/10
51300 C Z-ADD *ZEROS V_DATE 09/02/10
51400 C MOVE V_DAT6 V_DATE 09/02/10
51500 C IF '0' = %SUBST(P_DATE : 1 : 1) 09/02/10
51600 C ADD 19000000 V_DATE 09/02/10
51700 C ELSE 09/02/10
51800 C ADD 20000000 V_DATE 09/02/10
51900 C ENDIF 09/02/10
52000 C MOVE V_DATE OBDATU 09/02/10
52100 C ENDIF 09/02/10
52200 C UPDATE ADMOBJF1 09/02/10
52300 C ENDIF 09/02/10
52400 C WHEN OBD = 'D' 08/02/26
52500 C CALLB 'MADMOBJCHK' 08/02/26
52600 C PARM PRLIBD P_LIB 08/02/26
52700 C PARM OBOOBJ P_OBJ 08/02/26
52800 C PARM OBOTYP P_TYP 08/02/26
52900 C PARM '*NONE' P_MBR 08/02/26
53000 C PARM TROUVE 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 11
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
53100 C IF TROUVE = *OFF AND OBOYNO ='Y' 08/03/14
53200 C EVAL C= '?' 08/02/26
53300 C ENDIF 08/02/26
53400 * RECUPERE SI MODIFICATION SOURCE 09/02/10
53500 C IF OBOATR = 'PF' OR OBOATR ='LF' 09/02/10
53600 C CALLB 'MADMREFMBR' 09/02/10
53700 C PARM P_LIB 09/02/10
53800 C PARM OBOFCH P_OBJ 09/02/10
53900 C PARM OBOOBJ P_MBR 09/02/10
54000 C PARM P_TEXT 09/02/10
54100 C PARM P_DATE 09/02/10
54200 C T_ENVDATE TAG 09/02/10
54300 C K_OBJ CHAIN ADMOBJF1 3366 09/02/10
54400 C 66 GOTO T_ENVDATE 09/02/10
54500 09/02/10
54600 C MOVE P_TEXT OBTXTU 09/02/10
54700 C IF OBDCTL <> P_DATE 09/02/10
54800 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 09/02/10
54900 C Z-ADD *ZEROS V_DATE 09/02/10
55000 C MOVE V_DAT6 V_DATE 09/02/10
55100 C IF '0' = %SUBST(P_DATE : 1 : 1) 09/02/10
55200 C ADD 19000000 V_DATE 09/02/10
55300 C ELSE 09/02/10
55400 C ADD 20000000 V_DATE 09/02/10
55500 C ENDIF 09/02/10
55600 C MOVE V_DATE OBDATU 09/02/10
55700 C ENDIF 09/02/10
55800 C UPDATE ADMOBJF1 09/02/10
55900 C ENDIF 09/02/10
56000 09/02/10
56100 C WHEN OBQ = 'Q' 08/02/26
56200 C CALLB 'MADMOBJCHK' 08/02/26
56300 C PARM PRLIBQ P_LIB 08/02/26
56400 C PARM OBOOBJ P_OBJ 08/02/26
56500 C PARM OBOTYP P_TYP 08/02/26
56600 C PARM '*NONE' P_MBR 08/02/26
56700 C PARM TROUVE 08/02/26
56800 C IF TROUVE = *OFF 08/03/14
56900 C EVAL C= '?' 08/02/26
57000 C ENDIF 08/02/26
57100 C WHEN OBD = ' ' AND OBQ =' ' AND OBP= 'P' 08/03/14
57200 C CALLB 'MADMOBJCHK' 08/03/14
57300 C PARM PRLIBP P_LIB 08/03/14
57400 C PARM OBOOBJ P_OBJ 08/03/14
57500 C PARM OBOTYP P_TYP 08/03/14
57600 C PARM '*NONE' P_MBR 08/03/14
57700 C PARM TROUVE 08/03/14
57800 C IF TROUVE = *OFF 08/03/14
57900 C EVAL C= '?' 08/03/14
58000 C ENDIF 08/03/14
58100 C ENDSL 08/02/26
58200 C ENDIF 08/03/14
58300 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 12
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
58400 C Z-ADD LIGN1 LIGN2 08/03/06
58500 09/02/10
58600 C WRITE SADME01 08/02/19
58700 C IF LIGN1 = 1 08/02/19
58800 C MOVE OBOTYP S_OTYP 08/02/19
58900 C MOVE OBOATR S_OATR 08/02/19
59000 C MOVE OBOOBJ S_OOBJ 08/02/19
59100 C ENDIF 08/02/19
59200 CSR ENDSR 05/11/03
59300 *--------------------------------------------------------------------------------------------- 05/11/03
59400 05/11/03
59500 CSR $SCAN BEGSR 05/11/03
59600 C '*' CABEQ V_OBJET T_SCAN99 05/12/30
59700 C EVAL V_OBJET = %TRIM(V_OBJET) 05/11/03
59800 C EVAL A = %SCAN('*' :V_OBJET) 05/11/03
59900 C A ADD 1 X 05/11/03
60000 C EVAL Z = %SCAN('*' :V_OBJET : X) 05/11/03
60100 *------------------ 05/11/03
60200 C SELECT 05/11/03
60300 *-- 05/11/03
60400 C WHEN A = 0 AND V_OBJET <> *BLANKS ... 05/11/03
60500 C V_NAME SCAN V_OBJET 88 08/02/20
60600 *-- 05/11/03
60700 C WHEN A > 1 ...* 05/11/03
60800 C EVAL V_SCAN = %REPLACE(' ': V_OBJET:A:1) 05/11/03
60900 C A SUB 1 X 05/11/03
61000 C V_NAME:X SCAN V_SCAN 88 08/02/20
61100 *-- 05/11/03
61200 C WHEN Z > 0 *...* 05/11/03
61300 C EVAL V_SCAN = %REPLACE(' ': V_OBJET:A:1) 05/11/03
61400 C EVAL V_SCAN = %REPLACE(' ': V_SCAN :Z:1) 05/11/03
61500 C EVAL V_SCAN = %TRIM(V_SCAN) 05/11/03
61600 C EVAL X = %LEN(%TRIM(V_SCAN)) 05/11/03
61700 C V_SCAN:X SCAN V_NAME 88 08/02/20
61800 *-- 05/11/03
61900 C WHEN A = 1 *... 05/11/03
62000 C EVAL V_SCAN = %REPLACE(' ': V_OBJET:1:1) 05/11/03
62100 C EVAL V_SCAN = %TRIM(V_SCAN) 05/11/03
62200 C EVAL X = %LEN(%TRIM(V_SCAN)) 05/11/03
62300 * EVAL Z = %LEN(%TRIM(V_NAME)) 08/02/20
62400 C EVAL A = 2 06/02/28
62500 C V_SCAN:X SCAN V_NAME:A 88 08/02/20
62600 C ENDSL 05/11/03
62700 CSR T_SCAN99 ENDSR 05/12/30
62800 *--------------------------------------------------------------------------------------------- 05/11/03
62900 05/11/03
63000 CSR $FONC BEGSR 05/11/03
63100 C SETOFF 3092 08/03/18
63200 C MOVE *BLANK P_OPTION 08/03/18
63300 C MOVE *OFF P_INXX 08/03/20
63400 C Z-ADD *ZEROS S_LIG 08/03/07
63500 C DO LIGN2 LIGN1 08/03/06
63600 C LIGN1 CHAIN SADME01 33 08/03/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 13
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
63700 08/03/17
63800 C 33 LEAVE 08/03/17
63900 08/03/17
64000 06/02/16
64100 C IF V_OPT ='03' AND OBD = *BLANK OR 08/03/06
64200 C V_OPT ='3 ' AND OBD = *BLANK OR 08/04/05
64300 C V_OPT ='33' AND OBU = *BLANK 08/04/05
64400 C EVAL X_DVP = V_USER 08/03/06
64500 C ENDIF 05/11/03
64600 08/03/18
64700 08/03/18
64800 * CHG TEXT SOURCE 08/03/18
64900 C IF OBTXTU <> V_TXT AND OBD <> *BLANK 08/03/18
65000 C AND OBOYNS ='Y' 08/03/18
65100 C CALLB 'MADMCHGTXT' 66 08/03/18
65200 C PARM PRLIBD P_LIB 08/03/18
65300 C PARM OBOFCH P_OBJ 08/03/18
65400 C PARM OBOOBJ P_MBR 08/03/18
65500 C PARM V_TXT P_TEXT 08/03/18
65600 C 66 EVAL V_TXT = OBTXTU 08/03/18
65700 C T_TXT TAG 08/03/18
65800 C K_OBJ CHAIN ADMOBJF1 3366 08/03/18
65900 C 66 GOTO T_TXT 08/03/18
66000 C MOVE V_TXT OBTXTU 08/03/18
66100 C UPDATE ADMOBJF1 08/03/18
66200 C ENDIF 08/03/18
66300 08/03/18
66400 08/03/18
66500 08/03/18
66600 08/03/18
66700 08/03/18
66800 08/03/18
66900 05/11/03
67000 C SELECT 05/11/03
67100 C WHEN V_OPT ='1 ' OR V_OPT = ' 1' 08/03/31
67200 C EVAL V_OPT = '01' 08/03/31
67300 C WHEN V_OPT ='2 ' OR V_OPT = ' 2' 05/11/03
67400 C EVAL V_OPT = '02' 05/11/03
67500 C WHEN V_OPT ='3 ' OR V_OPT = ' 3' 05/11/03
67600 C EVAL V_OPT = '03' 05/11/03
67700 C WHEN V_OPT ='4 ' OR V_OPT = ' 4' 05/11/03
67800 C EVAL V_OPT = '04' 05/11/03
67900 C WHEN V_OPT ='5 ' OR V_OPT = ' 5' 05/11/03
68000 C EVAL V_OPT = '05' 05/11/03
68100 C WHEN V_OPT ='6 ' OR V_OPT = ' 6' 05/11/03
68200 C EVAL V_OPT = '06' 05/11/03
68300 C WHEN V_OPT ='7 ' OR V_OPT = ' 7' 05/11/03
68400 C EVAL V_OPT = '07' 05/11/03
68500 C ENDSL 05/11/03
68600 08/03/07
68700 08/03/07
68800 08/03/07
68900 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 14
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
69000 * CONTROLE ACCES 08/03/07
69100 08/03/07
69200 08/03/07
69300 08/03/07
69400 08/03/07
69500 08/03/07
69600 08/03/07
69700 C IF V_OPT = '99' 08/03/13
69800 C V_USER CHAIN ADMUSRF1 33 08/03/07
69900 C EVAL *IN66 = V_USER <> 'ADMOPS' AND OBT<>'J' 08/03/13
70000 C N66 EVAL *IN66 = V_USER <> USUSR AND OBT ='J' 08/03/13
70100 C 08/03/13
70200 C 66 ITER 08/03/07
70300 *DEPOINTE SPECIAL ADMIN 08/03/07
70400 C T_99 TAG 08/03/07
70500 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
70600 C 66 GOTO T_99 08/03/07
70700 C MOVE *BLANK OBT 08/03/07
70800 C UPDATE ADMOBJF1 08/03/07
70900 C ITER 08/03/07
71000 C ENDIF 08/03/07
71100 08/03/07
71200 * INTERDICTION SI EN EDITION OU COMPILATION 08/03/07
71300 08/03/07
71400 C IF V_OPT ='02' OR 08/03/07
71500 C V_OPT ='03' OR 08/03/07
71600 C V_OPT ='04' OR 08/03/07
71700 C V_OPT ='07' OR 08/03/07
71800 C V_OPT ='14' OR 08/03/07
71900 C V_OPT ='15' OR 08/03/20
72000 C V_OPT ='17' OR 08/03/07
72100 C V_OPT ='19' OR 08/03/07
72200 C V_OPT ='22' OR 08/03/07
72300 C V_OPT ='27' OR 08/03/07
72400 C V_OPT ='33' OR 08/04/05
72500 C V_OPT ='70' OR 08/11/19
72600 C V_OPT ='77' 08/04/01
72700 C V_USER CHAIN ADMUSRF1 33 08/03/07
72800 C EVAL *IN66 = USDVP = 'N' AND USPRD ='N' 08/03/31
72900 C 66 EVAL *IN66 = V_USER <> 'ADMOPS' 08/03/31
73000 C 66 ITER 08/03/07
73100 *PAS DE DEVELOPPEMENT 08/03/07
73200 C EVAL *IN66 =USDVP='N' AND V_OPT='02' 08/03/07
73300 C 66 ITER 08/03/07
73400 C EVAL *IN66 =USDVP='N' AND V_OPT='03' 08/03/07
73500 C 66 ITER 08/03/07
73600 C EVAL *IN66 =USDVP='N' AND V_OPT='14' 08/03/07
73700 C 66 ITER 08/03/07
73800 C EVAL *IN66 =USDVP='N' AND V_OPT='15' 08/03/20
73900 C 66 ITER 08/03/07
74000 C EVAL *IN66 =USDVP='N' AND V_OPT='17' 08/03/07
74100 C 66 ITER 08/03/07
74200 C EVAL *IN66 =USDVP='N' AND V_OPT='19' 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 15
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
74300 C 66 ITER 08/03/07
74400 C EVAL *IN66 =USDVP='N' AND V_OPT='22' 08/03/07
74500 C 66 ITER 08/03/07
74600 C EVAL *IN66 =USDVP='N' AND V_OPT='27' 08/03/07
74700 C 66 ITER 08/03/07
74800 C EVAL *IN66 =USDVP='N' AND V_OPT='33' 08/04/05
74900 C 66 ITER 08/04/05
75000 C EVAL *IN66 =OBU ='N' AND V_OPT='54' 09/07/22
75100 C 66 EVAL *IN66 =OBD ='N' AND V_OPT='54' 09/07/22
75200 C 66 EVAL *IN66 =OBQ ='N' AND V_OPT='54' 09/07/22
75300 C 66 ITER 09/07/22
75400 C EVAL *IN66 =USDVP='N' AND V_OPT='70' 08/11/19
75500 C 66 ITER 08/11/19
75600 C EVAL *IN66 =USDVP='N' AND V_OPT='77' 08/04/01
75700 C 66 ITER 08/03/31
75800 08/04/05
75900 08/04/05
76000 C SELECT 08/04/05
76100 *PAS DE MISE EN PRODUCTION PROMOT 08/04/05
76200 C WHEN OBU <> *BLANK 08/04/05
76300 C EVAL *IN66 =USPRD='N' AND V_OPT='07' AND OBD <>' ' 08/04/05
76400 C 66 ITER 08/04/05
76500 *PAS DE MISE EN QUALITE PROMOT 08/04/05
76600 C WHEN OBD = *BLANK 08/04/05
76700 C EVAL *IN66 =USDVP='N' AND V_OPT='07' AND OBU <>' ' 08/04/05
76800 C 66 ITER 08/03/07
76900 *PAS DE MISE EN PRODUCTION PROMOT 08/04/05
77000 C WHEN OBQ = *BLANK 08/04/05
77100 C EVAL *IN66 =USPRD='N' AND V_OPT='07' AND OBQ <>' ' 08/04/05
77200 C 66 ITER 08/03/07
77300 C ENDSL 08/04/05
77400 C 08/03/07
77500 C K_OBJ CHAIN(N) ADMOBJF1 33 08/03/07
77600 C EVAL *IN66 = OBT = '*' 08/03/07
77700 C 66 ITER 08/03/07
77800 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '03' 08/04/05
77900 C 66 ITER 08/04/05
78000 C EVAL *IN66 = OBU <> ' ' AND V_OPT = '03' 08/04/05
78100 C 66 ITER 08/04/05
78200 C EVAL *IN66 = OBUSR <> V_USER AND V_OPT = '03' *ONLY OBUSR *BLANK 08/04/23
78300 C AND OBUSR <> ' ' 08/04/23
78400 C 66 ITER 08/04/23
78500 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '33' 08/04/05
78600 C 66 ITER 08/04/06
78700 C EVAL *IN66 = OBD = ' ' AND V_OPT = '33' 08/04/06
78800 C AND OBQ = ' ' 08/04/06
78900 C 66 ITER 08/04/05
79000 C EVAL *IN66 = V_OPT = '33' AND 08/06/24
79100 C PRLIBQ = '*NONE' 08/06/24
79200 C 66 ITER 08/06/24
79300 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '02' 08/03/07
79400 C 66 ITER 08/03/07
79500 C EVAL *IN66 = OBT <> 'W' AND V_OPT = '04' 08/03/31
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 16
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
79600 C AND OBT <> ' ' 08/03/31
79700 C 66 ITER 08/03/07
79800 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '07' 08/03/07
79900 C 66 ITER 08/03/07
80000 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '14' 08/03/07
80100 C 66 ITER 08/03/07
80200 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '15' 08/04/05
80300 C 66 ITER 08/03/07
80400 C EVAL *IN66 = OBU <> ' ' AND V_OPT = '15' 08/04/05
80500 C 66 ITER 08/04/05
80600 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '17' 08/03/07
80700 C 66 ITER 08/03/07
80800 C EVAL *IN66 = OBOATR <> 'DSPF' AND V_OPT = '17' 08/04/05
80900 C 66 ITER 08/04/05
81000 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '19' 08/03/07
81100 C 66 ITER 08/03/07
81200 C EVAL *IN66 = OBOATR <> 'PRTF' AND V_OPT = '19' 08/04/05
81300 C 66 ITER 08/04/05
81400 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '22' 08/03/07
81500 C 66 ITER 08/03/07
81600 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '27' 08/03/07
81700 C AND OBT <> 'W' 08/04/03
81800 C 66 ITER 08/03/07
81900 C EVAL *IN66 = OBT <> ' ' AND V_OPT = '70' 08/11/19
82000 C 66 ITER 08/11/19
82100 C EVAL *IN66 = OBT <> 'W' AND V_OPT = '77' 08/04/01
82200 C 66 ITER 08/03/31
82300 C ENDIF 08/03/07
82400 08/03/07
82500 C IF V_OPT ='02' OR 08/03/07
82600 C V_OPT ='04' OR 08/03/07
82700 C V_OPT ='07' OR 08/03/07
82800 C V_OPT ='14' OR 08/03/07
82900 C V_OPT ='15' OR 08/03/20
83000 C V_OPT ='17' OR 08/03/07
83100 C V_OPT ='19' OR 08/03/07
83200 C V_OPT ='22' OR 08/04/05
83300 C V_OPT ='33' 08/04/05
83400 C EVAL *IN66= X_DVP = *BLANKS 08/04/10
83500 C 66 ITER 08/04/10
83600 C SELECT 08/03/13
83700 C WHEN V_OPT= '04' AND V_USER <> 'ADMOPS' 08/03/13
83800 C EVAL *IN66= V_USER <> OBUSR 08/03/13
83900 C WHEN V_OPT= '04' AND V_USER = 'ADMOPS' 08/03/13
84000 C OTHER 08/03/13
84100 C EVAL *IN66= V_USER <> OBUSR 08/03/13
84200 C 66 ITER 08/03/14
84300 C ENDSL 08/03/13
84400 08/03/07
84500 C ENDIF 08/03/13
84600 08/03/07
84700 * FIN CONTROLE ACCES ------------------------------------------------------------------------- 08/03/07
84800 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 17
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
84900 08/03/07
85000 08/03/07
85100 08/03/07
85200 08/03/07
85300 C IF S_LIG =*ZEROS AND V_OPT <> *BLANK 08/03/07
85400 C Z-ADD LIGN1 S_LIG 08/03/07
85500 C ENDIF 08/03/07
85600 05/11/03
85700 C SELECT 08/02/19
85800 C WHEN OBT = 'W' 08/04/04
85900 C EVAL V_LIB = ENLIBW 08/04/04
86000 C WHEN OBU <> *BLANK 08/04/05
86100 C EVAL V_LIB = PRLIBU 08/04/05
86200 C WHEN OBD <> *BLANK 08/02/19
86300 C EVAL V_LIB = PRLIBD 08/02/19
86400 C WHEN OBQ <> *BLANK 08/04/10
86500 C EVAL V_LIB = PRLIBQ 08/02/19
86600 C WHEN OBP <> *BLANK 08/02/19
86700 C EVAL V_LIB = PRLIBP 08/02/19
86800 C ENDSL 08/02/19
86900 05/11/03
87000 C SELECT 05/11/03
87100 08/03/07
87200 08/03/07
87300 08/03/07
87400 08/03/07
87500 08/03/07
87600 08/03/07
87700 08/03/07
87800 08/03/07
87900 * EDIT SRC 08/02/19
88000 C WHEN V_OPT ='02' AND OBOYNS = 'Y' 08/04/05
88100 C SELECT 08/04/07
88200 C WHEN OBU <> *BLANK 08/04/07
88300 C EVAL V_LIB = PRLIBU 08/04/05
88400 C WHEN OBD <> *BLANK 08/04/07
88500 C EVAL V_LIB = PRLIBD 08/04/05
88600 C OTHER 08/04/07
88700 C GOTO T_ITER 08/04/07
88800 C ENDSL 08/04/07
88900 C 08/04/05
89000 *POINTE POUR CONTROLE 08/03/07
89100 C T_E TAG 08/03/07
89200 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
89300 C 66 GOTO T_E 08/03/07
89400 C MOVE 'E' OBT 08/03/07
89500 C UPDATE ADMOBJF1 08/03/07
89600 C EVAL CMD ='STRSEU SRCFILE(' + 08/02/19
89700 C %TRIM(V_LIB) +'/'+ %TRIM(OBOFCH) + 08/02/19
89800 C ') SRCMBR(' + 08/02/19
89900 C %TRIM(OBOOBJ) +') TYPE(' + %TRIM(OBOATR) + 08/02/19
90000 C ') OPTION(2)' 08/02/19
90100 C EXSR $CMD 08/02/20
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 18
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
90200 C CALLB 'MADMREFMBR' 08/02/20
90300 C PARM V_LIB P_LIB 08/02/20
90400 C PARM OBOFCH P_OBJ 08/02/20
90500 C PARM OBOOBJ P_MBR 08/02/20
90600 C PARM P_TEXT 08/02/20
90700 C PARM P_DATE 08/02/20
90800 08/03/07
90900 * CONTROLE SI MODIFICATION 08/02/20
91000 08/03/07
91100 08/03/07
91200 *DEPOINTE POUR CONTROLE 08/03/07
91300 C T_EE TAG 08/03/07
91400 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
91500 C 66 GOTO T_EE 08/03/07
91600 C MOVE *BLANK OBT 08/03/07
91700 08/03/07
91800 C MOVE P_TEXT OBTXTU 08/02/20
91900 C IF OBDCTL <> P_DATE 08/02/20
92000 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/02/20
92100 C Z-ADD *ZEROS V_DATE 08/02/20
92200 C MOVE V_DAT6 V_DATE 08/02/20
92300 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/02/20
92400 C ADD 19000000 V_DATE 08/02/20
92500 C ELSE 08/02/20
92600 C ADD 20000000 V_DATE 08/02/20
92700 C ENDIF 08/02/20
92800 C MOVE V_DATE OBDATU 08/02/20
92900 C ENDIF 08/02/20
93000 C UPDATE ADMOBJF1 08/02/20
93100 08/03/07
93200 08/03/07
93300 08/03/07
93400 08/03/07
93500 08/03/07
93600 08/03/07
93700 08/03/07
93800 08/03/07
93900 * EDIT SRC BLDOPT 08/03/07
94000 C WHEN V_OPT ='22' AND OBB = 'B' 08/03/04
94100 C SELECT 08/04/07
94200 C WHEN OBU <> *BLANK 08/04/07
94300 C EVAL V_LIB = PRLIBU 08/04/07
94400 C WHEN OBD <> *BLANK 08/04/07
94500 C EVAL V_LIB = PRLIBD 08/04/07
94600 C OTHER 08/04/07
94700 C GOTO T_ITER 08/04/07
94800 C ENDSL 08/04/07
94900 *POINTE POUR CONTROLE 08/03/07
95000 C T_B TAG 08/03/07
95100 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
95200 C 66 GOTO T_B 08/03/07
95300 C MOVE 'E' OBT 08/03/07
95400 C UPDATE ADMOBJF1 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 19
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
95500 C EVAL CMD ='STRSEU SRCFILE(' + 08/03/03
95600 C %TRIM(V_LIB) +'/QBLDOPTSRC' + 08/03/03
95700 C ') SRCMBR(' + 08/03/03
95800 C %TRIM(OBOOBJ) +') TYPE( CLP' + 08/03/03
95900 C ') OPTION(2)' 08/03/03
96000 C EXSR $CMD 08/03/03
96100 *DEPOINTE POUR CONTROLE 08/03/07
96200 C T_BB TAG 08/03/07
96300 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
96400 C 66 GOTO T_BB 08/03/07
96500 C MOVE *BLANK OBT 08/03/07
96600 C UPDATE ADMOBJF1 08/03/07
96700 08/03/07
96800 08/03/07
96900 08/03/07
97000 08/03/07
97100 08/03/07
97200 08/03/07
97300 08/03/07
97400 * CHEKOUT 08/02/20
97500 C WHEN V_OPT ='03' AND OBD = *BLANK AND OBU = *BLANK 08/04/05
97600 08/03/26
97700 C V_USER CHAIN ADMENVF1 33 08/03/26
97800 08/03/26
97900 08/03/26
98000 C CALL 'ADMCHKOUT' 33 08/03/14
98100 C PARM X_SOC P_SOC 08/02/20
98200 C PARM PRPRJ P_PRJ 08/02/20
98300 C PARM OBOOBJ P_OBJ 08/02/20
98400 C PARM OBOTYP P_TYP 08/02/20
98500 C PARM 'N' P_RYN 08/02/20
98600 08/04/05
98700 *SI SCAN CHKOUT AUTOMATIQUE 08/04/05
98800 C IF OBOTYP = '*FILE' AND ENCHKP ='Y' 08/03/26
98900 08/04/05
99000 C IF OBOATR = 'DSPF' OR 08/03/26
99100 C OBOATR = 'PRTF' OR 08/03/26
99200 C OBOATR = 'PF' 08/03/26
99300 C EVAL P_LSTR = '*NO ' 08/03/26
99400 C EVAL P_LSTD = '*NO ' 08/03/26
99500 C EVAL P_DEP = '*NO ' 09/01/27
99600 08/04/05
99700 C IF ENSCNR = 'Y' 08/03/26
99800 C EVAL P_LSTR = '*YES' 08/03/26
99900 C ENDIF 08/03/26
100000 08/04/05
100100 C IF ENSCND = 'Y' 08/03/26
100200 C EVAL P_LSTD = '*YES' 08/03/26
100300 C ENDIF 08/03/26
100400 08/03/28
100500 C EVAL P_PRJX = PRPRJ 09/01/28
100600 *RECHERCHE DANS SOURCE LES PF 09/01/27
100700 C IF OBOATR = 'PF ' 09/01/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 20
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100800 C EVAL P_STRING = %TRIM(OBOOBJ) 09/02/02
100900 C CALL 'ADMSCNSRCI' 33 09/01/27
101000 C PARM X_SOC P_SOC 09/01/27
101100 C PARM P_PRJX 09/01/27
101200 C PARM '*YES' P_DB2 09/01/27
101300 C PARM '*NO ' P_DSPF 09/01/27
101400 C PARM '*NO ' P_PRTF 09/01/27
101500 C PARM '*NO ' P_CL 09/01/27
101600 C PARM '*NO ' P_RPGLE 09/01/27
101700 C PARM '*NO ' P_C 09/01/27
101800 C PARM '*NO ' P_SRV 09/01/27
101900 C PARM P_LSTR 09/01/27
102000 C PARM P_LSTD 09/01/27
102100 C PARM '*YES' P_CHKP 09/01/27
102200 C PARM P_DEP 09/01/27
102300 C PARM P_STRING 09/01/27
102400 C 09/01/27
102500 C ENDIF 09/01/27
102600 *RECHERCHE DANS SOURCE LES DSPF PRTF DANS RPG # = CARTE F PRIORITAIRE 09/02/02
102700 C IF OBOATR = 'DSPF' OR 08/03/28
102800 C OBOATR = 'PRTF' 08/03/28
102900 C EVAL P_STRING = %TRIM(OBOOBJ) 09/08/06
103000 C CALL 'ADMSCNSRCI' 33 08/03/28
103100 C PARM X_SOC P_SOC 08/03/28
103200 C PARM P_PRJX 08/03/28
103300 C PARM '*NO ' P_DB2 08/03/28
103400 C PARM '*NO ' P_DSPF 08/03/28
103500 C PARM '*NO ' P_PRTF 08/03/28
103600 C PARM '*YES' P_CL 09/01/27
103700 C PARM '*YES' P_RPGLE 08/03/28
103800 C PARM '*NO ' P_C 08/03/28
103900 C PARM '*NO ' P_SRV 08/03/28
104000 C PARM P_LSTR 08/03/28
104100 C PARM P_LSTD 08/03/28
104200 C PARM '*YES' P_CHKP 08/03/28
104300 C PARM P_DEP 09/01/27
104400 C PARM P_STRING 08/03/28
104500 C 08/02/19
104600 C ENDIF 08/03/28
104700 08/04/05
104800 C ENDIF 08/03/26
104900 C ENDIF 08/03/26
105000 C IF ENCHKT= 'Y' 08/03/27
105100 C MOVE ENTAG X_DVP 08/03/07
105200 C ELSE 08/03/07
105300 C MOVE V_USER X_DVP 08/03/07
105400 C ENDIF 08/03/07
105500 08/03/07
105600 09/04/10
105700 09/04/10
105800 * CHEKOUT 08/04/05
105900 C WHEN V_OPT='33' AND OBD <> *BLANK AND OBU = *BLANK 08/04/05
106000 C OR 08/04/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 21
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
106100 C V_OPT='33' AND OBQ <> *BLANK AND OBU = *BLANK 08/04/06
106200 08/04/05
106300 C V_USER CHAIN ADMENVF1 33 08/04/05
106400 08/04/05
106500 08/04/05
106600 C CALLB 'XADMCHKURG' 33 08/04/05
106700 C PARM X_SOC P_SOC 08/04/05
106800 C PARM PRPRJ P_PRJ 08/04/05
106900 C PARM OBOOBJ P_OBJ 08/04/05
107000 C PARM OBOTYP P_TYP 08/04/05
107100 C PARM 'N' P_RYN 08/04/05
107200 08/04/05
107300 C IF ENCHKT= 'Y' 08/04/05
107400 C MOVE ENTAG X_DVP 08/04/05
107500 C ELSE 08/04/05
107600 C MOVE V_USER X_DVP 08/04/05
107700 C ENDIF 08/04/05
107800 08/04/05
107900 08/03/07
108000 08/03/07
108100 08/03/07
108200 08/03/07
108300 08/03/07
108400 08/03/07
108500 * CHKDLT 08/03/07
108600 C WHEN V_OPT ='04' 08/03/07
108700 C MOVE 'N' V_CONF 08/04/07
108800 C EXFMT SADMW99 08/04/07
108900 C IF V_CONF = 'Y' 08/04/07
109000 C IF OBT = 'W' AND OBOYNS = 'Y' 08/04/01
109100 C CALLB 'XADMWDSC' 66 08/04/01
109200 C PARM OBSOC P_SOC 08/04/01
109300 C PARM OBPRJ P_PRJ 08/04/01
109400 C PARM OBOOBJ P_OBJ 08/04/01
109500 C PARM OBOTYP P_TYP 08/04/01
109600 C PARM *OFF P_TOPC 08/04/01
109700 C PARM *OFF P_FRMPC 08/04/01
109800 C ENDIF 08/04/01
109900 C CALLB 'MADMOBJDLT' 33 08/02/23
110000 C PARM X_SOC P_SOC 08/02/20
110100 C PARM PRPRJ P_PRJ 08/02/20
110200 C PARM OBOOBJ P_OBJ 08/02/20
110300 C PARM OBOTYP P_TYP 08/02/20
110400 C PARM P_RYN 08/02/23
110500 C ENDIF 08/04/07
110600 08/03/07
110700 08/03/31
110800 08/03/07
110900 08/03/07
111000 08/03/07
111100 08/03/07
111200 08/03/07
111300 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 22
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
111400 08/03/07
111500 08/03/07
111600 * VISU SRC 08/02/19
111700 C WHEN V_OPT ='05' AND OBOYNS = 'Y' 08/02/19
111800 C EVAL CMD ='STRSEU SRCFILE(' + 08/02/19
111900 C %TRIM(V_LIB) +'/'+ %TRIM(OBOFCH) + 08/02/19
112000 C ') SRCMBR(' + 08/02/19
112100 C %TRIM(OBOOBJ) +') OPTION(5)' 08/03/27
112200 C EXSR $CMD 08/02/19
112300 08/03/07
112400 08/03/07
112500 08/03/07
112600 08/03/07
112700 08/03/07
112800 08/03/07
112900 08/03/07
113000 * VISU SRC BLDOPT 08/03/04
113100 C WHEN V_OPT ='55' AND OBB = 'B' 08/03/04
113200 C EVAL CMD ='STRSEU SRCFILE(' + 08/03/04
113300 C %TRIM(V_LIB) +'/QBLDOPTSRC' + 08/03/04
113400 C ') SRCMBR(' + 08/03/04
113500 C %TRIM(OBOOBJ) +') OPTION(5)' 08/03/27
113600 C EXSR $CMD 08/03/04
113700 08/03/07
113800 08/03/07
113900 08/03/07
114000 08/03/07
114100 08/03/07
114200 08/03/07
114300 08/03/07
114400 * LIST SRC 08/03/04
114500 C WHEN V_OPT ='06' 05/11/03
114600 C EVAL CMD ='STRSEU SRCFILE(' + 08/03/04
114700 C %TRIM(V_LIB) +'/'+ %TRIM(OBOFCH) + 08/03/04
114800 C ') SRCMBR(' + 08/03/04
114900 C %TRIM(OBOOBJ) +') OPTION(6)' 08/03/27
115000 C EXSR $CMD 08/03/04
115100 08/03/07
115200 08/03/07
115300 08/03/07
115400 08/03/07
115500 08/03/07
115600 08/03/07
115700 08/03/07
115800 * LIST SRC BLDOPT 08/03/04
115900 C WHEN V_OPT ='66' AND OBB = 'B' 08/03/04
116000 C EVAL CMD ='STRSEU SRCFILE(' + 08/03/04
116100 C %TRIM(V_LIB) +'/QBLDOPTSRC' + 08/03/04
116200 C ') SRCMBR(' + 08/03/04
116300 C %TRIM(OBOOBJ) +') OPTION(6)' 08/03/27
116400 C EXSR $CMD 08/03/04
116500 08/03/07
116600 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 23
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
116700 08/03/07
116800 08/03/07
116900 08/03/07
117000 08/03/07
117100 08/03/07
117200 * PROMOTION 08/02/26
117300 C WHEN V_OPT ='07' 05/11/03
117400 C V_USER CHAIN ADMENVF1 33 08/03/04
117500 C IF NOT *IN33 08/03/07
117600 08/04/05
117700 C IF OBU = *BLANK 08/04/05
117800 C EVAL *IN66 = USDVP ='N' AND USPRD ='N' 09/01/30
117900 C 66 ITER 08/03/07
118000 C EVAL *IN66 = USDVP ='N' AND OBQ = *BLANK AND 09/01/30
118100 C OBD <> *BLANK 09/01/30
118200 C 66 ITER 09/01/30
118300 C EVAL *IN66 = USPRD ='N' AND OBQ <> *BLANK AND 09/01/30
118400 C OBD = *BLANK 09/01/30
118500 C 66 ITER 08/03/07
118600 C ELSE 08/04/05
118700 C EVAL *IN66 = USPRD ='N' AND OBU <> *BLANK 08/04/05
118800 C 66 ITER 08/04/05
118900 C ENDIF 08/04/05
119000 08/03/07
119100 C SELECT 09/08/07
119200 C WHEN OBD <> *BLANK 09/08/07
119300 C EVAL V_LIB = PRLIBD 09/08/07
119400 C EXSR $LOCK 09/08/07
119500 C 12 LEAVESR 09/08/07
119600 C EVAL V_LIB = PRLIBQ 09/08/07
119700 09/08/07
119800 C WHEN OBQ <> *BLANK AND PRLIBE = *BLANK 09/08/07
119900 C EVAL V_LIB = PRLIBQ 09/08/07
120000 C EXSR $LOCK 09/08/07
120100 C 12 LEAVESR 09/08/07
120200 C EVAL V_LIB = PRLIBP 09/08/07
120300 09/08/07
120400 C WHEN OBQ <> *BLANK AND PRLIBE <> *BLANK 09/08/07
120500 C EVAL V_LIB = PRLIBQ 09/08/07
120600 C EXSR $LOCK 09/08/07
120700 C 12 LEAVESR 09/08/07
120800 C EVAL V_LIB = PRLIBE 09/08/07
120900 09/08/07
121000 C WHEN OBU <> *BLANK AND PRLIBE = *BLANK 09/08/07
121100 C EVAL V_LIB = PRLIBU 09/08/07
121200 C EXSR $LOCK 09/08/07
121300 C 12 LEAVESR 09/08/07
121400 C EVAL V_LIB = PRLIBP 09/08/07
121500 09/08/07
121600 C WHEN OBU <> *BLANK AND PRLIBE <> *BLANK 09/08/07
121700 C EVAL V_LIB = PRLIBU 09/08/07
121800 C EXSR $LOCK 09/08/07
121900 C 12 LEAVESR 09/08/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 24
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
122000 C EVAL V_LIB = PRLIBE 09/08/07
122100 09/08/07
122200 C ENDSL 09/08/07
122300 08/03/07
122400 C EXSR $LOCK 09/08/07
122500 C 12 LEAVESR 09/08/07
122600 09/08/07
122700 C CALL 'ADMCHKIN' 33 09/08/07
122800 C PARM X_SOC P_SOC 08/02/26
122900 C PARM PRPRJ P_PRJ 08/02/26
123000 C PARM OBOOBJ P_OBJ 08/02/26
123100 C PARM OBOTYP P_TYP 08/02/26
123200 C PARM 'Y' P_PRM 08/02/26
123300 C PARM ENSPOOL P_SPL 08/03/06
123400 C PARM P_RYN 08/02/26
123500 C ENDIF 08/03/07
123600 09/04/10
123700 *OPTION 14 COMPIL 08/03/04
123800 C WHEN V_OPT ='14' 08/03/07
123900 C SELECT 08/04/07
124000 C WHEN OBU <> *BLANK 08/04/07
124100 C EVAL V_LIB = PRLIBU 08/04/07
124200 C WHEN OBD <> *BLANK 08/04/07
124300 C EVAL V_LIB = PRLIBD 08/04/07
124400 C OTHER 08/04/07
124500 C GOTO T_ITER 08/04/07
124600 C ENDSL 08/04/07
124700 08/04/07
124800 C V_USER CHAIN ADMENVF1 33 08/03/07
124900 C IF NOT *IN33 08/03/07
125000 08/04/05
125100 C IF OBU = *BLANK 08/04/05
125200 C EVAL *IN66 = USDVP ='N' 09/01/30
125300 C 66 ITER 08/03/07
125400 C EVAL *IN66 = OBD = *BLANK AND OBQ = *BLANK 09/01/30
125500 C 66 ITER 08/03/07
125600 C EVAL *IN66 = OBD = *BLANK AND OBQ <> *BLANK 09/01/30
125700 C 66 ITER 09/01/30
125800 C ELSE 08/04/05
125900 C EVAL *IN66 = USDVP ='N' AND OBU <> *BLANK 09/01/30
126000 C 66 ITER 08/04/05
126100 C ENDIF 08/04/05
126200 C EXSR $LOCK 09/08/07
126300 C 12 LEAVESR 09/08/07
126400 09/08/07
126500 C CALL 'ADMCHKIN' 33 08/03/15
126600 C PARM X_SOC P_SOC 08/02/29
126700 C PARM PRPRJ P_PRJ 08/02/29
126800 C PARM OBOOBJ P_OBJ 08/02/29
126900 C PARM OBOTYP P_TYP 08/02/29
127000 C PARM 'N' P_PRM 08/02/29
127100 C PARM ENSPOOL P_SPL 08/03/06
127200 C PARM P_RYN 08/03/11
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 25
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
127300 C ENDIF 08/03/07
127400 08/03/07
127500 08/03/07
127600 08/03/07
127700 08/03/07
127800 08/03/07
127900 08/03/07
128000 08/03/07
128100 08/03/07
128200 08/03/07
128300 08/03/07
128400 * CHG BLDOPT ADD OR DELETE AND TEXT 08/03/07
128500 C WHEN V_OPT ='15' 08/03/20
128600 C SELECT 08/04/07
128700 C WHEN OBU <> *BLANK 08/04/07
128800 C EVAL V_LIB = PRLIBU 08/04/07
128900 C WHEN OBD <> *BLANK 08/04/07
129000 C EVAL V_LIB = PRLIBD 08/04/07
129100 C OTHER 08/04/07
129200 C GOTO T_ITER 08/04/07
129300 C ENDSL 08/04/07
129400 *POINTE POUR CONTROLE 08/03/07
129500 C T_16A TAG 08/03/07
129600 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
129700 C 66 GOTO T_16A 08/03/07
129800 C MOVE 'E' OBT 08/03/07
129900 C UPDATE ADMOBJF1 08/03/07
130000 08/03/07
130100 C CALLB 'XADM015' 66 08/03/20
130200 C PARM OBSOC P_SOC 08/03/07
130300 C PARM OBPRJ P_PRJ 08/03/07
130400 C PARM OBOOBJ P_OBJ 08/03/07
130500 C PARM OBOTYP P_TYP 08/03/07
130600 08/03/07
130700 * CONTROLE SI MODIFICATION 08/03/07
130800 08/03/07
130900 08/03/07
131000 *DEPOINTE POUR CONTROLE 08/03/07
131100 C T_16B TAG 08/03/07
131200 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
131300 C 66 GOTO T_16B 08/03/07
131400 C MOVE *BLANK OBT 08/03/07
131500 C UPDATE ADMOBJF1 08/03/07
131600 08/03/07
131700 08/03/07
131800 08/03/07
131900 08/03/07
132000 08/03/07
132100 08/03/07
132200 08/03/07
132300 08/03/07
132400 * STRSDA DSPF 08/03/04
132500 C WHEN V_OPT ='17' AND OBOATR = 'DSPF' 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 26
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
132600 C AND OBOYNS = 'Y' 08/03/07
132700 08/04/05
132800 C SELECT 08/04/07
132900 C WHEN OBU <> *BLANK 08/04/07
133000 C EVAL V_LIB = PRLIBU 08/04/07
133100 C WHEN OBD <> *BLANK 08/04/07
133200 C EVAL V_LIB = PRLIBD 08/04/07
133300 C OTHER 08/04/07
133400 C GOTO T_ITER 08/04/07
133500 C ENDSL 08/04/07
133600 08/03/07
133700 *POINTE POUR CONTROLE 08/03/07
133800 C T_D TAG 08/03/07
133900 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
134000 C 66 GOTO T_D 08/03/07
134100 C MOVE 'E' OBT 08/03/07
134200 C UPDATE ADMOBJF1 08/03/07
134300 08/03/07
134400 C EVAL CMD ='STRSDA OPTION(1) SRCFILE(' + 08/02/26
134500 C %TRIM(V_LIB) +'/'+ %TRIM(OBOFCH) + 08/02/26
134600 C ') SRCMBR(' + %TRIM(OBOOBJ) +') ' + 08/04/06
134700 C ' OBJLIB('+ %TRIM(V_LIB) +') ' 08/04/06
134800 C EXSR $CMD 08/02/26
134900 C CALLB 'MADMREFMBR' 08/03/07
135000 C PARM V_LIB P_LIB 08/03/07
135100 C PARM OBOFCH P_OBJ 08/03/07
135200 C PARM OBOOBJ P_MBR 08/03/07
135300 C PARM P_TEXT 08/03/07
135400 C PARM P_DATE 08/03/07
135500 08/03/07
135600 * CONTROLE SI MODIFICATION 08/03/07
135700 08/03/07
135800 08/03/07
135900 *DEPOINTE POUR CONTROLE 08/03/07
136000 C T_DD TAG 08/03/07
136100 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
136200 C 66 GOTO T_DD 08/03/07
136300 C MOVE *BLANK OBT 08/03/07
136400 08/03/07
136500 C MOVE P_TEXT OBTXTU 08/03/07
136600 C IF OBDCTL <> P_DATE 08/03/07
136700 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/03/07
136800 C Z-ADD *ZEROS V_DATE 08/03/07
136900 C MOVE V_DAT6 V_DATE 08/03/07
137000 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/03/07
137100 C ADD 19000000 V_DATE 08/03/07
137200 C ELSE 08/03/07
137300 C ADD 20000000 V_DATE 08/03/07
137400 C ENDIF 08/03/07
137500 C MOVE V_DATE OBDATU 08/03/07
137600 C ENDIF 08/03/07
137700 C UPDATE ADMOBJF1 08/03/07
137800 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 27
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
137900 08/03/07
138000 08/03/07
138100 08/03/07
138200 08/03/07
138300 08/03/07
138400 08/03/07
138500 * STRRLU PRTF 08/03/04
138600 C WHEN V_OPT ='19' AND OBOATR = 'PRTF' 08/02/26
138700 C AND OBOYNS = 'Y' 08/03/07
138800 08/04/05
138900 C SELECT 08/04/07
139000 C WHEN OBU <> *BLANK 08/04/07
139100 C EVAL V_LIB = PRLIBU 08/04/07
139200 C WHEN OBD <> *BLANK 08/04/07
139300 C EVAL V_LIB = PRLIBD 08/04/07
139400 C OTHER 08/04/07
139500 C GOTO T_ITER 08/04/07
139600 C ENDSL 08/04/07
139700 *POINTE POUR CONTROLE 08/03/07
139800 C T_P TAG 08/03/07
139900 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
140000 C 66 GOTO T_P 08/03/07
140100 C MOVE 'E' OBT 08/03/07
140200 C UPDATE ADMOBJF1 08/03/07
140300 08/03/07
140400 C MOVE OBOPAG V_OPAG 08/04/30
140500 C EVAL CMD ='STRRLU SRCFILE(' + 08/02/26
140600 C %TRIM(V_LIB) +'/'+ %TRIM(OBOFCH) + 08/02/26
140700 C ') SRCMBR(' + 08/02/26
140800 C %TRIM(OBOOBJ) +') OPTION(2) ' + 08/04/30
140900 C 'PAGWIDTH(' +V_OPAG + ') ' 08/04/30
141000 C EXSR $CMD 08/02/26
141100 C CALLB 'MADMREFMBR' 08/06/16
141200 C PARM V_LIB P_LIB 08/06/16
141300 C PARM OBOFCH P_OBJ 08/06/16
141400 C PARM OBOOBJ P_MBR 08/06/16
141500 C PARM P_TEXT 08/06/16
141600 C PARM P_DATE 08/06/16
141700 08/03/07
141800 * CONTROLE SI MODIFICATION 08/03/07
141900 08/03/07
142000 08/03/07
142100 *DEPOINTE POUR CONTROLE 08/03/07
142200 C T_PP TAG 08/03/07
142300 C K_OBJ CHAIN ADMOBJF1 3366 08/03/07
142400 C 66 GOTO T_PP 08/03/07
142500 C MOVE *BLANK OBT 08/03/07
142600 08/03/07
142700 C MOVE P_TEXT OBTXTU 08/03/07
142800 C IF OBDCTL <> P_DATE 08/03/07
142900 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/03/07
143000 C Z-ADD *ZEROS V_DATE 08/03/07
143100 C MOVE V_DAT6 V_DATE 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 28
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
143200 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/03/07
143300 C ADD 19000000 V_DATE 08/03/07
143400 C ELSE 08/03/07
143500 C ADD 20000000 V_DATE 08/03/07
143600 C ENDIF 08/03/07
143700 C MOVE V_DATE OBDATU 08/03/07
143800 C ENDIF 08/03/07
143900 C UPDATE ADMOBJF1 08/03/07
144000 08/03/07
144100 08/03/07
144200 08/03/07
144300 08/03/07
144400 08/03/07
144500 08/03/07
144600 08/03/07
144700 08/03/07
144800 08/03/07
144900 08/03/07
145000 08/03/07
145100 08/03/07
145200 *SCAN 08/03/07
145300 C WHEN V_OPT ='25' AND OBOYNS ='Y' 08/03/18
145400 C IF P_OPTION = *BLANK AND P_INXX = *OFF 08/03/20
145500 C CALLB 'XADMSCNP' 08/03/25
145600 C PARM P_STRING 08/03/18
145700 C PARM P_OPTION 08/03/18
145800 C PARM P_COL1 08/03/18
145900 C PARM P_COL2 08/03/18
146000 C PARM P_CASE 08/03/18
146100 C PARM P_INXX 08/03/20
146200 C WRITE SADMB0 08/03/21
146300 C ENDIF 08/03/18
146400 08/03/18
146500 C SELECT 08/03/18
146600 C WHEN P_OPTION ='*EDIT' AND OBOYNS = 'Y' 08/03/18
146700 C AND V_LIB = PRLIBD AND P_INXX = *OFF 08/03/20
146800 C 08/03/18
146900 *POINTE POUR CONTROLE 08/03/18
147000 C T_E25 TAG 08/03/18
147100 C K_OBJ CHAIN ADMOBJF1 3366 08/03/18
147200 C 66 GOTO T_E25 08/03/18
147300 C MOVE 'E' OBT 08/03/18
147400 C UPDATE ADMOBJF1 08/03/18
147500 08/03/18
147600 C CALLB 'XADMSCNPDM' 66 08/03/25
147700 C PARM V_LIB P_LIB 08/03/18
147800 C PARM OBOFCH P_FCH 08/03/18
147900 C PARM OBOOBJ P_MBR 08/03/18
148000 C PARM P_STRING 08/03/18
148100 C PARM P_OPTION 08/03/18
148200 C PARM P_COL1 08/03/18
148300 C PARM P_COL2 08/03/18
148400 C PARM P_CASE 08/03/18
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 29
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
148500 C PARM P_RYN 08/03/18
148600 08/03/18
148700 * RTV CHG SOURCE 08/03/18
148800 C CALLB 'MADMREFMBR' 08/03/18
148900 C PARM V_LIB P_LIB 08/03/18
149000 C PARM OBOFCH P_OBJ 08/03/18
149100 C PARM OBOOBJ P_MBR 08/03/18
149200 C PARM P_TEXT 08/03/18
149300 C PARM P_DATE 08/03/18
149400 08/03/18
149500 * CONTROLE SI MODIFICATION 08/03/18
149600 08/03/18
149700 08/03/18
149800 *DEPOINTE POUR CONTROLE 08/03/18
149900 C T_EE25 TAG 08/03/18
150000 C K_OBJ CHAIN ADMOBJF1 3366 08/03/18
150100 C 66 GOTO T_EE25 08/03/18
150200 C MOVE *BLANK OBT 08/03/18
150300 08/03/18
150400 C MOVE P_TEXT OBTXTU 08/03/18
150500 C IF OBDCTL <> P_DATE 08/03/18
150600 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/03/18
150700 C Z-ADD *ZEROS V_DATE 08/03/18
150800 C MOVE V_DAT6 V_DATE 08/03/18
150900 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/03/18
151000 C ADD 19000000 V_DATE 08/03/18
151100 C ELSE 08/03/18
151200 C ADD 20000000 V_DATE 08/03/18
151300 C ENDIF 08/03/18
151400 C MOVE V_DATE OBDATU 08/03/18
151500 C ENDIF 08/03/18
151600 C UPDATE ADMOBJF1 08/03/18
151700 08/03/18
151800 08/03/18
151900 08/03/18
152000 C WHEN P_OPTION ='*SDA ' AND OBOYNS = 'Y' 08/03/31
152100 C AND V_LIB = PRLIBD AND P_INXX = *OFF 08/03/31
152200 C AND OBOATR = 'DSPF' 08/03/31
152300 C 08/03/31
152400 *POINTE POUR CONTROLE 08/03/31
152500 C T_S25 TAG 08/03/31
152600 C K_OBJ CHAIN ADMOBJF1 3366 08/03/31
152700 C 66 GOTO T_S25 08/03/31
152800 C MOVE 'E' OBT 08/03/31
152900 C UPDATE ADMOBJF1 08/03/31
153000 08/03/31
153100 C CALLB 'XADMSCNPDM' 66 08/03/31
153200 C PARM V_LIB P_LIB 08/03/31
153300 C PARM OBOFCH P_FCH 08/03/31
153400 C PARM OBOOBJ P_MBR 08/03/31
153500 C PARM P_STRING 08/03/31
153600 C PARM P_OPTION 08/03/31
153700 C PARM P_COL1 08/03/31
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 30
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
153800 C PARM P_COL2 08/03/31
153900 C PARM P_CASE 08/03/31
154000 C PARM P_RYN 08/03/31
154100 08/03/31
154200 * RTV CHG SOURCE 08/03/31
154300 C CALLB 'MADMREFMBR' 08/03/31
154400 C PARM V_LIB P_LIB 08/03/31
154500 C PARM OBOFCH P_OBJ 08/03/31
154600 C PARM OBOOBJ P_MBR 08/03/31
154700 C PARM P_TEXT 08/03/31
154800 C PARM P_DATE 08/03/31
154900 08/03/31
155000 * CONTROLE SI MODIFICATION 08/03/31
155100 08/03/31
155200 08/03/31
155300 *DEPOINTE POUR CONTROLE 08/03/31
155400 C T_SD25 TAG 08/03/31
155500 C K_OBJ CHAIN ADMOBJF1 3366 08/03/31
155600 C 66 GOTO T_SD25 08/03/31
155700 C MOVE *BLANK OBT 08/03/31
155800 08/03/31
155900 C MOVE P_TEXT OBTXTU 08/03/31
156000 C IF OBDCTL <> P_DATE 08/03/31
156100 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/03/31
156200 C Z-ADD *ZEROS V_DATE 08/03/31
156300 C MOVE V_DAT6 V_DATE 08/03/31
156400 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/03/31
156500 C ADD 19000000 V_DATE 08/03/31
156600 C ELSE 08/03/31
156700 C ADD 20000000 V_DATE 08/03/31
156800 C ENDIF 08/03/31
156900 C MOVE V_DATE OBDATU 08/03/31
157000 C ENDIF 08/03/31
157100 C UPDATE ADMOBJF1 08/03/31
157200 08/03/31
157300 08/03/31
157400 08/03/31
157500 C WHEN P_OPTION ='*RLU ' AND OBOYNS = 'Y' 08/03/31
157600 C AND V_LIB = PRLIBD AND P_INXX = *OFF 08/03/31
157700 C AND OBOATR = 'PRTF' 08/03/31
157800 C 08/03/31
157900 *POINTE POUR CONTROLE 08/03/31
158000 C T_R25 TAG 08/03/31
158100 C K_OBJ CHAIN ADMOBJF1 3366 08/03/31
158200 C 66 GOTO T_R25 08/03/31
158300 C MOVE 'E' OBT 08/03/31
158400 C UPDATE ADMOBJF1 08/03/31
158500 08/03/31
158600 C CALLB 'XADMSCNPDM' 66 08/03/31
158700 C PARM V_LIB P_LIB 08/03/31
158800 C PARM OBOFCH P_FCH 08/03/31
158900 C PARM OBOOBJ P_MBR 08/03/31
159000 C PARM P_STRING 08/03/31
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 31
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
159100 C PARM P_OPTION 08/03/31
159200 C PARM P_COL1 08/03/31
159300 C PARM P_COL2 08/03/31
159400 C PARM P_CASE 08/03/31
159500 C PARM P_RYN 08/03/31
159600 08/03/31
159700 * RTV CHG SOURCE 08/03/31
159800 C CALLB 'MADMREFMBR' 08/03/31
159900 C PARM V_LIB P_LIB 08/03/31
160000 C PARM OBOFCH P_OBJ 08/03/31
160100 C PARM OBOOBJ P_MBR 08/03/31
160200 C PARM P_TEXT 08/03/31
160300 C PARM P_DATE 08/03/31
160400 08/03/31
160500 * CONTROLE SI MODIFICATION 08/03/31
160600 08/03/31
160700 08/03/31
160800 *DEPOINTE POUR CONTROLE 08/03/31
160900 C T_RR25 TAG 08/03/31
161000 C K_OBJ CHAIN ADMOBJF1 3366 08/03/31
161100 C 66 GOTO T_RR25 08/03/31
161200 C MOVE *BLANK OBT 08/03/31
161300 08/03/31
161400 C MOVE P_TEXT OBTXTU 08/03/31
161500 C IF OBDCTL <> P_DATE 08/03/31
161600 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/03/31
161700 C Z-ADD *ZEROS V_DATE 08/03/31
161800 C MOVE V_DAT6 V_DATE 08/03/31
161900 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/03/31
162000 C ADD 19000000 V_DATE 08/03/31
162100 C ELSE 08/03/31
162200 C ADD 20000000 V_DATE 08/03/31
162300 C ENDIF 08/03/31
162400 C MOVE V_DATE OBDATU 08/03/31
162500 C ENDIF 08/03/31
162600 C UPDATE ADMOBJF1 08/03/31
162700 08/03/31
162800 08/03/31
162900 08/03/31
163000 08/03/31
163100 08/03/31
163200 08/03/31
163300 * *DSP *PRT 08/03/18
163400 C WHEN P_OPTION = '*DSP ' AND OBOYNS = 'Y' AND 08/06/11
163500 C P_INXX = *OFF OR 08/06/11
163600 C P_OPTION = '*PRT ' AND OBOYNS = 'Y' AND 08/06/11
163700 C P_INXX = *OFF 08/06/11
163800 C CALLB 'XADMSCNPDM' 66 08/03/25
163900 C PARM V_LIB P_LIB 08/03/18
164000 C PARM OBOFCH P_FCH 08/03/18
164100 C PARM OBOOBJ P_MBR 08/03/18
164200 C PARM P_STRING 08/03/18
164300 C PARM P_OPTION 08/03/18
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 32
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
164400 C PARM P_COL1 08/03/18
164500 C PARM P_COL2 08/03/18
164600 C PARM P_CASE 08/03/18
164700 C PARM P_RYN 08/03/18
164800 C ENDSL 09/08/10
164900 09/08/10
165000 09/08/10
165100 C IF P_RYN = 'N' 08/03/18
165200 C Z-ADD LIGN1 S_LIG 77 AFFICHAGE STOP 08/03/18
165300 C SETON 92 08/03/18
165400 C UPDATE SADME01 08/03/18
165500 C LEAVE 08/03/18
165600 C ENDIF 08/03/18
165700 08/03/07
165800 08/03/07
165900 08/03/07
166000 08/03/07
166100 08/03/07
166200 * CHGUSER TRANFERT JOB 08/03/07
166300 C WHEN V_OPT ='27' 08/03/07
166400 C AND V_LIB <> PRLIBP 08/03/07
166500 C CALLB 'XADMTRFP' 66 08/03/07
166600 C PARM OBSOC P_SOC 08/03/07
166700 C PARM OBPRJ P_PRJ 08/03/07
166800 C PARM OBOOBJ P_OBJ 08/03/07
166900 C PARM OBOTYP P_TYP 08/03/07
167000 * ATTENTION SI TRANSFERT AVEC OBT = W ALORS TRANFERT DES SOURCE ET SUPPRESSION OBJET LIB WDSC 08/04/03
167100 08/03/07
167200 08/03/07
167300 08/03/31
167400 08/03/31
167500 08/03/31
167600 08/03/31
167700 08/03/31
167800 08/03/31
167900 08/03/31
168000 * CHEKOUT 09/07/22
168100 C WHEN V_OPT='54' AND OBD <> *BLANK 09/07/22
168200 C OR 09/07/22
168300 C V_OPT='54' AND OBQ <> *BLANK 09/07/22
168400 C OR 09/07/22
168500 C V_OPT='54' AND OBU <> *BLANK 09/07/22
168600 09/07/22
168700 C SELECT 09/07/22
168800 C WHEN OBU <> *BLANK 09/07/22
168900 C EVAL V_LIB = PRLIBU 09/07/22
169000 C WHEN OBD <> *BLANK 09/07/22
169100 C EVAL V_LIB = PRLIBD 09/07/22
169200 C WHEN OBQ <> *BLANK 09/07/22
169300 C EVAL V_LIB = PRLIBQ 09/07/22
169400 C ENDSL 09/07/22
169500 09/07/22
169600 09/07/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 33
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
169700 C CALLB 'XADMCMPPFM' 33 09/07/22
169800 C PARM V_LIB P_LIB 09/07/22
169900 C PARM OBOFCH P_FCH 09/07/22
170000 C PARM OBOOBJ P_MBR 09/07/22
170100 C PARM PRLIBP P_LIBX 09/07/22
170200 09/07/22
170300 09/07/22
170400 09/07/22
170500 09/07/22
170600 09/07/22
170700 09/07/22
170800 09/07/22
170900 * TRANFERT TO PC 08/11/18
171000 C WHEN V_OPT ='70' AND OBOYNS = 'Y' AND 08/11/19
171100 C OBT = *BLANK 08/03/31
171200 08/04/07
171300 C SELECT 08/04/07
171400 C WHEN OBU <> *BLANK 08/04/07
171500 C EVAL V_LIB = PRLIBU 08/04/07
171600 C WHEN OBD <> *BLANK 08/04/07
171700 C EVAL V_LIB = PRLIBD 08/04/07
171800 C OTHER 08/04/07
171900 C GOTO T_ITER 08/04/07
172000 C ENDSL 08/04/07
172100 08/04/07
172200 C CALLB 'XADMWDSC' 66 08/03/31
172300 C PARM OBSOC P_SOC 08/03/31
172400 C PARM OBPRJ P_PRJ 08/03/31
172500 C PARM OBOOBJ P_OBJ 08/03/31
172600 C PARM OBOTYP P_TYP 08/03/31
172700 C PARM *ON P_TOPC 08/03/31
172800 C PARM *OFF P_FRMPC 08/03/31
172900 08/03/31
173000 08/03/31
173100 08/03/31
173200 08/03/31
173300 * TRANFERT FROM PC 08/11/18
173400 C WHEN V_OPT ='77' AND OBOYNS = 'Y' AND 08/04/01
173500 C OBT = 'W' 08/03/31
173600 C CALLB 'XADMWDSC' 66 08/03/31
173700 C PARM OBSOC P_SOC 08/03/31
173800 C PARM OBPRJ P_PRJ 08/03/31
173900 C PARM OBOOBJ P_OBJ 08/03/31
174000 C PARM OBOTYP P_TYP 08/03/31
174100 C PARM *OFF P_TOPC 08/03/31
174200 C PARM *ON P_FRMPC 08/03/31
174300 08/03/07
174400 08/03/07
174500 08/03/07
174600 08/03/07
174700 08/03/07
174800 08/03/07
174900 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 34
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
175000 08/03/07
175100 08/03/07
175200 08/03/07
175300 * EXCEC CMD FADMOPT.USER 08/03/03
175400 C OTHER 08/03/03
175500 * RECHERCHE SI FICHIER EXISTE OPTION POUR COMMANDE PERSONNEL 08/03/06
175600 C V_OPT CHAIN ADMOPTF1 33 08/03/06
175700 C 33 ITER 08/03/06
175800 C CALLB 'MADMOBJCHK' 08/03/03
175900 C PARM 'ADMOPS' P_LIB 10 08/03/03
176000 C PARM 'FADMOPT' P_OBJ 10 08/03/03
176100 C PARM '*FILE' P_TYPE 10 08/03/03
176200 C PARM V_USER P_MBR 10 08/03/03
176300 C PARM TROUVE 08/03/03
176400 C IF TROUVE = *ON 08/03/03
176500 08/03/05
176600 C IF OBTXTU <> *BLANK 08/03/05
176700 C EVAL P_TEXT = OBTXTU 08/03/05
176800 C ELSE 08/03/05
176900 C EVAL P_TEXT = OBTXTP 08/03/05
177000 C ENDIF 08/03/05
177100 C IF OBOATR = 'PF' OR OBOATR = 'LF' 08/03/05
177200 C EVAL P_FIL = OBOOBJ 08/03/05
177300 C ELSE 08/03/05
177400 C EVAL P_FIL ='*NULL' 08/03/05
177500 C ENDIF 08/03/05
177600 08/03/05
177700 C EVAL P_XCMD = OPXCMD 08/03/27
177800 08/04/05
177900 C CALLB 'MADMEXCMBR' 66 08/03/06
178000 C PARM P_XCMD 08/03/27
178100 C PARM V_LIB P_LIB 08/04/05
178200 C PARM OBOOBJ P_OBJ 08/03/05
178300 C PARM OBOFCH P_FCH 08/03/27
178400 C PARM OBOTYP P_TYP 08/03/06
178500 C PARM P_FIL 08/03/05
178600 C PARM OBOATR P_ATR 08/03/05
178700 C PARM P_TEXT 08/03/06
178800 C PARM V_OPT P_OPT 08/03/03
178900 C PARM P_RYN 08/03/03
179000 C ENDIF 08/03/03
179100 C ENDSL 05/11/03
179200 08/03/07
179300 08/03/07
179400 08/03/07
179500 C T_ITER TAG 08/04/07
179600 06/02/16
179700 C MOVE *BLANK V_OPT 08/03/18
179800 C UPDATE SADME01 08/03/18
179900 C ENDDO 05/11/03
180000 C SETOFF 92 08/03/18
180100 05/11/03
180200 CSR ENDSR 05/11/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 35
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
180300 *--------------------------------------------------------------------------------------------- 05/11/03
180400 CSR $CMD BEGSR 08/02/19
180500 C CALL 'QCMDEXC' 66 08/02/19
180600 C PARM CMD P_CMD 08/02/19
180700 C PARM P_CMD_LEN 08/02/19
180800 CSR ENDSR 08/02/19
180900 *--------------------------------------------------------------------------------------------- 08/03/17
181000 *- TEST LOCK OBJET --------------------------------------------------------------------------- 09/08/07
181100 *--------------------------------------------------------------------------------------------- 09/08/07
181200 CSR $LOCK BEGSR 09/08/07
181300 C IF OBOTYP = '*CMD' OR 09/08/10
181400 C OBOTYP = '*PGM' OR 09/08/10
181500 C OBOTYP = '*SRVPGM' OR 09/08/10
181600 C OBOTYP = '*MODULE' 09/08/10
181700 C LEAVESR 09/08/10
181800 C ENDIF 09/08/10
181900 09/08/10
182000 C DO *HIVAL 09/08/07
182100 C SETOFF 12 09/08/07
182200 C CALLB 'MADMLCKI' 33 09/08/07
182300 C PARM V_LIB P_LIB 09/08/07
182400 C PARM OBOOBJ P_OBJ 09/08/07
182500 C PARM OBOTYP P_TYP 09/08/07
182600 C PARM '*NONE' P_MBR 09/08/07
182700 C PARM P_RYN 09/08/07
182800 C EVAL *IN33 = P_RYN = 'Y' 09/08/07
182900 C N33 LEAVE 09/08/07
183000 C EXFMT SADMW03 09/08/07
183100 C 12 LEAVE 09/08/07
183200 C ITER 09/08/07
183300 C ENDDO 09/08/07
183400 C ENDSR 09/08/07
183500 *--------------------------------------------------------------------------------------------- 05/11/03
183600 * INCLUDE 05/11/03
183700 *--------------------------------------------------------------------------------------------- 05/11/03
183800 C/COPY QRPGLEINC,ADMR_AIDE 08/03/06
183900 *--------------------------------------------------------------------------------------------- 05/11/03
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPF4A
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FSADMAPPF4ACF E WORKSTN INFDS(V_DSPF) 08/11/19
300 08/11/17
400 DMNUREP S 2S 0 08/11/19
500 *--------------------------------------------------------------------------------------------- 08/11/19
600 * UDS 08/11/19
700 *--------------------------------------------------------------------------------------------- 08/11/19
800 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/11/19
900 ************************************************ 08/11/17
1000 C *ENTRY PLIST 08/11/17
1100 C PARM P_ATR 10 08/11/17
1200 08/11/17
1300 C Z-ADD 1 MNUREP 08/11/19
1400 C Z-ADD 1 V_CO 08/11/19
1500 C EXSR $ROULE 08/11/19
1600 C WRITE BLANKS 08/11/19
1700 C DO *HIVAL 08/11/17
1800 C 03 LEAVE 08/11/17
1900 C EXFMT SADMW01 08/11/19
2000 C V_KEY CASEQ F_PGA $ROULE 08/11/19
2100 C V_KEY CASEQ F_PGB $ROULE 08/11/19
2200 C ENDCS 08/11/19
2300 * = = = = = = = = = = 08/11/17
2400 *--------------------------------------------------------------------------------------------- 08/11/17
2500 * TST CONTROLE VALIDITE =================================================================== 08/11/17
2600 *--------------------------------------------------------------------------------------------- 08/11/17
2700 C SELECT 08/11/17
2800 C WHEN V_KEY = F_ENT AND MNUREP = 1 08/11/19
2900 C EVAL P_ATR = *BLANK 08/11/17
3000 C WHEN V_KEY = F_ENT AND MNUREP = 2 08/11/19
3100 C EVAL P_ATR = 'DSPF' 08/11/17
3200 C WHEN V_KEY = F_ENT AND MNUREP = 3 08/11/19
3300 C EVAL P_ATR = 'PRTF' 08/11/17
3400 C WHEN V_KEY = F_ENT AND MNUREP = 4 08/11/19
3500 C EVAL P_ATR = 'CLP' 08/11/17
3600 C WHEN V_KEY = F_ENT AND MNUREP = 5 08/11/19
3700 C EVAL P_ATR = 'CLLE' 08/11/17
3800 C WHEN V_KEY = F_ENT AND MNUREP = 6 08/11/19
3900 C EVAL P_ATR = 'RPG' 08/11/17
4000 C WHEN V_KEY = F_ENT AND MNUREP = 7 08/11/19
4100 C EVAL P_ATR = 'RPGLE' 08/11/17
4200 C WHEN V_KEY = F_ENT AND MNUREP = 8 08/11/19
4300 C EVAL P_ATR = 'SQLRPGLE' 08/11/17
4400 C WHEN V_KEY = F_ENT AND MNUREP = 9 08/11/19
4500 C EVAL P_ATR = 'SRVPGM' 08/11/17
4600 C WHEN V_KEY = F_ENT AND MNUREP = 10 08/11/19
4700 C EVAL P_ATR = 'LF' 08/11/17
4800 C WHEN V_KEY = F_ENT AND MNUREP = 11 08/11/19
4900 C EVAL P_ATR = 'PF' 08/11/17
5000 C WHEN V_KEY = F_ENT AND MNUREP = 12 08/11/19
5100 C EVAL P_ATR = 'CLE' 08/11/17
5200 C WHEN V_KEY = F_ENT AND MNUREP = 13 08/11/19
5300 C EVAL P_ATR = 'CPP' 08/11/17
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPF4A
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C WHEN V_KEY = F_ENT AND MNUREP = 14 08/11/19
5500 C EVAL P_ATR = 'CMD' 08/11/17
5600 C WHEN V_KEY = F_ENT AND MNUREP = 15 08/11/19
5700 C EVAL P_ATR = 'HTML' 08/11/17
5800 C WHEN V_KEY = F_ENT AND MNUREP = 16 08/11/19
5900 C EVAL P_ATR = 'DTAARA' 08/11/17
6000 C WHEN V_KEY = F_ENT AND MNUREP = 17 08/11/19
6100 C EVAL P_ATR = 'MSG' 08/11/17
6200 C WHEN V_KEY = F_ENT AND MNUREP = 18 08/11/19
6300 C EVAL P_ATR = 'TXT' 08/11/17
6400 C ENDSL 08/11/17
6500 C EVAL *IN03 = MNUREP > 0 AND V_KEY =F_ENT 08/11/19
6600 C ENDDO 08/11/17
6700 C SETON LR 08/11/17
6800 *============================================================================================= 08/11/17
6900 *-------------------- 08/11/19
7000 C $ROULE BEGSR 08/11/19
7100 *-------------------- 08/11/19
7200 C SELECT 08/11/19
7300 C WHEN V_KEY = F_PGA 08/11/19
7400 C SUB 1 MNUREP 33 08/11/19
7500 C 33 Z-ADD 1 MNUREP 08/11/19
7600 C WHEN V_KEY = F_PGB 08/11/19
7700 C ADD 1 MNUREP 08/11/19
7800 C EVAL *IN33 = MNUREP > 18 08/11/19
7900 C 33 SUB 1 MNUREP 08/11/19
8000 C ENDSL 08/11/19
8100 C 08/11/19
8200 C MNUREP COMP 1 61 08/11/19
8300 C MNUREP COMP 2 62 08/11/19
8400 C MNUREP COMP 3 63 08/11/19
8500 C MNUREP COMP 4 64 08/11/19
8600 C MNUREP COMP 5 65 08/11/19
8700 C MNUREP COMP 6 66 08/11/19
8800 C MNUREP COMP 7 67 08/11/19
8900 C MNUREP COMP 8 68 08/11/19
9000 C MNUREP COMP 9 69 08/11/19
9100 C MNUREP COMP 10 70 08/11/19
9200 C MNUREP COMP 11 71 08/11/19
9300 C MNUREP COMP 12 72 08/11/19
9400 C MNUREP COMP 13 73 08/11/19
9500 C MNUREP COMP 14 74 08/11/19
9600 C MNUREP COMP 15 75 08/11/19
9700 C MNUREP COMP 16 76 08/11/19
9800 C MNUREP COMP 17 77 08/11/19
9900 C MNUREP COMP 18 78 08/11/19
10000 C Z-ADD MNUREP V_LI 08/11/19
10100 C ENDSR 08/11/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPF4T
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FSADMAPPF4TCF E WORKSTN INFDS(V_DSPF) 08/11/19
300 08/11/17
400 08/11/19
500 DMNUREP S 2S 0 08/11/19
600 *--------------------------------------------------------------------------------------------- 08/11/19
700 * UDS 08/11/19
800 *--------------------------------------------------------------------------------------------- 08/11/19
900 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/11/19
1000 08/11/17
1100 ************************************************ 08/11/17
1200 C *ENTRY PLIST 08/11/17
1300 C PARM P_TYP 10 08/11/17
1400 08/11/17
1500 C Z-ADD 1 MNUREP 61 08/11/19
1600 C Z-ADD 1 V_CO 08/11/19
1700 C WRITE BLANKS 08/11/19
1800 C DO *HIVAL 08/11/17
1900 C 03 LEAVE 08/11/17
2000 C EXFMT SADMW01 08/11/19
2100 C V_KEY CASEQ F_PGA $ROULE 08/11/19
2200 C V_KEY CASEQ F_PGB $ROULE 08/11/19
2300 C ENDCS 08/11/19
2400 *--------------------------------------------------------------------------------------------- 08/11/19
2500 * TST CONTROLE VALIDITE =================================================================== 08/11/19
2600 *--------------------------------------------------------------------------------------------- 08/11/19
2700 C SELECT 08/11/19
2800 C WHEN V_KEY = F_ENT AND MNUREP = 1 08/11/19
2900 C EVAL P_TYP = *BLANK 08/11/19
3000 C WHEN V_KEY = F_ENT AND MNUREP = 2 08/11/19
3100 C EVAL P_TYP = '*FILE' 08/11/19
3200 C WHEN V_KEY = F_ENT AND MNUREP = 3 08/11/19
3300 C EVAL P_TYP = '*MODULE' 08/11/19
3400 C WHEN V_KEY = F_ENT AND MNUREP = 4 08/11/19
3500 C EVAL P_TYP = '*PGM' 08/11/19
3600 C WHEN V_KEY = F_ENT AND MNUREP = 5 08/11/19
3700 C EVAL P_TYP = '*SRVPGM' 08/11/19
3800 C WHEN V_KEY = F_ENT AND MNUREP = 6 08/11/19
3900 C EVAL P_TYP = '*DTAARA' 08/11/19
4000 C WHEN V_KEY = F_ENT AND MNUREP = 7 08/11/19
4100 C EVAL P_TYP = '*CMD' 08/11/19
4200 C ENDSL 08/11/19
4300 C EVAL *IN03 = MNUREP > 0 AND V_KEY =F_ENT 08/11/19
4400 C ENDDO 08/11/19
4500 C SETON LR 08/11/19
4600 *============================================================================================= 08/11/19
4700 *-------------------- 08/11/19
4800 C $ROULE BEGSR 08/11/19
4900 *-------------------- 08/11/19
5000 C SELECT 08/11/19
5100 C WHEN V_KEY = F_PGA 08/11/19
5200 C SUB 1 MNUREP 33 08/11/19
5300 C 33 Z-ADD 1 MNUREP 08/11/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPF4T
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C WHEN V_KEY = F_PGB 08/11/19
5500 C ADD 1 MNUREP 08/11/19
5600 C EVAL *IN33 = MNUREP > 7 08/11/19
5700 C 33 SUB 1 MNUREP 08/11/19
5800 C ENDSL 08/11/19
5900 C 08/11/19
6000 C 08/11/19
6100 C MNUREP COMP 1 61 08/11/19
6200 C MNUREP COMP 2 62 08/11/19
6300 C MNUREP COMP 3 63 08/11/19
6400 C MNUREP COMP 4 64 08/11/19
6500 C MNUREP COMP 5 65 08/11/19
6600 C MNUREP COMP 6 66 08/11/19
6700 C MNUREP COMP 7 67 08/11/19
6800 08/11/19
6900 C Z-ADD MNUREP V_LI 08/11/19
7000 C ENDSR 08/11/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPF4X
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FSADMAPPF4XCF E WORKSTN INFDS(V_DSPF) 09/01/30
300 08/11/17
400 08/11/19
500 DMNUREP S 2S 0 08/11/19
600 *--------------------------------------------------------------------------------------------- 08/11/19
700 * UDS 08/11/19
800 *--------------------------------------------------------------------------------------------- 08/11/19
900 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/11/19
1000 08/11/17
1100 ************************************************ 08/11/17
1200 C *ENTRY PLIST 08/11/17
1300 C PARM P_TYP 10 08/11/17
1400 08/11/17
1500 C Z-ADD 1 MNUREP 61 08/11/19
1600 C Z-ADD 1 V_CO 08/11/19
1700 C WRITE BLANKS 08/11/19
1800 C DO *HIVAL 08/11/17
1900 C 03 LEAVE 08/11/17
2000 C EXFMT SADMW01 08/11/19
2100 C V_KEY CASEQ F_PGA $ROULE 08/11/19
2200 C V_KEY CASEQ F_PGB $ROULE 08/11/19
2300 C ENDCS 08/11/19
2400 *--------------------------------------------------------------------------------------------- 08/11/19
2500 * TST CONTROLE VALIDITE =================================================================== 08/11/19
2600 *--------------------------------------------------------------------------------------------- 08/11/19
2700 C SELECT 08/11/19
2800 C WHEN V_KEY = F_ENT AND MNUREP = 1 08/11/19
2900 C EVAL P_TYP = *BLANK 08/11/19
3000 C WHEN V_KEY = F_ENT AND MNUREP = 2 08/11/19
3100 C EVAL P_TYP = 'D' 09/01/30
3200 C WHEN V_KEY = F_ENT AND MNUREP = 3 08/11/19
3300 C EVAL P_TYP = 'Q' 09/01/30
3400 C WHEN V_KEY = F_ENT AND MNUREP = 4 08/11/19
3500 C EVAL P_TYP = 'P' 09/01/30
3600 C WHEN V_KEY = F_ENT AND MNUREP = 5 09/01/30
3700 C EVAL P_TYP = 'U' 09/01/30
3800 C WHEN V_KEY = F_ENT AND MNUREP = 6 09/01/30
3900 C EVAL P_TYP = 'B' 09/01/30
4000 C ENDSL 08/11/19
4100 C EVAL *IN03 = MNUREP > 0 AND V_KEY =F_ENT 08/11/19
4200 C ENDDO 08/11/19
4300 C SETON LR 08/11/19
4400 *============================================================================================= 08/11/19
4500 *-------------------- 08/11/19
4600 C $ROULE BEGSR 08/11/19
4700 *-------------------- 08/11/19
4800 C SELECT 08/11/19
4900 C WHEN V_KEY = F_PGA 08/11/19
5000 C SUB 1 MNUREP 33 08/11/19
5100 C 33 Z-ADD 1 MNUREP 08/11/19
5200 C WHEN V_KEY = F_PGB 08/11/19
5300 C ADD 1 MNUREP 08/11/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPF4X
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EVAL *IN33 = MNUREP > 4 09/01/30
5500 C 33 SUB 1 MNUREP 08/11/19
5600 C ENDSL 08/11/19
5700 C 08/11/19
5800 C 08/11/19
5900 C MNUREP COMP 1 61 08/11/19
6000 C MNUREP COMP 2 62 08/11/19
6100 C MNUREP COMP 3 63 08/11/19
6200 C MNUREP COMP 4 64 08/11/19
6300 C MNUREP COMP 5 65 09/01/30
6400 C MNUREP COMP 6 66 09/01/30
6500 08/11/19
6600 C Z-ADD MNUREP V_LI 08/11/19
6700 C ENDSR 08/11/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPX
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/19
200 *--------------------------------------------------------------------------------------------- 08/03/19
300 * DECLARATION DE FICHIER 08/03/19
400 *--------------------------------------------------------------------------------------------- 08/03/19
500 FLADMPRJA IF E K DISK 08/03/19
600 FFADMGRP IF E K DISK 08/03/19
700 FSADMAPPX CF E WORKSTN INFDS(V_DSPF) 08/03/19
800 F SFILE(SPRJWE1:LIGN2) 08/03/19
900 F SFILE(SGRPWE1:LIGN1) 08/03/19
1000 * 08/03/19
1100 *--------------------------------------------------------------------------------------------- 08/03/19
1200 * UDS 08/03/19
1300 *--------------------------------------------------------------------------------------------- 08/03/19
1400 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/19
1500 *--------------------------------------------------------------------------------------------- 08/03/19
1600 D P_SOC S LIKE(PRSOC) 08/03/19
1700 D P_GRP S LIKE(PRGRP) 08/03/19
1800 D P_PRJ S LIKE(PRPRJ) 08/03/19
1900 D P_LIB S LIKE(PRLIBP) 08/03/19
2000 D P_IN03 S LIKE(*IN) 08/03/19
2100 *--------------------------------------------------------------------------------------------- 08/03/19
2200 * PLIST 08/03/19
2300 *--------------------------------------------------------------------------------------------- 08/03/19
2400 C *ENTRY PLIST 08/03/19
2500 C PARM P_SOC 08/03/19
2600 C PARM P_PRJ 08/03/19
2700 C PARM P_LIB 08/03/19
2800 C PARM P_IN03 08/03/19
2900 *--------------------------------------------------------------------------------------------- 08/03/19
3000 * KLIST DES FICHIERS 08/03/19
3100 *--------------------------------------------------------------------------------------------- 08/03/19
3200 C K_PR KLIST *FADMPRJ 08/03/19
3300 C KFLD P_SOC *SOCIETE 08/03/19
3400 C KFLD P_GRP *PROJET 08/03/19
3500 * 08/03/19
3600 *--------------------------------------------------------------------------------------------- 08/03/19
3700 * 08/03/19
3800 * 08/03/19
3900 *--------------------------------------------------------------------------------------------- 08/03/19
4000 * INIT DU PGM 08/03/19
4100 *--------------------------------------------------------------------------------------------- 08/03/19
4200 C MOVE *ALL'0' *IN 08/03/19
4300 *--------------------------------------------------------------------------------------------- 08/03/19
4400 * DEBUT PROPRAMME 08/03/19
4500 *--------------------------------------------------------------------------------------------- 08/03/19
4600 C EXSR $GRP 08/03/19
4700 C N03 EXSR $PRJ 08/03/19
4800 *--------------------------------------------------------------------------------------------- 08/03/19
4900 * FIN PROPRAMME 08/03/19
5000 *--------------------------------------------------------------------------------------------- 08/03/19
5100 C MOVE *IN03 P_IN03 08/03/19
5200 C SETON LR 08/03/19
5300 ********************************************************************************************** 08/03/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPX
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
5500 C $GRP BEGSR 08/03/19
5600 C WRITE SWRTB0 08/03/19
5700 C EXSR $SFLGRP 08/03/19
5800 C DO *HIVAL 08/03/19
5900 C EXFMT SGRPC1 08/03/19
6000 C 03 LEAVE 08/03/19
6100 08/03/19
6200 C 91 READC SGRPWE1 33 08/03/19
6300 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/03/19
6400 C EVAL P_SOC = GRSOC 08/03/19
6500 C EVAL P_GRP = GRGRP 08/03/19
6600 C LEAVE 08/03/19
6700 C ENDIF 08/03/19
6800 C ENDDO 08/03/19
6900 C ENDSR 08/03/19
7000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
7100 * SFL 08/03/19
7200 *--------------------------------------------------------------------------------------------- 08/03/19
7300 C $SFLGRP BEGSR 08/03/19
7400 *----- 08/03/19
7500 C SETOFF 9195 08/03/19
7600 C SETON 96 08/03/19
7700 C WRITE SGRPC1 08/03/19
7800 C SETOFF 96 08/03/19
7900 C MOVE *BLANK V_CHX 08/03/19
8000 *--------------------------------------------------------------------------------------------- 08/03/19
8100 C *LOVAL SETLL ADMGRPF1 08/03/19
8200 08/03/19
8300 C DO *HIVAL LIGN1 4 0 08/03/19
8400 C READ ADMGRPF1 95 *95 =EOF & SFLEND 08/03/19
8500 C 95 LEAVE 08/03/19
8600 C WRITE SGRPWE1 08/03/19
8700 *- 08/03/19
8800 C SETON 91 08/03/19
8900 C ENDDO 08/03/19
9000 C Z-ADD 1 LIGN1 08/03/19
9100 *----- 08/03/19
9200 C ENDSR 08/03/19
9300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
9400 C $PRJ BEGSR 08/03/19
9500 C EXSR $SFLPRJ 08/03/19
9600 C DO *HIVAL 08/03/19
9700 C EXFMT SPRJC1 08/03/19
9800 C 03 LEAVE 08/03/19
9900 08/03/19
10000 C 91 READC SPRJWE1 33 08/03/19
10100 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/03/19
10200 C EVAL P_PRJ = PRPRJ 08/03/19
10300 C EVAL P_LIB = PRLIBP 08/03/19
10400 C LEAVE 08/03/19
10500 C ENDIF 08/03/19
10600 C ENDDO 08/03/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPX
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C ENDSR 08/03/19
10800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
10900 * SFL 08/03/19
11000 *--------------------------------------------------------------------------------------------- 08/03/19
11100 C $SFLPRJ BEGSR 08/03/19
11200 *----- 08/03/19
11300 C SETOFF 9195 08/03/19
11400 C SETON 96 08/03/19
11500 C WRITE SPRJC1 08/03/19
11600 C SETOFF 96 08/03/19
11700 C MOVE *BLANK V_CHX 08/03/19
11800 *--------------------------------------------------------------------------------------------- 08/03/19
11900 C *LOVAL SETLL ADMPRJFA 08/03/19
12000 C K_PR SETLL ADMPRJFA 08/03/19
12100 08/03/19
12200 C DO *HIVAL LIGN2 4 0 08/03/19
12300 C K_PR READE ADMPRJFA 95 *95 =EOF & SFLEND 08/03/19
12400 C 95 LEAVE 08/03/19
12500 C WRITE SPRJWE1 08/03/19
12600 *- 08/03/19
12700 C SETON 91 08/03/19
12800 C ENDDO 08/03/19
12900 C Z-ADD 1 LIGN2 08/03/19
13000 *----- 08/03/19
13100 C ENDSR 08/03/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPY
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/19
200 *--------------------------------------------------------------------------------------------- 08/03/19
300 * DECLARATION DE FICHIER 08/03/19
400 *--------------------------------------------------------------------------------------------- 08/03/19
500 FLADMPRJA IF E K DISK 08/07/03
600 FSADMAPPY CF E WORKSTN INFDS(V_DSPF) 08/07/03
700 F SFILE(SPRJWE1:LIGN1) 08/07/03
800 * 08/03/19
900 *--------------------------------------------------------------------------------------------- 08/03/19
1000 * UDS 08/03/19
1100 *--------------------------------------------------------------------------------------------- 08/03/19
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/19
1300 *--------------------------------------------------------------------------------------------- 08/03/19
1400 D P_SOC S LIKE(PRSOC) 08/03/19
1500 D P_GRP S LIKE(PRGRP) 08/03/19
1600 D P_PRJ S LIKE(PRPRJ) 08/03/19
1700 D P_LIB S LIKE(PRLIBP) 08/03/19
1800 D P_IN03 S LIKE(*IN) 08/03/19
1900 *--------------------------------------------------------------------------------------------- 08/03/19
2000 * PLIST 08/03/19
2100 *--------------------------------------------------------------------------------------------- 08/03/19
2200 C *ENTRY PLIST 08/03/19
2300 C PARM P_SOC 08/03/19
2400 C PARM P_PRJ 08/03/19
2500 C PARM P_LIB 08/03/19
2600 C PARM P_IN03 08/03/19
2700 *--------------------------------------------------------------------------------------------- 08/03/19
2800 * KLIST DES FICHIERS 08/03/19
2900 *--------------------------------------------------------------------------------------------- 08/03/19
3000 C K_PR KLIST *FADMPRJ 08/03/19
3100 C KFLD P_SOC *SOCIETE 08/03/19
3200 * 08/03/19
3300 *--------------------------------------------------------------------------------------------- 08/03/19
3400 * 08/03/19
3500 * 08/03/19
3600 *--------------------------------------------------------------------------------------------- 08/03/19
3700 * INIT DU PGM 08/03/19
3800 *--------------------------------------------------------------------------------------------- 08/03/19
3900 C MOVE *ALL'0' *IN 08/03/19
4000 *--------------------------------------------------------------------------------------------- 08/03/19
4100 * DEBUT PROPRAMME 08/03/19
4200 *--------------------------------------------------------------------------------------------- 08/03/19
4300 C EXSR $PRJ 08/07/03
4400 *--------------------------------------------------------------------------------------------- 08/03/19
4500 * FIN PROPRAMME 08/03/19
4600 *--------------------------------------------------------------------------------------------- 08/03/19
4700 C MOVE *IN03 P_IN03 08/03/19
4800 C SETON LR 08/03/19
4900 ********************************************************************************************** 08/03/19
5000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
5100 C $PRJ BEGSR 08/03/19
5200 C WRITE SWRTB0 08/07/03
5300 C EXSR $SFLPRJ 08/03/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMAPPY
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C DO *HIVAL 08/03/19
5500 C EXFMT SPRJC1 08/03/19
5600 C 03 LEAVE 08/03/19
5700 08/03/19
5800 C 91 READC SPRJWE1 33 08/03/19
5900 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/03/19
6000 C EVAL P_PRJ = PRGRP 08/07/03
6100 C EVAL P_PRJ = PRPRJ 08/03/19
6200 C EVAL P_LIB = PRLIBP 08/03/19
6300 C LEAVE 08/03/19
6400 C ENDIF 08/03/19
6500 C ENDDO 08/03/19
6600 C ENDSR 08/03/19
6700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
6800 * SFL 08/03/19
6900 *--------------------------------------------------------------------------------------------- 08/03/19
7000 C $SFLPRJ BEGSR 08/03/19
7100 *----- 08/03/19
7200 C SETOFF 9195 08/03/19
7300 C SETON 96 08/03/19
7400 C WRITE SPRJC1 08/03/19
7500 C SETOFF 96 08/03/19
7600 C MOVE *BLANK V_CHX 08/03/19
7700 *--------------------------------------------------------------------------------------------- 08/03/19
7800 C *LOVAL SETLL ADMPRJFA 08/03/19
7900 C K_PR SETLL ADMPRJFA 08/03/19
8000 08/03/19
8100 C DO *HIVAL LIGN1 4 0 08/07/03
8200 C K_PR READE ADMPRJFA 95 *95 =EOF & SFLEND 08/03/19
8300 C 95 LEAVE 08/03/19
8400 C WRITE SPRJWE1 08/03/19
8500 *- 08/03/19
8600 C SETON 91 08/03/19
8700 C ENDDO 08/03/19
8800 C Z-ADD 1 LIGN1 08/07/03
8900 *----- 08/03/19
9000 C ENDSR 08/03/19
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMCHKURG
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:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMCHKURG
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 C EVAL *IN66 = OBUSR <> V_USER 08/04/05
6400 C 66 GOTO T_FIN 08/04/05
6500 08/02/12
6600 * RECHERCHE SI FICHIER SOURCE.MBR DEJA PRESENT EN DEVELOPPEMENT 08/02/12
6700 C IF OBOYNS ='Y' 08/03/01
6800 C EVAL V_FCH = OBOFCH 08/03/01
6900 C EXSR $DUP 08/03/01
7000 C 66 GOTO T_FIN 08/03/01
7100 C ENDIF 08/03/01
7200 * RECHERCHE SI FICHIER DBLOPT.MBR DEJA PRESENT EN DEVELOPPEMENT 08/03/01
7300 C IF OBB ='B' 08/03/01
7400 C EVAL V_FCH = 'QBLDOPTSRC' 08/03/01
7500 C EXSR $DUP 08/03/01
7600 C 66 GOTO T_FIN 08/03/01
7700 C ENDIF 08/03/01
7800 C CALLB 'MADMREFMBR' 08/02/20
7900 C PARM PRLIBU P_LIB 08/04/05
8000 C PARM OBOFCH P_OBJ 08/02/20
8100 C PARM OBOOBJ P_MBR 08/02/20
8200 C PARM P_TEXT 08/02/20
8300 C PARM P_DATE 08/02/20
8400 C MOVE 'U' OBU 08/04/05
8500 C MOVE *ALL'0' OBDATU 08/02/20
8600 C MOVE P_DATE OBDCTL 08/02/20
8700 08/03/07
8800 C IF ENCHKT= 'Y' AND ENTRF ='Y' 08/03/27
8900 C MOVE ENTAG OBUSR 08/03/07
9000 C ELSE 08/03/07
9100 C MOVE V_USER OBUSR 08/03/07
9200 C ENDIF 08/03/07
9300 08/03/07
9400 C UPDATE ADMOBJF1 08/02/12
9500 C T_FIN TAG 08/02/12
9600 C MOVE 'Y' P_RYN 08/02/20
9700 C 66 MOVE 'N' P_RYN 08/02/20
9800 C 08/02/12
9900 *---------- 95/11/17
10000 C SETON LR 96/04/26
10100 *========================================================================= 94/03/02
10200 CSR $DUP BEGSR 08/03/01
10300 08/03/01
10400 C CALLB 'MADMOBJCHK' 08/03/01
10500 C PARM PRLIBU P_LIB 08/04/05
10600 C PARM V_FCH P_OBJ 08/03/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMCHKURG
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C PARM '*FILE' P_TYP 08/03/01
10800 C PARM OBOOBJ P_MBR 08/03/01
10900 C PARM TROUVE 08/03/01
11000 C TROUVE CABEQ *ON T_DUP999 66 08/03/01
11100 * RECHERCHE SI FICHIER SOURCE.MBR EXISTE DANS LIB ORIGINE 08/03/01
11200 C EVAL OK = *ON 08/03/01
11300 C MOVE PRLIBP V_LIB 08/03/01
11400 C CALLB 'MADMOBJCHK' 08/03/01
11500 C PARM V_LIB P_LIB 08/03/01
11600 C PARM V_FCH P_OBJ 08/03/01
11700 C PARM '*FILE' P_TYP 08/03/01
11800 C PARM OBOOBJ P_MBR 08/03/01
11900 C PARM OK 08/03/01
12000 08/03/01
12100 C OK CABEQ *OFF T_DUP999 66 08/03/01
12200 * NOT EXISTE TO CREATE FILE SOURCE 08/03/01
12300 C CALLB 'MADMCPYMBR' 08/04/05
12400 C PARM PRLIBP P_LIBF 08/04/05
12500 C PARM PRLIBU P_LIB 08/04/05
12600 C PARM V_FCH P_OBJ 08/04/05
12700 C PARM OBOOBJ P_MBR 08/04/05
12800 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:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/02/11
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMENV UF A E K DISK 08/03/04
600 FSADMENV CF E WORKSTN INFDS(V_DSPF) 08/02/11
700 F SFILE(SENVE1:LIGN1) 08/02/11
800 * 08/01/30
900 *--------------------------------------------------------------------------------------------- 08/01/30
1000 * UDS 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 *--------------------------------------------------------------------------------------------- 08/01/30
1400 D I S 4S 0 INZ(*ZEROS) 08/02/26
1500 D TROUVE S LIKE(*IN) 08/02/26
1600 D S_USR S LIKE(ENUSR) 08/02/26
1700 *--------------------------------------------------------------------------------------------- 08/03/04
1800 D P_LIB S 10A 08/03/04
1900 D P_OBJ S 10A 08/03/04
2000 D P_TYP S 10A 08/03/04
2100 D P_MBR S 10A 08/03/04
2200 *--------------------------------------------------------------------------------------------- 08/03/04
2300 *--------------------------------------------------------------------------------------------- 08/01/30
2400 * KLIST DES FICHIERS 08/01/30
2500 *--------------------------------------------------------------------------------------------- 08/01/30
2600 C K_ENV KLIST FADMENV 08/02/11
2700 C KFLD V_USRX NOM USER 08/03/28
2800 * 08/01/30
2900 *--------------------------------------------------------------------------------------------- 08/01/30
3000 * 08/01/30
3100 * 08/01/30
3200 *--------------------------------------------------------------------------------------------- 08/01/30
3300 * INIT DU PGM 08/01/30
3400 *--------------------------------------------------------------------------------------------- 08/01/30
3500 C MOVE *ALL'0' *IN 08/01/30
3600 *--------------------------------------------------------------------------------------------- 08/01/30
3700 C EXSR $SFL 08/02/26
3800 C DO *HIVAL 08/01/30
3900 C WRITE SENVI1 08/02/26
4000 C EXFMT SENVC1 08/02/26
4100 C 03 LEAVE 08/01/30
4200 08/01/30
4300 C 91 READC SENVE1 33 08/02/11
4400 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/01/30
4500 C MOVEL ENUSR V_USRX 08/02/26
4600 C MOVE *BLANK V_CHX 08/01/30
4700 C UPDATE SENVE1 08/02/26
4800 C ITER 08/01/30
4900 C ENDIF 08/01/30
5000 08/01/30
5100 C V_KEY CASEQ F_AID $AID 08/01/30
5200 C *IN09 CASEQ *ON $ADD 08/01/30
5300 C *IN11 CASEQ *ON $MAJ 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C *IN23 CASEQ *ON $DLT 08/01/30
5500 C CAS $SFL 08/01/30
5600 C ENDCS 08/01/30
5700 *----------------------------------------------* 08/01/30
5800 C 03 LEAVE 08/01/30
5900 C ENDDO 08/01/30
6000 *--------------------------------------------------------------------------------------------- 08/01/30
6100 *--------------------------------------------------------------------------------------------- 08/01/30
6200 * FIN PROPRAMME 08/01/30
6300 *--------------------------------------------------------------------------------------------- 08/01/30
6400 C SETON LR 08/01/30
6500 ********************************************************************************************** 08/01/30
6600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
6700 * SFL 08/01/30
6800 *--------------------------------------------------------------------------------------------- 08/01/30
6900 C $SFL BEGSR 08/01/30
7000 *---KEY ACCES SFL 08/01/30
7100 C K_SFL KLIST FADMENV 08/03/28
7200 C KFLD S_USR 08/02/26
7300 *----- 08/01/30
7400 C SETOFF 9195 08/01/30
7500 C SETON 96 08/01/30
7600 C WRITE SENVC1 08/02/11
7700 C SETOFF 96 08/01/30
7800 C MOVE *BLANK V_CHX 08/01/30
7900 *--------------------------------------------------------------------------------------------- 08/01/30
8000 C SELECT 08/01/30
8100 C WHEN V_KEY = F_PGA 08/01/30
8200 C *LOVAL SETLL FADMENV 08/02/11
8300 C K_SFL SETLL FADMENV 08/02/11
8400 C DO 17 08/01/30
8500 C READP(N) ADMENVF1 33 08/02/26
8600 C 33 LEAVE 08/01/30
8700 C MOVE ENUSR S_USR 08/02/26
8800 C ENDDO 08/01/30
8900 *- 08/01/30
9000 C WHEN V_KEY = F_PGB 08/01/30
9100 *- 08/01/30
9200 C OTHER 08/01/30
9300 C MOVE V_USRX S_USR 08/02/26
9400 C ENDSL 08/01/30
9500 *--------------------------------------------------------------------------------------------- 08/01/30
9600 C *LOVAL SETLL FADMENV 08/02/11
9700 C K_SFL SETLL FADMENV 08/02/11
9800 08/02/03
9900 C DO 18 LIGN1 4 0 08/01/30
10000 C READ(N) ADMENVF1 95 IND MORE 08/02/26
10100 C 95 LEAVE 08/02/03
10200 C WRITE SENVE1 08/02/11
10300 *- 08/01/30
10400 C LIGN1 IFEQ 1 08/01/30
10500 C MOVE ENUSR S_USR 08/02/26
10600 C ENDIF 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 *- 08/01/30
10800 C SETON 91 08/01/30
10900 C ENDDO 08/01/30
11000 C Z-ADD 1 LIGN1 08/01/30
11100 *----- 08/01/30
11200 C ENDSR 08/01/30
11300 ***************************************************************** 08/01/30
11400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
11500 * AJOUT RECORD 08/01/30
11600 *--------------------------------------------------------------------------------------------- 08/01/30
11700 *----- 08/01/30
11800 C $ADD BEGSR 08/01/30
11900 *----- TEST EXISTE OUI ERR 08/01/30
12000 C K_ENV CHAIN ADMENVF1 3366 FADMENV 08/03/28
12100 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 EXISTE DEJA 08/01/30
12200 C 25 LEAVESR 08/01/30
12300 C EVAL *IN26 = *IN66 OCCUPE 08/01/30
12400 C 26 LEAVESR 08/01/30
12500 * TEST KEY *BLANK 08/01/30
12600 C EVAL *IN25 = (V_USRX = *BLANK) 08/02/26
12700 C 25 LEAVESR 08/02/11
12800 C CALLB 'MADMOBJCHK' 08/02/26
12900 C PARM 'QSYS' P_LIB 08/02/26
13000 C PARM V_USRX P_OBJ 08/02/26
13100 C PARM '*USRPRF' P_TYP 08/03/04
13200 C PARM '*NONE' P_MBR 08/02/26
13300 C PARM TROUVE 08/02/26
13400 C EVAL *IN29 = TROUVE = *OFF 08/02/26
13500 C 29 LEAVESR 08/02/26
13600 *- 08/01/30
13700 * TRAITEMENT ECRAN N° 1 08/01/30
13800 *- 08/01/30
13900 C CLEAR ADMENVF1 08/02/11
14000 C MOVE V_USER ENTAG 08/03/07
14100 C MOVE 'N' ENCTXT 08/02/26
14200 C MOVE 'N' ENCHKP 08/03/04
14300 C MOVE 'N' ENCHKP 08/03/07
14400 C MOVE 'N' ENSCNR 08/03/26
14500 C MOVE 'N' ENSCND 08/03/26
14600 C MOVE 'N' ENCHKT 08/03/07
14700 C MOVE 'N' ENSPOOL 08/03/07
14800 C MOVEL 'JBDADMOPS' ENJOBD 08/02/26
14900 C MOVEL 'ADMOPS' ENJBDL 08/02/26
15000 C MOVEL '*LIBL' ENJBQL 08/02/26
15100 C MOVEL '*LIBL' ENOUTL 08/02/26
15200 C SETON 50 IND PROTEC KEY FMT 08/01/30
15300 C DO *HIVAL 08/01/30
15400 C WRITE SENVI1 08/02/26
15500 C EXFMT SENVC1 08/02/11
15600 C SELECT 08/01/30
15700 C WHEN *IN03 OR *IN12 08/01/30
15800 C SETOFF 50 08/01/30
15900 C LEAVESR 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 *----- AIDE EN LIGNE 08/01/30
16100 C WHEN V_KEY = F_AID 08/01/30
16200 C EXSR $AID 08/01/30
16300 *----- TRAITEMENT 08/01/30
16400 C WHEN V_KEY = F_ENT 08/01/30
16500 *----- RECHERCHE SI ERR 08/01/30
16600 C EXSR $EC01 08/01/30
16700 C 40 DO 45 I 08/02/26
16800 C EVAL *IN66 = *IN(I) 08/01/30
16900 C N66 ENDDO 08/01/30
17000 C 66 ITER 08/01/30
17100 C 08/01/30
17200 *----- VALIDATION 08/01/30
17300 C WRITE SENVC1 08/02/11
17400 C MOVE NON V_CONF 08/01/30
17500 C EXFMT SENVV99 08/02/11
17600 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
17700 C 66 ITER 08/01/30
17800 *- 08/01/30
17900 *----- ENREGISTREMENT 08/01/30
18000 C SETOFF 50 08/01/30
18100 C K_ENV CHAIN ADMENVF1 3366 FADMENV 08/02/26
18200 C N33 LEAVESR 08/02/26
18300 C*----- INIT ZONE ENRG 08/02/03
18400 C MOVE V_USRX ENUSR 08/02/26
18500 C WRITE ADMENVF1 66 08/02/11
18600 *----- 08/01/30
18700 C EXSR $SFL 08/01/30
18800 C LEAVESR 08/01/30
18900 *----- 08/01/30
19000 C ENDSL 08/01/30
19100 C ENDDO 08/01/30
19200 C ENDSR 08/01/30
19300 *============================================================================================= 08/01/30
19400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
19500 * MAJ RECORD 08/01/30
19600 *--------------------------------------------------------------------------------------------- 08/01/30
19700 *----- 08/01/30
19800 C $MAJ BEGSR 08/01/30
19900 *----- TEST EXISTE OUI ERR 08/01/30
20000 C K_ENV CHAIN ADMENVF1 2726 FADMENV 08/03/28
20100 C 26 LEAVESR OCCUPE 08/01/30
20200 C 27 LEAVESR NON TROUVE 08/01/30
20300 *- 08/01/30
20400 * TRAITEMENT ECRAN N° 1 08/01/30
20500 *- 08/01/30
20600 C SETON 50 IND PROTEC KEY FMT 08/01/30
20700 C DO *HIVAL 08/01/30
20800 C WRITE SENVI1 08/02/11
20900 C EXFMT SENVC1 08/02/11
21000 C SELECT 08/01/30
21100 C WHEN *IN03 OR *IN12 08/01/30
21200 C SETOFF 50 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C LEAVESR 08/01/30
21400 *----- AIDE EN LIGNE 08/01/30
21500 C WHEN V_KEY = F_AID 08/01/30
21600 C EXSR $AID 08/01/30
21700 *----- TRAITEMENT 08/01/30
21800 C WHEN V_KEY = F_ENT 08/01/30
21900 *----- RECHERCHE SI ERR 08/01/30
22000 C EXSR $EC01 08/01/30
22100 C 40 DO 45 I 08/02/26
22200 C EVAL *IN66 = *IN(I) 08/01/30
22300 C N66 ENDDO 08/01/30
22400 C 66 ITER 08/01/30
22500 C 08/01/30
22600 *----- VALIDATION 08/01/30
22700 C WRITE SENVC1 08/02/11
22800 C MOVE NON V_CONF 08/01/30
22900 C EXFMT SENVV99 08/02/11
23000 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
23100 C 66 ITER 08/01/30
23200 *- 08/01/30
23300 *----- ENREGISTREMENT 08/01/30
23400 C SETOFF 50 08/01/30
23500 *----- INIT ZONE ENRG 08/01/30
23600 C UPDATE ADMENVF1 66 08/02/11
23700 *----- 08/01/30
23800 C EXSR $SFL 08/01/30
23900 C LEAVESR 08/01/30
24000 *----- 08/01/30
24100 C ENDSL 08/01/30
24200 C ENDDO 08/01/30
24300 C ENDSR 08/01/30
24400 *============================================================================================= 08/01/30
24500 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
24600 * DEL RECORD 08/01/30
24700 *--------------------------------------------------------------------------------------------- 08/01/30
24800 *----- 08/01/30
24900 C $DLT BEGSR 08/01/30
25000 *----- TEST EXISTE OUI ERR 08/01/30
25100 C K_ENV CHAIN ADMENVF1 2726 FADMENV 08/03/28
25200 C 26 LEAVESR OCCUPE 08/01/30
25300 C 27 LEAVESR NON TROUVE 08/01/30
25400 *- 08/01/30
25500 * TRAITEMENT ECRAN N° 1 08/01/30
25600 *- 08/01/30
25700 C SETON 50 IND PROTEC KEY FMT 08/01/30
25800 C WRITE SENVI1 08/02/11
25900 C WRITE SENVC1 08/03/04
26000 *----- VALIDATION 08/01/30
26100 C MOVE NON V_CONF 08/01/30
26200 C EXFMT SENVV99 08/02/11
26300 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
26400 *- 08/01/30
26500 *----- ENREGISTREMENT 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C SETOFF 50 08/01/30
26700 C IF NOT *IN66 08/03/04
26800 *----- INIT ZONE ENRG 08/01/30
26900 C DELETE ADMENVF1 66 08/02/11
27000 C ENDIF 08/03/04
27100 *----- 08/01/30
27200 C EXSR $SFL 08/01/30
27300 C LEAVESR 08/01/30
27400 C ENDSR 08/01/30
27500 *============================================================================================= 08/01/30
27600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
27700 * ERR ECRAN 01 08/01/30
27800 *--------------------------------------------------------------------------------------------- 08/01/30
27900 C $EC01 BEGSR 08/01/30
28000 C SETOFF 77 08/01/30
28100 *======================= 08/01/30
28200 *----- 08/01/30
28300 *-- N° ZONE OBLIGATOIRE 08/01/30
28400 C IF ENTAG = *BLANK OR ENCHKT ='N' 08/03/10
28500 C MOVE V_USER ENTAG 08/03/07
28600 C ENDIF 08/03/07
28700 *----- 08/01/30
28800 * TEST PROCESS 08/02/11
28900 *--------------------------------------------------------------------------------------------- 08/02/26
29000 C IF ENLIBW <> '*LIBL ' 08/03/31
29100 C 08/02/26
29200 C CALLB 'MADMOBJCHK' 08/02/26
29300 C PARM 'QSYS' P_LIB 08/03/04
29400 C PARM ENLIBW P_OBJ 08/03/31
29500 C PARM '*LIB' P_TYP 08/03/04
29600 C PARM '*NONE' P_MBR 08/03/04
29700 C PARM TROUVE 08/02/26
29800 C EVAL *IN41 = TROUVE = 'N' 08/02/26
29900 C 41 LEAVESR 08/02/26
30000 C ENDIF 08/02/26
30100 * TEST JOBD 08/02/26
30200 C CALLB 'MADMOBJCHK' 08/02/26
30300 C PARM ENJBDL P_LIB 08/02/26
30400 C PARM ENJOBD P_OBJ 08/02/26
30500 C PARM '*JOBD' P_TYP 08/03/04
30600 C PARM '*NONE' P_MBR 08/02/26
30700 C PARM TROUVE 08/02/26
30800 C EVAL *IN40 = TROUVE = *OFF OR ENJOBD = *BLANKS 08/02/26
30900 C 40 LEAVESR 08/02/26
31000 C IF ENJBQL <> '*LIBL ' 08/02/26
31100 C 08/02/26
31200 *--------------------------------------------------------------------------------------------- 08/02/26
31300 C CALLB 'MADMOBJCHK' 08/02/26
31400 C PARM 'QSYS' P_LIB 08/02/26
31500 C PARM ENJBQL P_OBJ 08/02/26
31600 C PARM '*LIB' P_TYP 08/03/04
31700 C PARM '*NONE' P_MBR 08/02/26
31800 C PARM TROUVE 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C EVAL *IN43 = TROUVE = *OFF 08/02/26
32000 C 43 LEAVESR 08/02/26
32100 C ENDIF 08/02/26
32200 * TEST JOBQ 08/02/26
32300 C CALLB 'MADMOBJCHK' 08/02/26
32400 C PARM ENJBQL P_LIB 08/02/26
32500 C PARM ENJOBQ P_OBJ 08/02/26
32600 C PARM '*JOBQ' P_TYP 08/03/04
32700 C PARM '*NONE' P_MBR 08/02/26
32800 C PARM TROUVE 08/02/26
32900 C EVAL *IN42 = TROUVE = *OFF OR ENJOBQ = *BLANKS 08/02/26
33000 C 42 LEAVESR 08/02/26
33100 *--------------------------------------------------------------------------------------------- 08/02/26
33200 C IF ENOUTL <> '*LIBL ' 08/02/26
33300 C 08/02/26
33400 C CALLB 'MADMOBJCHK' 08/02/26
33500 C PARM 'QSYS' P_LIB 08/02/26
33600 C PARM ENOUTL P_OBJ 08/02/26
33700 C PARM '*LIB' P_TYP 08/03/04
33800 C PARM '*NONE' P_MBR 08/02/26
33900 C PARM TROUVE 08/02/26
34000 C EVAL *IN44 = TROUVE = *OFF 08/02/26
34100 C 44 LEAVESR 08/02/26
34200 C ENDIF 08/02/26
34300 * TEST JOBQ 08/02/26
34400 C CALLB 'MADMOBJCHK' 08/02/26
34500 C PARM ENOUTL P_LIB 08/02/26
34600 C PARM ENOUTQ P_OBJ 08/02/26
34700 C PARM '*OUTQ' P_TYP 08/03/04
34800 C PARM '*NONE' P_MBR 08/02/26
34900 C PARM TROUVE 08/02/26
35000 C EVAL *IN45 = TROUVE = *OFF OR ENOUTQ = *BLANKS 08/02/26
35100 C 45 LEAVESR 08/02/26
35200 *======================= 08/01/30
35300 C ENDSR 08/01/30
35400 ***************************************************************** 08/01/30
35500 *--------------------------------------------------------------------------------------------- 08/01/30
35600 * INCLUDE 08/01/30
35700 *--------------------------------------------------------------------------------------------- 08/01/30
35800 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
35900 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENVP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMENV UF A E K DISK 08/03/06
600 FSADMENVP CF E WORKSTN INFDS(V_DSPF) 08/03/06
700 * 08/02/05
800 *--------------------------------------------------------------------------------------------- 08/03/06
900 D P_LIB S 10A 08/03/06
1000 D P_OBJ S 10A 08/03/06
1100 D P_TYP S 10A 08/03/06
1200 D P_MBR S 10A 08/03/06
1300 *--------------------------------------------------------------------------------------------- 08/03/06
1400 D I S 4S 0 INZ(*ZEROS) 08/03/06
1500 D TROUVE S LIKE(*IN) 08/03/06
1600 *--------------------------------------------------------------------------------------------- 08/02/05
1700 * UDS 08/02/05
1800 *--------------------------------------------------------------------------------------------- 08/02/05
1900 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
2000 *--------------------------------------------------------------------------------------------- 08/02/05
2100 * 08/02/05
2200 * 08/02/05
2300 *--------------------------------------------------------------------------------------------- 08/02/05
2400 * KLIST DES FICHIERS 08/02/05
2500 *--------------------------------------------------------------------------------------------- 08/02/05
2600 C K_ENV KLIST *FADMENV 08/03/06
2700 C KFLD V_USER UTILISATEUR 08/03/06
2800 * 08/02/05
2900 *--------------------------------------------------------------------------------------------- 08/02/05
3000 * 08/02/05
3100 * 08/02/05
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 * INIT DU PGM 08/02/05
3400 *--------------------------------------------------------------------------------------------- 08/02/05
3500 C MOVE *ALL'0' *IN 08/02/05
3600 *--------------------------------------------------------------------------------------------- 08/02/05
3700 *--------------------------------------------------------------------------------------------- 08/02/05
3800 * DEBUT PROPRAMME 08/02/05
3900 *--------------------------------------------------------------------------------------------- 08/02/05
4000 C K_ENV CHAIN ADMENVF1 3333 FADMENV 08/03/11
4100 C 33 GOTO T_FIN 08/03/10
4200 C WRITE SENVB0 08/03/06
4300 C DO *HIVAL 08/03/10
4400 C SETOFF 72 08/03/10
4500 C EXFMT SENVWS1 08/03/06
4600 C 03 LEAVE 08/02/05
4700 08/02/05
4800 *----- RECHERCHE SI ERR 08/03/06
4900 C EXSR $EC01 08/03/06
5000 C 40 DO 44 I 08/03/06
5100 C EVAL *IN66 = *IN(I) 08/03/06
5200 C N66 ENDDO 08/03/06
5300 C IF NOT *IN66 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENVP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *----- VALIDATION 08/03/10
5500 C SETON 72 08/03/10
5600 C MOVE NON V_CONF 08/03/10
5700 C EXFMT SENVWS1 08/03/10
5800 C EVAL *IN66 = (V_CONF = NON ) 08/03/10
5900 C 66 ITER 08/03/10
6000 C UPDATE ADMENVF1 08/03/10
6100 C LEAVE 08/03/11
6200 C ENDIF 08/02/05
6300 08/02/05
6400 *----------------------------------------------* 08/02/05
6500 C ENDDO 08/02/05
6600 *--------------------------------------------------------------------------------------------- 08/02/05
6700 * FIN PROPRAMME 08/02/05
6800 *--------------------------------------------------------------------------------------------- 08/02/05
6900 C T_FIN TAG 08/03/06
7000 C SETON LR 08/02/05
7100 ********************************************************************************************** 08/02/05
7200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/06
7300 * ERR ECRAN 01 08/03/06
7400 *--------------------------------------------------------------------------------------------- 08/03/06
7500 C $EC01 BEGSR 08/03/06
7600 *======================= 08/03/06
7700 *----- 08/03/06
7800 *-- N° ZONE OBLIGATOIRE 08/03/06
7900 *----- 08/03/06
8000 * TEST PROCESS 08/03/06
8100 *--------------------------------------------------------------------------------------------- 08/03/06
8200 C 08/03/06
8300 *-- N° ZONE OBLIGATOIRE 08/03/07
8400 C IF ENTAG = *BLANK OR ENCHKT = 'N' 08/03/10
8500 C MOVE V_USER ENTAG 08/03/07
8600 C ENDIF 08/03/07
8700 C 08/03/06
8800 *--------------------------------------------------------------------------------------------- 08/03/06
8900 C IF ENJBQL <> '*LIBL ' 08/03/06
9000 C CALLB 'MADMOBJCHK' 08/03/06
9100 C PARM 'QSYS' P_LIB 08/03/06
9200 C PARM ENJBQL P_OBJ 08/03/06
9300 C PARM '*LIB' P_TYP 08/03/06
9400 C PARM '*NONE' P_MBR 08/03/06
9500 C PARM TROUVE 08/03/06
9600 C EVAL *IN41 = TROUVE = *OFF 08/03/06
9700 C 41 LEAVESR 08/03/06
9800 C ENDIF 08/03/06
9900 * TEST JOBQ 08/03/06
10000 C CALLB 'MADMOBJCHK' 08/03/06
10100 C PARM ENJBQL P_LIB 08/03/06
10200 C PARM ENJOBQ P_OBJ 08/03/06
10300 C PARM '*JOBQ' P_TYP 08/03/06
10400 C PARM '*NONE' P_MBR 08/03/06
10500 C PARM TROUVE 08/03/06
10600 C EVAL *IN40 = TROUVE = *OFF OR ENJOBQ = *BLANKS 08/03/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMENVP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C 40 LEAVESR 08/03/06
10800 *--------------------------------------------------------------------------------------------- 08/03/06
10900 C 08/03/06
11000 C IF ENOUTL <> '*LIBL ' 08/03/06
11100 C CALLB 'MADMOBJCHK' 08/03/06
11200 C PARM 'QSYS' P_LIB 08/03/06
11300 C PARM ENOUTL P_OBJ 08/03/06
11400 C PARM '*LIB' P_TYP 08/03/06
11500 C PARM '*NONE' P_MBR 08/03/06
11600 C PARM TROUVE 08/03/06
11700 C EVAL *IN43 = TROUVE = *OFF 08/03/06
11800 C 43 LEAVESR 08/03/06
11900 C ENDIF 08/03/06
12000 * TEST JOBQ 08/03/06
12100 C CALLB 'MADMOBJCHK' 08/03/06
12200 C PARM ENOUTL P_LIB 08/03/06
12300 C PARM ENOUTQ P_OBJ 08/03/06
12400 C PARM '*OUTQ' P_TYP 08/03/06
12500 C PARM '*NONE' P_MBR 08/03/06
12600 C PARM TROUVE 08/03/06
12700 C EVAL *IN42 = TROUVE = *OFF OR ENOUTQ = *BLANKS 08/03/06
12800 C 42 LEAVESR 08/03/06
12900 *======================= 08/03/06
13000 C ENDSR 08/03/06
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMGRP UF A E K DISK 08/03/04
600 FFADMSOC IF E K DISK 08/03/04
700 FSADMGRP CF E WORKSTN INFDS(V_DSPF) 08/02/03
800 F SFILE(SGRPE1:LIGN1) 08/01/30
900 * 08/01/30
1000 *--------------------------------------------------------------------------------------------- 08/01/30
1100 * UDS 08/01/30
1200 *--------------------------------------------------------------------------------------------- 08/01/30
1300 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1400 D I S 4S 0 INZ(*ZEROS) 08/01/30
1500 D S_SOC S LIKE(GRSOC) 08/02/03
1600 D S_GRP S LIKE(GRGRP) 08/01/30
1700 D V_SCAN S 2 0 SCAN ESPACE 08/02/22
1800 *--------------------------------------------------------------------------------------------- 08/01/30
1900 * 08/01/30
2000 * 08/01/30
2100 *--------------------------------------------------------------------------------------------- 08/01/30
2200 * KLIST DES FICHIERS 08/01/30
2300 *--------------------------------------------------------------------------------------------- 08/01/30
2400 C K_GR KLIST FADMGRP 08/02/03
2500 C KFLD V_SOC NOM SOCIETE 08/02/03
2600 C KFLD V_GRP NOM DU GROUPE 08/01/30
2700 * 08/01/30
2800 *--------------------------------------------------------------------------------------------- 08/01/30
2900 * 08/01/30
3000 * 08/01/30
3100 *--------------------------------------------------------------------------------------------- 08/01/30
3200 * INIT DU PGM 08/01/30
3300 *--------------------------------------------------------------------------------------------- 08/01/30
3400 C MOVE *ALL'0' *IN 08/01/30
3500 *--------------------------------------------------------------------------------------------- 08/01/30
3600 *--------------------------------------------------------------------------------------------- 08/01/30
3700 * DEBUT PROGRAMME 08/01/30
3800 *--------------------------------------------------------------------------------------------- 08/01/30
3900 C EXSR $SFL 08/02/22
4000 C DO *HIVAL 08/01/30
4100 C WRITE SGRPI1 08/01/30
4200 C EXFMT SGRPC1 08/01/30
4300 C 03 LEAVE 08/01/30
4400 08/01/30
4500 C 91 READC SGRPE1 33 08/01/30
4600 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/01/30
4700 C MOVEL GRGRP V_GRP 08/01/30
4800 C MOVEL GRSOC V_SOC 08/02/22
4900 C MOVE *BLANK V_CHX 08/01/30
5000 C UPDATE SGRPE1 08/01/30
5100 C ITER 08/01/30
5200 C ENDIF 08/01/30
5300 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C V_KEY CASEQ F_AID $AID 08/01/30
5500 C *IN09 CASEQ *ON $ADD 08/01/30
5600 C *IN11 CASEQ *ON $MAJ 08/01/30
5700 C *IN23 CASEQ *ON $DLT 08/01/30
5800 C CAS $SFL 08/01/30
5900 C ENDCS 08/01/30
6000 *----------------------------------------------* 08/01/30
6100 C 03 LEAVE 08/01/30
6200 C ENDDO 08/01/30
6300 *--------------------------------------------------------------------------------------------- 08/01/30
6400 *--------------------------------------------------------------------------------------------- 08/01/30
6500 * FIN PROGRAMME 08/01/30
6600 *--------------------------------------------------------------------------------------------- 08/01/30
6700 C SETON LR 08/01/30
6800 ********************************************************************************************** 08/01/30
6900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
7000 * SFL 08/01/30
7100 *--------------------------------------------------------------------------------------------- 08/01/30
7200 C $SFL BEGSR 08/01/30
7300 *---KEY ACCES SFL 08/01/30
7400 C K_SFL KLIST FADMGRP 08/02/03
7500 C KFLD S_SOC 08/02/03
7600 C KFLD S_GRP 08/01/30
7700 *----- 08/01/30
7800 C SETOFF 9195 08/01/30
7900 C SETON 96 08/01/30
8000 C WRITE SGRPC1 08/01/30
8100 C SETOFF 96 08/01/30
8200 C MOVE *BLANK V_CHX 08/01/30
8300 *--------------------------------------------------------------------------------------------- 08/01/30
8400 C SELECT 08/01/30
8500 C WHEN V_KEY = F_PGA 08/01/30
8600 C *LOVAL SETLL FADMGRP 08/02/03
8700 C K_SFL SETLL FADMGRP 08/02/03
8800 C DO 18 08/01/30
8900 C READP(N) ADMGRPF1 33 08/02/03
9000 C 33 LEAVE 08/02/03
9100 C MOVE GRSOC S_SOC 08/02/03
9200 C MOVE GRGRP S_GRP 08/02/03
9300 C ENDDO 08/01/30
9400 *- 08/01/30
9500 C WHEN V_KEY = F_PGB 08/01/30
9600 C MOVE GRSOC S_SOC 08/02/22
9700 C MOVE GRGRP S_GRP 08/02/22
9800 *- 08/01/30
9900 C OTHER 08/01/30
10000 C MOVE V_SOC S_SOC 08/02/03
10100 C MOVE V_GRP S_GRP 08/01/30
10200 C ENDSL 08/01/30
10300 *--------------------------------------------------------------------------------------------- 08/01/30
10400 C *LOVAL SETLL FADMGRP 08/02/03
10500 C K_SFL SETLL FADMGRP 08/02/03
10600 *----- 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C DO 19 LIGN1 4 0 08/01/30
10800 C READ(N) ADMGRPF1 95 IND MORE 08/02/03
10900 C 95 LEAVE 08/01/30
11000 C WRITE SGRPE1 08/01/30
11100 *- 08/01/30
11200 C LIGN1 IFEQ 1 08/01/30
11300 C MOVE GRSOC S_SOC 08/02/03
11400 C MOVE GRGRP S_GRP 08/01/30
11500 C ENDIF 08/01/30
11600 *- 08/01/30
11700 C SETON 91 08/01/30
11800 C ENDDO 08/01/30
11900 C Z-ADD 1 LIGN1 08/01/30
12000 *----- 08/01/30
12100 C ENDSR 08/01/30
12200 ***************************************************************** 08/01/30
12300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
12400 * AJOUT RECORD 08/01/30
12500 *--------------------------------------------------------------------------------------------- 08/01/30
12600 *----- 08/01/30
12700 C $ADD BEGSR 08/01/30
12800 *----- TEST EXISTE OUI ERR 08/01/30
12900 C K_GR CHAIN ADMGRPF1 3366 FADMGRP 08/02/03
13000 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 EXISTE DEJA 08/01/30
13100 C 25 LEAVESR 08/01/30
13200 C EVAL *IN26 = *IN66 OCCUPE 08/01/30
13300 C 26 LEAVESR 08/01/30
13400 * TEST KEY *BLANK 08/01/30
13500 C EVAL *IN33 = (V_SOC = *BLANK) 08/02/03
13600 C 33 LEAVESR 08/02/03
13700 C EVAL *IN33 = (V_GRP = *BLANK) 08/01/30
13800 C 33 LEAVESR 08/01/30
13900 * RECHERCHE ESPACE 08/02/22
14000 C EVAL V_SCAN = %SCAN(' ':%TRIM(V_GRP)) 08/02/22
14100 C C V_SCAN IFNE 0 08/02/22
14200 C C EVAL *IN28 = *ON 08/02/22
14300 C ENDIF 08/02/22
14400 C 28 LEAVESR 08/02/22
14500 * SOCIETE NON EXISTANT OU HS 08/02/22
14600 C V_SOC CHAIN ADMSOCF1 33 08/02/22
14700 C EVAL *IN29 = *IN33 OR SOSHS= 1 08/02/22
14800 C 29 LEAVESR 08/02/22
14900 *- 08/01/30
15000 * TRAITEMENT ECRAN N° 1 08/01/30
15100 *- 08/01/30
15200 C CLEAR ADMGRPF1 08/02/03
15300 C SETON 50 IND PROTEC KEY FMT 08/01/30
15400 C DO *HIVAL 08/01/30
15500 C WRITE SGRPI1 08/01/30
15600 C EXFMT SGRPC1 08/01/30
15700 C SELECT 08/01/30
15800 C WHEN *IN03 OR *IN12 08/01/30
15900 C SETOFF 50 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C LEAVESR 08/01/30
16100 *----- AIDE EN LIGNE 08/01/30
16200 C WHEN V_KEY = F_AID 08/01/30
16300 C EXSR $AID 08/01/30
16400 *----- TRAITEMENT 08/01/30
16500 C WHEN V_KEY = F_ENT 08/01/30
16600 *----- RECHERCHE SI ERR 08/01/30
16700 C EXSR $EC01 08/01/30
16800 C 40 DO 40 I 08/01/30
16900 C EVAL *IN66 = *IN(I) 08/01/30
17000 C N66 ENDDO 08/01/30
17100 C 66 ITER 08/01/30
17200 C 08/01/30
17300 *----- VALIDATION 08/01/30
17400 C MOVE NON V_CONF 08/01/30
17500 C EXFMT SGRPV99 08/01/30
17600 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
17700 C 66 ITER 08/01/30
17800 *- 08/01/30
17900 *----- ENREGISTREMENT 08/01/30
18000 C SETOFF 50 08/01/30
18100 C K_GR CHAIN ADMGRPF1 3366 FADMGRP 08/02/03
18200 C N33 LEAVESR 08/01/30
18300 *----- INIT ZONE ENRG 08/01/30
18400 C MOVE V_SOC GRSOC 08/02/03
18500 C MOVE V_GRP GRGRP 08/01/30
18600 C MOVE *DATE GRDCRT 08/01/30
18700 C MOVE *DATE GRDMAJ 08/01/30
18800 C WRITE ADMGRPF1 66 08/02/03
18900 *----- 08/01/30
19000 C EXSR $SFL 08/01/30
19100 C LEAVESR 08/01/30
19200 *----- 08/01/30
19300 C ENDSL 08/01/30
19400 C ENDDO 08/01/30
19500 C ENDSR 08/01/30
19600 *============================================================================================= 08/01/30
19700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
19800 * MAJ RECORD 08/01/30
19900 *--------------------------------------------------------------------------------------------- 08/01/30
20000 *----- 08/01/30
20100 C $MAJ BEGSR 08/01/30
20200 *----- TEST EXISTE OUI ERR 08/01/30
20300 C K_GR CHAIN ADMGRPF1 2726 FADMGRP 08/02/03
20400 C 26 LEAVESR OCCUPE 08/01/30
20500 C 27 LEAVESR NON TROUVE 08/01/30
20600 * SOCIETE NON EXISTANT OU HS 08/02/22
20700 C V_SOC CHAIN ADMSOCF1 33 08/02/22
20800 C EVAL *IN29 = *IN33 OR SOSHS= 1 08/02/22
20900 C 29 LEAVESR 08/02/22
21000 *- 08/01/30
21100 * TRAITEMENT ECRAN N° 1 08/01/30
21200 *- 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C SETON 50 IND PROTEC KEY FMT 08/01/30
21400 C DO *HIVAL 08/01/30
21500 C WRITE SGRPI1 08/01/30
21600 C EXFMT SGRPC1 08/01/30
21700 C SELECT 08/01/30
21800 C WHEN *IN03 OR *IN12 08/01/30
21900 C SETOFF 50 08/01/30
22000 C LEAVESR 08/01/30
22100 *----- AIDE EN LIGNE 08/01/30
22200 C WHEN V_KEY = F_AID 08/01/30
22300 C EXSR $AID 08/01/30
22400 *----- TRAITEMENT 08/01/30
22500 C WHEN V_KEY = F_ENT 08/01/30
22600 *----- RECHERCHE SI ERR 08/01/30
22700 C EXSR $EC01 08/01/30
22800 C 40 DO 40 I 08/01/30
22900 C EVAL *IN66 = *IN(I) 08/01/30
23000 C N66 ENDDO 08/01/30
23100 C 66 ITER 08/01/30
23200 C 08/01/30
23300 *----- VALIDATION 08/01/30
23400 C MOVE NON V_CONF 08/01/30
23500 C EXFMT SGRPV99 08/01/30
23600 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
23700 C 66 ITER 08/01/30
23800 *- 08/01/30
23900 *----- ENREGISTREMENT 08/01/30
24000 C SETOFF 50 08/01/30
24100 *----- INIT ZONE ENRG 08/01/30
24200 C MOVE *DATE GRDMAJ 08/01/30
24300 C UPDATE ADMGRPF1 66 08/02/03
24400 *----- 08/01/30
24500 C EXSR $SFL 08/01/30
24600 C LEAVESR 08/01/30
24700 *----- 08/01/30
24800 C ENDSL 08/01/30
24900 C ENDDO 08/01/30
25000 C ENDSR 08/01/30
25100 *============================================================================================= 08/01/30
25200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
25300 * DEL RECORD 08/01/30
25400 *--------------------------------------------------------------------------------------------- 08/01/30
25500 *----- 08/01/30
25600 C $DLT BEGSR 08/01/30
25700 *----- TEST EXISTE OUI ERR 08/01/30
25800 C K_GR CHAIN ADMGRPF1 2726 FADMGRP 08/02/03
25900 C 26 LEAVESR OCCUPE 08/01/30
26000 C 27 LEAVESR NON TROUVE 08/01/30
26100 * SOCIETE NON EXISTANT OU HS 08/02/22
26200 C V_SOC CHAIN ADMSOCF1 33 08/02/22
26300 C EVAL *IN29 = *IN33 OR SOSHS= 1 08/02/22
26400 C 29 LEAVESR 08/02/22
26500 *- 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 * TRAITEMENT ECRAN N° 1 08/01/30
26700 *- 08/01/30
26800 C SETON 50 IND PROTEC KEY FMT 08/03/04
26900 C DO *HIVAL 08/01/30
27000 C WRITE SGRPI1 08/01/30
27100 C EXFMT SGRPC1 08/01/30
27200 C SELECT 08/01/30
27300 C WHEN *IN03 OR *IN12 08/01/30
27400 C SETOFF 50 08/03/04
27500 C SETOFF 23 08/03/04
27600 C LEAVESR 08/01/30
27700 *----- AIDE EN LIGNE 08/01/30
27800 C WHEN V_KEY = F_AID 08/01/30
27900 C EXSR $AID 08/01/30
28000 *----- TRAITEMENT 08/01/30
28100 C WHEN V_KEY = F_ENT 08/01/30
28200 *----- VALIDATION 08/01/30
28300 C MOVE NON V_CONF 08/01/30
28400 C EXFMT SGRPV99 08/01/30
28500 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
28600 C 66 ITER 08/01/30
28700 *- 08/01/30
28800 *----- ENREGISTREMENT 08/01/30
28900 C SETOFF 50 08/03/04
29000 C SETOFF 23 08/03/04
29100 *----- INIT ZONE ENRG 08/01/30
29200 C DELETE ADMGRPF1 66 08/02/03
29300 *----- 08/01/30
29400 C EXSR $SFL 08/01/30
29500 C LEAVESR 08/01/30
29600 *----- 08/01/30
29700 C ENDSL 08/01/30
29800 C ENDDO 08/01/30
29900 C ENDSR 08/01/30
30000 *============================================================================================= 08/01/30
30100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
30200 * ERR ECRAN 01 08/01/30
30300 *--------------------------------------------------------------------------------------------- 08/01/30
30400 C $EC01 BEGSR 08/01/30
30500 *----- RECHERCHE SI ERR 08/01/30
30600 *======================= 08/01/30
30700 *----- 08/01/30
30800 *-- N° ZONE OBLIGATOIRE 08/01/30
30900 *----- 08/01/30
31000 C EVAL *IN41 = (GRTXT = *BLANK) 08/01/30
31100 C 41 LEAVESR 08/01/30
31200 *======================= 08/01/30
31300 C ENDSR 08/01/30
31400 ***************************************************************** 08/01/30
31500 *--------------------------------------------------------------------------------------------- 08/01/30
31600 * INCLUDE 08/01/30
31700 *--------------------------------------------------------------------------------------------- 08/01/30
31800 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/29
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMGRP IF E K DISK 08/03/04
600 FSADMGRPP CF E WORKSTN INFDS(V_DSPF) 08/03/19
700 F SFILE(SGRPWE1:LIGN1) 08/02/29
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 *--------------------------------------------------------------------------------------------- 08/03/04
1400 D P_SOC S LIKE(GRSOC) 08/03/04
1500 D P_GRP S LIKE(GRGRP) 08/03/04
1600 D P_IN03 S LIKE(*IN ) 08/03/04
1700 *--------------------------------------------------------------------------------------------- 08/03/04
1800 * PLIST 08/02/13
1900 *--------------------------------------------------------------------------------------------- 08/02/13
2000 C *ENTRY PLIST 08/02/13
2100 C PARM P_SOC 08/03/04
2200 C PARM P_GRP 08/03/04
2300 C PARM P_IN03 08/03/04
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 * INIT DU PGM 08/02/05
2600 *--------------------------------------------------------------------------------------------- 08/02/05
2700 C MOVE *ALL'0' *IN 08/02/05
2800 *--------------------------------------------------------------------------------------------- 08/02/05
2900 * DEBUT PROGRAMME 08/02/29
3000 *--------------------------------------------------------------------------------------------- 08/02/05
3100 C WRITE SGRPB0 08/03/19
3200 C EXSR $SFL 08/02/13
3300 C DO *HIVAL 08/02/05
3400 C EXFMT SGRPC1 08/02/29
3500 C 03 LEAVE 08/02/05
3600 08/02/05
3700 C 91 READC SGRPWE1 33 08/03/04
3800 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/02/05
3900 C EVAL P_SOC = GRSOC 08/03/04
4000 C EVAL P_GRP = GRGRP 08/02/29
4100 C LEAVE 08/02/13
4200 C ENDIF 08/02/05
4300 C ENDDO 08/02/05
4400 *--------------------------------------------------------------------------------------------- 08/02/05
4500 *--------------------------------------------------------------------------------------------- 08/02/05
4600 * FIN PROGRAMME 08/02/29
4700 *--------------------------------------------------------------------------------------------- 08/02/05
4800 C MOVE *IN03 P_IN03 08/03/04
4900 C SETON LR 08/02/05
5000 ********************************************************************************************** 08/02/05
5100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
5200 * SFL 08/02/05
5300 *--------------------------------------------------------------------------------------------- 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:48 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMGRPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C $SFL BEGSR 08/02/05
5500 *----- 08/02/05
5600 C SETOFF 9195 08/02/05
5700 C SETON 96 08/02/05
5800 C WRITE SGRPC1 08/02/29
5900 C SETOFF 96 08/02/05
6000 C MOVE *BLANK V_CHX 08/02/05
6100 *--------------------------------------------------------------------------------------------- 08/02/05
6200 C *LOVAL SETLL ADMGRPF1 08/02/29
6300 08/02/05
6400 C DO *HIVAL LIGN1 4 0 08/02/22
6500 C READ ADMGRPF1 95 *95 =EOF & SFLEND 08/03/04
6600 C 95 LEAVE 08/02/05
6700 C WRITE SGRPWE1 08/02/29
6800 *- 08/02/05
6900 C SETON 91 08/02/05
7000 C ENDDO 08/02/05
7100 C Z-ADD 1 LIGN1 08/02/05
7200 *----- 08/02/05
7300 C ENDSR 08/02/05
7400 ***************************************************************** 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMHLP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FSADMHLP CF E WORKSTN 08/03/14
300 F SFILE(SAIDE1:LIGN1) 08/01/30
400 FQAIDE IF F 91 DISK USROPN 08/01/30
500 FWADMHLP O F 132 PRINTER OFLIND(*INOF) 08/03/14
600 F USROPN 08/01/30
700 D WET01 S 66 DIM(2) CTDATA PERRCD(1) 08/01/30
800 D WET02 S 66 DIM(2) CTDATA PERRCD(1) 08/01/30
900 D WET03 S 66 DIM(2) CTDATA PERRCD(1) 08/01/30
1000 D WET04 S 66 DIM(2) CTDATA PERRCD(1) 08/01/30
1100 D WET05 S 66 DIM(2) CTDATA PERRCD(1) 08/01/30
1200 D DS 08/01/30
1300 D OVR 1 80 08/01/30
1400 D DIM(80) CTDATA PERRCD(80) 08/01/30
1500 D V_MBR 49 58 08/01/30
1600 D DS 08/01/30
1700 D DLT 1 80 08/01/30
1800 D DIM(80) CTDATA PERRCD(80) 08/01/30
1900 * 08/01/30
2000 IQAIDE NS 01 08/01/30
2100 I 13 13 V_POINT 08/01/30
2200 I 13 91 SRCDTA 08/01/30
2300 C *ENTRY PLIST 08/01/30
2400 C PARM WMBR 10 08/01/30
2500 C MOVE WMBR V_MBR 08/03/15
2600 C EXSR $OVR 08/01/30
2700 C OPEN QAIDE 33 08/01/30
2800 C *IN33 CABEQ '1' T_FIN LR 08/01/30
2900 * 08/01/30
3000 *==================== 08/01/30
3100 C EXSR $SFL 08/01/30
3200 C T_DEB TAG 08/01/30
3300 C Z-ADD 10 ROLVAL 08/01/30
3400 *==================== 08/01/30
3500 C EXFMT SAIDC1 08/01/30
3600 *------------------------------ 08/01/30
3700 IMPR C *IN13 IFEQ '1' IMPR 08/03/28
3800 C Z-ADD 61 V_LIG 2 0 08/01/30
3900 C OPEN WADMHLP 08/03/14
4000 *--- 08/01/30
4100 DO C DO *HIVAL LIGN0 4 0 08/01/30
4200 C LIGN0 CHAIN SAIDE1 33 08/01/30
4300 C 33 CLOSE WADMHLP 08/03/14
4400 C *IN33 CABEQ '1' T_DEB 08/01/30
4500 C MOVEL SRCDTA V_POINT 08/01/30
4600 C V_POINT COMP '*' 40 08/01/30
4700 C N40V_POINT COMP '.' 40 08/01/30
4800 C N40V_POINT COMP '_' 40 08/01/30
4900 C N40V_POINT COMP '°' 40 08/01/30
5000 C ADD 1 V_LIG 08/01/30
5100 *--- 08/01/30
5200 60 C V_LIG IFGE 60 08/01/30
5300 C EXCEPT ENT 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMHLP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C Z-ADD 5 V_LIG 08/01/30
5500 60 C END 08/01/30
5600 *--- 08/01/30
5700 C EXCEPT LIST 08/01/30
5800 DO C END 08/01/30
5900 *--- 08/01/30
6000 IMPR C END 08/01/30
6100 *==================== 08/01/30
6200 C *IN03 CABNE '1' T_DEB LR 08/01/30
6300 *=== FIN LR ========= 08/01/30
6400 C T_FIN TAG 08/01/30
6500 C CLOSE QAIDE 08/01/30
6600 C EXSR $DLT 08/01/30
6700 *---------------------------------------------------------------- 08/01/30
6800 *---------------------------------------------------------------- 08/01/30
6900 C $SFL BEGSR 08/01/30
7000 *-------------------------------* 08/01/30
7100 * CHARGEMENT FICHIER WECRBDG * 08/01/30
7200 *-------------------------------* 08/01/30
7300 C DO *HIVAL LIGN1 4 0 08/01/30
7400 C READ QAIDE 33 08/01/30
7500 C *IN33 IFEQ '0' 08/01/30
7600 C SETON 91 08/01/30
7700 C V_POINT COMP '*' 30 08/01/30
7800 C V_POINT COMP '.' 31 08/01/30
7900 C V_POINT COMP '_' 32 08/01/30
8000 C V_POINT COMP '-' 34 08/01/30
8100 C V_POINT COMP '°' 35 08/01/30
8200 C WRITE SAIDE1 08/01/30
8300 C END 08/01/30
8400 C N33 END 08/01/30
8500 C ENDSR 08/01/30
8600 *================================================================ 08/01/30
8700 C* OVRDBF 08/01/30
8800 C $OVR BEGSR 08/01/30
8900 C MOVE WMBR V_MBR 08/01/30
9000 C CALL 'QCMDEXC' 33 08/01/30
9100 C PARM OVR 08/01/30
9200 C PARM 80 LONG 15 5 08/01/30
9300 C ENDSR 08/01/30
9400 *================================================================ 08/01/30
9500 C* DLTOVR 08/01/30
9600 C $DLT BEGSR 08/01/30
9700 C CALL 'QCMDEXC' 33 08/01/30
9800 C PARM DLT 08/01/30
9900 C PARM 80 LONG 15 5 08/01/30
10000 C ENDSR 08/01/30
10100 *================================================================ 08/01/30
10200 OWADMHLP E ENT 01 08/03/14
10300 O WET01 132 08/01/30
10400 OWADMHLP E ENT 1 08/03/14
10500 O WET02 132 08/01/30
10600 OWADMHLP E ENT 1 08/03/14
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMHLP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 O WET03 132 08/01/30
10800 O V_MBR 53 08/01/30
10900 O UDATE Y 91 08/01/30
11000 OWADMHLP E ENT 1 08/03/14
11100 O WET04 132 08/01/30
11200 OWADMHLP E ENT 1 08/03/14
11300 O WET05 132 08/01/30
11400 OWADMHLP E LIST 1 08/03/14
11500 O SRCDTA 91 08/01/30
11600 OWADMHLP E 40 LIST 0 08/03/14
11700 O SRCDTA 91 08/01/30
11800 * 1 2 3 4 5 6 08/01/30
11900 123456*890123456789012345678901234567890123456789012345678901234567890 08/01/30
12000 * 08/01/30
12100 **CTDATA OVR 08/01/30
12200 OVRDBF FILE(QAIDE) TOFILE(ADMOPS/QAIDEUSR) MBR(XXXXXXXXXX) 08/01/30
12300 **CTDATA DLT 08/01/30
12400 DLTOVR QAIDE 08/01/30
12500 **CTDATA WET01 08/01/30
12600 ************************************************************** 08/01/30
12700 ********************************** 08/01/30
12800 **CTDATA WET02 08/01/30
12900 * 08/01/30
13000 * 08/01/30
13100 **CTDATA WET03 08/01/30
13200 * Nom du Programme ----> 08/01/30
13300 * 08/01/30
13400 **CTDATA WET04 08/01/30
13500 * 08/01/30
13600 * 08/01/30
13700 **CTDATA WET05 08/01/30
13800 ************************************************************** 08/01/30
13900 ********************************** 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMLIB UF A E K DISK 08/03/04
600 FSADMLIB CF E WORKSTN INFDS(V_DSPF) 08/02/22
700 F SFILE(SLIBE1:LIGN1) 08/02/22
800 FFADMSOC IF E K DISK 08/03/04
900 FFADMPRJ IF E K DISK 08/03/04
1000 FLADMPRJC IF E K DISK RENAME(ADMPRJF1 :ADMPRJFC) 08/02/22
1100 FLADMLIBA IF E K DISK RENAME(ADMLIBF1 :ADMLIBFA) 08/02/22
1200 * 08/02/05
1300 *--------------------------------------------------------------------------------------------- 08/02/05
1400 * UDS 08/02/05
1500 *--------------------------------------------------------------------------------------------- 08/02/05
1600 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1700 D I S 4S 0 INZ(*ZEROS) 08/02/05
1800 D S_SOC S LIKE(LISOC ) 08/02/22
1900 D S_PRJ S LIKE(LIPRJ ) 08/02/22
2000 D V_SAVSEQ S LIKE(LISEQ ) 08/02/22
2100 D V_SAVPRJ S LIKE(LIPRJ ) 08/02/22
2200 *--------------------------------------------------------------------------------------------- 08/03/04
2300 D P_SOC S LIKE(PRSOC ) 08/03/04
2400 D P_LIB S LIKE(PRLIBP) 08/03/04
2500 D P_LIBE S LIKE(PRLIBP) 08/03/04
2600 D P_OBJ S 10A 08/03/04
2700 D P_MBR S LIKE(P_OBJ) 08/03/04
2800 D P_PRJ S LIKE(PRPRJ) 08/03/04
2900 D P_IN03 S LIKE(*IN) 08/03/04
3000 *--------------------------------------------------------------------------------------------- 08/02/05
3100 D TROUVE S LIKE(*IN) 08/02/21
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 * KLIST DES FICHIERS 08/02/05
3400 *--------------------------------------------------------------------------------------------- 08/02/05
3500 C K_LI KLIST *FADMLIB 08/02/22
3600 C KFLD V_SOC *SOCIETE 08/02/22
3700 C KFLD V_PRJ *PROJET 08/02/22
3800 C KFLD V_SEQ *SEQUENCE 08/02/22
3900 * 08/02/22
4000 C K_PR KLIST FADMPRJ 08/02/22
4100 C KFLD V_SOC NOM SOCIETE 08/02/22
4200 C KFLD V_PRJ NOM DU PROJET 08/02/22
4300 * 08/02/22
4400 C K_PRC KLIST FADMPRJ 08/02/22
4500 C KFLD V_SOC NOM SOCIETE 08/02/22
4600 C KFLD V_PLIB LIB PROJET 08/02/26
4700 * 08/02/22
4800 C K_LIX KLIST *FADMLIB 08/02/22
4900 C KFLD V_SOC *SOCIETE 08/02/22
5000 C KFLD V_DPRJ *PROJET 08/02/22
5100 * 08/02/05
5200 *--------------------------------------------------------------------------------------------- 08/02/05
5300 * 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 * 08/02/05
5500 *--------------------------------------------------------------------------------------------- 08/02/05
5600 * INIT DU PGM 08/02/05
5700 *--------------------------------------------------------------------------------------------- 08/02/05
5800 C MOVE *ALL'0' *IN 08/02/05
5900 *--------------------------------------------------------------------------------------------- 08/02/22
6000 * DEBUT PROPRAMME (DEMANDE LA SOCIETE & PROJET) 08/02/22
6100 C DO *HIVAL 08/02/22
6200 C EXFMT SLIBS1 08/02/22
6300 C 04 EXSR $HLP_01 08/03/04
6400 C 03 GOTO T_FIN 08/02/22
6500 C 04 ITER 08/02/22
6600 08/02/22
6700 C V_SOC CHAIN ADMSOCF1 27 08/02/22
6800 C K_PR CHAIN ADMPRJF1 27 08/02/22
6900 C 27 ITER 08/02/22
7000 C* EVAL *IN28 = SOSHS = 1 ENRG HS 08/02/22
7100 C 28 ITER 08/02/22
7200 C 10 LEAVE 08/02/22
7300 C ENDDO 08/02/22
7400 *--------------------------------------------------------------------------------------------- 08/02/22
7500 *--------------------------------------------------------------------------------------------- 08/02/05
7600 * DEBUT PROPRAMME 08/02/05
7700 *--------------------------------------------------------------------------------------------- 08/02/05
7800 C EXSR $SFL 08/02/13
7900 C DO *HIVAL 08/02/05
8000 C WRITE SLIBI1 08/02/22
8100 C EXFMT SLIBC1 08/02/22
8200 C 03 LEAVE 08/02/05
8300 08/02/05
8400 C 91 READC SLIBE1 33 *33 = EOF 08/02/22
8500 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/02/05
8600 C MOVEL LISEQ V_SEQ 08/02/22
8700 C MOVE *BLANK V_CHX 08/02/05
8800 C UPDATE SLIBE1 08/02/22
8900 C ITER 08/02/05
9000 C ENDIF 08/02/05
9100 08/02/05
9200 C V_KEY CASEQ F_AID $AID 08/02/05
9300 C *IN09 CASEQ *ON $ADD 08/02/05
9400 C *IN10 CASEQ *ON $DUP 08/02/23
9500 C *IN11 CASEQ *ON $MAJ 08/02/05
9600 C *IN23 CASEQ *ON $DLT 08/02/07
9700 C CAS $SFL 08/02/05
9800 C ENDCS 08/02/05
9900 *----------------------------------------------* 08/02/05
10000 C 03 LEAVE 08/02/05
10100 C ENDDO 08/02/05
10200 *--------------------------------------------------------------------------------------------- 08/02/05
10300 *--------------------------------------------------------------------------------------------- 08/02/05
10400 * FIN PROPRAMME 08/02/05
10500 *--------------------------------------------------------------------------------------------- 08/02/05
10600 C T_FIN TAG 08/02/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C SETON LR 08/02/05
10800 ********************************************************************************************** 08/02/05
10900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
11000 * SFL 08/02/05
11100 *--------------------------------------------------------------------------------------------- 08/02/05
11200 C $SFL BEGSR 08/02/05
11300 *---KEY ACCES SFL 08/02/05
11400 C K_SFL KLIST *FADMLIB 08/02/22
11500 C KFLD V_SOC *SOCIETE 08/02/22
11600 C KFLD V_PRJ *PROJET 08/02/22
11700 *----- 08/02/05
11800 C SETOFF 9195 08/02/05
11900 C SETON 96 08/02/05
12000 C WRITE SLIBC1 08/02/22
12100 C SETOFF 96 08/02/05
12200 C MOVE *BLANK V_CHX 08/02/05
12300 C Z-ADD *ZEROS V_SAVSEQ 08/02/22
12400 *--------------------------------------------------------------------------------------------- 08/02/05
12500 *--------------------------------------------------------------------------------------------- 08/02/05
12600 C *LOVAL SETLL ADMLIBF1 08/02/22
12700 C K_SFL SETLL ADMLIBF1 08/02/22
12800 08/02/05
12900 C DO *HIVAL LIGN1 4 0 08/02/22
13000 C K_SFL READE(N) ADMLIBF1 95 *95 =EOF & SFLEND 08/02/22
13100 C 95 LEAVE 08/02/05
13200 C MOVE LIPLIB V_PLIB 08/02/26
13300 C K_PRC CHAIN ADMPRJFC 33 08/02/22
13400 C 33 EVAL PRTXT = '*EXTERN PROJET' 08/02/22
13500 C WRITE SLIBE1 08/02/22
13600 *- 08/02/05
13700 C Z-ADD LISEQ V_SAVSEQ 08/02/22
13800 *- 08/02/05
13900 C SETON 91 08/02/05
14000 C ENDDO 08/02/05
14100 C MOVE *BLANKS V_PLIB 08/02/26
14200 C Z-ADD 1 LIGN1 08/02/05
14300 *----- 08/02/05
14400 C ENDSR 08/02/05
14500 ***************************************************************** 08/02/05
14600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
14700 * AJOUT RECORD 08/02/05
14800 *--------------------------------------------------------------------------------------------- 08/02/05
14900 *----- 08/02/05
15000 C $ADD BEGSR 08/02/05
15100 *----- TEST EXISTE OUI ERR 08/02/05
15200 C K_LI CHAIN ADMLIBF1 3366 *33=TROUV & 66=ERROR 08/02/22
15300 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 *EXISTE DEJA 08/02/05
15400 C 25 LEAVESR 08/02/05
15500 C EVAL *IN26 = *IN66 *OCCUPE 08/02/05
15600 C 26 LEAVESR 08/02/05
15700 * TEST KEY *BLANK 08/02/05
15800 C EVAL *IN29 = (V_SEQ = *ZEROS) 08/02/22
15900 C 29 LEAVESR 08/02/15
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 * 08/02/11
16100 * TRAITEMENT ECRAN N° 1 08/02/05
16200 *- 08/02/05
16300 C CLEAR ADMLIBF1 08/02/22
16400 C SETON 50 *IND PROTEC KEY FMT 08/02/11
16500 C MOVE *BLANK PRTXT 08/02/22
16600 C MOVE *BLANK LIPLIB 08/02/22
16700 C MOVE *BLANK LIADDRMV 08/02/22
16800 C WRITE SLIBI1 08/02/22
16900 C DO *HIVAL 08/02/05
17000 C EXFMT SLIBC1 08/02/22
17100 C SELECT 08/02/05
17200 C WHEN *IN03 OR *IN12 08/02/05
17300 C SETOFF 50 08/02/05
17400 C LEAVESR 08/02/05
17500 *----- AIDE EN LIGNE 08/02/05
17600 C WHEN V_KEY = F_AID 08/02/05
17700 C EXSR $AID 08/02/05
17800 *----- TRAITEMENT 08/02/05
17900 C WHEN V_KEY = F_ENT 08/02/05
18000 *----- RECHERCHE SI ERR 08/02/05
18100 C EXSR $EC01 08/02/05
18200 C 40 DO 41 I 08/02/22
18300 C EVAL *IN66 = *IN(I) 08/02/05
18400 C N66 ENDDO 08/02/05
18500 C 66 ITER 08/02/11
18600 *----- VALIDATION 08/02/05
18700 C WRITE SLIBC1 08/02/22
18800 C MOVE NON V_CONF 08/02/05
18900 C EXFMT SLIBV99 08/02/22
19000 08/02/22
19100 C EVAL *IN66 = (V_CONF = NON ) 08/02/05
19200 C 66 SETOFF 50 08/02/07
19300 C 66 LEAVESR 08/02/07
19400 *- 08/02/05
19500 *----- ENREGISTREMENT 08/02/05
19600 C SETOFF 50 08/02/05
19700 C K_LI CHAIN ADMLIBF1 3366 08/02/22
19800 C N33 LEAVESR 08/02/05
19900 C*----- INIT ZONE ENRG 08/02/05
20000 C MOVE V_SOC LISOC 08/02/22
20100 C MOVE V_PRJ LIPRJ 08/02/22
20200 C Z-ADD V_SEQ LISEQ 08/02/22
20300 C MOVE V_PLIB LIPLIB 08/02/22
20400 C MOVE V_ADDRMV LIADDRMV 08/02/22
20500 C MOVE *DATE LIDCRT 08/02/22
20600 C MOVE *DATE LIDMAJ 08/02/22
20700 C WRITE ADMLIBF1 66 08/02/22
20800 *----- 08/02/05
20900 C EXSR $SFL 08/02/05
21000 C LEAVESR 08/02/05
21100 *----- 08/02/05
21200 C ENDSL 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C ENDDO 08/02/05
21400 C ENDSR 08/02/05
21500 *============================================================================================= 08/02/05
21600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
21700 * MAJ RECORD 08/02/05
21800 *--------------------------------------------------------------------------------------------- 08/02/05
21900 *----- 08/02/05
22000 C $MAJ BEGSR 08/02/05
22100 *----- TEST EXISTE OUI ERR 08/02/05
22200 C K_LI CHAIN ADMLIBF1 2726 08/02/22
22300 C 26 LEAVESR OCCUPE 08/02/05
22400 C 27 LEAVESR NON TROUVE 08/02/05
22500 *- 08/02/05
22600 * 08/02/11
22700 * TRAITEMENT ECRAN N° 1 08/02/05
22800 *- 08/02/05
22900 C SETON 50 IND PROTEC KEY FMT 08/02/05
23000 * INIT ZONE 08/02/22
23100 C MOVE *BLANK LIADDRMV 08/02/22
23200 C K_PRC CHAIN ADMPRJFC 33 08/02/22
23300 C MOVE LIPLIB V_PLIB 08/02/26
23400 08/02/22
23500 C WRITE SLIBI1 08/02/22
23600 C DO *HIVAL 08/02/05
23700 C EXFMT SLIBC1 08/02/22
23800 C SELECT 08/02/05
23900 C WHEN *IN03 OR *IN12 08/02/05
24000 C SETOFF 50 08/02/05
24100 C LEAVESR 08/02/05
24200 *----- AIDE EN LIGNE 08/02/05
24300 C WHEN V_KEY = F_AID 08/02/05
24400 C EXSR $AID 08/02/05
24500 *----- TRAITEMENT 08/02/05
24600 C WHEN V_KEY = F_ENT 08/02/05
24700 *----- RECHERCHE SI ERR 08/02/05
24800 C EXSR $EC01 08/02/22
24900 C 40 DO 41 I 08/02/22
25000 C EVAL *IN66 = *IN(I) 08/02/22
25100 C N66 ENDDO 08/02/22
25200 C 66 ITER 08/02/22
25300 C 08/02/05
25400 *----- VALIDATION 08/02/05
25500 C WRITE SLIBC1 08/02/22
25600 C MOVE NON V_CONF 08/02/05
25700 C EXFMT SLIBV99 08/02/22
25800 C EVAL *IN66 = (V_CONF = NON ) 08/02/05
25900 C 66 SETOFF 50 08/02/22
26000 C 66 LEAVESR 08/02/22
26100 *- 08/02/05
26200 *----- ENREGISTREMENT 08/02/05
26300 C SETOFF 50 08/02/05
26400 *----- INIT ZONE ENRG 08/02/05
26500 C MOVE V_ADDRMV LIADDRMV 08/02/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C MOVE *DATE LIDMAJ 08/02/22
26700 C UPDATE ADMLIBF1 66 08/02/22
26800 *----- 08/02/05
26900 C EXSR $SFL 08/02/05
27000 C LEAVESR 08/02/05
27100 *----- 08/02/05
27200 C ENDSL 08/02/05
27300 C ENDDO 08/02/05
27400 C ENDSR 08/02/05
27500 *============================================================================================= 08/02/07
27600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/07
27700 * ADD RECORD DUP 08/02/22
27800 *--------------------------------------------------------------------------------------------- 08/02/22
27900 *----- 08/02/22
28000 C $DUP BEGSR 08/02/22
28100 C SETON 51 08/02/23
28200 C CLEAR ADMLIBF1 08/02/23
28300 C MOVE *BLANK V_DPRJ 08/02/23
28400 08/02/23
28500 C WRITE SLIBI1 08/02/23
28600 C DO *HIVAL 08/02/23
28700 C EXFMT SLIBC1 08/02/23
28800 C SELECT 08/02/23
28900 C WHEN *IN03 OR *IN12 08/02/23
29000 C SETOFF 51 08/02/23
29100 C LEAVESR 08/02/23
29200 *----- AIDE EN LIGNE 08/02/23
29300 C WHEN V_KEY = F_AID 08/02/23
29400 C EXSR $AID 08/02/23
29500 *----- TRAITEMENT 08/02/23
29600 C WHEN V_KEY = F_ENT 08/02/23
29700 C EXSR $EC_DUP 08/02/23
29800 C 42 DO 42 I 08/02/23
29900 C EVAL *IN66 = *IN(I) 08/02/23
30000 C N66 ENDDO 08/02/23
30100 C 66 ITER 08/02/23
30200 *----- VALIDATION 08/02/23
30300 C WRITE SLIBC1 08/02/23
30400 C MOVE NON V_CONF 08/02/23
30500 C EXFMT SLIBV99 08/02/23
30600 C EVAL *IN66 = (V_CONF = NON ) 08/02/23
30700 C 66 SETOFF 51 08/02/23
30800 C 66 LEAVESR 08/02/23
30900 *- 08/02/23
31000 *----- ENREGISTREMENT 08/02/23
31100 C SETOFF 51 08/02/23
31200 *----- INIT ZONE ENRG 08/02/23
31300 C 08/02/22
31400 C *LOVAL SETLL ADMLIBFA 08/02/22
31500 C K_LIX SETLL ADMLIBFA 08/02/22
31600 08/02/22
31700 C DO *HIVAL 08/02/22
31800 C K_LIX READE ADMLIBFA 33 *33 =EOF 08/02/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C 33 LEAVE 08/02/22
32000 C ADD 10 V_SAVSEQ 08/02/22
32100 C Z-ADD V_SAVSEQ LISEQ 08/02/22
32200 C MOVE V_PRJ LIPRJ 08/02/22
32300 C MOVE *DATE LIDCRT 08/02/22
32400 C MOVE *DATE LIDMAJ 08/02/22
32500 C WRITE ADMLIBF1 66 08/02/22
32600 C ENDDO 08/02/22
32700 *----- 08/02/22
32800 C EXSR $SFL 08/02/22
32900 *----- 08/02/22
33000 C LEAVESR 08/02/23
33100 *----- 08/02/23
33200 C ENDSL 08/02/23
33300 C ENDDO 08/02/23
33400 C ENDSR 08/02/22
33500 *============================================================================================= 08/02/22
33600 * DLT RECORD 08/02/07
33700 *--------------------------------------------------------------------------------------------- 08/02/07
33800 *----- 08/02/07
33900 C $DLT BEGSR 08/02/07
34000 *----- TEST EXISTE OUI ERR 08/02/07
34100 C K_LI CHAIN ADMLIBF1 2726 08/02/22
34200 C 26 LEAVESR OCCUPE 08/02/07
34300 C 27 LEAVESR NON TROUVE 08/02/07
34400 *- 08/02/07
34500 *- 08/02/07
34600 * INIT ZONE 08/02/22
34700 C MOVE *BLANK LIPLIB 08/02/22
34800 C MOVE *BLANK LIADDRMV 08/02/22
34900 C K_PRC CHAIN ADMPRJFC 33 08/02/22
35000 08/02/22
35100 *----- VALIDATION 08/02/22
35200 C WRITE SLIBC1 08/02/22
35300 *----- VALIDATION 08/02/07
35400 C MOVE NON V_CONF 08/02/07
35500 C EXFMT SLIBV99 08/02/22
35600 C EVAL *IN66 = (V_CONF = NON ) 08/02/07
35700 C 66 LEAVESR 08/02/07
35800 *- 08/02/07
35900 *----- INIT ZONE ENRG 08/02/07
36000 C DELETE ADMLIBF1 66 08/02/22
36100 *----- 08/02/07
36200 C EXSR $SFL 08/02/07
36300 *----- 08/02/07
36400 C ENDSR 08/02/07
36500 *============================================================================================= 08/02/05
36600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
36700 * ERR ECRAN 01 08/02/05
36800 *--------------------------------------------------------------------------------------------- 08/02/05
36900 C $EC01 BEGSR 08/02/05
37000 *-- N° ZONE OBLIGATOIRE 08/02/05
37100 *----- 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 8
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
37200 * RECHERCHE SI LIB EXISTE 08/02/22
37300 C CALLB 'MADMOBJCHK' 08/02/21
37400 C PARM 'QSYS' P_LIB 08/03/04
37500 C PARM V_PLIB P_OBJ 08/03/04
37600 C PARM '*LIB' P_LIBE 08/03/04
37700 C PARM '*NONE' P_MBR 08/03/04
37800 C PARM TROUVE 08/02/21
37900 C EVAL *IN40 = TROUVE = *OFF 08/02/21
38000 * ADD REMOVE OBLIGATOIRE 08/02/22
38100 C EVAL *IN41 = V_ADDRMV = *BLANK 08/02/22
38200 C K_PRC CHAIN ADMPRJFC 33 08/02/22
38300 C 33 EVAL PRTXT = '*EXTERN PROJET' 08/02/22
38400 *======================= 08/02/05
38500 C ENDSR 08/02/05
38600 * ERR ECRAN 51 08/02/22
38700 *--------------------------------------------------------------------------------------------- 08/02/22
38800 C $EC_DUP BEGSR 08/02/23
38900 *-- N° ZONE OBLIGATOIRE 08/02/22
39000 *----- 08/02/22
39100 * RECHERCHE SI PROJET EXISTE 08/02/22
39200 C K_LIX CHAIN ADMLIBFA 42 08/02/22
39300 *======================= 08/02/22
39400 C ENDSR 08/02/22
39500 ***************************************************************** 08/02/05
39600 *--------------------------------------------------------------------------------------------- 08/02/22
39700 * TOUCHE F4 08/02/22
39800 *--------------------------------------------------------------------------------------------- 08/02/22
39900 C 08/02/22
40000 C $HLP_01 BEGSR 08/02/22
40100 * 08/02/22
40200 C C CALLB 'XADMPRJP' 08/03/04
40300 C PARM P_SOC 08/03/04
40400 C PARM P_PRJ 08/03/04
40500 C PARM P_IN03 08/03/04
40600 C MOVE P_SOC V_SOC 08/02/25
40700 C MOVE P_PRJ V_PRJ 08/02/25
40800 C MOVE P_IN03 *IN03 08/03/04
40900 C ENDSR 08/02/22
41000 ***************************************************************** 08/02/22
41100 *--------------------------------------------------------------------------------------------- 08/02/05
41200 * INCLUDE 08/02/05
41300 *--------------------------------------------------------------------------------------------- 08/02/05
41400 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
41500 *--------------------------------------------------------------------------------------------- 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIBADD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/04
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMPRJ IF E K DISK 08/03/13
600 FFADMLIB IF E K DISK 08/03/13
700 08/03/13
800 D P_SOC S 10A 08/03/13
900 D P_PRJ S 20A 08/03/13
1000 D P_NBR S 5P 0 08/03/13
1100 D P_LIB S 2750A 08/03/13
1200 08/02/05
1300 D WLIB DS 08/03/13
1400 D LIB 11A DIM(250) 08/03/13
1500 D V_LIB 1 2750A 08/03/13
1600 *--------------------------------------------------------------------------------------------- 08/03/13
1700 C K_LIB KLIST 08/03/13
1800 C KFLD P_SOC 08/03/13
1900 C KFLD P_PRJ 08/03/13
2000 *--------------------------------------------------------------------------------------------- 08/03/13
2100 C *ENTRY PLIST 08/02/05
2200 C PARM P_SOC 08/03/13
2300 C PARM P_PRJ 08/03/13
2400 C PARM P_LIB 08/03/13
2500 C PARM P_NBR 08/03/13
2600 08/03/13
2700 *---------------------------------------------------------------------------------------- 08/03/13
2800 C K_LIB CHAIN ADMPRJF1 33 08/03/13
2900 08/03/13
3000 08/03/13
3100 C Z-ADD *ZEROS P_NBR 08/03/13
3200 C ADD 1 P_NBR 08/03/13
3300 C MOVEL PRLIBD LIB(P_NBR) 08/03/13
3400 C IF PRLIBQ <> '*NONE' 08/06/24
3500 C ADD 1 P_NBR 08/03/13
3600 C MOVEL PRLIBQ LIB(P_NBR) 08/03/13
3700 C ENDIF 08/06/24
3800 C ADD 1 P_NBR 08/03/13
3900 C MOVEL PRLIBP LIB(P_NBR) 08/03/13
4000 08/03/13
4100 08/03/13
4200 *ADDLIBLE LIB(LIPLIB) 08/03/13
4300 C *LOVAL SETLL FADMLIB 08/03/13
4400 C K_LIB SETLL FADMLIB 08/03/13
4500 C DO *HIVAL 08/03/13
4600 C K_LIB READE ADMLIBF1 33 08/03/13
4700 C 33 LEAVE 08/03/13
4800 08/03/13
4900 C IF LIADDRMV = 'A' 08/03/13
5000 C ADD 1 P_NBR 08/03/13
5100 C MOVEL LIPLIB LIB(P_NBR) 08/03/13
5200 C ENDIF 08/03/13
5300 C ENDDO 08/03/13
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIBADD
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C MOVE V_LIB P_LIB 08/03/13
5500 C MULT 11 P_NBR 08/03/13
5600 C SETON LR 08/03/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMLIBRMV
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/04
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMLIB IF E K DISK 08/03/13
600 08/03/13
700 D P_SOC S 10A 08/03/13
800 D P_PRJ S 20A 08/03/13
900 D P_NBR S 5P 0 08/03/13
1000 D P_LIB S 165A 08/03/13
1100 08/02/05
1200 D WLIB DS 08/03/13
1300 D LIB 11A DIM(15) 08/03/13
1400 D V_LIB 1 165A 08/03/13
1500 *--------------------------------------------------------------------------------------------- 08/03/13
1600 C K_LIB KLIST 08/03/13
1700 C KFLD P_SOC 08/03/13
1800 C KFLD P_PRJ 08/03/13
1900 *--------------------------------------------------------------------------------------------- 08/03/13
2000 C *ENTRY PLIST 08/02/05
2100 C PARM P_SOC 08/03/13
2200 C PARM P_PRJ 08/03/13
2300 C PARM P_LIB 08/03/13
2400 C PARM P_NBR 08/03/13
2500 08/03/13
2600 *---------------------------------------------------------------------------------------- 08/03/13
2700 *RMVLIBLE LIB(LIPLIB) 08/03/13
2800 C Z-ADD 0 P_NBR 08/03/13
2900 C *LOVAL SETLL FADMLIB 08/03/13
3000 C K_LIB SETLL FADMLIB 08/03/13
3100 C DO *HIVAL 08/03/13
3200 C K_LIB READE ADMLIBF1 33 08/03/13
3300 C 33 LEAVE 08/03/13
3400 08/03/13
3500 C IF LIADDRMV = 'R' 08/03/13
3600 C ADD 1 P_NBR 08/03/13
3700 C MOVEL LIPLIB LIB(P_NBR) 08/03/13
3800 C ENDIF 08/03/13
3900 C ENDDO 08/03/13
4000 C MOVE V_LIB P_LIB 08/03/13
4100 C MULT 11 P_NBR 08/03/13
4200 08/03/13
4300 C SETON LR 08/03/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMMNU UF A E K DISK 08/03/04
600 FLADMMNUA IF E K DISK RENAME(ADMMNUF1 : ADMMNUFA) 08/03/04
700 FSADMMNU CF E WORKSTN INFDS(V_DSPF) 08/02/26
800 F SFILE(SMNUE1:LIGN1) 08/02/26
900 * 08/01/30
1000 *--------------------------------------------------------------------------------------------- 08/01/30
1100 * UDS 08/01/30
1200 *--------------------------------------------------------------------------------------------- 08/01/30
1300 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1400 D I S 4S 0 INZ(*ZEROS) 08/01/30
1500 D S_OOBJ S LIKE(MNOOBJ) 08/02/26
1600 D LIGN2 S LIKE(LIGN1) 08/03/04
1700 D V_SCAN S 2 0 SCAN ESPACE 08/02/26
1800 *--------------------------------------------------------------------------------------------- 08/01/30
1900 * 08/01/30
2000 * 08/01/30
2100 *--------------------------------------------------------------------------------------------- 08/01/30
2200 * KLIST DES FICHIERS 08/01/30
2300 *--------------------------------------------------------------------------------------------- 08/01/30
2400 C K_MN KLIST FADMMNU 08/02/26
2500 C KFLD V_OOBJ NOM OBJET 08/02/26
2600 * 08/01/30
2700 *--------------------------------------------------------------------------------------------- 08/01/30
2800 * 08/01/30
2900 * 08/01/30
3000 *--------------------------------------------------------------------------------------------- 08/01/30
3100 * INIT DU PGM 08/01/30
3200 *--------------------------------------------------------------------------------------------- 08/01/30
3300 C MOVE *ALL'0' *IN 08/01/30
3400 *--------------------------------------------------------------------------------------------- 08/01/30
3500 *--------------------------------------------------------------------------------------------- 08/01/30
3600 * DEBUT PROGRAMME 08/01/30
3700 *--------------------------------------------------------------------------------------------- 08/01/30
3800 C EXSR $SFL 08/02/26
3900 C DO *HIVAL 08/01/30
4000 C WRITE SMNUI1 08/02/26
4100 C EXFMT SMNUC1 08/02/26
4200 C 03 LEAVE 08/01/30
4300 C SETOFF 55 08/02/29
4400 08/01/30
4500 C IF *IN91 AND V_KEY = F_ENT 08/03/04
4600 C DO *HIVAL 08/02/29
4700 C READC SMNUE1 33 08/02/29
4800 C 33 LEAVE 08/02/29
4900 C SELECT 08/02/29
5000 C WHEN V_CHX <> *BLANK 08/02/29
5100 C MOVE MNOOBJ V_OOBJ 08/02/26
5200 C LEAVE 08/03/04
5300 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C OTHER 08/02/29
5500 C MNOOBJ CHAIN ADMMNUF1 33 08/02/29
5600 C EVAL *IN77 = MNOOBJ ='XADMMNU' 08/03/04
5700 C Z-ADD V_NOPT MNNOPT 08/02/29
5800 C N77 Z-ADD V_SHS MNSHS 08/03/04
5900 C MOVE V_TXT MNTXT 08/02/29
6000 C MOVE *DATE MNDMAJ 08/03/05
6100 C N33 UPDATE ADMMNUF1 08/02/29
6200 C ENDSL 08/02/29
6300 C ENDDO 08/03/04
6400 C EXSR $SFL 08/03/04
6500 C ITER 08/02/29
6600 C ENDIF 08/02/29
6700 * 08/02/29
6800 08/02/29
6900 C V_KEY CASEQ F_AID $AID 08/01/30
7000 C *IN09 CASEQ *ON $ADD 08/01/30
7100 C *IN11 CASEQ *ON $MAJ 08/01/30
7200 C *IN23 CASEQ *ON $DLT 08/01/30
7300 C CAS $SFL 08/01/30
7400 C ENDCS 08/01/30
7500 *----------------------------------------------* 08/01/30
7600 C 03 LEAVE 08/01/30
7700 C ENDDO 08/01/30
7800 *--------------------------------------------------------------------------------------------- 08/01/30
7900 *--------------------------------------------------------------------------------------------- 08/01/30
8000 * FIN PROGRAMME 08/01/30
8100 *--------------------------------------------------------------------------------------------- 08/01/30
8200 C SETON LR 08/01/30
8300 ********************************************************************************************** 08/01/30
8400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
8500 * SFL 08/01/30
8600 *--------------------------------------------------------------------------------------------- 08/01/30
8700 C $SFL BEGSR 08/01/30
8800 *----- 08/01/30
8900 C SETOFF 9195 08/01/30
9000 C SETON 96 08/01/30
9100 C WRITE SMNUC1 08/02/26
9200 C SETOFF 96 08/01/30
9300 C MOVE *BLANK V_CHX 08/01/30
9400 *--------------------------------------------------------------------------------------------- 08/01/30
9500 C *LOVAL SETLL LADMMNUA 08/03/04
9600 *----- 08/01/30
9700 C DO *HIVAL LIGN1 4 0 08/03/04
9800 C READ ADMMNUFA 95 IND MORE 08/03/04
9900 C 95 LEAVE 08/01/30
10000 C Z-ADD MNNOPT V_NOPT 08/02/29
10100 C Z-ADD MNSHS V_SHS 08/02/29
10200 C MOVE MNTXT V_TXT 08/02/29
10300 C WRITE SMNUE1 08/02/26
10400 *- 08/01/30
10500 C V_OOBJ IFEQ MNOOBJ 08/03/04
10600 C Z-ADD LIGN1 LIGN2 55 08/03/04
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C ENDIF 08/01/30
10800 *- 08/01/30
10900 C SETON 91 08/01/30
11000 C ENDDO 08/01/30
11100 C Z-ADD 1 LIGN1 08/01/30
11200 C 55 Z-ADD LIGN2 LIGN1 08/03/04
11300 *----- 08/01/30
11400 C ENDSR 08/01/30
11500 ***************************************************************** 08/01/30
11600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
11700 * AJOUT RECORD 08/01/30
11800 *--------------------------------------------------------------------------------------------- 08/01/30
11900 *----- 08/01/30
12000 C $ADD BEGSR 08/01/30
12100 *----- TEST EXISTE OUI ERR 08/01/30
12200 C K_MN CHAIN ADMMNUF1 3366 FADMMNU 08/02/26
12300 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 EXISTE DEJA 08/01/30
12400 C 25 LEAVESR 08/01/30
12500 C EVAL *IN26 = *IN66 OCCUPE 08/01/30
12600 C 26 LEAVESR 08/01/30
12700 * TEST KEY *BLANK 08/01/30
12800 C EVAL *IN33 = (V_OOBJ = *BLANK) 08/02/26
12900 C 33 LEAVESR 08/02/03
13000 *----- TEST SI IL A DES ESPACE --> OUI ERR 08/02/26
13100 C EVAL V_SCAN = %SCAN(' ':%TRIM(V_OOBJ)) 08/02/26
13200 C V_SCAN IFNE 0 08/03/04
13300 C EVAL *IN41 = *ON 08/03/04
13400 C ENDIF 08/02/26
13500 C 41 LEAVESR 08/02/27
13600 *- 08/01/30
13700 * TRAITEMENT ECRAN N° 1 08/01/30
13800 *- 08/01/30
13900 C CLEAR ADMMNUF1 08/02/26
14000 C SETON 50 IND PROTEC KEY FMT 08/01/30
14100 C DO *HIVAL 08/01/30
14200 C WRITE SMNUI1 08/02/26
14300 C EXFMT SMNUC1 08/02/26
14400 C SELECT 08/01/30
14500 C WHEN *IN03 OR *IN12 08/01/30
14600 C SETOFF 50 08/01/30
14700 C LEAVESR 08/01/30
14800 *----- AIDE EN LIGNE 08/01/30
14900 C WHEN V_KEY = F_AID 08/01/30
15000 C EXSR $AID 08/01/30
15100 *----- TRAITEMENT 08/01/30
15200 C WHEN V_KEY = F_ENT 08/01/30
15300 *----- RECHERCHE SI ERR 08/01/30
15400 C EXSR $EC01 08/02/26
15500 C 40 DO 41 I 08/02/27
15600 C EVAL *IN66 = *IN(I) 08/02/26
15700 C N66 ENDDO 08/02/26
15800 C 66 ITER 08/02/26
15900 C 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 *----- VALIDATION 08/01/30
16100 C MOVE NON V_CONF 08/01/30
16200 C EXFMT SMNUV99 08/02/26
16300 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
16400 C 66 ITER 08/01/30
16500 *- 08/01/30
16600 *----- ENREGISTREMENT 08/01/30
16700 C SETOFF 50 08/01/30
16800 C K_MN CHAIN ADMMNUF1 3366 FADMMNU 08/02/26
16900 C N33 LEAVESR 08/01/30
17000 *----- INIT ZONE ENRG 08/01/30
17100 C MOVE V_OOBJ MNOOBJ 08/02/26
17200 C MOVE *DATE MNDCRT 08/02/26
17300 C MOVE *DATE MNDMAJ 08/02/26
17400 C WRITE ADMMNUF1 66 08/02/26
17500 *----- 08/01/30
17600 C EXSR $SFL 08/01/30
17700 C LEAVESR 08/01/30
17800 *----- 08/01/30
17900 C ENDSL 08/01/30
18000 C ENDDO 08/01/30
18100 C ENDSR 08/01/30
18200 *============================================================================================= 08/01/30
18300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
18400 * MAJ RECORD 08/01/30
18500 *--------------------------------------------------------------------------------------------- 08/01/30
18600 *----- 08/01/30
18700 C $MAJ BEGSR 08/01/30
18800 *----- TEST EXISTE OUI ERR 08/01/30
18900 C K_MN CHAIN ADMMNUF1 2726 FADMMNU 08/02/26
19000 C 26 LEAVESR OCCUPE 08/01/30
19100 C 27 LEAVESR NON TROUVE 08/01/30
19200 C EVAL *IN33 = MNOOBJ ='XADMMNU' 08/03/04
19300 C 33 LEAVESR 08/03/04
19400 *- 08/01/30
19500 * TRAITEMENT ECRAN N° 1 08/01/30
19600 *- 08/01/30
19700 C SETON 50 IND PROTEC KEY FMT 08/01/30
19800 C DO *HIVAL 08/01/30
19900 C WRITE SMNUI1 08/02/26
20000 C EXFMT SMNUC1 08/02/26
20100 C SELECT 08/01/30
20200 C WHEN *IN03 OR *IN12 08/01/30
20300 C SETOFF 50 08/01/30
20400 C LEAVESR 08/01/30
20500 *----- AIDE EN LIGNE 08/01/30
20600 C WHEN V_KEY = F_AID 08/01/30
20700 C EXSR $AID 08/01/30
20800 *----- TRAITEMENT 08/01/30
20900 C WHEN V_KEY = F_ENT 08/01/30
21000 *----- RECHERCHE SI ERR 08/01/30
21100 C EXSR $EC01 08/01/30
21200 C 40 DO 41 I 08/02/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C EVAL *IN66 = *IN(I) 08/01/30
21400 C N66 ENDDO 08/01/30
21500 C 66 ITER 08/01/30
21600 C 08/01/30
21700 *----- VALIDATION 08/01/30
21800 C MOVE NON V_CONF 08/01/30
21900 C EXFMT SMNUV99 08/02/26
22000 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
22100 C 66 ITER 08/01/30
22200 *- 08/01/30
22300 *----- ENREGISTREMENT 08/01/30
22400 C SETOFF 50 08/01/30
22500 *----- INIT ZONE ENRG 08/01/30
22600 C MOVE *DATE MNDMAJ 08/02/26
22700 C UPDATE ADMMNUF1 66 08/02/26
22800 *----- 08/01/30
22900 C EXSR $SFL 08/01/30
23000 C LEAVESR 08/01/30
23100 *----- 08/01/30
23200 C ENDSL 08/01/30
23300 C ENDDO 08/01/30
23400 C ENDSR 08/01/30
23500 *============================================================================================= 08/01/30
23600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
23700 * DEL RECORD 08/01/30
23800 *--------------------------------------------------------------------------------------------- 08/01/30
23900 *----- 08/01/30
24000 C $DLT BEGSR 08/01/30
24100 *----- TEST EXISTE OUI ERR 08/01/30
24200 C K_MN CHAIN ADMMNUF1 2726 FADMMNU 08/02/26
24300 C 26 LEAVESR OCCUPE 08/01/30
24400 C 27 LEAVESR NON TROUVE 08/01/30
24500 C EVAL *IN33 = MNOOBJ ='XADMMNU' 08/03/04
24600 C 33 LEAVESR 08/03/04
24700 *- 08/01/30
24800 * TRAITEMENT ECRAN N° 1 08/01/30
24900 *- 08/01/30
25000 C SETON 50 IND PROTEC KEY FMT 08/01/30
25100 C WRITE SMNUI1 08/03/04
25200 C WRITE SMNUC1 08/03/04
25300 *----- VALIDATION 08/01/30
25400 C MOVE NON V_CONF 08/01/30
25500 C EXFMT SMNUV99 08/02/26
25600 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
25700 *- 08/01/30
25800 *----- ENREGISTREMENT 08/01/30
25900 C SETOFF 50 08/01/30
26000 C IF NOT *IN66 08/03/04
26100 *----- INIT ZONE ENRG 08/01/30
26200 C DELETE ADMMNUF1 66 08/02/26
26300 *----- 08/01/30
26400 C ENDIF 08/03/04
26500 C EXSR $SFL 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNU
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C LEAVESR 08/01/30
26700 *----- 08/01/30
26800 C ENDSR 08/01/30
26900 *============================================================================================= 08/01/30
27000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
27100 * ERR ECRAN 01 08/01/30
27200 *--------------------------------------------------------------------------------------------- 08/01/30
27300 C $EC01 BEGSR 08/01/30
27400 *----- RECHERCHE SI ERR 08/01/30
27500 *======================= 08/01/30
27600 *----- 08/01/30
27700 *-- N° ZONE OBLIGATOIRE 08/01/30
27800 *----- 08/01/30
27900 C EVAL *IN40 = (MNTXT = *BLANK) 08/02/26
28000 C 40 LEAVESR 08/02/27
28100 C EVAL *IN41 = (MNNTYP = *ZERO) 08/02/27
28200 C 41 LEAVESR 08/02/27
28300 C EVAL *IN41 = (MNNOPT = *ZEROS) 08/02/27
28400 C 41 LEAVESR 08/02/27
28500 *======================= 08/01/30
28600 C ENDSR 08/01/30
28700 ***************************************************************** 08/01/30
28800 *--------------------------------------------------------------------------------------------- 08/01/30
28900 * INCLUDE 08/01/30
29000 *--------------------------------------------------------------------------------------------- 08/01/30
29100 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
29200 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNUGNL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FLADMMNUA IF E K DISK 08/03/04
600 FFADMUSR IF E K DISK 08/03/04
700 FSADMGST CF E WORKSTN INFDS(V_DSPF) 08/02/28
800 F SFILE(SGSTE1:LIGN1) 08/02/28
900 * 08/01/30
1000 *--------------------------------------------------------------------------------------------- 08/01/30
1100 * UDS 08/01/30
1200 *--------------------------------------------------------------------------------------------- 08/01/30
1300 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1400 *--------------------------------------------------------------------------------------------- 08/02/27
1500 * DECLARATIVE 08/02/27
1600 D I S 4S 0 INZ(*ZEROS) 08/01/30
1700 D V_NTYP S LIKE(MNNTYP) 08/03/04
1800 D LIGN2 S LIKE(LIGN1) 08/02/28
1900 *--------------------------------------------------------------------------------------------- 08/01/30
2000 * KLIST DES FICHIERS 08/01/30
2100 *--------------------------------------------------------------------------------------------- 08/01/30
2200 C K_MN KLIST LADMMNUA 08/03/28
2300 C KFLD V_NTYP 08/03/04
2400 C KFLD V_NOPT 08/03/04
2500 *--------------------------------------------------------------------------------------------- 08/01/30
2600 * 08/01/30
2700 * 08/01/30
2800 *--------------------------------------------------------------------------------------------- 08/01/30
2900 * INIT DU PGM 08/01/30
3000 *--------------------------------------------------------------------------------------------- 08/01/30
3100 C MOVE *ALL'0' *IN 08/01/30
3200 *--------------------------------------------------------------------------------------------- 08/01/30
3300 *--------------------------------------------------------------------------------------------- 08/01/30
3400 * DEBUT PROPRAMME 08/02/27
3500 C DO *HIVAL 08/02/03
3600 C EXFMT SGSTS1 08/02/28
3700 C 03 GOTO T_FIN 08/02/27
3800 08/03/04
3900 C Z-ADD V_TYP V_NTYP 08/03/04
4000 08/03/04
4100 C V_KEY CASEQ F_AID $AID 08/02/27
4200 C V_NTYP CASEQ 2 $MAJ 08/03/04
4300 C V_NTYP CASEQ 3 $AFF 08/03/04
4400 C V_NTYP CASEQ 4 $LST 08/03/04
4500 C ENDCS 08/02/27
4600 C 03 GOTO T_FIN 08/02/28
4700 C ENDDO 08/02/03
4800 *--------------------------------------------------------------------------------------------- 08/02/27
4900 * FIN PROGRAMME 08/02/27
5000 *--------------------------------------------------------------------------------------------- 08/01/30
5100 C T_FIN TAG 08/02/27
5200 C SETON LR 08/02/27
5300 *--------------------------------------------------------------------------------------------- 08/02/28
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNUGNL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 * MAJ 08/02/28
5500 *--------------------------------------------------------------------------------------------- 08/02/28
5600 C $MAJ BEGSR 08/02/28
5700 C* V_USER CABEQ 'ADMOPS' T_ERR 40 08/03/06
5800 C V_USER CABEQ 'OTHER' T_ERR 40 08/03/06
5900 C EVAL V_TYPMNU = '*MISE A JOUR*' 08/02/28
6000 C EXSR $SFL 08/02/28
6100 C DO *HIVAL 08/02/28
6200 * 08/02/28
6300 * TEST DROIT ACCES 08/02/29
6400 C C V_USER CHAIN ADMUSRF1 33 08/02/28
6500 C EVAL *IN40 = V_USER <> 'ADMOPS' OR *IN33 08/03/13
6600 C 40 LEAVESR 08/03/04
6700 * 08/02/28
6800 C WRITE SGSTI1 08/02/28
6900 C EXFMT SGSTC1 08/02/28
7000 C 03 LEAVESR 08/02/29
7100 C 12 LEAVESR 08/02/29
7200 * 08/02/28
7300 C Z-ADD V_NOPT MNNOPT 08/03/05
7400 C C K_MN CHAIN ADMMNUF1 33 08/03/04
7500 C EVAL *IN41 =*IN33 OR MNSHS > *ZEROS 08/03/04
7600 C 41 ITER 08/03/04
7700 * APPEL DU PGM 08/02/29
7800 C SELECT 08/03/04
7900 C WHEN MNOOBJ = 'XADMENV' 08/03/04
8000 C CALLB 'XADMENV' 33 08/03/04
8100 C WHEN MNOOBJ = 'XADMGRP' 08/03/04
8200 C CALLB 'XADMGRP' 33 08/03/04
8300 C WHEN MNOOBJ = 'XADMLIB' 08/03/04
8400 C CALLB 'XADMLIB' 33 08/03/04
8500 C WHEN MNOOBJ = 'XADMPRJ' 08/03/04
8600 C CALLB 'XADMPRJ' 33 08/03/04
8700 C WHEN MNOOBJ = 'XADMSOC' 08/03/04
8800 C CALLB 'XADMSOC' 33 08/03/04
8900 C WHEN MNOOBJ = 'XADMTYP' 08/03/04
9000 C CALLB 'XADMTYP' 33 08/03/04
9100 C WHEN MNOOBJ = 'XADMMNU' 08/03/04
9200 C CALLB 'XADMMNU' 33 08/03/04
9300 C EXSR $SFL 08/03/04
9400 C WHEN MNOOBJ = 'XADMUSR' 08/03/04
9500 C CALLB 'XADMUSR' 33 08/03/04
9600 C ENDSL 08/03/04
9700 * 08/02/29
9800 C ENDDO 08/02/28
9900 C T_ERR ENDSR 08/03/06
10000 *--------------------------------------------------------------------------------------------- 08/02/28
10100 * AFF 08/02/28
10200 *--------------------------------------------------------------------------------------------- 08/02/28
10300 C $AFF BEGSR 08/02/28
10400 C EVAL V_TYPMNU = 'VISUALISATION' 08/02/28
10500 C EXSR $SFL 08/02/28
10600 C DO *HIVAL 08/02/28
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNUGNL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 * 08/02/28
10800 C WRITE SGSTI1 08/02/28
10900 C EXFMT SGSTC1 08/02/28
11000 C 03 LEAVESR 08/02/28
11100 C 12 LEAVESR 08/02/28
11200 * 08/02/28
11300 C Z-ADD V_NOPT MNNOPT 08/03/05
11400 C C K_MN CHAIN ADMMNUF1 33 08/03/20
11500 C EVAL *IN41 =*IN33 OR MNSHS > *ZEROS 08/03/04
11600 C 41 ITER 08/03/04
11700 * APPEL DU PGM 08/02/29
11800 C CALL MNOOBJ 33 08/02/29
11900 * 08/02/29
12000 C ENDDO 08/02/28
12100 C ENDSR 08/02/28
12200 *--------------------------------------------------------------------------------------------- 08/02/28
12300 * LST 08/02/28
12400 *--------------------------------------------------------------------------------------------- 08/02/28
12500 C $LST BEGSR 08/02/28
12600 C EVAL V_TYPMNU = '****LISTE****' 08/02/28
12700 C EXSR $SFL 08/02/28
12800 C DO *HIVAL 08/02/28
12900 * 08/02/28
13000 C WRITE SGSTI1 08/02/28
13100 C EXFMT SGSTC1 08/02/28
13200 C 03 LEAVESR 08/02/29
13300 C 12 LEAVESR 08/02/29
13400 * 08/02/28
13500 C Z-ADD V_NOPT MNNOPT 08/03/05
13600 C C K_MN CHAIN ADMMNUF1 33 08/03/20
13700 C EVAL *IN41 =*IN33 OR MNSHS > *ZEROS 08/03/04
13800 C 41 ITER 08/03/04
13900 * 08/02/29
14000 * APPEL DU PGM 08/02/29
14100 C CALL MNOOBJ 33 08/02/29
14200 C ENDDO 08/02/28
14300 C ENDSR 08/02/28
14400 *--------------------------------------------------------------------------------------------- 08/02/27
14500 * SOUS ROUTINE $SFL 08/02/27
14600 *--------------------------------------------------------------------------------------------- 08/02/27
14700 C $SFL BEGSR 08/02/27
14800 *----- 08/02/27
14900 C SETOFF 9195 08/02/27
15000 C SETON 96 08/02/27
15100 C WRITE SGSTC1 08/02/28
15200 C SETOFF 9655 08/03/04
15300 *--------------------------------------------------------------------------------------------- 08/02/27
15400 C *LOVAL SETLL ADMMNUF1 08/02/27
15500 C V_NTYP SETLL ADMMNUF1 08/03/04
15600 08/02/27
15700 C DO *HIVAL LIGN1 4 0 08/02/27
15800 C V_NTYP READE ADMMNUF1 95 *95 =EOF & SFLEND 08/03/04
15900 C 95 LEAVE 08/02/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMMNUGNL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C WRITE SGSTE1 08/02/28
16100 *- 08/02/27
16200 C V_NOPT IFEQ MNNOPT 08/03/04
16300 C Z-ADD LIGN1 LIGN2 55 08/03/04
16400 C ENDIF 08/02/27
16500 *- 08/02/27
16600 C SETON 91 08/02/27
16700 C ENDDO 08/02/27
16800 C Z-ADD 1 LIGN1 08/03/04
16900 C 55 Z-ADD LIGN2 LIGN1 08/03/04
17000 C Z-ADD *ZEROS V_NOPT 08/03/04
17100 *----- 08/02/27
17200 C ENDSR 08/02/27
17300 *--------------------------------------------------------------------------------------------- 08/01/30
17400 * INCLUDE 08/01/30
17500 *--------------------------------------------------------------------------------------------- 08/01/30
17600 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
17700 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FFADMOPT UF A E K DISK USROPN 08/03/21
300 08/02/21
400 FSADMOPT CF E WORKSTN INFDS(V_DSPF) 08/02/21
500 F SFILE(SOPTE01:LIGN1) 08/02/22
600 * 08/02/21
700 *--------------------------------------------------------------------------------------------- 08/02/21
800 * UDS 08/02/21
900 *--------------------------------------------------------------------------------------------- 08/02/21
1000 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1100 *--------------------------------------------------------------------------------------------- 08/02/28
1200 D V_DUP S LIKE(OPXOPT) 08/03/04
1300 D LIGN2 S LIKE(LIGN1) 08/03/04
1400 08/02/26
1500 D P_CDE S 850 INZ 08/02/27
1600 D P_CDE_LEN S 15 5 INZ(%SIZE(P_CDE)) 08/02/27
1700 08/02/29
1800 D V_CDE S 850 INZ 08/03/04
1900 D V_PA1 S 1 INZ('&') 08/03/04
2000 D V_PA2 S 1 INZ('£') 08/03/25
2100 08/03/04
2200 D TROUVE S LIKE(*IN) 08/02/29
2300 *--------------------------------------------------------------------------------------------- 08/02/28
2400 C K_OPT KLIST 08/02/26
2500 C KFLD V_OPT 08/02/26
2600 *--------------------------------------------------------------------------------------------- 08/02/26
2700 * INIT DU PGM 08/02/21
2800 *--------------------------------------------------------------------------------------------- 08/02/21
2900 08/02/27
3000 * RECHERCHE SI FICHIER EXISTE 08/02/28
3100 C CALLB 'MADMOBJCHK' 08/02/28
3200 C PARM 'ADMOPS' P_LIB 10 08/02/28
3300 C PARM 'FADMOPT' P_OBJ 10 08/02/28
3400 C PARM '*FILE' P_TYPE 10 08/02/28
3500 C PARM V_USER P_MBR 10 08/02/28
3600 C PARM TROUVE 08/02/28
3700 C EVAL *IN32 = TROUVE = *OFF 08/03/03
3800 C EVAL V_FCH = 'FADMOPT' 08/03/04
3900 C EVAL V_LIB = 'ADMOPS' 08/03/04
4000 C EVAL V_MBR = V_USER 08/03/04
4100 * 08/02/28
4200 C 32 DO 08/02/29
4300 C EXFMT SOPTI00 08/02/29
4400 C GOTO T_FIN 08/02/29
4500 C ENDDO 08/02/29
4600 * OVRDBF 08/03/03
4700 C EVAL P_CDE = 'OVRDBF FILE(FADMOPT) '+ 08/03/03
4800 C 'MBR(' + V_USER + ')' 08/03/03
4900 C CALL 'QCMDEXC' 66 08/03/03
5000 C PARM P_CDE 08/03/03
5100 C PARM P_CDE_LEN 08/03/03
5200 * 08/02/28
5300 C OPEN FADMOPT 08/02/28
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EXSR $SFL 08/03/03
5500 *--------------------------------------------------------------------------------------------- 08/02/21
5600 * DEBUT PROGRAMME 08/02/21
5700 *--------------------------------------------------------------------------------------------- 08/02/21
5800 C DO *HIVAL 08/02/21
5900 C WRITE SOPTI01 08/02/21
6000 C EXFMT SOPTC01 08/02/22
6100 C 03 LEAVE 08/02/21
6200 *----- AIDE EN LIGNE 08/03/14
6300 C V_KEY CASEQ F_AID $AID 08/04/10
6400 C V_KEY CASEQ F_ENT $ENT 08/04/10
6500 C *IN09 CASEQ *ON $ADD 08/04/10
6600 C CAS $SFL 08/04/10
6700 C ENDCS 08/04/10
6800 08/02/21
6900 C ENDDO 08/03/03
7000 08/03/03
7100 *--------------------------------------------------------------------------------------------- 08/02/21
7200 * FIN PROGRAMME 08/02/21
7300 *--------------------------------------------------------------------------------------------- 08/02/21
7400 C T_FIN TAG 08/02/21
7500 C EVAL P_CDE = 'DLTOVR FILE(FADMOPT) ' 08/03/03
7600 C CALL 'QCMDEXC' 66 08/03/03
7700 C PARM P_CDE 08/03/03
7800 C PARM P_CDE_LEN 08/03/03
7900 08/03/03
8000 C CLOSE FADMOPT 08/02/27
8100 C SETON LR 08/02/21
8200 ********************************************************************************************** 08/02/21
8300 *--------------------------------------------------------------------------------------------- 08/02/21
8400 * INCLUDE 08/02/21
8500 *--------------------------------------------------------------------------------------------- 08/02/21
8600 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
8700 *--------------------------------------------------------------------------------------------- 08/02/21
8800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/21
8900 * SFL 08/02/21
9000 *--------------------------------------------------------------------------------------------- 08/02/21
9100 C $SFL BEGSR 08/02/21
9200 *----- 08/02/21
9300 C SETOFF 9195 08/02/21
9400 C SETON 96 08/02/21
9500 C WRITE SOPTC01 08/02/21
9600 C SETOFF 96 08/02/21
9700 *--------------------------------------------------------------------------------------------- 08/02/21
9800 C *LOVAL SETLL FADMOPT 08/02/21
9900 *----- 08/02/21
10000 C MOVE *BLANK V_CHX 08/03/04
10100 C Z-ADD *ZEROS LIGN1 08/02/21
10200 C DO *HIVAL 08/03/04
10300 C READ(N) ADMOPTF1 95 IND MORE 08/02/22
10400 C 95 LEAVESR 08/02/21
10500 *- 08/02/21
10600 C ADD 1 LIGN1 08/02/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C MOVEL OPXCMD V_XCMD 08/02/26
10800 C WRITE SOPTE01 08/02/21
10900 *- 08/02/21
11000 C V_OPT IFEQ OPXOPT 08/03/04
11100 C Z-ADD LIGN1 LIGN2 08/03/04
11200 C ENDIF 08/03/04
11300 C SETON 91 08/02/21
11400 C ENDDO 08/02/21
11500 *---- 08/02/21
11600 C 91 Z-ADD LIGN2 LIGN2 08/03/04
11700 C ENDSR 08/02/21
11800 *--------------------------------------------------------------------------------------------- 08/02/21
11900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/21
12000 * ENTREE 08/02/21
12100 *--------------------------------------------------------------------------------------------- 08/02/21
12200 C $ENT BEGSR 08/02/21
12300 *---- 08/02/21
12400 C 91 READC SOPTE01 3333 08/02/22
12500 C IF NOT *IN33 08/02/22
12600 C EVAL V_OPT = OPXOPT 08/03/04
12700 08/02/22
12800 C SELECT 08/02/22
12900 C WHEN V_CHX = 2 MODIF SOPTV02 08/03/04
13000 C K_OPT CHAIN ADMOPTF1 2726 08/03/04
13100 C 26 LEAVESR 08/03/04
13200 C 27 LEAVESR 08/03/04
13300 C EXSR $MOD 08/02/22
13400 *- 08/02/26
13500 C WHEN V_CHX = 3 COPIE SOPTV03 08/03/04
13600 C EVAL V_DUP = OPXOPT 08/03/04
13700 C V_DUP CHAIN(N) ADMOPTF1 27 08/03/04
13800 C EVAL V_CMDT = OPXCMD 08/03/04
13900 C 27 LEAVESR 08/03/04
14000 C EXSR $DUP 08/03/04
14100 *- 08/02/26
14200 C WHEN V_CHX = 4 SUPPRESS SOPTV99 08/03/04
14300 C K_OPT CHAIN ADMOPTF1 2726 08/03/04
14400 C 26 LEAVESR 08/03/04
14500 C 27 LEAVESR 08/03/04
14600 C EXSR $SUP 08/02/22
14700 *- 08/02/26
14800 C WHEN V_CHX = 5 VISUE SOPTV05 08/03/04
14900 C K_OPT CHAIN(N) ADMOPTF1 27 08/03/04
15000 C 27 LEAVESR 08/03/04
15100 C EXSR $VIS 08/02/22
15200 08/02/22
15300 C ENDSL 08/02/22
15400 08/02/22
15500 C ENDIF 08/02/22
15600 08/02/22
15700 *---- 08/02/26
15800 C ENDSR 08/02/21
15900 *--------------------------------------------------------------------------------------------- 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/26
16100 * CREATION (F9) 08/02/26
16200 *--------------------------------------------------------------------------------------------- 08/02/26
16300 C $ADD BEGSR 08/04/10
16400 *---- 08/02/26
16500 C DO *HIVAL 08/02/26
16600 C EVAL V_OPT = *BLANK 08/03/04
16700 C EVAL V_CMDT = *BLANK 08/03/04
16800 C T_AFFCR TAG 08/03/04
16900 C EXFMT SOPTV09 08/02/26
17000 C SETOFF 43 08/03/04
17100 C 12 LEAVESR 08/02/26
17200 08/02/26
17300 *----- TEST EXISTE OUI ERR 08/02/26
17400 C K_OPT CHAIN ADMOPTF1 3366 08/03/04
17500 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 *EXISTE DEJA 08/03/04
17600 C 25 ITER 08/03/04
17700 C EVAL *IN26 = *IN66 *OCCUPE 08/03/04
17800 C 26 ITER 08/03/04
17900 * TEST KEY *BLANK 08/02/26
18000 C EVAL *IN41 = (V_OPT = *BLANK) 08/02/26
18100 C 41 ITER 08/02/26
18200 * TEST CMDE *BLANK 08/02/26
18300 C EVAL *IN42 = (V_CMDT = *BLANK) 08/03/03
18400 C 42 ITER 08/02/26
18500 * TEST CMDE VALIDE 08/03/10
18600 C EXSR $CTL 08/03/07
18700 C EVAL *IN43 = *IN66 08/03/07
18800 C 43 GOTO T_AFFCR 08/03/07
18900 *- 08/03/07
19000 *----- VALIDATION 08/02/26
19100 C WRITE SOPTV09 08/03/25
19200 C MOVE NON V_CONF 08/02/26
19300 C EXFMT SOPTV99 08/02/26
19400 C EVAL *IN66 = (V_CONF = NON ) 08/02/26
19500 C 66 GOTO T_AFFCR 08/03/05
19600 *- 08/02/26
19700 C EVAL OPXOPT = V_OPT 08/02/26
19800 C EVAL OPXCMD = V_CMDT 08/03/04
19900 C WRITE ADMOPTF1 66 08/02/26
20000 C LEAVE 08/03/03
20100 C ENDDO 08/02/26
20200 *----- 08/02/26
20300 C EXSR $SFL 08/02/26
20400 C LEAVESR 08/02/26
20500 08/02/26
20600 C ENDSR 08/02/26
20700 *--------------------------------------------------------------------------------------------- 08/02/22
20800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/22
20900 * MODIFICATION (OPT 2) 08/02/26
21000 *--------------------------------------------------------------------------------------------- 08/02/22
21100 C $MOD BEGSR 08/02/22
21200 *---- 08/02/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C K_OPT CHAIN ADMOPTF1 3366 08/03/04
21400 C EVAL V_CMDT = OPXCMD 08/03/03
21500 C DO *HIVAL 08/02/26
21600 C T_AFFMD TAG 08/03/04
21700 C EXFMT SOPTV02 08/02/25
21800 C SETOFF 43 08/03/04
21900 C 12 LEAVESR 08/02/26
22000 08/02/26
22100 * TEST CMDE *BLANK 08/02/26
22200 C EVAL *IN42 = (V_CMDT = *BLANK) 08/03/03
22300 C 42 ITER 08/02/26
22400 * TEST CMDE VALIDE 08/03/10
22500 C EXSR $CTL 08/03/07
22600 C EVAL *IN43 = *IN66 08/03/07
22700 C 43 GOTO T_AFFMD 08/03/07
22800 08/02/26
22900 *----- VALIDATION 08/02/26
23000 C WRITE SOPTV02 08/03/25
23100 C MOVE NON V_CONF 08/02/26
23200 C EXFMT SOPTV99 08/02/26
23300 C EVAL *IN66 = (V_CONF = NON ) 08/02/26
23400 C 66 GOTO T_AFFMD 08/03/05
23500 *- 08/03/04
23600 C EVAL OPXCMD = V_CMDT 08/02/29
23700 C UPDATE ADMOPTF1 66 08/02/26
23800 C LEAVE 08/03/03
23900 C ENDDO 08/02/26
24000 *----- 08/02/26
24100 C EXSR $SFL 08/02/26
24200 08/02/26
24300 C ENDSR 08/02/22
24400 *--------------------------------------------------------------------------------------------- 08/02/22
24500 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/22
24600 * COPIE (OPT 3) 08/02/26
24700 *--------------------------------------------------------------------------------------------- 08/02/22
24800 C $DUP BEGSR 08/03/04
24900 *---- 08/02/22
25000 C DO *HIVAL 08/02/26
25100 C T_AFFDP TAG 08/03/04
25200 C EXFMT SOPTV03 08/02/25
25300 C SETOFF 43 08/03/04
25400 C 12 LEAVESR 08/02/26
25500 08/02/26
25600 *----- TEST EXISTE OUI ERR 08/02/26
25700 C K_OPT CHAIN ADMOPTF1 3366 08/02/26
25800 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 *EXISTE DEJA 08/03/04
25900 C 25 ITER 08/03/04
26000 C EVAL *IN26 = *IN66 *OCCUPE 08/03/04
26100 C 26 ITER 08/03/04
26200 * TEST KEY *BLANK 08/02/26
26300 C EVAL *IN41 = (V_OPT = *BLANK) 08/02/26
26400 C 41 ITER 08/02/26
26500 * TEST CMDE *BLANK 08/02/26
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C EVAL *IN42 = (V_CMDT = *BLANK) 08/03/03
26700 C 42 ITER 08/02/26
26800 * TEST CMDE VALIDE 08/03/10
26900 C EXSR $CTL 08/03/07
27000 C EVAL *IN43 = *IN66 08/03/25
27100 C 43 GOTO T_AFFDP 08/03/25
27200 08/02/26
27300 *----- VALIDATION 08/02/26
27400 C WRITE SOPTV03 08/03/25
27500 C MOVE NON V_CONF 08/02/26
27600 C 08/03/04
27700 C SETOFF 66 08/03/04
27800 C EXFMT SOPTV99 08/02/26
27900 C EVAL *IN66 = (V_CONF = NON ) 08/02/26
28000 C 66 GOTO T_AFFDP 08/03/05
28100 *- 08/03/04
28200 C EVAL OPXOPT = V_OPT 08/02/26
28300 C EVAL OPXCMD = V_CMDT 08/02/29
28400 C WRITE ADMOPTF1 66 08/02/26
28500 08/02/26
28600 C LEAVE 08/03/03
28700 C ENDDO 08/02/26
28800 *----- 08/02/26
28900 C EXSR $SFL 08/02/26
29000 08/02/26
29100 C ENDSR 08/02/22
29200 *--------------------------------------------------------------------------------------------- 08/02/26
29300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/26
29400 * VISUE (OPT 5) 08/02/26
29500 *--------------------------------------------------------------------------------------------- 08/02/26
29600 C $VIS BEGSR 08/02/26
29700 *---- 08/02/26
29800 C K_OPT CHAIN ADMOPTF1 3333 08/02/26
29900 C EXFMT SOPTV05 08/02/26
30000 C ENDSR 08/02/26
30100 *--------------------------------------------------------------------------------------------- 08/02/22
30200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/22
30300 * SUPPRESSION (OPT 4) 08/02/26
30400 *--------------------------------------------------------------------------------------------- 08/02/22
30500 C $SUP BEGSR 08/02/22
30600 *---- 08/02/22
30700 C K_OPT CHAIN ADMOPTF1 3333 08/03/04
30800 *- 08/02/25
30900 *----- VALIDATION 08/02/25
31000 C MOVE NON V_CONF 08/02/25
31100 C EXFMT SOPTV99 08/02/25
31200 C EVAL *IN66 = (V_CONF = NON ) 08/02/25
31300 C 66 LEAVESR 08/02/25
31400 *- 08/02/25
31500 *----- 08/02/26
31600 C DELETE ADMOPTF1 66 08/02/25
31700 *----- 08/02/25
31800 C EXSR $SFL 08/02/25
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMOPT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C SETOFF 50 08/02/26
32000 *----- 08/03/04
32100 C ENDSR 08/03/04
32200 *--------------------------------------------------------------------------------------------- 08/03/04
32300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/04
32400 * CONTROLE COMMANDE 08/03/04
32500 *--------------------------------------------------------------------------------------------- 08/03/04
32600 C $CTL BEGSR 08/03/04
32700 *---- 08/03/04
32800 * RECHERCHE REMPLACEMEBNT PARAMETRES 08/03/04
32900 C EVAL V_CDE ='?'+ V_CMDT 08/03/25
33000 08/03/04
33100 C V_PA1:V_PA2 XLATE V_CDE P_CDE 08/03/04
33200 08/03/04
33300 C EVAL P_CDE_LEN = %SIZE(P_CDE) 08/03/25
33400 C CALL 'QCMDCHK' 33 08/03/25
33500 C PARM P_CDE 08/03/04
33600 C PARM P_CDE_LEN 08/03/04
33700 C '?' SCAN P_CDE:1 66 08/03/25
33800 C N66V_PA2:V_PA1 XLATE P_CDE V_CMDT 08/03/25
33900 *----- 08/03/25
34000 C ENDSR 08/03/04
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMOBJ IF A E K DISK 08/03/04
600 FFADMTYP IF E K DISK 08/03/04
700 FFADMPRJ IF E K DISK 08/03/05
800 FLADMOBJA IF E K DISK RENAME(ADMOBJF1: ADMOBJFA) 08/03/05
900 F PREFIX(XX : 2) 08/03/05
1000 FSADMPF6 CF E WORKSTN INFDS(V_DSPF) 08/03/04
1100 *--------------------------------------------------------------------------------------------- 08/03/05
1200 * 08/03/31
1300 08/03/05
1400 D WOBJ DS 08/03/05
1500 D OBJ 1 DIM(%SIZE(OBOOBJ)) 08/03/05
1600 D OBOOBJ 1 10 08/03/05
1700 D WTXT DS 08/03/05
1800 D TXT 1 DIM(%SIZE(OBTXTP)) 08/03/05
1900 D OBTXTP 1 50 08/03/05
2000 *--------------------------------------------------------------------------------------------- 08/01/30
2100 * UDS 08/01/30
2200 *--------------------------------------------------------------------------------------------- 08/01/30
2300 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
2400 D I S 4S 0 INZ(*ZEROS) 08/01/30
2500 D N S 4S 0 INZ(*ZEROS) 08/03/05
2600 D V_SCAN S 2 0 SCAN ESPACE 08/02/26
2700 *--------------------------------------------------------------------------------------------- 08/01/30
2800 D P_SOC S LIKE(OBSOC) 08/03/04
2900 D P_PRJ S LIKE(OBPRJ) 08/03/04
3000 D P_LIB S LIKE(OBOLIB) 08/03/04
3100 D P_OBJ S LIKE(OBOOBJ) 08/03/04
3200 D P_MBR S LIKE(OBOOBJ) 08/03/05
3300 D P_TYP S LIKE(OBOTYP) 08/03/04
3400 D P_IN03 S LIKE(*IN) 08/03/04
3500 D TROUVE S LIKE(*IN) 08/03/05
3600 * 08/01/30
3700 D P_OTYP S LIKE(OBOTYP) 08/03/04
3800 D P_OATR S LIKE(OBOATR) 08/03/05
3900 D P_OYNS S LIKE(OBOYNS) 08/03/04
4000 D P_OYNO S LIKE(OBOYNO) 08/03/04
4100 D P_OFCH S LIKE(OBOFCH) 08/03/04
4200 08/03/04
4300 D P_TEXT S LIKE(OBTXTU) 08/03/05
4400 D P_DATE S LIKE(OBDCTL) 08/03/05
4500 D V_DAT6 S 6A 08/03/05
4600 D V_DATE S 8S 0 08/03/05
4700 *--------------------------------------------------------------------------------------------- 08/03/05
4800 D CMD S 512 INZ(*BLANK) 08/03/05
4900 D P_CMD S 3200 INZ(*BLANK) 08/03/05
5000 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/03/05
5100 *--------------------------------------------------------------------------------------------- 08/03/05
5200 *--------------------------------------------------------------------------------------------- 08/01/30
5300 * KLIST DES FICHIERS 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *--------------------------------------------------------------------------------------------- 08/01/30
5500 C K_PR KLIST 08/03/05
5600 C KFLD P_SOC 08/03/05
5700 C KFLD P_PRJ 08/03/05
5800 * 08/03/05
5900 C K_OB KLIST FADMMNU 08/03/04
6000 C KFLD PRSOC SOCIETE 08/03/07
6100 C KFLD OBOOBJ OBJET 08/03/07
6200 C KFLD OBOTYP TYPE 08/03/07
6300 * 08/01/30
6400 C K_TY KLIST *FADMTYP 08/03/04
6500 C KFLD OBOTYP *OBJ TYPE 08/03/04
6600 C KFLD OBOATR *ATTR TYPE 08/03/04
6700 C KFLD OBOFCH *FCH SRC 08/03/04
6800 C KFLD OBOYNS *SRC Y/N 08/03/04
6900 C KFLD OBOYNO *OBJ Y/N 08/03/04
7000 * 08/03/04
7100 *--------------------------------------------------------------------------------------------- 08/01/30
7200 C *ENTRY PLIST 08/03/04
7300 C PARM P_SOC 08/03/04
7400 C PARM P_PRJ 08/03/04
7500 08/03/04
7600 C K_PR CHAIN ADMPRJF1 33 08/03/05
7700 C 33 GOTO T_FIN 08/03/05
7800 * 08/01/30
7900 *--------------------------------------------------------------------------------------------- 08/01/30
8000 * INIT DU PGM 08/01/30
8100 *--------------------------------------------------------------------------------------------- 08/01/30
8200 C MOVE *ALL'0' *IN 08/01/30
8300 *--------------------------------------------------------------------------------------------- 08/01/30
8400 C MOVE P_SOC OBSOC 08/03/04
8500 C MOVE P_PRJ OBPRJ 08/03/04
8600 C MOVE PRLIBP OBOLIB 08/03/05
8700 C MOVE V_USER OBUSR 08/03/04
8800 *--------------------------------------------------------------------------------------------- 08/01/30
8900 * DEBUT PROGRAMME 08/01/30
9000 *--------------------------------------------------------------------------------------------- 08/01/30
9100 C DO *HIVAL 08/01/30
9200 C EXFMT SPF6S1 08/03/04
9300 C 03 LEAVE 08/01/30
9400 * 08/02/29
9500 C 08/03/05
9600 08/02/29
9700 C V_KEY CASEQ F_AID $AID 08/03/04
9800 C *IN04 CASEQ *ON $HLP_01 08/03/04
9900 C *IN09 CASEQ *ON $ADD 08/03/05
10000 C ENDCS 08/01/30
10100 C 88 LEAVE 08/03/05
10200 *----------------------------------------------* 08/01/30
10300 C ENDDO 08/03/05
10400 *--------------------------------------------------------------------------------------------- 08/01/30
10500 *--------------------------------------------------------------------------------------------- 08/01/30
10600 * FIN PROGRAMME 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 *--------------------------------------------------------------------------------------------- 08/01/30
10800 C T_FIN TAG 08/03/05
10900 C SETON LR 08/01/30
11000 ********************************************************************************************** 08/01/30
11100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
11200 * AJOUT RECORD 08/03/04
11300 *--------------------------------------------------------------------------------------------- 08/03/04
11400 *----- 08/03/04
11500 C $ADD BEGSR 08/03/04
11600 C SETOFF 48 OBKCHK *YES 08/03/05
11700 C SETOFF 44 CHG TEXT 08/03/05
11800 C SETOFF 42 CHG NAME OBJECT 08/03/05
11900 C K_OB CHAIN ADMOBJFA 33 08/03/05
12000 C EVAL *IN25 = NOT *IN33 08/03/05
12100 C 25 LEAVESR 08/03/05
12200 C K_TY CHAIN ADMTYPF1 40 08/03/05
12300 C N40 EVAL *IN40 = (TYSHS > *ZEROS) 08/03/05
12400 C 40 LEAVESR 08/03/05
12500 C CALLB 'MADMOBJCHK' 08/03/05
12600 C PARM PRLIBD P_LIB 08/03/05
12700 C PARM OBOFCH P_OBJ 08/03/05
12800 C PARM '*FILE' P_TYP 08/03/05
12900 C PARM OBOOBJ P_MBR 08/03/05
13000 C PARM TROUVE 08/03/05
13100 08/03/05
13200 C IF TROUVE = *ON 08/03/05
13300 C SETON 48 08/03/05
13400 08/03/05
13500 C CALLB 'MADMREFMBR' 08/03/05
13600 C PARM PRLIBD P_LIB 08/03/05
13700 C PARM OBOFCH P_OBJ 08/03/05
13800 C PARM OBOOBJ P_MBR 08/03/05
13900 C PARM P_TEXT 08/03/05
14000 C PARM P_DATE 08/03/05
14100 C MOVE P_TEXT OBTXTP 08/03/05
14200 C ENDIF 08/03/05
14300 08/03/05
14400 *----------------------------------- 08/03/05
14500 * RECHERCHE CARACTERE VALIDE 08/03/05
14600 *----------------------------------- 08/03/05
14700 C EVAL OBOOBJ = %TRIM(OBOOBJ) 08/03/05
14800 C EVAL *IN41 = OBOOBJ = *BLANKS 08/03/31
14900 C 41 LEAVESR 08/03/31
15000 C EXSR $TSTMBR 08/03/31
15100 C 42 LEAVESR 08/03/31
15200 08/03/05
15300 08/03/05
15400 *----------------------------------- 08/03/05
15500 * RECHERCHE CARACTERE VALIDE TEXT 08/03/05
15600 *----------------------------------- 08/03/05
15700 C EVAL OBTXTP = %TRIM(OBTXTP) 08/03/31
15800 C EVAL *IN43 = OBTXTP = *BLANKS 08/03/31
15900 C 43 LEAVESR 08/03/31
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 08/03/05
16100 C CALLB 'MADMOBJCHK' 08/03/05
16200 C PARM PRLIBD P_LIB 08/03/05
16300 C PARM OBOFCH P_OBJ 08/03/05
16400 C PARM '*FILE' P_TYP 08/03/05
16500 C PARM '*NONE' P_MBR 08/03/05
16600 C PARM TROUVE 08/03/05
16700 C EVAL *IN45 = (TROUVE = *OFF) 08/04/07
16800 *----------------------------------- 08/03/05
16900 * BLDOPT MENBER OBLIGATOIRE SI PAS CMD DEFAULT & COMPILE OBJET ='Y' 08/03/05
17000 *----------------------------------- 08/03/05
17100 C EVAL *IN46 = OBOCMD =*BLANK AND TYOCMD = *BLANK 08/03/05
17200 C AND OBOYNO = 'Y' 08/03/05
17300 C 46 LEAVESR 08/03/05
17400 C EVAL *IN47 = OBOCMD <>TYOCMD AND 08/03/07
17500 C OBOCMD <>OBOOBJ 08/03/07
17600 C 47 LEAVESR 08/03/05
17700 08/03/05
17800 C MOVE *BLANK OBB 08/03/07
17900 C IF OBOCMD <> TYOCMD 08/03/07
18000 C CALLB 'MADMOBJCHK' 08/03/05
18100 C PARM PRLIBD P_LIB 08/03/05
18200 C PARM 'QBLDOPTSRC' P_OBJ 08/03/05
18300 C PARM '*FILE' P_TYP 08/03/05
18400 C PARM '*NONE' P_MBR 08/04/07
18500 C PARM TROUVE 08/03/05
18600 C EVAL *IN49 = (TROUVE = *OFF) 08/04/07
18700 C 49 LEAVESR 08/04/07
18800 08/03/05
18900 C MOVE 'B' OBB 08/03/05
19000 C ENDIF 08/03/05
19100 C MOVE 'D' OBD 08/03/05
19200 *- 08/03/04
19300 C 08/03/05
19400 *----- VALIDATION 08/03/04
19500 C WRITE SPF6S1 08/03/05
19600 C MOVE NON V_CONF 08/03/04
19700 C EXFMT SPF6V99 08/03/04
19800 C EVAL *IN66 = (V_CONF = NON ) 08/03/04
19900 C 66 LEAVESR 08/03/04
20000 C*----- INIT ZONE ENRG 08/03/04
20100 C MOVE 0 OBODOC DATE CREATION 08/04/30
20200 C MOVE *DATE OBODMC DATE CREATION SRC 08/03/05
20300 C MOVE *DATE OBODMJ DATE UPDATE SRC 08/03/05
20400 C MOVE *ALL'0' OBDATU DATE USAGE SRC 08/03/05
20500 C MOVE *ALL'0' OBDCTL DATE CONTROLE SRC 08/03/05
20600 C MOVE *BLANKS OBTXTU TEXT UPDATE SRC 08/03/05
20700 C Z-ADD 0 OBOPAG 08/04/30
20800 08/03/05
20900 * SOURCE OBLIGATOIRE 08/03/05
21000 C IF OBOYNS = 'Y' 08/03/05
21100 C EXSR $ADDMBR 08/03/05
21200 C ENDIF 08/03/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 * BLDOPT OBLIGATOIRE 08/03/05
21400 C IF OBB = 'B' 08/03/05
21500 C EXSR $ADDBLD 08/03/05
21600 C ENDIF 08/03/05
21700 08/03/05
21800 C IF OBOATR = 'PRTF' 08/04/30
21900 C Z-ADD 132 OBOPAG 08/04/30
22000 C ENDIF 08/04/30
22100 08/04/30
22200 C WRITE ADMOBJF1 66 08/03/04
22300 C SETON 88 08/03/05
22400 C ENDSR 08/03/04
22500 *============================================================================================= 08/03/04
22600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/31
22700 C $TSTMBR BEGSR 08/03/31
22800 C CALLB 'MADMOBJCHK' 08/03/31
22900 C PARM 'QTEMP' P_LIB 08/03/31
23000 C PARM OBOFCH P_OBJ 08/03/31
23100 C PARM '*FILE' P_TYP 08/03/31
23200 C PARM '*NONE' P_MBR 08/03/31
23300 C PARM TROUVE 08/03/31
23400 C IF TROUVE = *ON 08/03/31
23500 C EVAL CMD = 'DLTF FILE(QTEMP' + 08/03/31
23600 C '/'+%TRIM(OBOFCH) + 08/03/31
23700 C ')' 08/03/31
23800 C EXSR $CMD 08/03/31
23900 C ENDIF 08/03/31
24000 09/02/26
24100 08/03/31
24200 C EVAL CMD = 'CRTSRCPF FILE(QTEMP' + 08/03/31
24300 C '/'+%TRIM(OBOFCH) + 08/03/31
24400 C ')' 08/03/31
24500 C EXSR $CMD 08/03/31
24600 *ADDPFM FILE(PRLIBD/OBOFCH) MBR(OBOOBJ) TEXT(TEXT) SRCTYPE(OBOATR) 08/03/31
24700 C EVAL CMD = 'ADDPFM FILE(QTEMP' + 08/03/31
24800 C '/'+%TRIM(OBOFCH) + 08/03/31
24900 C ') MBR(' + %TRIM(OBOOBJ) +') ' + 08/03/31
25000 C ' SRCTYPE(' + %TRIM(OBOATR) + ')' 08/03/31
25100 C EXSR $CMD 08/03/31
25200 C IF OBOYNS ='Y' 09/02/26
25300 C 66 SETON 42 08/03/31
25400 C ENDIF 09/02/26
25500 08/03/31
25600 08/03/31
25700 09/02/26
25800 09/02/26
25900 C EVAL CMD = 'DLTF FILE(QTEMP' + 08/03/31
26000 C '/'+%TRIM(OBOFCH) + 08/03/31
26100 C ')' 08/03/31
26200 C EXSR $CMD 08/03/31
26300 C 08/03/31
26400 08/03/31
26500 C ENDSR 08/03/31
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/31
26700 C $ADDMBR BEGSR 08/03/05
26800 C CALLB 'MADMOBJCHK' 08/03/05
26900 C PARM PRLIBD P_LIB 08/03/05
27000 C PARM OBOFCH P_OBJ 08/03/05
27100 C PARM '*FILE' P_TYP 08/03/05
27200 C PARM OBOOBJ P_MBR 08/03/05
27300 C PARM TROUVE 08/03/05
27400 *ADDPFM FILE(PRLIBD/OBOFCH) MBR(OBOOBJ) TEXT(TEXT) SRCTYPE(OBOATR) 08/03/05
27500 C IF TROUVE = *OFF 08/03/05
27600 C EVAL CMD = 'ADDPFM FILE(' + 08/03/05
27700 C %TRIM(PRLIBD) +'/'+%TRIM(OBOFCH) + 08/03/05
27800 C ') MBR(' + %TRIM(OBOOBJ) +') ' + 08/03/05
27900 C ' SRCTYPE(' + %TRIM(OBOATR) + ')' 08/03/05
28000 C EXSR $CMD 08/03/05
28100 C ENDIF 08/03/05
28200 C 08/03/05
28300 C CALLB 'MADMCHGTXT' 08/03/31
28400 C PARM PRLIBD P_LIB 08/03/31
28500 C PARM OBOFCH P_OBJ 08/03/31
28600 C PARM OBOOBJ P_MBR 08/03/31
28700 C PARM OBTXTP P_TEXT 08/03/31
28800 08/03/31
28900 08/03/31
29000 C CALLB 'MADMREFMBR' 08/03/05
29100 C PARM PRLIBD P_LIB 08/03/05
29200 C PARM OBOFCH P_OBJ 08/03/05
29300 C PARM OBOOBJ P_MBR 08/03/05
29400 C PARM P_TEXT 08/03/05
29500 C PARM P_DATE 08/03/05
29600 C MOVE P_TEXT OBTXTU 08/03/05
29700 C IF OBDCTL <> P_DATE 08/03/05
29800 C EVAL V_DAT6 = %SUBST(P_DATE:2:6) 08/03/05
29900 C Z-ADD *ZEROS V_DATE 08/03/05
30000 C MOVE V_DAT6 V_DATE 08/03/05
30100 C IF '0' = %SUBST(P_DATE : 1 : 1) 08/03/05
30200 C ADD 19000000 V_DATE 08/03/05
30300 C ELSE 08/03/05
30400 C ADD 20000000 V_DATE 08/03/05
30500 C ENDIF 08/03/05
30600 C MOVE V_DATE OBDATU 08/03/05
30700 C ENDIF 08/03/05
30800 08/03/05
30900 C ENDSR 08/03/05
31000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/05
31100 C $ADDBLD BEGSR 08/03/05
31200 C CALLB 'MADMOBJCHK' 08/03/05
31300 C PARM PRLIBD P_LIB 08/03/05
31400 C PARM 'QBLDOPTSRC' P_OBJ 08/03/05
31500 C PARM '*FILE' P_TYP 08/03/05
31600 C PARM OBOOBJ P_MBR 08/03/05
31700 C PARM TROUVE 08/03/05
31800 C IF TROUVE = *ON 08/03/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C EVAL CMD = 'RMVM FILE(' + 08/03/07
32000 C %TRIM(PRLIBD) +'/QBLDOPTSRC' + 08/04/05
32100 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
32200 C EXSR $CMD 08/03/05
32300 C ENDIF 08/03/05
32400 C EVAL CMD = 'CPYSRCF FROMFILE(' + 08/03/05
32500 C 'ADMOPS/QBLDOPT)' + 08/03/05
32600 C ' TOFILE(' + 08/03/05
32700 C %TRIM(PRLIBD) +'/QBLDOPTSRC' + 08/04/05
32800 C ') FROMMBR(' + %TRIM(TYOCMD) + ')' + 08/04/05
32900 C ' TOMBR(' + %TRIM(OBOCMD) + ')' + 08/03/05
33000 C ' MBROPT(*ADD ) ' 08/03/05
33100 C EXSR $CMD 08/03/05
33200 08/03/05
33300 C ENDSR 08/03/05
33400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/05
33500 *--------------------------------------------------------------------------------------------- 08/03/04
33600 * TOUCHE F4 08/03/04
33700 *--------------------------------------------------------------------------------------------- 08/03/04
33800 * RECUPERATION SOCIETE 08/03/04
33900 C $HLP_01 BEGSR 08/03/04
34000 C Z-ADD V_ILIG V_LI 09/08/12
34100 C Z-ADD V_ICOL V_CO 09/08/12
34200 C C CALLB 'XADMTYPP' 33 08/03/04
34300 C PARM P_OTYP 08/03/04
34400 C PARM P_OATR 08/03/04
34500 C PARM P_OYNS 08/03/04
34600 C PARM P_OYNO 08/03/04
34700 C PARM P_OFCH 08/03/04
34800 C PARM P_IN03 08/03/04
34900 C IF P_IN03 = *OFF 08/03/05
35000 C MOVE P_OTYP OBOTYP 08/03/04
35100 C MOVE P_OATR OBOATR 08/03/04
35200 C MOVE P_OYNS OBOYNS 08/03/04
35300 C MOVE P_OYNO OBOYNO 08/03/04
35400 C MOVE P_OFCH OBOFCH 08/03/04
35500 C K_TY CHAIN ADMTYPF1 33 08/03/04
35600 C IF OBOCMD = *BLANKS 08/03/07
35700 C MOVE TYOCMD OBOCMD 08/03/07
35800 C ENDIF 08/03/04
35900 C ENDIF 08/03/07
36000 C 08/03/04
36100 C ENDSR 08/03/04
36200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/05
36300 *--------------------------------------------------------------------------------------------- 08/03/05
36400 CSR $CMD BEGSR 08/03/05
36500 C CALL 'QCMDEXC' 66 08/03/05
36600 C PARM CMD P_CMD 08/03/05
36700 C PARM P_CMD_LEN 08/03/05
36800 CSR ENDSR 08/03/05
36900 * 08/03/04
37000 *--------------------------------------------------------------------------------------------- 08/01/30
37100 * INCLUDE 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 8
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPF6
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
37200 *--------------------------------------------------------------------------------------------- 08/01/30
37300 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
37400 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/21
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMPRJ UF A E K DISK 08/03/04
600 FLADMPRJA IF E K DISK 08/02/03
700 FLADMPRJE IF E K DISK PREFIX(FE : 2) 08/04/03
800 FLADMPRJD IF E K DISK PREFIX(FD : 2) 08/04/03
900 FFADMGRP IF E K DISK 08/03/04
1000 FFADMSOC IF E K DISK 08/03/04
1100 FSADMPRJ CF E WORKSTN INFDS(V_DSPF) 08/02/03
1200 F SFILE(SPRJE1:LIGN1) 08/01/30
1300 * 08/01/30
1400 *--------------------------------------------------------------------------------------------- 08/01/30
1500 * UDS 08/01/30
1600 *--------------------------------------------------------------------------------------------- 08/01/30
1700 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1800 D I S 4S 0 INZ(*ZEROS) 08/01/30
1900 D S_GRP S LIKE(PRGRP) 08/01/30
2000 D S_SEQ S LIKE(PRSEQ) 08/01/30
2100 D S_PRJ S LIKE(PRPRJ) 08/01/30
2200 D V_SCAN S 2 0 SCAN ESPACE 08/02/15
2300 *--------------------------------------------------------------------------------------------- 08/01/30
2400 D TROUVE S LIKE(*IN) 08/02/21
2500 * 08/01/30
2600 D P_SOC S LIKE(PRSOC) 08/02/29
2700 D P_GRP S LIKE(PRGRP) 08/02/29
2800 D P_IN03 S LIKE(*IN ) 08/03/04
2900 *--------------------------------------------------------------------------------------------- 08/01/30
3000 * 08/01/30
3100 * 08/01/30
3200 *--------------------------------------------------------------------------------------------- 08/01/30
3300 * KLIST DES FICHIERS 08/01/30
3400 *--------------------------------------------------------------------------------------------- 08/01/30
3500 C K_PR KLIST FADMPRJ 08/02/03
3600 C KFLD SOSOC NOM SOCIETE 08/02/03
3700 C KFLD V_PRJ NOM DU PROJET 08/01/30
3800 * 08/01/30
3900 C K_GRP KLIST FADMGRP 08/02/11
4000 C KFLD SOSOC NOM SOCIETE 08/02/03
4100 C KFLD PRGRP NOM DU PROJET 08/02/03
4200 *--------------------------------------------------------------------------------------------- 08/01/30
4300 * 08/01/30
4400 * 08/01/30
4500 *--------------------------------------------------------------------------------------------- 08/01/30
4600 * INIT DU PGM 08/01/30
4700 *--------------------------------------------------------------------------------------------- 08/01/30
4800 C MOVE *ALL'0' *IN 08/01/30
4900 *--------------------------------------------------------------------------------------------- 08/01/30
5000 *--------------------------------------------------------------------------------------------- 08/01/30
5100 * DEBUT PROPRAMME (DEMANDE LA SOCIETE) 08/02/21
5200 C DO *HIVAL 08/02/03
5300 C EXFMT SPRJS1 08/02/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C 03 GOTO T_FIN 08/02/14
5500 C V_KEY CASEQ F_AID $AID 33 08/04/10
5600 C ENDCS 08/04/10
5700 C 33 ITER 08/04/10
5800 C 04 EXSR $HLP_01 08/02/22
5900 C SOSOC CHAIN ADMSOCF1 27 08/02/03
6000 C 27 ITER 08/02/03
6100 C EVAL *IN28 = NOT *IN27 AND SOSHS = 1 ENRG HS 08/02/03
6200 C 28 ITER 08/02/03
6300 C 10 LEAVE 08/02/03
6400 C ENDDO 08/02/03
6500 *--------------------------------------------------------------------------------------------- 08/01/30
6600 C EXSR $SFL 08/02/21
6700 C DO *HIVAL 08/01/30
6800 C WRITE SPRJI1 08/01/30
6900 C EXFMT SPRJC1 08/01/30
7000 C 03 LEAVE 08/01/30
7100 08/01/30
7200 C 91 READC SPRJE1 33 08/01/30
7300 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/01/30
7400 C MOVEL PRPRJ V_PRJ 08/01/30
7500 C MOVE *BLANK V_CHX 08/01/30
7600 C UPDATE SPRJE1 08/01/30
7700 C ITER 08/01/30
7800 C ENDIF 08/01/30
7900 08/01/30
8000 C V_KEY CASEQ F_AID $AID 08/01/30
8100 C *IN09 CASEQ *ON $ADD 08/01/30
8200 C *IN11 CASEQ *ON $MAJ 08/01/30
8300 C *IN23 CASEQ *ON $DLT 08/01/30
8400 C CAS $SFL 08/01/30
8500 C ENDCS 08/01/30
8600 *----------------------------------------------* 08/01/30
8700 C 03 LEAVE 08/01/30
8800 C ENDDO 08/01/30
8900 *--------------------------------------------------------------------------------------------- 08/01/30
9000 *--------------------------------------------------------------------------------------------- 08/01/30
9100 * FIN PROPRAMME 08/01/30
9200 *--------------------------------------------------------------------------------------------- 08/01/30
9300 C T_FIN TAG 08/02/14
9400 C SETON LR 08/01/30
9500 ********************************************************************************************** 08/01/30
9600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
9700 * SFL 08/01/30
9800 *--------------------------------------------------------------------------------------------- 08/01/30
9900 C $SFL BEGSR 08/01/30
10000 *---KEY ACCES SFL 08/01/30
10100 C K_SFL KLIST FADMPRJ 08/02/03
10200 C KFLD SOSOC 08/02/03
10300 C KFLD S_GRP 08/01/30
10400 C KFLD S_SEQ 08/01/30
10500 C KFLD S_PRJ 08/01/30
10600 *----- 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C SETOFF 9195 08/01/30
10800 C SETON 96 08/01/30
10900 C WRITE SPRJC1 08/01/30
11000 C SETOFF 96 08/01/30
11100 C MOVE *BLANK V_CHX 08/01/30
11200 *--------------------------------------------------------------------------------------------- 08/01/30
11300 C SELECT 08/01/30
11400 C WHEN V_KEY = F_PGA 08/01/30
11500 C *LOVAL SETLL LADMPRJA 08/02/03
11600 C K_SFL SETLL LADMPRJA 08/02/03
11700 C DO 17 08/03/18
11800 C SOSOC READPE ADMPRJFA 33 08/02/03
11900 C 33 LEAVE 08/01/30
12000 C MOVE PRGRP S_GRP 08/01/30
12100 C MOVE PRSEQ S_SEQ 08/01/30
12200 C MOVE PRPRJ S_PRJ 08/01/30
12300 C ENDDO 08/01/30
12400 *- 08/01/30
12500 C WHEN V_KEY = F_PGB 08/01/30
12600 C MOVE PRGRP S_GRP 08/02/21
12700 C MOVE PRSEQ S_SEQ 08/02/21
12800 C MOVE PRPRJ S_PRJ 08/02/21
12900 *- 08/01/30
13000 C OTHER 08/01/30
13100 C K_PR CHAIN(N) ADMPRJF1 33 08/02/03
13200 C IF NOT *IN33 08/01/30
13300 C MOVE PRGRP S_GRP 08/01/30
13400 C MOVE PRSEQ S_SEQ 08/01/30
13500 C MOVE V_PRJ S_PRJ 08/01/30
13600 C ELSE 08/02/03
13700 C MOVE *BLANKS S_GRP 08/01/30
13800 C MOVE *BLANKS S_SEQ 08/01/30
13900 C MOVE *BLANKS S_PRJ 08/01/30
14000 C ENDIF 08/01/30
14100 C ENDSL 08/01/30
14200 *--------------------------------------------------------------------------------------------- 08/01/30
14300 C *LOVAL SETLL LADMPRJA 08/02/03
14400 C K_SFL SETLL LADMPRJA 08/02/03
14500 08/02/03
14600 C DO 18 LIGN1 4 0 08/02/22
14700 C SOSOC READE ADMPRJFA 95 IND MORE 08/02/03
14800 C 95 LEAVE 08/02/03
14900 C WRITE SPRJE1 08/01/30
15000 *- 08/01/30
15100 C LIGN1 IFEQ 1 08/02/21
15200 C MOVE PRGRP S_GRP 08/01/30
15300 C MOVE PRSEQ S_SEQ 08/01/30
15400 C MOVE PRPRJ S_PRJ 08/01/30
15500 C ENDIF 08/01/30
15600 *- 08/01/30
15700 C SETON 91 08/01/30
15800 C ENDDO 08/01/30
15900 C Z-ADD 1 LIGN1 08/02/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 *----- 08/01/30
16100 C ENDSR 08/01/30
16200 ***************************************************************** 08/01/30
16300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
16400 * AJOUT RECORD 08/01/30
16500 *--------------------------------------------------------------------------------------------- 08/01/30
16600 *----- 08/01/30
16700 C $ADD BEGSR 08/01/30
16800 *----- TEST EXISTE OUI ERR 08/01/30
16900 C K_PR CHAIN ADMPRJF1 3366 FADMPRJ 08/02/03
17000 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 EXISTE DEJA 08/01/30
17100 C 25 LEAVESR 08/01/30
17200 C EVAL *IN26 = *IN66 OCCUPE 08/01/30
17300 C 26 LEAVESR 08/01/30
17400 *----- TEST SI IL A DES ESPACE --> OUI ERR 08/02/15
17500 C EVAL V_SCAN = %SCAN(' ':%TRIM(V_PRJ)) 08/02/15
17600 C C V_SCAN IFNE 0 08/02/15
17700 C C EVAL *IN29 = *ON 08/02/15
17800 C ENDIF 08/02/15
17900 C 29 LEAVESR 08/02/15
18000 * TEST KEY *BLANK 08/01/30
18100 C EVAL *IN33 = (V_PRJ = *BLANK) 08/01/30
18200 C 33 LEAVESR 08/01/30
18300 *- 08/01/30
18400 * TRAITEMENT ECRAN N° 1 08/01/30
18500 *- 08/01/30
18600 C CLEAR ADMPRJF1 08/02/03
18700 C SETON 50 IND PROTEC KEY FMT 08/01/30
18800 C EVAL PRLIBU = 'LIB.URG' 08/04/05
18900 C EVAL PRLIBQ = 'LIB.QUA' 08/04/05
19000 C EVAL PRLIBD = 'LIB.DVP' 08/04/05
19100 C DO *HIVAL 08/01/30
19200 C WRITE SPRJI1 08/02/11
19300 C EXFMT SPRJC1 08/01/30
19400 C SELECT 08/01/30
19500 C WHEN *IN03 OR *IN12 08/01/30
19600 C SETOFF 50 08/01/30
19700 C LEAVESR 08/01/30
19800 *----- HELP 08/02/29
19900 C WHEN *IN04 08/02/29
20000 C EXSR $HLP_02 08/02/29
20100 *----- AIDE EN LIGNE 08/01/30
20200 C WHEN V_KEY = F_AID 08/01/30
20300 C EXSR $AID 08/01/30
20400 *----- TRAITEMENT 08/01/30
20500 C WHEN V_KEY = F_ENT 08/01/30
20600 *----- RECHERCHE SI ERR 08/01/30
20700 C EXSR $EC01 08/02/14
20800 C 39 DO 49 I 08/04/05
20900 C EVAL *IN66 = *IN(I) 08/01/30
21000 C N66 ENDDO 08/01/30
21100 C 66 ITER 08/01/30
21200 C 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 *----- VALIDATION 08/01/30
21400 C WRITE SPRJC1 08/01/30
21500 C MOVE NON V_CONF 08/01/30
21600 C EXFMT SPRJV99 08/01/30
21700 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
21800 C 66 ITER 08/01/30
21900 *- 08/01/30
22000 *----- ENREGISTREMENT 08/01/30
22100 C SETOFF 50 08/01/30
22200 C K_PR CHAIN ADMPRJF1 3366 FADMPRJ 08/02/03
22300 C N33 LEAVESR 08/01/30
22400 C*----- INIT ZONE ENRG 08/02/03
22500 C MOVE SOSOC PRSOC 08/02/03
22600 C MOVE V_PRJ PRPRJ 08/01/30
22700 C MOVE *DATE PRDCRT 08/01/30
22800 C MOVE *DATE PRDMAJ 08/01/30
22900 C WRITE ADMPRJF1 66 08/02/03
23000 *----- 08/01/30
23100 C EXSR $SFL 08/01/30
23200 C LEAVESR 08/01/30
23300 *----- 08/01/30
23400 C ENDSL 08/01/30
23500 C ENDDO 08/01/30
23600 C ENDSR 08/01/30
23700 *============================================================================================= 08/01/30
23800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
23900 * MAJ RECORD 08/01/30
24000 *--------------------------------------------------------------------------------------------- 08/01/30
24100 *----- 08/01/30
24200 C $MAJ BEGSR 08/01/30
24300 *----- TEST EXISTE NON ERR 08/02/15
24400 C K_PR CHAIN ADMPRJF1 2726 FADMPRJ 08/02/03
24500 C 26 LEAVESR OCCUPE 08/01/30
24600 C 27 LEAVESR NON TROUVE 08/01/30
24700 *- 08/01/30
24800 * TRAITEMENT ECRAN N° 1 08/01/30
24900 *- 08/01/30
25000 C SETON 50 IND PROTEC KEY FMT 08/01/30
25100 C DO *HIVAL 08/01/30
25200 C WRITE SPRJI1 08/02/11
25300 C EXFMT SPRJC1 08/01/30
25400 C SELECT 08/01/30
25500 C WHEN *IN03 OR *IN12 08/01/30
25600 C SETOFF 50 08/01/30
25700 C LEAVESR 08/01/30
25800 *----- HELP 08/02/29
25900 C WHEN *IN04 08/02/29
26000 C EXSR $HLP_02 08/02/29
26100 *----- AIDE EN LIGNE 08/01/30
26200 C WHEN V_KEY = F_AID 08/01/30
26300 C EXSR $AID 08/01/30
26400 *----- TRAITEMENT 08/01/30
26500 C WHEN V_KEY = F_ENT 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 *----- RECHERCHE SI ERR 08/01/30
26700 C EXSR $EC01 08/01/30
26800 C 39 DO 49 I 08/04/05
26900 C EVAL *IN66 = *IN(I) 08/01/30
27000 C N66 ENDDO 08/01/30
27100 C 66 ITER 08/01/30
27200 C 08/01/30
27300 *----- VALIDATION 08/01/30
27400 C WRITE SPRJC1 08/01/30
27500 C MOVE NON V_CONF 08/01/30
27600 C EXFMT SPRJV99 08/01/30
27700 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
27800 C 66 ITER 08/01/30
27900 *- 08/01/30
28000 *----- ENREGISTREMENT 08/01/30
28100 C SETOFF 50 08/01/30
28200 *----- INIT ZONE ENRG 08/01/30
28300 C MOVE *DATE PRDMAJ 08/01/30
28400 C UPDATE ADMPRJF1 66 08/02/03
28500 *----- 08/01/30
28600 C EXSR $SFL 08/01/30
28700 C LEAVESR 08/01/30
28800 *----- 08/01/30
28900 C ENDSL 08/01/30
29000 C ENDDO 08/01/30
29100 C ENDSR 08/01/30
29200 *============================================================================================= 08/01/30
29300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
29400 * DEL RECORD 08/01/30
29500 *--------------------------------------------------------------------------------------------- 08/01/30
29600 *----- 08/01/30
29700 C $DLT BEGSR 08/01/30
29800 *----- TEST EXISTE OUI ERR 08/01/30
29900 C K_PR CHAIN ADMPRJF1 2726 FADMPRJ 08/02/03
30000 C 26 LEAVESR OCCUPE 08/01/30
30100 C 27 LEAVESR NON TROUVE 08/01/30
30200 *- 08/01/30
30300 * TRAITEMENT ECRAN N° 1 08/01/30
30400 *- 08/01/30
30500 C SETON 50 IND PROTEC KEY FMT 08/01/30
30600 C DO *HIVAL 08/01/30
30700 C WRITE SPRJI1 08/01/30
30800 C EXFMT SPRJC1 08/01/30
30900 C SELECT 08/01/30
31000 C WHEN *IN03 OR *IN12 08/01/30
31100 C SETOFF 50 08/01/30
31200 C SETOFF 23 08/03/04
31300 C LEAVESR 08/01/30
31400 *----- AIDE EN LIGNE 08/01/30
31500 C WHEN V_KEY = F_AID 08/01/30
31600 C EXSR $AID 08/01/30
31700 *----- TRAITEMENT 08/01/30
31800 C WHEN V_KEY = F_ENT 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 *----- VALIDATION 08/01/30
32000 C MOVE NON V_CONF 08/01/30
32100 C EXFMT SPRJV99 08/01/30
32200 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
32300 C 66 ITER 08/01/30
32400 *- 08/01/30
32500 *----- ENREGISTREMENT 08/01/30
32600 C SETOFF 50 08/01/30
32700 C SETOFF 23 08/03/04
32800 *----- INIT ZONE ENRG 08/01/30
32900 C DELETE ADMPRJF1 66 08/02/03
33000 *----- 08/01/30
33100 C EXSR $SFL 08/01/30
33200 C LEAVESR 08/01/30
33300 *----- 08/01/30
33400 C ENDSL 08/01/30
33500 C ENDDO 08/01/30
33600 C ENDSR 08/01/30
33700 *============================================================================================= 08/01/30
33800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
33900 * ERR ECRAN 01 08/01/30
34000 *--------------------------------------------------------------------------------------------- 08/01/30
34100 C $EC01 BEGSR 08/01/30
34200 C SETOFF 77 08/01/30
34300 *======================= 08/01/30
34400 *----- 08/01/30
34500 *-- N° ZONE OBLIGATOIRE 08/01/30
34600 *----- 08/01/30
34700 08/04/03
34800 * TEXT OBLIGATOIRE 08/04/03
34900 C EVAL *IN40 = (PRTXT = *BLANK) 08/01/30
35000 C 40 LEAVESR 08/01/30
35100 *----- RECHERCHE SI LIB DEJA UTILISER POUR OTHER PRJ 08/04/03
35200 C EVAL *IN41 = (V_PRJ = *BLANK) 08/06/24
35300 C 41 LEAVESR 08/04/03
35400 C Z-ADD *ZEROS I 08/04/03
35500 C PRLIBP SETLL LADMPRJE 08/04/03
35600 C DO *HIVAL 08/04/03
35700 C PRLIBP READE ADMPRJFE 33 08/04/03
35800 C 33 LEAVE 08/04/03
35900 C ADD 1 I 08/04/03
36000 C EVAL *IN41 = V_PRJ <> FEPRJ 08/06/24
36100 C 41 LEAVESR 08/04/03
36200 C ENDDO 08/04/03
36300 C EVAL *IN41 = I> 1 08/04/03
36400 C 41 LEAVESR 08/04/03
36500 C K_GRP CHAIN ADMGRPF1 33 08/04/03
36600 *----- RECHERCHE SI LIB DEJA UTILISER POUR OTHER SOCIETE 08/04/03
36700 C EVAL *IN42 = (PRLIBP = *BLANK) 08/04/03
36800 C 42 LEAVESR 08/04/03
36900 C Z-ADD *ZEROS I 08/04/03
37000 C PRLIBP SETLL LADMPRJD 08/04/03
37100 C DO *HIVAL 08/04/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 8
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
37200 C PRLIBP READE ADMPRJFD 33 08/04/03
37300 C 33 LEAVE 08/04/03
37400 C ADD 1 I 08/04/03
37500 C EVAL *IN43 = PRSOC <> FDSOC 08/04/03
37600 C 42 LEAVESR 08/04/03
37700 C ENDDO 08/04/03
37800 C EVAL *IN43 = I> 1 08/04/03
37900 C 42 LEAVESR 08/04/03
38000 08/04/03
38100 08/04/03
38200 * MISE PAR DEFAULT LIB.DVP 08/01/30
38300 C EVAL *IN43 = (PRLIBD = *BLANK) 08/01/30
38400 C 43 EVAL *IN77 = *ON 08/01/30
38500 C 43 EVAL PRLIBD = 'LIB.DVP' 08/01/30
38600 C 43 EVAL MERR = 'LIB.DEVELOPPEMENT' 08/01/30
38700 C 43 LEAVESR 08/01/30
38800 * MISE PAR DEFAULT LIB.QUA 08/01/30
38900 C EVAL *IN44 = (PRLIBQ = *BLANK) 08/01/30
39000 C 44 EVAL PRLIBQ = 'LIB.QUA' 08/01/31
39100 C 44 EVAL *IN77 = *ON 08/01/31
39200 C 44 EVAL MERR = 'LIB.QUALITE' 08/01/31
39300 C 44 LEAVESR 08/01/30
39400 * MISE PAR DEFAULT LIB.QUA 08/04/05
39500 C EVAL *IN39 = (PRLIBU = *BLANK) 08/04/05
39600 C 39 EVAL PRLIBU = 'LIB.URG' 08/04/05
39700 C 39 EVAL *IN77 = *ON 08/04/05
39800 C 39 EVAL MERR = 'LIB.URGENCE' 08/04/05
39900 C 39 LEAVESR 08/04/05
40000 * RECHERCHE SI BIB. PROD EXISTE 08/02/15
40100 C IF PRLIBP <> *BLANK 08/02/15
40200 C CALLB 'MADMOBJCHK' 08/02/21
40300 C PARM 'QSYS' P_LIB 10 08/02/15
40400 C PARM PRLIBP P_OBJ 10 08/02/15
40500 C PARM '*LIB' P_TYPE 10 08/02/15
40600 C PARM '*NONE' P_MBR 10 08/02/15
40700 C PARM TROUVE 08/02/21
40800 C EVAL *IN45 = TROUVE = *OFF 08/02/21
40900 C ENDIF 08/02/15
41000 C 45 LEAVESR 08/02/15
41100 * RECHERCHE SI BIB. DEVP EXISTE 08/02/15
41200 C IF PRLIBD <> *BLANK 08/02/15
41300 C CALLB 'MADMOBJCHK' 08/02/21
41400 C PARM 'QSYS' P_LIB 08/02/21
41500 C PARM PRLIBD P_OBJ 08/02/21
41600 C PARM '*LIB' P_TYPE 08/02/21
41700 C PARM '*NONE' P_MBR 08/02/21
41800 C PARM TROUVE 08/02/21
41900 C EVAL *IN46 = TROUVE = *OFF 08/02/21
42000 C ENDIF 08/02/15
42100 C 46 LEAVESR 08/02/15
42200 * RECHERCHE SI BIB. QUA. EXISTE 08/02/15
42300 C IF PRLIBQ <> *BLANK AND 08/06/24
42400 C PRLIBQ <> '*NONE' 08/06/24
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 9
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
42500 C CALLB 'MADMOBJCHK' 08/02/22
42600 C PARM 'QSYS' P_LIB 08/02/21
42700 C PARM PRLIBQ P_OBJ 08/02/21
42800 C PARM '*LIB' P_TYPE 08/02/21
42900 C PARM '*NONE' P_MBR 08/02/21
43000 C PARM TROUVE 08/02/21
43100 C EVAL *IN47 = TROUVE = *OFF 08/02/21
43200 C ENDIF 08/02/15
43300 C 47 LEAVESR 08/02/15
43400 C IF PRLIBQ <> *BLANK AND 08/06/24
43500 C PRLIBQ = '*NONE' 08/06/24
43600 C EVAL PRLIBU = PRLIBD 08/06/24
43700 C ENDIF 08/06/24
43800 * RECHERCHE SI BIB. EXP. EXISTE 08/02/15
43900 C IF PRLIBE <> *BLANK 08/02/15
44000 C CALLB 'MADMOBJCHK' 08/02/21
44100 C PARM 'QSYS' P_LIB 08/02/21
44200 C PARM PRLIBE P_OBJ 08/02/21
44300 C PARM '*LIB' P_TYPE 08/02/21
44400 C PARM '*NONE' P_MBR 08/02/21
44500 C PARM TROUVE 08/02/21
44600 C EVAL *IN48 = TROUVE = *OFF 08/02/21
44700 C ENDIF 08/02/15
44800 C 48 LEAVESR 08/02/15
44900 * RECHERCHE SI BIB. URG. EXISTE 08/04/05
45000 C IF PRLIBU <> *BLANK 08/04/05
45100 C CALLB 'MADMOBJCHK' 08/04/05
45200 C PARM 'QSYS' P_LIB 08/04/05
45300 C PARM PRLIBU P_OBJ 08/04/05
45400 C PARM '*LIB' P_TYPE 08/04/05
45500 C PARM '*NONE' P_MBR 08/04/05
45600 C PARM TROUVE 08/04/05
45700 C EVAL *IN49 = TROUVE = *OFF 08/04/05
45800 C ENDIF 08/04/05
45900 C 49 LEAVESR 08/04/05
46000 *======================= 08/01/30
46100 C ENDSR 08/01/30
46200 ***************************************************************** 08/01/30
46300 *--------------------------------------------------------------------------------------------- 08/02/14
46400 * TOUCHE F4 08/02/14
46500 *--------------------------------------------------------------------------------------------- 08/02/14
46600 * RECUPERATION SOCIETE 08/02/29
46700 C $HLP_01 BEGSR 08/02/14
46800 C C CALLB 'XADMSOCP' 33 08/03/04
46900 C PARM P_SOC 08/02/29
47000 C PARM P_IN03 08/03/04
47100 C MOVE P_SOC SOSOC 08/02/14
47200 C MOVE P_IN03 *IN03 08/03/04
47300 C ENDSR 08/02/14
47400 * RECUPERATION GROUPE 08/02/29
47500 C $HLP_02 BEGSR 08/02/29
47600 C Z-ADD V_ILIG V_LI 09/08/12
47700 C Z-ADD V_ICOL V_CO 09/08/12
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 10
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJ
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
47800 C SELECT 08/02/29
47900 C FLD WHENEQ 'PRGRP' 08/02/29
48000 C C CALLB 'XADMGRPP' 33 08/03/04
48100 C PARM P_SOC 08/02/29
48200 C PARM P_GRP 08/02/29
48300 C PARM P_IN03 08/03/04
48400 C MOVE P_GRP PRGRP 08/02/29
48500 C MOVE P_IN03 *IN03 08/03/04
48600 C ENDSL 08/02/29
48700 C ENDSR 08/02/29
48800 * 08/02/14
48900 *--------------------------------------------------------------------------------------------- 08/01/30
49000 * INCLUDE 08/01/30
49100 *--------------------------------------------------------------------------------------------- 08/01/30
49200 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
49300 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJN
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FLADMPRJN IF E K DISK 08/03/18
600 * 08/02/05
700 *--------------------------------------------------------------------------------------------- 08/02/05
800 * UDS 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1100 *--------------------------------------------------------------------------------------------- 08/03/04
1200 D P_SOC S LIKE(PRSOC) 08/03/04
1300 D P_PRJ S LIKE(PRPRJ) 08/03/13
1400 D P_LIB S LIKE(PRLIBP) 08/03/13
1500 D P_IN03 S LIKE(*IN) 08/03/04
1600 *--------------------------------------------------------------------------------------------- 08/02/05
1700 * PLIST 08/02/13
1800 *--------------------------------------------------------------------------------------------- 08/02/13
1900 C *ENTRY PLIST 08/02/13
2000 C PARM P_SOC 08/03/04
2100 C PARM P_PRJ 08/03/13
2200 C PARM P_LIB 08/03/13
2300 C PARM P_IN03 08/03/04
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 * KLIST DES FICHIERS 08/02/05
2600 *--------------------------------------------------------------------------------------------- 08/02/05
2700 C K_PR KLIST *LADMPRJN 08/03/18
2800 C KFLD P_SOC *SOCIETE 08/03/04
2900 C KFLD P_PRJ *PROJET 08/03/18
3000 *--------------------------------------------------------------------------------------------- 08/02/05
3100 * DEBUT PROPRAMME 08/02/05
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 C K_PR CHAIN ADMPRJFN 33 08/03/18
3400 C EVAL P_LIB = PRLIBP 08/03/13
3500 C MOVE *IN33 P_IN03 08/03/18
3600 C SETON LR 08/02/05
3700 ********************************************************************************************** 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMPRJ IF E K DISK 08/03/04
600 FSADMPRJP CF E WORKSTN INFDS(V_DSPF) 08/02/22
700 F SFILE(SPRJWE1:LIGN1) 08/02/22
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 *--------------------------------------------------------------------------------------------- 08/02/05
1400 D P_SOC S LIKE(PRSOC) 08/03/04
1500 D P_PRJ S LIKE(PRPRJ) 08/03/04
1600 D P_IN03 S LIKE(*IN ) 08/03/04
1700 *--------------------------------------------------------------------------------------------- 08/03/04
1800 * PLIST 08/02/13
1900 *--------------------------------------------------------------------------------------------- 08/02/13
2000 C *ENTRY PLIST 08/02/13
2100 C PARM P_SOC 08/03/04
2200 C PARM P_PRJ 08/03/04
2300 C PARM P_IN03 08/03/04
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 * 08/02/05
2600 * 08/02/05
2700 *--------------------------------------------------------------------------------------------- 08/02/05
2800 * KLIST DES FICHIERS 08/02/05
2900 *--------------------------------------------------------------------------------------------- 08/02/05
3000 C K_PR KLIST *FADMPRJ 08/02/22
3100 C KFLD PRSOC *SOCIETE 08/03/04
3200 C KFLD PRPRJ *PROJET 08/02/22
3300 * 08/02/05
3400 *--------------------------------------------------------------------------------------------- 08/02/05
3500 * 08/02/05
3600 * 08/02/05
3700 *--------------------------------------------------------------------------------------------- 08/02/05
3800 * INIT DU PGM 08/02/05
3900 *--------------------------------------------------------------------------------------------- 08/02/05
4000 C MOVE *ALL'0' *IN 08/02/05
4100 *--------------------------------------------------------------------------------------------- 08/02/05
4200 *--------------------------------------------------------------------------------------------- 08/02/05
4300 * DEBUT PROPRAMME 08/02/05
4400 *--------------------------------------------------------------------------------------------- 08/02/05
4500 C EXSR $SFL 08/02/13
4600 C DO *HIVAL 08/02/05
4700 C WRITE SPRJB0 08/02/22
4800 C EXFMT SPRJC1 08/02/22
4900 C 03 LEAVE 08/02/05
5000 08/02/05
5100 C 91 READC SPRJWE1 33 /* 33 = EOF */ 08/02/22
5200 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/02/05
5300 C EVAL P_SOC = PRSOC 08/02/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMPRJP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EVAL P_PRJ = PRPRJ 08/02/22
5500 C LEAVE 08/02/13
5600 C ENDIF 08/02/05
5700 *----------------------------------------------* 08/02/05
5800 C 03 LEAVE 08/02/05
5900 C ENDDO 08/02/05
6000 *--------------------------------------------------------------------------------------------- 08/02/05
6100 *--------------------------------------------------------------------------------------------- 08/02/05
6200 * FIN PROPRAMME 08/02/05
6300 *--------------------------------------------------------------------------------------------- 08/02/05
6400 C MOVE *IN03 P_IN03 08/03/04
6500 C SETON LR 08/02/05
6600 ********************************************************************************************** 08/02/05
6700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
6800 * SFL 08/02/05
6900 *--------------------------------------------------------------------------------------------- 08/02/05
7000 C $SFL BEGSR 08/02/05
7100 *----- 08/02/05
7200 C SETOFF 9195 08/02/05
7300 C SETON 96 08/02/05
7400 C WRITE SPRJC1 08/02/22
7500 C SETOFF 96 08/02/05
7600 C MOVE *BLANK V_CHX 08/02/05
7700 *--------------------------------------------------------------------------------------------- 08/02/05
7800 C *LOVAL SETLL ADMPRJF1 08/02/22
7900 08/02/05
8000 C DO *HIVAL LIGN1 4 0 08/02/22
8100 C READ ADMPRJF1 95 *95 =EOF & SFLEND 08/02/29
8200 C 95 LEAVE 08/02/05
8300 C WRITE SPRJWE1 08/02/22
8400 *- 08/02/05
8500 C SETON 91 08/02/05
8600 C ENDDO 08/02/05
8700 C Z-ADD 1 LIGN1 08/02/05
8800 *----- 08/02/05
8900 C ENDSR 08/02/05
9000 ***************************************************************** 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/19
200 *--------------------------------------------------------------------------------------------- 08/03/19
300 * DECLARATION DE FICHIER 08/03/19
400 *--------------------------------------------------------------------------------------------- 08/03/19
500 FLADMPRJA IF E K DISK 08/03/19
600 FFADMSOC IF E K DISK 08/03/21
700 FFADMENV IF E K DISK 08/03/21
800 FSADMSCNALLCF E WORKSTN 08/03/25
900 F SFILE(SPRJWE1:LIGN2) 08/03/19
1000 F SFILE(SSOCWE1:LIGN1) 08/03/21
1100 * 08/03/19
1200 *---------------------------------------------------------* 08/03/21
1300 * SDS USER 08/03/21
1400 *---------------------------------------------------------* 08/03/21
1500 D SDS 08/03/21
1600 D V_USER 254 263 UTILISATEUR 08/03/21
1700 *--------------------------------------------------------------------------------------------- 08/03/19
1800 08/03/28
1900 D V_LEN S 3S 0 08/03/28
2000 D V_POS S LIKE(V_LEN) 08/03/28
2100 08/03/28
2200 08/03/28
2300 08/03/28
2400 D P_SOC S LIKE(PRSOC) 08/03/19
2500 D P_GRP S LIKE(PRGRP) 08/03/19
2600 D P_PRJ S 1000A 08/03/21
2700 D P_DB2 S 4 08/03/21
2800 D P_DSPF S 4 08/03/21
2900 D P_PRTF S 4 08/03/21
3000 D P_CL S 4 08/03/21
3100 D P_RPG S 4 08/03/21
3200 D P_CLE S 4 08/03/21
3300 D P_SRV S 4 08/03/21
3400 D P_LSTR S 4 08/03/25
3500 D P_LSTD S 4 08/03/25
3600 D P_CHK S 4 08/03/25
3700 D P_DEP S 4 09/01/27
3800 D P_STRING S 50 08/03/21
3900 D P_JOBQ S 10 08/03/21
4000 D P_JBQL S 10 08/03/21
4100 D P_OUTQ S 10 08/03/21
4200 D P_OUTL S 10 08/03/21
4300 08/03/21
4400 D P_IN03 S LIKE(*IN) 08/03/21
4500 08/03/21
4600 D DPRJ DS 08/03/21
4700 D WPRJ 20A DIM(50) 08/03/21
4800 D P1 1 100A 08/03/21
4900 D P2 101 200A 08/03/21
5000 D P3 201 300A 08/03/21
5100 D P4 301 400A 08/03/21
5200 D P5 401 500A 08/03/21
5300 D P6 501 600A 08/03/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 D P7 601 700A 08/03/21
5500 D P8 701 800A 08/03/21
5600 D P9 801 900A 08/03/21
5700 D P10 901 1000A 08/03/21
5800 D V_PRJ 1 1000A 08/03/21
5900 08/03/21
6000 08/03/21
6100 D I S 5S 0 INZ(*ZEROS) 08/03/21
6200 *--------------------------------------------------------------------------------------------- 08/03/19
6300 * PLIST 08/03/19
6400 *--------------------------------------------------------------------------------------------- 08/03/19
6500 C *ENTRY PLIST 08/03/19
6600 C PARM P_SOC 08/03/21
6700 C PARM P_PRJ 08/03/21
6800 C PARM P_DB2 08/03/21
6900 C PARM P_DSPF 08/03/21
7000 C PARM P_PRTF 08/03/21
7100 C PARM P_CL 08/03/21
7200 C PARM P_RPG 08/03/21
7300 C PARM P_CLE 08/03/21
7400 C PARM P_SRV 08/03/21
7500 C PARM P_LSTR 08/03/25
7600 C PARM P_LSTD 08/03/25
7700 C PARM P_CHK 08/03/25
7800 C PARM P_DEP 09/01/27
7900 C PARM P_STRING 08/03/21
8000 08/03/21
8100 C PARM P_JOBQ 08/03/21
8200 C PARM P_JBQL 08/03/21
8300 C PARM P_OUTQ 08/03/21
8400 C PARM P_OUTL 08/03/21
8500 C PARM P_IN03 08/03/21
8600 *--------------------------------------------------------------------------------------------- 08/03/19
8700 * KLIST DES FICHIERS 08/03/19
8800 *--------------------------------------------------------------------------------------------- 08/03/19
8900 C K_PR KLIST *FADMPRJ 08/03/19
9000 C KFLD P_SOC *SOCIETE 08/03/21
9100 * 08/03/19
9200 *--------------------------------------------------------------------------------------------- 08/03/19
9300 * 08/03/19
9400 C V_USER CHAIN ADMENVF1 03 FADMENV 08/03/21
9500 C 03 GOTO T_FIN 08/03/21
9600 * 08/03/19
9700 *--------------------------------------------------------------------------------------------- 08/03/19
9800 * INIT DU PGM 08/03/19
9900 *--------------------------------------------------------------------------------------------- 08/03/19
10000 C MOVE *ALL'0' *IN 08/03/19
10100 * ++-- 08/06/12
10200 C P_IN03 COMP '2' 0101 MULTI DEMANDE 08/06/12
10300 *--------------------------------------------------------------------------------------------- 08/03/19
10400 * DEBUT PROPRAMME 08/03/19
10500 *--------------------------------------------------------------------------------------------- 08/03/19
10600 C T_12 TAG 08/03/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C EXSR $SOC 08/03/21
10800 C N03 EXSR $PRJ 08/03/19
10900 C N03 EXSR $PDM2 08/03/21
11000 C 12 GOTO T_12 08/03/21
11100 *--------------------------------------------------------------------------------------------- 08/03/19
11200 * FIN PROPRAMME 08/03/19
11300 *--------------------------------------------------------------------------------------------- 08/03/19
11400 C T_FIN TAG 08/03/21
11500 C EVAL P_IN03 = *IN03 08/03/21
11600 C SETON LR 08/03/19
11700 ********************************************************************************************** 08/03/19
11800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
11900 C $SOC BEGSR 08/03/21
12000 C WRITE SWRTB0 08/03/19
12100 C EXSR $SFLSOC 08/03/21
12200 C DO *HIVAL 08/03/19
12300 C EXFMT SSOCC1 08/03/21
12400 C 03 LEAVESR 08/03/21
12500 08/03/19
12600 C 91 READC SSOCWE1 33 08/03/21
12700 C 91 IF NOT *IN33 08/03/21
12800 C EVAL P_SOC = SOSOC 08/03/21
12900 C LEAVE 08/03/19
13000 C ENDIF 08/03/19
13100 C ENDDO 08/03/19
13200 C ENDSR 08/03/19
13300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
13400 * SFL 08/03/19
13500 *--------------------------------------------------------------------------------------------- 08/03/19
13600 C $SFLSOC BEGSR 08/03/21
13700 *----- 08/03/19
13800 C SETOFF 9195 08/03/19
13900 C SETON 96 08/03/19
14000 C WRITE SSOCC1 08/03/21
14100 C SETOFF 96 08/03/19
14200 C MOVE *BLANK V_CHX 08/03/19
14300 *--------------------------------------------------------------------------------------------- 08/03/19
14400 C *LOVAL SETLL ADMSOCF1 08/03/21
14500 08/03/19
14600 C DO *HIVAL LIGN1 4 0 08/03/19
14700 C READ ADMSOCF1 95 *95 =EOF & SFLEND 08/03/21
14800 C 95 LEAVE 08/03/19
14900 C WRITE SSOCWE1 08/03/21
15000 *- 08/03/19
15100 C SETON 91 08/03/19
15200 C ENDDO 08/03/19
15300 C Z-ADD 1 LIGN1 08/03/19
15400 *----- 08/03/19
15500 C ENDSR 08/03/19
15600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
15700 C $PRJ BEGSR 08/03/19
15800 C EXSR $SFLPRJ 08/03/19
15900 C DO *HIVAL 08/03/19
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C EXFMT SPRJC1 08/03/19
16100 C 03 LEAVESR 08/03/21
16200 08/03/19
16300 C 91 READC SPRJWE1 33 08/03/19
16400 C 91 IF NOT *IN33 08/03/21
16500 08/03/21
16600 C DO LIGN1 LIGN2 08/03/21
16700 C LIGN2 CHAIN SPRJWE1 34 08/03/21
16800 C 34 LEAVE 08/03/21
16900 C IF V_CHX <> *BLANK 08/03/21
17000 C ADD 1 I 08/03/21
17100 C EVAL WPRJ(I) = PRPRJ 08/03/21
17200 C ENDIF 08/03/21
17300 C ENDDO 08/03/21
17400 C EVAL P_PRJ = V_PRJ 08/03/21
17500 C LEAVE 08/03/21
17600 C ENDIF 08/03/19
17700 08/03/21
17800 08/03/21
17900 C ENDDO 08/03/19
18000 C ENDSR 08/03/19
18100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/19
18200 * SFL 08/03/19
18300 *--------------------------------------------------------------------------------------------- 08/03/19
18400 C $SFLPRJ BEGSR 08/03/19
18500 *----- 08/03/19
18600 C SETOFF 9195 08/03/19
18700 C SETON 96 08/03/19
18800 C WRITE SPRJC1 08/03/19
18900 C SETOFF 96 08/03/19
19000 C MOVE *BLANK V_CHX 08/03/19
19100 *--------------------------------------------------------------------------------------------- 08/03/19
19200 C *LOVAL SETLL ADMPRJFA 08/03/19
19300 C K_PR SETLL ADMPRJFA 08/03/19
19400 C Z-ADD *ZEROS LIGN1 08/03/21
19500 C DO *HIVAL LIGN2 4 0 08/03/21
19600 C K_PR READE ADMPRJFA 95 *95 =EOF & SFLEND 08/03/19
19700 C 95 LEAVE 08/03/19
19800 C WRITE SPRJWE1 08/03/19
19900 *- 08/03/19
20000 C ADD 1 LIGN1 08/03/21
20100 C SETON 91 08/03/19
20200 C ENDDO 08/03/19
20300 08/03/22
20400 C ADD 1 LIGN1 08/03/22
20500 C EVAL PRPRJ = '*ALL' 08/03/22
20600 C WRITE SPRJWE1 08/03/22
20700 C Z-ADD 1 LIGN2 08/03/22
20800 *- 08/03/22
20900 *----- 08/03/19
21000 C ENDSR 08/03/19
21100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/21
21200 C $PDM2 BEGSR 08/03/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C MOVE 'N' V_DB2 08/06/12
21400 C MOVE 'N' V_DSPF 08/06/12
21500 C MOVE 'N' V_PRTF 08/06/12
21600 C MOVE 'N' V_CL 08/06/12
21700 C MOVE 'N' V_RPG 08/06/12
21800 C MOVE 'N' V_CLE 08/06/12
21900 C MOVE 'N' V_SRV 08/06/12
22000 C MOVE ENSCNR V_LSTR 08/06/12
22100 C MOVE ENSCND V_LSTD 08/04/06
22200 C MOVE 'N' V_CHK 08/03/25
22300 C MOVE 'N' V_DEP 09/01/27
22400 08/06/12
22500 C IF P_IN03 = '2' 08/06/12
22600 C EVAL *IN33 = P_DB2 ='*YES' 08/06/12
22700 C 33 MOVE 'Y' V_DB2 08/06/12
22800 C EVAL *IN33 = P_DSPF ='*YES' 08/06/12
22900 C 33 MOVE 'Y' V_DSPF 08/06/12
23000 C EVAL *IN33 = P_PRTF ='*YES' 08/06/12
23100 C 33 MOVE 'Y' V_PRTF 08/06/12
23200 C EVAL *IN33 = P_CL ='*YES' 08/06/12
23300 C 33 MOVE 'Y' V_CL 08/06/12
23400 C EVAL *IN33 = P_RPG ='*YES' 08/06/12
23500 C 33 MOVE 'Y' V_RPG 08/06/12
23600 C EVAL *IN33 = P_CLE ='*YES' 08/06/12
23700 C 33 MOVE 'Y' V_CLE 08/06/12
23800 C EVAL *IN33 = P_SRV ='*YES' 08/06/12
23900 C 33 MOVE 'Y' V_SRV 08/06/12
24000 C EVAL *IN33 = P_LSTR ='*YES' 08/06/12
24100 C 33 MOVE 'Y' V_LSTR 08/06/12
24200 C EVAL *IN33 = P_LSTD ='*YES' 08/06/12
24300 C 33 MOVE 'Y' V_LSTR 08/06/12
24400 C EVAL *IN33 = P_DEP ='*YES' 09/01/27
24500 C 33 MOVE 'Y' V_DEP 09/01/27
24600 C ENDIF 08/06/12
24700 08/06/12
24800 C EVAL P_DB2 = '*NO ' 08/06/12
24900 C EVAL P_DSPF = '*NO ' 08/06/12
25000 C EVAL P_PRTF = '*NO ' 08/06/12
25100 C EVAL P_CL = '*NO ' 08/06/12
25200 C EVAL P_RPG = '*NO ' 08/06/12
25300 C EVAL P_CLE = '*NO ' 08/06/12
25400 C EVAL P_SRV = '*NO ' 08/06/12
25500 C EVAL P_LSTR = '*NO ' 08/06/12
25600 C EVAL P_LSTD = '*NO ' 08/06/12
25700 C EVAL P_CHK = '*NO ' 08/06/12
25800 C EVAL P_DEP = '*NO ' 09/01/27
25900 C MOVE *ALL' ' V_STRING 08/03/28
26000 C EVAL P_JOBQ = ENJOBQ 08/03/21
26100 C EVAL P_OUTQ = ENOUTQ 08/03/21
26200 C EVAL P_JBQL = ENJBQL 08/03/21
26300 C EVAL P_OUTL = ENOUTL 08/03/21
26400 08/03/21
26500 C DO *HIVAL 08/03/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C EXFMT SFNDPDM2 08/03/21
26700 C 03 LEAVESR 08/03/21
26800 C 12 LEAVESR 08/03/21
26900 C EVAL *IN40 = %LEN(%TRIM(V_STRING)) = *ZEROS 08/03/28
27000 C 40 ITER 08/03/28
27100 08/03/28
27200 C EVAL V_LEN = %LEN(%TRIM(V_STRING)) 08/03/28
27300 C '#' SCAN V_STRING V_POS 08/03/28
27400 C EVAL *IN41 = V_LEN <> V_POS AND V_POS > *ZEROS 08/03/28
27500 C 41 ITER 08/03/28
27600 C IF V_POS > *ZEROS 08/03/28
27700 C EVAL V_STRING = %SUBST(V_STRING: 1 : V_POS) 08/03/28
27800 C ENDIF 08/03/28
27900 08/03/21
28000 C IF V_DB2 = 'Y' 08/03/21
28100 C EVAL P_DB2 = '*YES' 08/03/21
28200 C ENDIF 08/03/21
28300 08/03/21
28400 C IF V_DSPF= 'Y' 08/03/21
28500 C EVAL P_DSPF = '*YES' 08/03/21
28600 C ENDIF 08/03/21
28700 08/03/21
28800 C IF V_PRTF= 'Y' 08/03/21
28900 C EVAL P_PRTF = '*YES' 08/03/21
29000 C ENDIF 08/03/21
29100 08/03/21
29200 C IF V_CL = 'Y' 08/03/21
29300 C EVAL P_CL = '*YES' 08/03/21
29400 C ENDIF 08/03/21
29500 08/03/21
29600 C IF V_RPG = 'Y' 08/03/21
29700 C EVAL P_RPG = '*YES' 08/03/21
29800 C ENDIF 08/03/21
29900 08/03/21
30000 C IF V_CLE = 'Y' 08/03/21
30100 C EVAL P_CLE = '*YES' 08/03/21
30200 C ENDIF 08/03/21
30300 08/03/21
30400 C IF V_SRV = 'Y' 08/03/21
30500 C EVAL P_SRV = '*YES' 08/03/21
30600 C ENDIF 08/03/21
30700 08/03/25
30800 C IF V_LSTR= 'Y' 08/03/25
30900 C EVAL P_LSTR = '*YES' 08/03/25
31000 C ENDIF 08/03/25
31100 08/03/25
31200 C IF V_LSTD= 'Y' 08/03/25
31300 C EVAL P_LSTD = '*YES' 08/03/25
31400 C ENDIF 08/03/25
31500 08/03/25
31600 C IF V_CHK = 'Y' 08/03/25
31700 C EVAL P_CHK = '*YES' 08/03/25
31800 C ENDIF 08/03/25
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:49 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNALL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 09/01/27
32000 C IF V_DEP = 'Y' 09/01/27
32100 C EVAL P_DEP = '*YES' 09/01/27
32200 C ENDIF 09/01/27
32300 08/03/21
32400 C EVAL P_STRING = V_STRING 08/03/21
32500 08/03/21
32600 C 07 LEAVESR 08/03/21
32700 C ENDDO 08/03/21
32800 C ENDSR 08/03/21
32900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/21
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FSADMSCNP CF E WORKSTN INFDS(V_DSPF) 08/03/25
600 * 08/02/05
700 D NUM C '1234567890 ' 08/03/18
800 D WN S 1 DIM(11) 08/03/18
900 D DSNUM DS 08/03/18
1000 D WX 1 DIM(7) 08/03/18
1100 D V_COL 1 7 08/03/18
1200 *--------------------------------------------------------------------------------------------- 08/03/18
1300 D P_STRING S 50A 08/03/18
1400 D P_OPTION S 5A 08/03/18
1500 D P_COL1 S 7A 08/03/18
1600 D P_COL2 S 7A 08/03/18
1700 D P_CASE S 7A 08/03/18
1800 D P_IN03 S LIKE(*IN) 08/03/18
1900 *--------------------------------------------------------------------------------------------- 08/03/06
2000 D I S 4S 0 INZ(*ZEROS) 08/03/06
2100 *--------------------------------------------------------------------------------------------- 08/02/05
2200 * UDS 08/02/05
2300 *--------------------------------------------------------------------------------------------- 08/02/05
2400 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
2500 *--------------------------------------------------------------------------------------------- 08/02/05
2600 * 08/02/05
2700 *--------------------------------------------------------------------------------------------- 08/02/05
2800 * 08/02/05
2900 C *ENTRY PLIST 08/03/18
3000 C PARM P_STRING 08/03/18
3100 C PARM P_OPTION 08/03/18
3200 C PARM P_COL1 08/03/18
3300 C PARM P_COL2 08/03/18
3400 C PARM P_CASE 08/03/18
3500 C PARM P_IN03 08/03/18
3600 * 08/02/05
3700 *--------------------------------------------------------------------------------------------- 08/02/05
3800 * INIT DU PGM 08/02/05
3900 *--------------------------------------------------------------------------------------------- 08/02/05
4000 C MOVE *ALL'0' *IN 08/02/05
4100 *--------------------------------------------------------------------------------------------- 08/02/05
4200 *--------------------------------------------------------------------------------------------- 08/02/05
4300 * DEBUT PROPRAMME 08/02/05
4400 *--------------------------------------------------------------------------------------------- 08/02/05
4500 C WRITE SFNDB0 08/03/18
4600 C MOVE P_STRING V_STRING 08/03/18
4700 C MOVEL '*DSP' V_OPT 08/03/18
4800 C MOVEL '1' V_COL1 08/03/18
4900 C MOVE '*RCDLEN' V_COL2 08/03/18
5000 C MOVEL '*IGNORE' V_CASE 08/03/18
5100 C MOVEA NUM WN 08/03/18
5200 C DO *HIVAL 08/03/10
5300 C SETOFF 72 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C EXFMT SFNDWS1 08/03/18
5500 C 03 LEAVE 08/02/05
5600 08/02/05
5700 *----- RECHERCHE SI ERR 08/03/06
5800 C EXSR $EC01 08/03/06
5900 C 40 DO 42 I 08/03/18
6000 C EVAL *IN66 = *IN(I) 08/03/06
6100 C N66 ENDDO 08/03/06
6200 C IF NOT *IN66 08/03/10
6300 *----- VALIDATION 08/03/10
6400 C SETON 72 08/03/10
6500 C MOVE NON V_CONF 08/03/10
6600 C EXFMT SFNDWS1 08/03/18
6700 C EVAL *IN66 = (V_CONF = NON ) 08/03/10
6800 C 66 ITER 08/03/10
6900 C EVAL P_STRING = V_STRING 08/03/18
7000 C EVAL P_OPTION = V_OPT 08/03/18
7100 C EVAL P_COL1 = V_COL1 08/03/18
7200 C EVAL P_COL2 = V_COL2 08/03/18
7300 C EVAL P_CASE = V_CASE 08/03/18
7400 C LEAVE 08/03/11
7500 C ENDIF 08/02/05
7600 08/02/05
7700 *----------------------------------------------* 08/02/05
7800 C ENDDO 08/02/05
7900 *--------------------------------------------------------------------------------------------- 08/02/05
8000 * FIN PROPRAMME 08/02/05
8100 *--------------------------------------------------------------------------------------------- 08/02/05
8200 C EVAL P_IN03 = *IN03 08/03/18
8300 C SETON LR 08/02/05
8400 ********************************************************************************************** 08/02/05
8500 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/06
8600 * ERR ECRAN 01 08/03/06
8700 *--------------------------------------------------------------------------------------------- 08/03/06
8800 C $EC01 BEGSR 08/03/06
8900 *======================= 08/03/06
9000 *----- 08/03/06
9100 *-- N° ZONE OBLIGATOIRE 08/03/06
9200 *----- 08/03/06
9300 * TEST PROCESS 08/03/06
9400 *--------------------------------------------------------------------------------------------- 08/03/06
9500 *V_STRING 08/03/18
9600 C EVAL *IN40 = V_STRING = *BLANK 08/03/18
9700 C EVAL V_STRING = %TRIM(V_STRING) 08/03/18
9800 C 40 LEAVESR 08/03/18
9900 08/03/18
10000 *V_COL1 08/03/18
10100 C MOVE V_COL1 V_COL 08/03/18
10200 C MOVE *BLANK V_COL1 08/03/18
10300 C DO 7 I 08/03/18
10400 C IF WX(I) <> *BLANK 08/03/18
10500 C EVAL V_COL1 = %TRIM(V_COL1) + WX(I) 08/03/18
10600 C ENDIF 08/03/18
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C ENDDO 08/03/18
10800 C MOVE V_COL1 V_COL 08/03/18
10900 C DO 7 I 08/03/18
11000 C WX(I) LOOKUP WN 33 08/03/18
11100 C EVAL *IN41 = NOT *IN33 08/03/18
11200 C 41 LEAVESR 08/03/18
11300 C ENDDO 08/03/18
11400 08/03/18
11500 08/03/18
11600 *V_COL2 08/03/18
11700 C IF V_COL2 <> '*RCDLEN' 08/03/18
11800 C MOVE V_COL2 V_COL 08/03/18
11900 C MOVE *BLANK V_COL2 08/03/18
12000 C DO 7 I 08/03/18
12100 C IF WX(I) <> *BLANK 08/03/18
12200 C EVAL V_COL2 = %TRIM(V_COL2) + WX(I) 08/03/18
12300 C ENDIF 08/03/18
12400 C ENDDO 08/03/18
12500 C MOVE V_COL2 V_COL 08/03/18
12600 C DO 7 I 08/03/18
12700 C WX(I) LOOKUP WN 33 08/03/18
12800 C EVAL *IN42 = NOT *IN33 08/03/18
12900 C 42 LEAVESR 08/03/18
13000 C ENDDO 08/03/18
13100 C ENDIF 08/03/18
13200 C ENDSR 08/03/06
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNSRC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FSOURCE IF F 256 DISK USROPN 08/03/25
300 FLADMOBJS IPE E K DISK 08/04/03
400 FFADMPRJ IF E K DISK 08/03/25
500 FFADMENV IF E K DISK 08/04/04
600 FFADMSCN O A E K DISK 08/03/25
700 *---------------------------------------------------------* 05/06/21
800 * SDS USER 05/06/21
900 D SDS 05/06/21
1000 D V_USER 254 263 UTILISATEUR 05/06/21
1100 D V_ECR 244 253 ECR./JOB. 05/06/21
1200 D V_MSG 91 170 MESSAGE 05/06/21
1300 D P_RPG *PROC NOM PGM 05/06/21
1400 D V_ERR *STATUS N°ERREUR DS PGM 05/06/21
1500 05/06/21
1600 08/03/25
1700 *---------------------------------------------------------------- 08/03/25
1800 D CMD S 850 INZ 08/03/25
1900 D P_CDE S 850 INZ 08/03/25
2000 D P_CDE_LEN S 15 5 08/03/25
2100 *---------------------------------------------------------------- 98/12/02
2200 D DS 98/12/02
2300 D V_ENRG 1 256 08/03/25
2400 * TYPE CARTE 98/12/02
2500 D OBNSEQ 6S 0 OVERLAY(V_ENRG:1 ) 08/03/25
2600 D CARTE 1 OVERLAY(V_ENRG:18 ) 09/02/02
2700 D CARTEX 1 OVERLAY(V_ENRG:19 ) 09/02/02
2800 D X_ENRG 244 OVERLAY(V_ENRG:13 ) 08/03/25
2900 98/12/02
3000 *---------------------------------------------------------------- 98/12/02
3100 98/12/02
3200 D V_LEN S 3S 0 08/03/25
3300 D V_POS S LIKE(V_LEN) 08/03/28
3400 D V_LIB S LIKE(OBOLIB) 08/03/25
3500 D V_SCAN S 51 08/03/28
3600 D V_SCANX S LIKE(V_SCAN) 09/01/27
3700 D V_T S LIKE(V_LEN) 09/01/13
3800 98/12/02
3900 95/11/06
4000 98/12/02
4100 ISOURCE AA 01 94/03/07
4200 I 1 112 ENRG 98/12/02
4300 I 19 112 ENRGX 09/01/13
4400 I 57 62 REFFLD 09/01/13
4500 08/03/25
4600 *---------------------------------------------------------------- 08/03/25
4700 C K_PRJ KLIST 08/03/25
4800 C KFLD OBSOC 08/03/25
4900 C KFLD OBPRJ 08/03/25
5000 *----- 94/03/07
5100 C *ENTRY PLIST 98/12/02
5200 C PARM P_SCAN 50 08/03/25
5300 05/06/22
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNSRC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C IF NOT *IN45 08/03/27
5500 C EVAL V_LEN = %LEN(%TRIM(P_SCAN)) 08/03/27
5600 C EVAL V_SCAN = %TRIM(P_SCAN) 08/03/28
5700 C '#' SCAN P_SCAN V_POS 77 09/01/27
5800 C IF *IN77 AND V_LEN = V_POS 09/01/27
5900 C EVAL V_SCAN = %REPLACE(' ' : P_SCAN: V_POS : 1) 08/03/28
6000 C ENDIF 08/03/28
6100 C 02/02/11
6200 C V_USER CHAIN ADMENVF1 33 08/04/04
6300 C SETON 45 08/03/27
6400 C ENDIF 08/03/27
6500 08/03/25
6600 C IF OBPRJ <> PRPRJ 08/04/03
6700 C K_PRJ CHAIN ADMPRJF1 33 08/04/04
6800 C 33 GOTO T_ERR 08/04/03
6900 C ENDIF 08/04/03
7000 *--- 08/03/25
7100 * ADDLILBLE LIB COMPILE 08/03/25
7200 C SELECT 08/03/25
7300 C WHEN OBT = 'W' 08/04/04
7400 C EVAL V_LIB = ENLIBW DEVELOPPEMENT PC 08/04/04
7500 C WHEN OBD <> *BLANK 08/03/25
7600 C EVAL V_LIB = PRLIBD DEVELOPPEMENT 08/03/25
7700 C WHEN OBQ <> *BLANK 08/03/25
7800 C EVAL V_LIB = PRLIBQ QUALITE 08/03/25
7900 C WHEN OBP <> *BLANK 08/03/25
8000 C EVAL V_LIB = PRLIBP PRODUCTION 08/03/25
8100 C ENDSL 08/03/25
8200 99/07/29
8300 C EVAL CMD = 'OVRDBF SOURCE TOFILE('+ 08/03/25
8400 C %TRIM(V_LIB) + '/' + 08/03/25
8500 C %TRIM(OBOFCH) + ') MBR(' + 08/03/25
8600 C %TRIM(OBOOBJ) + ')' 08/03/25
8700 08/03/25
8800 C EXSR $CMD 08/03/25
8900 08/03/25
9000 C OPEN SOURCE 33 98/12/02
9100 C IF *IN33 07/03/10
9200 C EVAL CMD = 'DLTOVR SOURCE' 08/03/25
9300 08/03/25
9400 C EXSR $CMD 08/03/25
9500 08/03/25
9600 C GOTO T_ERR 07/03/10
9700 C ENDIF 07/03/10
9800 *-------------------- 94/03/07
9900 *-------------------- 98/12/02
10000 *-------------------- 98/12/02
10100 C 08/03/27
10200 C DO *HIVAL 08/03/25
10300 C READ SOURCE 33 98/12/02
10400 C 33 LEAVE 98/12/02
10500 C EVAL V_ENRG = ENRG 98/12/02
10600 *----- 95/06/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNSRC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 *- LORSQU'IL Y A UN # RECHERCHE DE FICHIER 09/01/27
10800 *----- 09/01/27
10900 C SELECT 09/01/27
11000 C WHEN OBOATR = 'RPG' AND *IN77 OR 09/01/27
11100 C OBOATR = 'RPGLE' AND *IN77 OR 09/01/27
11200 C OBOATR = 'SQLRPGLE' AND *IN77 09/01/27
11300 ** EVAL *IN55 = CARTE = 'H' OR CARTE = ' ' 09/03/03
11400 C EVAL *IN55 = CARTE = ' ' 09/03/03
11500 C 55 ITER 09/01/27
11600 C EVAL *IN55 = CARTEX = '*' 09/02/02
11700 C 55 ITER 09/02/02
11800 C EVAL *IN55 = CARTE <> 'F' 09/01/27
11900 C 55 LEAVE 09/01/27
12000 09/01/27
12100 C EVAL V_SCANX = 'F' + %TRIM(V_SCAN) 09/01/27
12200 C EVAL V_LEN = %LEN(%TRIM(V_SCANX)) 09/02/06
12300 C IF V_LEN <10 09/02/06
12400 C ADD 1 V_LEN 09/02/06
12500 C ENDIF 09/02/06
12600 C OTHER 09/01/27
12700 C EVAL V_LEN = %LEN(%TRIM(V_SCAN)) 09/01/27
12800 C EVAL V_SCANX = %TRIM(V_SCAN) 09/01/27
12900 C ENDSL 09/01/27
13000 09/01/27
13100 * TRAITEMENT DSPF PRTF RECHERCHE '-' COUPURE DE FICHIER 09/01/27
13200 C IF REFFLD = 'REFFLD' 09/01/27
13300 C IF OBOATR = 'DSPF' OR 09/01/27
13400 C OBOATR = 'PRTF' 09/01/27
13500 C Z-ADD *ZEROS V_T 09/01/27
13600 C EVAL V_T = %SCAN('-' : V_ENRG) 09/01/27
13700 C IF V_T > *ZEROS 09/01/27
13800 C EVAL V_ENRG = %REPLACE(' ' : V_ENRG: V_T : 1) 09/01/27
13900 C READ SOURCE 33 09/01/27
14000 C EVAL V_ENRG = %TRIM(V_ENRG) + %TRIM(ENRGX) 09/01/27
14100 C ENDIF 09/01/27
14200 C ENDIF 09/01/27
14300 C ENDIF 09/01/27
14400 C 09/01/27
14500 C V_SCANX:V_LEN SCAN X_ENRG:1 66 09/01/27
14600 C IF *IN66 08/03/25
14700 08/03/25
14800 C IF OBTXTU <> *BLANKS 08/03/25
14900 C EVAL OBTXTE = OBTXTU 08/03/25
15000 C ELSE 08/03/25
15100 C EVAL OBTXTE = OBTXTP 08/03/25
15200 C ENDIF 08/03/25
15300 08/03/25
15400 C EVAL OBLIBJ = V_LIB 08/03/25
15500 C EVAL OBCODE = X_ENRG 08/03/25
15600 C WRITE ADMSCNF1 33 08/06/19
15700 C ENDIF 08/03/25
15800 C ENDDO 98/12/02
15900 02/02/11
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCNSRC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 02/02/11
16100 *-------------------- 98/12/02
16200 *-------------------- 98/12/02
16300 *- 98/12/02
16400 *============================================================================================= 98/12/02
16500 98/12/02
16600 C CLOSE SOURCE 33 98/12/02
16700 98/12/02
16800 C EVAL CMD = 'DLTOVR SOURCE' 08/03/25
16900 C EXSR $CMD 08/03/25
17000 C T_ERR TAG 07/03/10
17100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/06/22
17200 C $CMD BEGSR 08/03/25
17300 C EVAL P_CDE_LEN = %LEN(%TRIM(CMD)) 08/03/25
17400 C CALL 'QCMDEXC' 66 08/03/25
17500 C PARM CMD P_CDE 08/03/25
17600 C PARM P_CDE_LEN 08/03/25
17700 C EVAL CMD = *BLANK 08/03/25
17800 C ENDSR 08/03/25
17900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/25
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN00
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FSOURCE IF F 256 DISK USROPN 09/01/27
300 FLADMOBJS IPE E K DISK 09/01/27
400 FFADMPRJ IF E K DISK 09/01/27
500 FFADMENV IF E K DISK 09/01/27
600 FFADMSCNX IF E K DISK RENAME(ADMSCNF1 : FMTXXX) 09/01/27
700 F PREFIX(XX:2) 09/01/28
800 FFADMSCN O A E K DISK 09/01/27
900 *---------------------------------------------------------* 09/01/27
1000 * SDS USER 09/01/27
1100 D SDS 09/01/27
1200 D V_USER 254 263 UTILISATEUR 09/01/27
1300 D V_ECR 244 253 ECR./JOB. 09/01/27
1400 D V_MSG 91 170 MESSAGE 09/01/27
1500 D P_RPG *PROC NOM PGM 09/01/27
1600 D V_ERR *STATUS N°ERREUR DS PGM 09/01/27
1700 09/01/27
1800 09/01/27
1900 *---------------------------------------------------------------- 09/01/27
2000 D CMD S 850 INZ 09/01/27
2100 D P_CDE S 850 INZ 09/01/27
2200 D P_CDE_LEN S 15 5 09/01/27
2300 *---------------------------------------------------------------- 09/01/27
2400 D DS 09/01/27
2500 D V_ENRG 1 256 09/01/27
2600 * TYPE CARTE 09/01/27
2700 D OBNSEQ 6S 0 OVERLAY(V_ENRG:1 ) 09/01/27
2800 D X_ENRG 244 OVERLAY(V_ENRG:13 ) 09/01/27
2900 09/01/27
3000 *---------------------------------------------------------------- 09/01/27
3100 09/01/27
3200 D V_LEN S 3S 0 09/01/27
3300 D V_POS S LIKE(V_LEN) 09/01/27
3400 D V_LIB S LIKE(OBOLIB) 09/01/27
3500 D V_SCAN S 51 09/01/27
3600 D V_SCANX S LIKE(V_SCAN) 09/01/27
3700 D V_T S LIKE(V_LEN) 09/01/27
3800 D I S LIKE(V_LEN) 09/01/27
3900 D U S LIKE(V_LEN) 09/01/27
4000 09/01/27
4100 D PHY S 10 DIM(900) 09/01/27
4200 09/01/27
4300 09/01/27
4400 ISOURCE AA 01 09/01/27
4500 I 1 112 ENRG 09/01/27
4600 I 19 112 ENRGX 09/01/27
4700 I 57 62 REFFLD 09/01/27
4800 I 18 18 CARTE 09/01/28
4900 09/01/27
5000 *---------------------------------------------------------------- 09/01/27
5100 C K_PRJ KLIST 09/01/27
5200 C KFLD OBSOC 09/01/27
5300 C KFLD OBPRJ 09/01/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN00
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *----- 09/01/27
5500 09/01/27
5600 C IF NOT *IN45 09/01/27
5700 C DO *HIVAL 09/01/27
5800 C READ FMTXXX 33 09/01/27
5900 C 33 LEAVE 09/01/27
6000 C XXOOBJ LOOKUP PHY 33 09/01/28
6100 C N33 ADD 1 I 09/01/27
6200 C N33 MOVEL XXOOBJ PHY(I) 09/01/28
6300 C ENDDO 09/01/27
6400 C 09/01/27
6500 C V_USER CHAIN ADMENVF1 33 09/01/27
6600 C SETON 45 09/01/27
6700 C ENDIF 09/01/27
6800 09/01/27
6900 C IF OBOATR = 'PF' AND *INU1 OR 09/01/27
7000 C OBOATR = 'LF' AND *INU1 OR 09/01/27
7100 C OBOATR = 'CMD ' AND *INU1 OR 09/01/27
7200 C OBOATR = 'TXT ' AND *INU1 OR 09/01/27
7300 C OBOATR = 'GLOBAL' AND *INU1 OR 09/01/27
7400 C OBOATR = 'DTAARA' AND *INU1 OR 09/01/27
7500 C OBOATR = 'DSPF' AND *INU1 OR 09/01/27
7600 C OBOATR = 'PRTF' AND *INU1 09/01/27
7700 C GOTO T_ERR 09/01/27
7800 C ENDIF 09/01/27
7900 09/01/27
8000 C IF OBPRJ <> PRPRJ 09/01/27
8100 C K_PRJ CHAIN ADMPRJF1 33 09/01/27
8200 C 33 GOTO T_ERR 09/01/27
8300 C ENDIF 09/01/27
8400 09/01/27
8500 *--- 09/01/27
8600 * ADDLILBLE LIB COMPILE 09/01/27
8700 C SELECT 09/01/27
8800 C WHEN OBT = 'W' 09/01/27
8900 C EVAL V_LIB = ENLIBW DEVELOPPEMENT PC 09/01/27
9000 C WHEN OBD <> *BLANK 09/01/27
9100 C EVAL V_LIB = PRLIBD DEVELOPPEMENT 09/01/27
9200 C WHEN OBQ <> *BLANK 09/01/27
9300 C EVAL V_LIB = PRLIBQ QUALITE 09/01/27
9400 C WHEN OBP <> *BLANK 09/01/27
9500 C EVAL V_LIB = PRLIBP PRODUCTION 09/01/27
9600 C ENDSL 09/01/27
9700 09/01/27
9800 C EVAL CMD = 'OVRDBF SOURCE TOFILE('+ 09/01/27
9900 C %TRIM(V_LIB) + '/' + 09/01/27
10000 C %TRIM(OBOFCH) + ') MBR(' + 09/01/27
10100 C %TRIM(OBOOBJ) + ')' 09/01/27
10200 09/01/27
10300 C EXSR $CMD 09/01/27
10400 09/01/27
10500 C OPEN SOURCE 33 09/01/27
10600 C IF *IN33 09/01/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN00
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C EVAL CMD = 'DLTOVR SOURCE' 09/01/27
10800 09/01/27
10900 C EXSR $CMD 09/01/27
11000 09/01/27
11100 C GOTO T_ERR 09/01/27
11200 C ENDIF 09/01/27
11300 *-------------------- 09/01/27
11400 *-------------------- 09/01/27
11500 *-------------------- 09/01/27
11600 C 09/01/27
11700 C DO *HIVAL 09/01/27
11800 C READ SOURCE 33 09/01/27
11900 C 33 LEAVE 09/01/27
12000 09/01/27
12100 C SELECT 09/01/27
12200 C WHEN OBOATR = 'RPG' OR 09/01/28
12300 C OBOATR = 'RPGLE' OR 09/01/28
12400 C OBOATR = 'SQLRPGLE' 09/01/28
12500 C EVAL *IN55 = CARTE = 'H' OR CARTE = ' ' 09/01/27
12600 C 55 ITER 09/01/27
12700 C EVAL *IN55 = CARTE <> 'F' 09/01/27
12800 C 55 LEAVE 09/01/27
12900 C ENDSL 09/01/27
13000 09/01/27
13100 09/01/27
13200 C EVAL V_ENRG = ENRG 09/01/27
13300 * TRAITEMENT DSPF PRTF RECHERCHE '-' COUPURE DE FICHIER 09/01/27
13400 C IF REFFLD = 'REFFLD' 09/01/27
13500 C IF OBOATR = 'DSPF' OR 09/01/27
13600 C OBOATR = 'PRTF' 09/01/27
13700 C Z-ADD *ZEROS V_T 09/01/27
13800 C EVAL V_T = %SCAN('-' : V_ENRG) 09/01/27
13900 C IF V_T > *ZEROS 09/01/27
14000 C EVAL V_ENRG = %REPLACE(' ' : V_ENRG: V_T : 1) 09/01/27
14100 C READ SOURCE 33 09/01/27
14200 C EVAL V_ENRG = %TRIM(V_ENRG) + %TRIM(ENRGX) 09/01/27
14300 C ENDIF 09/01/27
14400 C ENDIF 09/01/27
14500 C ENDIF 09/01/27
14600 09/01/27
14700 *----- 09/01/27
14800 *- LORSQU'IL Y A UN # RECHERCHE DE FICHIER 09/01/27
14900 *----- 09/01/27
15000 C 09/01/27
15100 09/01/27
15200 C 1 DO I U 09/01/28
15300 C SELECT 09/01/27
15400 C WHEN OBOATR = 'RPG' OR 09/01/28
15500 C OBOATR = 'RPGLE' OR 09/01/28
15600 C OBOATR = 'SQLRPGLE' 09/01/28
15700 09/01/27
15800 C EVAL V_SCANX = 'F' + %TRIM(PHY(U)) 09/01/27
15900 C EVAL V_LEN = %LEN(%TRIM(V_SCANX)) 09/01/27
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN00
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C OTHER 09/01/27
16100 C EVAL V_SCANX = %TRIM(PHY(U)) 09/01/27
16200 C EVAL V_LEN = %LEN(%TRIM(V_SCANX)) 09/01/27
16300 C ENDSL 09/01/27
16400 C 09/01/27
16500 C V_SCANX:V_LEN SCAN X_ENRG:1 66 09/01/27
16600 C IF *IN66 09/01/27
16700 09/01/27
16800 C IF OBTXTU <> *BLANKS 09/01/27
16900 C EVAL OBTXTE = OBTXTU 09/01/27
17000 C ELSE 09/01/27
17100 C EVAL OBTXTE = OBTXTP 09/01/27
17200 C ENDIF 09/01/27
17300 09/01/27
17400 C EVAL OBLIBJ = V_LIB 09/01/27
17500 C EVAL OBCODE = X_ENRG 09/01/27
17600 C EVAL OBUSR = '*DEP' 09/01/28
17700 C WRITE ADMSCNF1 33 09/01/27
17800 C ENDIF 09/01/27
17900 C ENDDO 09/01/27
18000 C ENDDO 09/01/27
18100 09/01/27
18200 09/01/27
18300 *-------------------- 09/01/27
18400 *-------------------- 09/01/27
18500 *- 09/01/27
18600 *============================================================================================= 09/01/27
18700 09/01/27
18800 C CLOSE SOURCE 33 09/01/27
18900 09/01/27
19000 C EVAL CMD = 'DLTOVR SOURCE' 09/01/27
19100 C EXSR $CMD 09/01/27
19200 C T_ERR TAG 09/01/27
19300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 09/01/27
19400 C $CMD BEGSR 09/01/27
19500 C EVAL P_CDE_LEN = %LEN(%TRIM(CMD)) 09/01/27
19600 C CALL 'QCMDEXC' 66 09/01/27
19700 C PARM CMD P_CDE 09/01/27
19800 C PARM P_CDE_LEN 09/01/27
19900 C EVAL CMD = *BLANK 09/01/27
20000 C ENDSR 09/01/27
20100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 09/01/27
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN01
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FFADMSCN IPE E K DISK 08/04/03
300 FWADMSCN01 O E PRINTER OFLIND(*IN99) 08/03/25
400 99/05/17
500 IADMSCNF1 01 08/03/25
600 I OBSOC L3 08/06/11
700 I OBPRJ L2 08/06/11
800 I OBOOBJ L1 08/06/11
900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/06/22
1000 C *ENTRY PLIST 08/06/11
1100 C PARM P_SCAN 50 08/06/11
1200 C IF *INL1 09/01/13
1300 C L2 08/06/11
1400 COR 99 WRITE WSCNE01 08/03/25
1500 * 08/03/25
1600 C L2 08/06/11
1700 COR 99 WRITE WSCNE02 08/06/11
1800 C L1 WRITE WSCND01 99 08/06/11
1900 C ENDIF 09/01/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN02
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FFADMSCN IPE E K DISK 08/04/03
300 FWADMSCN02 O E PRINTER OFLIND(*IN99) 08/06/11
400 99/05/17
500 IADMSCNF1 01 08/03/25
600 I OBSOC L3 08/06/11
700 I OBPRJ L2 08/06/11
800 I OBOOBJ L1 08/06/11
900 I OBOTYP L1 08/06/11
1000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/06/22
1100 C *ENTRY PLIST 08/06/11
1200 C PARM P_SCAN 50 08/06/11
1300 C IF *INL1 = *ON 09/01/27
1400 C L2 08/06/11
1500 COR 99 WRITE WSCNE01 08/03/25
1600 * 08/03/25
1700 C L2 08/06/11
1800 COR 99 WRITE WSCNE02 08/06/11
1900 C L1 WRITE WSCND01 99 08/06/11
2000 C SETON 45 09/01/13
2100 C ENDIF 09/01/13
2200 C 45 WRITE WSCND02 99 09/01/13
2300 CL1 45 WRITE WSCND03 99 09/01/13
2400 CL1 SETOFF 45 09/01/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSCN03
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 09/03/03
200 FFADMSCN IPE E K DISK 08/04/03
300 FWADMSCN03 O E PRINTER OFLIND(*IN99) 09/01/27
400 99/05/17
500 IADMSCNF1 01 08/03/25
600 I OBSOC L3 08/06/11
700 I OBPRJ L2 08/06/11
800 I OBOOBJ L1 08/06/11
900 I OBOTYP L1 08/06/11
1000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 05/06/22
1100 C *ENTRY PLIST 08/06/11
1200 C PARM P_SCAN 50 08/06/11
1300 C IF *INL1 = *ON 09/01/27
1400 C L2 08/06/11
1500 COR 99 WRITE WSCNE01 08/03/25
1600 * 08/03/25
1700 C L2 08/06/11
1800 COR 99 WRITE WSCNE02 08/06/11
1900 C L1 WRITE WSCND01 99 08/06/11
2000 C SETON 45 09/01/13
2100 C ENDIF 09/01/13
2200 C 45 WRITE WSCND02 99 09/01/13
2300 CL1 45 WRITE WSCND03 99 09/01/13
2400 CL1 SETOFF 45 09/01/13
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/04
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMSOC UF A E K DISK 08/03/04
600 FSADMSOC CF E WORKSTN INFDS(V_DSPF) 08/02/03
700 F SFILE(SSOCE1:LIGN1) 08/02/03
800 * 08/01/30
900 *--------------------------------------------------------------------------------------------- 08/01/30
1000 * UDS 08/01/30
1100 *--------------------------------------------------------------------------------------------- 08/01/30
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/03/04
1400 *--------------------------------------------------------------------------------------------- 08/01/30
1500 * KLIST DES FICHIERS 08/01/30
1600 *--------------------------------------------------------------------------------------------- 08/01/30
1700 C K_SO KLIST FADMSOC 08/02/03
1800 C KFLD V_SOC NOM SOCIETE 08/02/03
1900 * 08/01/30
2000 *--------------------------------------------------------------------------------------------- 08/01/30
2100 * 08/01/30
2200 * 08/01/30
2300 *--------------------------------------------------------------------------------------------- 08/01/30
2400 * INIT DU PGM 08/01/30
2500 *--------------------------------------------------------------------------------------------- 08/01/30
2600 C MOVE *ALL'0' *IN 08/01/30
2700 *--------------------------------------------------------------------------------------------- 08/01/30
2800 *--------------------------------------------------------------------------------------------- 08/01/30
2900 * DEBUT PROGRAMME 08/02/21
3000 *--------------------------------------------------------------------------------------------- 08/01/30
3100 C EXSR $SFL 08/02/21
3200 C DO *HIVAL 08/01/30
3300 C WRITE SSOCI1 08/02/03
3400 C EXFMT SSOCC1 08/02/03
3500 C 03 LEAVE 08/01/30
3600 08/01/30
3700 C 91 READC SSOCE1 33 08/02/03
3800 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/01/30
3900 C MOVEL SOSOC V_SOC 08/02/03
4000 C MOVE *BLANK V_CHX 08/01/30
4100 C UPDATE SSOCE1 08/02/03
4200 C ITER 08/01/30
4300 C ENDIF 08/01/30
4400 08/01/30
4500 C V_KEY CASEQ F_AID $AID 08/01/30
4600 C *IN09 CASEQ *ON $ADD 08/01/30
4700 C *IN11 CASEQ *ON $MAJ 08/01/30
4800 C *IN23 CASEQ *ON $DLT 08/01/30
4900 C CAS $SFL 08/01/30
5000 C ENDCS 08/01/30
5100 *----------------------------------------------* 08/01/30
5200 C 03 LEAVE 08/01/30
5300 C ENDDO 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 *--------------------------------------------------------------------------------------------- 08/01/30
5500 *--------------------------------------------------------------------------------------------- 08/01/30
5600 * FIN PROGRAMME 08/02/21
5700 *--------------------------------------------------------------------------------------------- 08/01/30
5800 C SETON LR 08/01/30
5900 ********************************************************************************************** 08/01/30
6000 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
6100 * SFL 08/01/30
6200 *--------------------------------------------------------------------------------------------- 08/01/30
6300 C $SFL BEGSR 08/01/30
6400 *----- 08/01/30
6500 C SETOFF 9195 08/01/30
6600 C SETON 96 08/01/30
6700 C WRITE SSOCC1 08/02/03
6800 C SETOFF 96 08/01/30
6900 C MOVE *BLANK V_CHX 08/01/30
7000 *--------------------------------------------------------------------------------------------- 08/01/30
7100 C *LOVAL SETLL FADMSOC 08/02/03
7200 *----- 08/01/30
7300 C DO *HIVAL LIGN1 4 0 08/03/04
7400 C READ(N) ADMSOCF1 95 IND MORE 08/02/03
7500 C 95 LEAVE 08/01/30
7600 C WRITE SSOCE1 08/02/03
7700 *- 08/01/30
7800 C SETON 91 08/01/30
7900 C ENDDO 08/01/30
8000 C Z-ADD 1 LIGN1 08/01/30
8100 *----- 08/01/30
8200 C ENDSR 08/01/30
8300 ***************************************************************** 08/01/30
8400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
8500 * AJOUT RECORD 08/01/30
8600 *--------------------------------------------------------------------------------------------- 08/01/30
8700 *----- 08/01/30
8800 C $ADD BEGSR 08/01/30
8900 *----- TEST EXISTE OUI ERR 08/01/30
9000 C K_SO CHAIN ADMSOCF1 3366 FADMSOC 08/02/03
9100 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 EXISTE DEJA 08/01/30
9200 C 25 LEAVESR 08/01/30
9300 C EVAL *IN26 = *IN66 OCCUPE 08/01/30
9400 C 26 LEAVESR 08/01/30
9500 * TEST KEY *BLANK 08/01/30
9600 C EVAL *IN33 = (V_SOC = *BLANK) 08/02/03
9700 C 33 LEAVESR 08/02/03
9800 *- 08/01/30
9900 * TRAITEMENT ECRAN N° 1 08/01/30
10000 *- 08/01/30
10100 C CLEAR ADMSOCF1 08/02/03
10200 C SETON 50 IND PROTEC KEY FMT 08/01/30
10300 C DO *HIVAL 08/01/30
10400 C WRITE SSOCI1 08/02/03
10500 C EXFMT SSOCC1 08/02/03
10600 C SELECT 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C WHEN *IN03 OR *IN12 08/01/30
10800 C SETOFF 50 08/01/30
10900 C LEAVESR 08/01/30
11000 *----- AIDE EN LIGNE 08/01/30
11100 C WHEN V_KEY = F_AID 08/01/30
11200 C EXSR $AID 08/01/30
11300 *----- TRAITEMENT 08/01/30
11400 C WHEN V_KEY = F_ENT 08/01/30
11500 *----- RECHERCHE SI ERR 08/01/30
11600 C EXSR $EC01 08/01/30
11700 C 40 DO 40 I 08/01/30
11800 C EVAL *IN66 = *IN(I) 08/01/30
11900 C N66 ENDDO 08/01/30
12000 C 66 ITER 08/01/30
12100 C 08/01/30
12200 *----- VALIDATION 08/01/30
12300 C MOVE NON V_CONF 08/01/30
12400 C EXFMT SSOCV99 08/02/03
12500 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
12600 C 66 ITER 08/01/30
12700 *- 08/01/30
12800 *----- ENREGISTREMENT 08/01/30
12900 C SETOFF 50 08/01/30
13000 C K_SO CHAIN ADMSOCF1 3366 FADMSOC 08/02/03
13100 C N33 LEAVESR 08/01/30
13200 *----- INIT ZONE ENRG 08/01/30
13300 C MOVE V_SOC SOSOC 08/02/03
13400 C MOVE *DATE SODCRT 08/02/03
13500 C MOVE *DATE SODMAJ 08/02/03
13600 C WRITE ADMSOCF1 66 08/02/03
13700 *----- 08/01/30
13800 C EXSR $SFL 08/01/30
13900 C LEAVESR 08/01/30
14000 *----- 08/01/30
14100 C ENDSL 08/01/30
14200 C ENDDO 08/01/30
14300 C ENDSR 08/01/30
14400 *============================================================================================= 08/01/30
14500 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
14600 * MAJ RECORD 08/01/30
14700 *--------------------------------------------------------------------------------------------- 08/01/30
14800 *----- 08/01/30
14900 C $MAJ BEGSR 08/01/30
15000 *----- TEST EXISTE OUI ERR 08/01/30
15100 C K_SO CHAIN ADMSOCF1 2726 FADMSOC 08/02/03
15200 C 26 LEAVESR OCCUPE 08/01/30
15300 C 27 LEAVESR NON TROUVE 08/01/30
15400 *- 08/01/30
15500 * TRAITEMENT ECRAN N° 1 08/01/30
15600 *- 08/01/30
15700 C SETON 50 IND PROTEC KEY FMT 08/01/30
15800 C DO *HIVAL 08/01/30
15900 C WRITE SSOCI1 08/02/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C EXFMT SSOCC1 08/02/03
16100 C SELECT 08/01/30
16200 C WHEN *IN03 OR *IN12 08/01/30
16300 C SETOFF 50 08/01/30
16400 C LEAVESR 08/01/30
16500 *----- AIDE EN LIGNE 08/01/30
16600 C WHEN V_KEY = F_AID 08/01/30
16700 C EXSR $AID 08/01/30
16800 *----- TRAITEMENT 08/01/30
16900 C WHEN V_KEY = F_ENT 08/01/30
17000 *----- RECHERCHE SI ERR 08/01/30
17100 C EXSR $EC01 08/01/30
17200 C 40 DO 40 I 08/01/30
17300 C EVAL *IN66 = *IN(I) 08/01/30
17400 C N66 ENDDO 08/01/30
17500 C 66 ITER 08/01/30
17600 C 08/01/30
17700 *----- VALIDATION 08/01/30
17800 C MOVE NON V_CONF 08/01/30
17900 C EXFMT SSOCV99 08/02/03
18000 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
18100 C 66 ITER 08/01/30
18200 *- 08/01/30
18300 *----- ENREGISTREMENT 08/01/30
18400 C SETOFF 50 08/01/30
18500 *----- INIT ZONE ENRG 08/01/30
18600 C MOVE *DATE SODMAJ 08/02/03
18700 C UPDATE ADMSOCF1 66 08/02/03
18800 *----- 08/01/30
18900 C EXSR $SFL 08/01/30
19000 C LEAVESR 08/01/30
19100 *----- 08/01/30
19200 C ENDSL 08/01/30
19300 C ENDDO 08/01/30
19400 C ENDSR 08/01/30
19500 *============================================================================================= 08/01/30
19600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
19700 * DEL RECORD 08/01/30
19800 *--------------------------------------------------------------------------------------------- 08/01/30
19900 *----- 08/01/30
20000 C $DLT BEGSR 08/01/30
20100 *----- TEST EXISTE OUI ERR 08/01/30
20200 C K_SO CHAIN ADMSOCF1 2726 FADMSOC 08/02/03
20300 C 26 LEAVESR OCCUPE 08/01/30
20400 C 27 LEAVESR NON TROUVE 08/01/30
20500 *- 08/01/30
20600 * TRAITEMENT ECRAN N° 1 08/01/30
20700 *- 08/01/30
20800 C SETON 50 IND PROTEC KEY FMT 08/01/30
20900 C DO *HIVAL 08/01/30
21000 C WRITE SSOCI1 08/02/03
21100 C EXFMT SSOCC1 08/02/03
21200 C SELECT 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C WHEN *IN03 OR *IN12 08/01/30
21400 C LEAVESR 08/01/30
21500 *----- AIDE EN LIGNE 08/01/30
21600 C WHEN V_KEY = F_AID 08/01/30
21700 C SETOFF 50 08/03/04
21800 C SETOFF 23 08/03/04
21900 C EXSR $AID 08/01/30
22000 *----- TRAITEMENT 08/01/30
22100 C WHEN V_KEY = F_ENT 08/01/30
22200 *----- VALIDATION 08/01/30
22300 C MOVE NON V_CONF 08/01/30
22400 C EXFMT SSOCV99 08/02/03
22500 C EVAL *IN66 = (V_CONF = NON ) 08/01/30
22600 C 66 ITER 08/01/30
22700 *- 08/01/30
22800 *----- ENREGISTREMENT 08/01/30
22900 C SETOFF 50 08/01/30
23000 C SETOFF 23 08/03/04
23100 *----- INIT ZONE ENRG 08/01/30
23200 C DELETE ADMSOCF1 66 08/02/03
23300 *----- 08/01/30
23400 C EXSR $SFL 08/01/30
23500 C LEAVESR 08/01/30
23600 *----- 08/01/30
23700 C ENDSL 08/01/30
23800 C ENDDO 08/01/30
23900 C ENDSR 08/01/30
24000 *============================================================================================= 08/01/30
24100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
24200 * ERR ECRAN 01 08/01/30
24300 *--------------------------------------------------------------------------------------------- 08/01/30
24400 C $EC01 BEGSR 08/01/30
24500 *----- RECHERCHE SI ERR 08/01/30
24600 *======================= 08/01/30
24700 *----- 08/01/30
24800 *-- N° ZONE OBLIGATOIRE 08/01/30
24900 *----- 08/01/30
25000 C EVAL *IN41 = (SOTXT = *BLANK) 08/02/03
25100 C 41 LEAVESR 08/01/30
25200 *======================= 08/01/30
25300 C ENDSR 08/01/30
25400 ***************************************************************** 08/01/30
25500 *--------------------------------------------------------------------------------------------- 08/01/30
25600 * INCLUDE 08/01/30
25700 *--------------------------------------------------------------------------------------------- 08/01/30
25800 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
25900 *--------------------------------------------------------------------------------------------- 08/01/30
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOCP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMSOC IF E K DISK 08/03/21
600 FSADMSOCP CF E WORKSTN INFDS(V_DSPF) 08/02/14
700 F SFILE(SSOCWE1:LIGN1) 08/02/14
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/02/05
1400 D S_SOC S LIKE(SOSOC) 08/02/14
1500 *--------------------------------------------------------------------------------------------- 08/02/05
1600 * PLIST 08/02/13
1700 *--------------------------------------------------------------------------------------------- 08/02/13
1800 C *ENTRY PLIST 08/02/13
1900 C PARM P_SOC 10 08/02/14
2000 *--------------------------------------------------------------------------------------------- 08/02/05
2100 * 08/02/05
2200 * 08/02/05
2300 *--------------------------------------------------------------------------------------------- 08/02/05
2400 * KLIST DES FICHIERS 08/02/05
2500 *--------------------------------------------------------------------------------------------- 08/02/05
2600 C K_SO KLIST FADMSOC 08/03/28
2700 C KFLD SOSOC SOCIETE 08/03/28
2800 * 08/02/05
2900 *--------------------------------------------------------------------------------------------- 08/02/05
3000 * 08/02/05
3100 * 08/02/05
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 * INIT DU PGM 08/02/05
3400 *--------------------------------------------------------------------------------------------- 08/02/05
3500 C MOVE *ALL'0' *IN 08/02/05
3600 *--------------------------------------------------------------------------------------------- 08/02/05
3700 *--------------------------------------------------------------------------------------------- 08/02/05
3800 * DEBUT PROPRAMME 08/02/05
3900 *--------------------------------------------------------------------------------------------- 08/02/05
4000 C EXSR $SFL 08/02/13
4100 C DO *HIVAL 08/02/05
4200 C WRITE SSOCB0 08/02/22
4300 C EXFMT SSOCC1 08/02/14
4400 C 03 LEAVE 08/02/05
4500 08/02/05
4600 C 91 READC SSOCWE1 33 EOF 08/03/28
4700 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/02/05
4800 C EVAL P_SOC = SOSOC 08/02/14
4900 C MOVE *BLANK V_CHX 08/02/13
5000 C UPDATE SSOCWE1 08/02/14
5100 C LEAVE 08/02/13
5200 C ENDIF 08/02/05
5300 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMSOCP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C V_KEY CASEQ F_AID $AID 08/02/05
5500 C CAS $SFL 08/02/05
5600 C ENDCS 08/02/05
5700 *----------------------------------------------* 08/02/05
5800 C 03 LEAVE 08/02/05
5900 C ENDDO 08/02/05
6000 *--------------------------------------------------------------------------------------------- 08/02/05
6100 *--------------------------------------------------------------------------------------------- 08/02/05
6200 * FIN PROPRAMME 08/02/05
6300 *--------------------------------------------------------------------------------------------- 08/02/05
6400 C SETON LR 08/02/05
6500 ********************************************************************************************** 08/02/05
6600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
6700 * SFL 08/02/05
6800 *--------------------------------------------------------------------------------------------- 08/02/05
6900 C $SFL BEGSR 08/02/05
7000 *---KEY ACCES SFL 08/02/05
7100 C K_SFL KLIST FADMSOC 08/03/28
7200 C KFLD S_SOC SOCIETE 08/03/28
7300 *----- 08/02/05
7400 C SETOFF 9195 08/02/05
7500 C SETON 96 08/02/05
7600 C WRITE SSOCC1 08/02/14
7700 C SETOFF 96 08/02/05
7800 C MOVE *BLANK V_CHX 08/02/05
7900 *--------------------------------------------------------------------------------------------- 08/02/05
8000 C *LOVAL SETLL ADMSOCF1 08/02/14
8100 C K_SFL SETLL ADMSOCF1 08/02/14
8200 08/02/05
8300 C DO *HIVAL LIGN1 4 0 08/02/22
8400 C READ ADMSOCF1 95 *95 =EOF & SFLEND 08/02/29
8500 C 95 LEAVE 08/02/05
8600 C WRITE SSOCWE1 08/02/14
8700 *- 08/02/05
8800 C LIGN1 IFEQ 1 08/02/05
8900 C MOVE SOSOC S_SOC 08/02/14
9000 C ENDIF 08/02/05
9100 *- 08/02/05
9200 C SETON 91 08/02/05
9300 C ENDDO 08/02/05
9400 C Z-ADD 1 LIGN1 08/02/05
9500 *----- 08/02/05
9600 C ENDSR 08/02/05
9700 ***************************************************************** 08/02/05
9800 *--------------------------------------------------------------------------------------------- 08/02/05
9900 * INCLUDE 08/02/05
10000 *--------------------------------------------------------------------------------------------- 08/02/05
10100 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
10200 *--------------------------------------------------------------------------------------------- 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTRFP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMOBJ UF E K DISK 08/03/07
600 FLADMOBJU IF E K DISK RENAME(ADMOBJF1 :ADMOBJFU) 08/03/07
700 FFADMPRJ IF E K DISK 08/03/07
800 FFADMENV IF E K DISK 08/03/07
900 * 08/02/05
1000 *--------------------------------------------------------------------------------------------- 08/02/05
1100 * UDS 08/02/05
1200 *--------------------------------------------------------------------------------------------- 08/02/05
1300 D/COPY ADMOPS/QRPGLEINC,ADMQDBLDBR 08/04/03
1400 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/04/03
1500 *--------------------------------------------------------------------------------------------- 08/04/03
1600 *--------------------------------------------------------------------------------------------- 08/02/05
1700 D V_TAG S LIKE(ENTAG) 08/03/07
1800 08/03/07
1900 D P_SOC S LIKE(OBSOC) 08/03/07
2000 D P_PRJ S LIKE(OBPRJ) 08/03/07
2100 D P_OBJ S LIKE(OBOOBJ) 08/03/07
2200 D P_TYP S LIKE(OBOTYP) 08/03/07
2300 D P_VUE S LIKE(*IN) 08/03/07
2400 *--------------------------------------------------------------------------------------------- 08/04/03
2500 D V_LIBW S LIKE(OBOLIB) 08/04/03
2600 D V_LIB S LIKE(V_LIBW) 08/04/03
2700 D P_LIBF S LIKE(V_LIBW) 08/04/03
2800 D P_LIB S LIKE(V_LIBW) 08/04/03
2900 D P_MBR S LIKE(OBOOBJ) 08/04/03
3000 *--------------------------------------------------------------------------------------------- 08/04/03
3100 D CMD S 16000 INZ(*BLANK) 08/04/03
3200 D P_CMD S 16000 INZ(*BLANK) 08/04/03
3300 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/04/03
3400 *--------------------------------------------------------------------------------------------- 08/04/03
3500 D PTR_LST S * 08/04/03
3600 D OK S LIKE(*IN) 08/04/03
3700 D TROUVE S LIKE(*IN) 08/04/03
3800 *--------------------------------------------------------------------------------------------- 08/04/03
3900 D FIN S LIKE(*IN) 08/04/03
4000 08/04/03
4100 D L_LIBW S LIKE(ENLIBW) 08/04/03
4200 *--------------------------------------------------------------------------------------------- 08/03/07
4300 * KLIST DES FICHIERS 08/03/07
4400 *--------------------------------------------------------------------------------------------- 08/03/07
4500 C K_PR KLIST 08/03/07
4600 C KFLD P_SOC 08/03/07
4700 C KFLD P_PRJ 08/03/07
4800 * 08/03/07
4900 C K_OBJ KLIST 08/03/07
5000 C KFLD P_SOC SOCIETE 08/03/07
5100 C KFLD P_OBJ OBJET 08/03/07
5200 C KFLD P_TYP TYPE 08/03/07
5300 C K_OBU KLIST 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTRFP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C KFLD P_SOC SOCIETE 08/03/07
5500 C KFLD P_PRJ OBJET 08/03/07
5600 C KFLD P_OBJ OBJET 08/03/07
5700 C KFLD P_TYP TYPE 08/03/07
5800 *--------------------------------------------------------------------------------------------- 08/02/05
5900 C K_ENV KLIST FADMENV 08/03/28
6000 C KFLD OBUSR OBJ USER 08/03/28
6100 *--------------------------------------------------------------------------------------------- 08/02/05
6200 * INIT DU PGM 08/02/05
6300 *--------------------------------------------------------------------------------------------- 08/02/05
6400 C *ENTRY PLIST 08/03/07
6500 C PARM P_SOC 08/03/07
6600 C PARM P_PRJ 08/03/07
6700 C PARM P_OBJ 08/03/07
6800 C PARM P_TYP 08/03/07
6900 08/03/07
7000 C K_PR CHAIN ADMPRJF1 33 08/03/07
7100 C 33 GOTO T_FIN 08/03/07
7200 C V_USER CHAIN ADMENVF1 33 08/03/07
7300 C 33 GOTO T_FIN 08/03/07
7400 08/03/07
7500 08/03/07
7600 C MOVE ENTAG V_TAG 08/03/07
7700 C MOVE *ALL'0' *IN 08/02/05
7800 *--------------------------------------------------------------------------------------------- 08/02/05
7900 *--------------------------------------------------------------------------------------------- 08/02/05
8000 * DEBUT PROPRAMME 08/02/05
8100 *--------------------------------------------------------------------------------------------- 08/02/05
8200 08/03/07
8300 08/03/07
8400 08/03/07
8500 * DEVEROUILLAGE 08/04/03
8600 C K_OBU CHAIN ADMOBJFU 33 08/03/07
8700 C 33 GOTO T_FIN 08/03/07
8800 C K_ENV CHAIN ADMENVF1 33 08/03/07
8900 C N33 EVAL *IN40 = ENTRF ='N' 08/03/26
9000 C 40 GOTO T_FIN 08/03/07
9100 C T_55 TAG 08/03/07
9200 C K_OBJ CHAIN ADMOBJF1 55 08/03/07
9300 C 55 GOTO T_55 08/03/07
9400 C IF ENCHKT= 'Y' 08/03/27
9500 C MOVE V_TAG OBUSR 08/03/07
9600 C ELSE 08/03/07
9700 C MOVE V_USER OBUSR 08/03/07
9800 C ENDIF 08/03/07
9900 08/04/03
10000 08/04/03
10100 *--------------------------------------------------------------------------------------------- 08/04/03
10200 08/04/03
10300 * TRANSFERT SOURCE WDSC TO USER 08/04/03
10400 * COPY TO USER & DELETE FROM USER MBR.SOURCE 08/04/03
10500 08/04/03
10600 C IF OBT = 'W' 08/04/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTRFP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C MOVE ENLIBW V_LIBW 08/04/03
10800 C V_USER CHAIN ADMENVF1 33 08/04/03
10900 C CALLB 'MADMCPYMBR' 08/04/03
11000 C PARM V_LIBW P_LIBF 08/04/03
11100 C PARM ENLIBW P_LIB 08/04/03
11200 C PARM OBOFCH P_OBJ 08/04/03
11300 C PARM OBOOBJ P_MBR 08/04/03
11400 08/04/03
11500 C IF OBB ='B' 08/04/03
11600 C CALLB 'MADMCPYBLD' 08/04/03
11700 C PARM V_LIBW P_LIBF FROM 08/04/03
11800 C PARM ENLIBW P_LIB TO 08/04/03
11900 C PARM OBOOBJ P_MBR 08/04/03
12000 C ENDIF 08/04/03
12100 08/04/03
12200 C EVAL CMD = 'RMVM FILE(' + 08/04/03
12300 C %TRIM(V_LIBW ) +'/'+%TRIM(OBOFCH) + 08/04/03
12400 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/03
12500 C EXSR $CMD 08/04/03
12600 08/04/03
12700 C IF OBB ='B' 08/04/03
12800 C EVAL CMD = 'RMVM FILE(' + 08/04/03
12900 C %TRIM(V_LIBW ) +'/QBLDOPTSRC' + 08/04/03
13000 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/03
13100 C EXSR $CMD 08/04/03
13200 C ENDIF 08/04/03
13300 08/04/03
13400 C EVAL V_LIB = V_LIBW 08/04/03
13500 C EXSR $DLT_DQ 08/04/03
13600 C EVAL V_LIB = ENLIBW 08/04/03
13700 C EXSR $DLT_DQ 08/04/03
13800 C ENDIF 08/04/03
13900 *--------------------------------------------------------------------------------------------- 08/04/03
14000 08/04/03
14100 08/04/03
14200 C UPDATE ADMOBJF1 08/04/03
14300 *--------------------------------------------------------------------------------------------- 08/02/05
14400 * FIN PROPRAMME 08/02/05
14500 *--------------------------------------------------------------------------------------------- 08/02/05
14600 C T_FIN TAG 08/03/07
14700 C SETON LR 08/02/05
14800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/04/03
14900 C $CMD BEGSR 08/04/03
15000 C CALL 'QCMDEXC' 66 08/04/03
15100 C PARM CMD P_CMD 08/04/03
15200 C PARM P_CMD_LEN 08/04/03
15300 C EVAL CMD = *BLANK 08/04/03
15400 C ENDSR 08/04/03
15500 *========================================================================= 08/04/03
15600 C $DLT_DQ BEGSR 08/04/03
15700 C EVAL CMD = *BLANK 08/04/03
15800 C SELECT 08/04/03
15900 C WHEN OBOTYP = '*FILE' AND OBOATR <>'PF ' 08/04/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTRFP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C EVAL CMD = 'DLTF ' 08/04/03
16100 08/04/03
16200 C WHEN OBOTYP = '*FILE' AND OBOATR = 'PF ' 08/04/03
16300 C EXSR $FILE 08/04/03
16400 C EVAL CMD = 'DLTF ' 08/04/03
16500 08/04/03
16600 C WHEN OBOTYP = '*PGM ' 08/04/03
16700 C EVAL CMD = 'DLTMOD ' 08/04/03
16800 C EVAL CMD = %TRIM(CMD) + ' ' + 08/04/03
16900 C %TRIM(V_LIB) +'/' + %TRIM(OBOOBJ) 08/04/03
17000 C EXSR $CMD 08/04/03
17100 C EVAL CMD = 'DLTPGM ' 08/04/03
17200 08/04/03
17300 C WHEN OBOTYP = '*MODULE' 08/04/03
17400 C EVAL CMD = 'DLTMOD ' 08/04/03
17500 08/04/03
17600 C WHEN OBOTYP = '*SRVPGM' 08/04/03
17700 C EVAL CMD = 'DLTSRVPGM ' 08/04/03
17800 08/04/03
17900 C WHEN OBOTYP = '*CMD' 08/04/03
18000 C EVAL CMD = 'DLTCMD ' 08/04/03
18100 08/04/03
18200 C WHEN OBOTYP = '*DTAARA' 08/04/03
18300 C EVAL CMD = 'DLTDTAARA ' 08/04/03
18400 08/04/03
18500 08/04/03
18600 C WHEN OBOTYP = '*MSGF' 08/04/03
18700 C EVAL CMD = 'DLTMSGF ' 08/04/03
18800 08/04/03
18900 C WHEN OBOTYP = '*MENU' 08/04/03
19000 C EVAL CMD = 'DLTMNU ' 08/04/03
19100 08/04/03
19200 C WHEN OBOTYP = '*QMQRY' 08/04/03
19300 C EVAL CMD = 'DLTQMQRY' 08/04/03
19400 08/04/03
19500 C WHEN OBOTYP = '*QMFORM' 08/04/03
19600 C EVAL CMD = 'DLTQMFORM' 08/04/03
19700 08/04/03
19800 C ENDSL 08/04/03
19900 C IF CMD <> *BLANKS 08/04/03
20000 C EVAL CMD = %TRIM(CMD) + ' ' + 08/04/03
20100 C %TRIM(V_LIB) +'/' + %TRIM(OBOOBJ) 08/04/03
20200 C EXSR $CMD 08/04/03
20300 C ENDIF 08/04/03
20400 C ENDSR 08/04/03
20500 *========================================================================= 08/04/03
20600 C $FILE BEGSR 08/04/03
20700 C EVAL CMD = *BLANK 08/04/03
20800 08/04/03
20900 C CALLB 'MADMOBJCHK' 08/04/03
21000 C PARM V_LIB P_LIB 08/04/03
21100 C PARM OBOOBJ P_OBJ 08/04/03
21200 C PARM '*FILE 'P_TYP 08/04/03
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTRFP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C PARM '*NONE 'P_MBR 08/04/03
21400 C PARM TROUVE 08/04/03
21500 C EVAL *IN33 = TROUVE = *OFF 08/04/03
21600 C 33 LEAVESR 08/04/03
21700 C CALLB 'MADMDBRLST' 08/04/03
21800 C PARM V_LIB P_LIB 08/04/03
21900 C PARM OBOOBJ P_OBJ 08/04/03
22000 C DO *HIVAL 08/04/03
22100 C CALLB 'MADMUSPLST' 08/04/03
22200 C PARM PTR_LST 08/04/03
22300 C PARM FIN 08/04/03
22400 C EVAL *IN33 = FIN 08/04/03
22500 C 33 LEAVE 08/04/03
22600 C IF QDBDFILN <> '*NONE' 08/04/03
22700 C EVAL CMD = 'DLTF ' 08/04/03
22800 C EVAL CMD = %TRIM(CMD) + ' ' + 08/04/03
22900 C %TRIM(V_LIB) +'/' + %TRIM(QDBDFILN ) 08/04/03
23000 C EXSR $CMD 08/04/03
23100 C ENDIF 08/04/03
23200 C ENDDO 08/04/03
23300 08/04/03
23400 C ENDSR 08/04/03
23500 *========================================================================= 08/04/03
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMTYP UF A E K DISK 08/03/21
600 FSADMTYP CF E WORKSTN INFDS(V_DSPF) 08/02/05
700 F SFILE(STYPE1:LIGN1) 08/02/05
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/02/05
1400 D S_OTYP S LIKE(TYOTYP) 08/02/11
1500 D S_OATR S LIKE(TYOATR) 08/02/11
1600 D S_OFCH S LIKE(TYOFCH) 08/02/28
1700 D S_OYNS S LIKE(TYOYNS) 08/02/28
1800 D S_OYNO S LIKE(TYOYNO) 08/02/28
1900 D LIGN2 S LIKE(LIGN1) 08/02/28
2000 *--------------------------------------------------------------------------------------------- 08/02/05
2100 D TROUVE S LIKE(*IN) 08/02/21
2200 *--------------------------------------------------------------------------------------------- 08/02/05
2300 * KLIST DES FICHIERS 08/02/05
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 C K_TY KLIST FADMTYP 08/03/28
2600 C KFLD V_OTYP OBJ TYPE 08/03/28
2700 C KFLD V_OATR ATTR TYPE 08/03/28
2800 C KFLD V_OFCH FCH SRC 08/03/28
2900 C KFLD V_OYNS SRC Y/N 08/03/28
3000 C KFLD V_OYNO OBJ Y/N 08/03/28
3100 * 08/02/05
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 * 08/02/05
3400 * 08/02/05
3500 *--------------------------------------------------------------------------------------------- 08/02/05
3600 * INIT DU PGM 08/02/05
3700 *--------------------------------------------------------------------------------------------- 08/02/05
3800 C MOVE *ALL'0' *IN 08/02/05
3900 *--------------------------------------------------------------------------------------------- 08/02/05
4000 *--------------------------------------------------------------------------------------------- 08/02/05
4100 * DEBUT PROPRAMME 08/02/05
4200 *--------------------------------------------------------------------------------------------- 08/02/05
4300 C EXSR $SFL 08/02/13
4400 C DO *HIVAL 08/02/05
4500 C WRITE STYPI1 08/02/15
4600 C EXFMT STYPC1 08/02/05
4700 C 03 LEAVE 08/02/05
4800 08/02/05
4900 C 91 READC STYPE1 33 *33 = EOF 08/02/05
5000 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/02/05
5100 C MOVEL TYOTYP V_OTYP 08/02/11
5200 C MOVEL TYOATR V_OATR 08/02/11
5300 C MOVEL TYOFCH V_OFCH 08/02/28
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C MOVEL TYOYNS V_OYNS 08/02/28
5500 C MOVEL TYOYNO V_OYNO 08/02/28
5600 C MOVE *BLANK V_CHX 08/02/05
5700 C UPDATE STYPE1 08/02/05
5800 C ITER 08/02/05
5900 C ENDIF 08/02/05
6000 08/02/05
6100 C V_KEY CASEQ F_AID $AID 08/02/05
6200 C *IN09 CASEQ *ON $ADD 08/02/05
6300 C *IN11 CASEQ *ON $MAJ 08/02/05
6400 C *IN23 CASEQ *ON $DLT 08/02/07
6500 C CAS $SFL 08/02/05
6600 C ENDCS 08/02/05
6700 *----------------------------------------------* 08/02/05
6800 C 03 LEAVE 08/02/05
6900 C ENDDO 08/02/05
7000 *--------------------------------------------------------------------------------------------- 08/02/05
7100 *--------------------------------------------------------------------------------------------- 08/02/05
7200 * FIN PROPRAMME 08/02/05
7300 *--------------------------------------------------------------------------------------------- 08/02/05
7400 C SETON LR 08/02/05
7500 ********************************************************************************************** 08/02/05
7600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
7700 * SFL 08/02/05
7800 *--------------------------------------------------------------------------------------------- 08/02/05
7900 C $SFL BEGSR 08/02/05
8000 *---KEY ACCES SFL 08/02/05
8100 C K_SFL KLIST FADMTYP 08/03/28
8200 C KFLD S_OTYP OBJ TYPE 08/03/28
8300 C KFLD S_OATR ATTR TYPE 08/03/28
8400 C KFLD S_OFCH FCH SRC 08/03/28
8500 C KFLD S_OYNS SRC Y/N 08/03/28
8600 C KFLD S_OYNO OBJ Y/N 08/03/28
8700 *----- 08/02/05
8800 C SETOFF 9195 08/02/05
8900 C SETON 96 08/02/05
9000 C WRITE STYPC1 08/02/05
9100 C SETOFF 96 08/02/05
9200 C MOVE *BLANK V_CHX 08/02/05
9300 C Z-ADD *ZEROS LIGN2 08/02/28
9400 *--------------------------------------------------------------------------------------------- 08/02/05
9500 C *LOVAL SETLL ADMTYPF1 08/02/05
9600 C K_SFL SETLL ADMTYPF1 08/02/05
9700 08/02/05
9800 C DO *HIVAL LIGN1 4 0 08/02/22
9900 C READ(N) ADMTYPF1 95 EOF & SFLEND 08/03/28
10000 C 95 LEAVE 08/02/05
10100 C WRITE STYPE1 08/02/05
10200 *- 08/02/05
10300 C LIGN1 IFEQ 1 08/02/05
10400 C MOVE TYOTYP S_OTYP 08/02/11
10500 C MOVE TYOATR S_OATR 08/02/11
10600 C MOVE TYOFCH S_OFCH 08/02/28
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C MOVE TYOYNS S_OYNS 08/02/28
10800 C MOVE TYOYNO S_OYNO 08/02/28
10900 C ENDIF 08/02/05
11000 C IF TYOTYP = V_OTYP AND 08/02/28
11100 C TYOATR = V_OATR AND 08/02/28
11200 C TYOFCH = V_OFCH AND 08/02/28
11300 C TYOYNS = V_OYNS AND 08/02/28
11400 C TYOYNO = V_OYNO 08/02/28
11500 C Z-ADD LIGN1 LIGN2 08/02/28
11600 C ENDIF 08/02/28
11700 *- 08/02/05
11800 C SETON 91 08/02/05
11900 C ENDDO 08/02/05
12000 C LIGN2 IFGT *ZEROS 08/02/28
12100 C Z-ADD LIGN2 LIGN1 08/02/28
12200 C ELSE 08/02/28
12300 C Z-ADD 1 LIGN1 08/02/28
12400 C ENDIF 08/02/28
12500 *----- 08/02/05
12600 C ENDSR 08/02/05
12700 ***************************************************************** 08/02/05
12800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
12900 * AJOUT RECORD 08/02/05
13000 *--------------------------------------------------------------------------------------------- 08/02/05
13100 *----- 08/02/05
13200 C $ADD BEGSR 08/02/05
13300 *----- TEST EXISTE OUI ERR 08/02/05
13400 C K_TY CHAIN ADMTYPF1 3366 *33=TROUV & 66=ERROR 08/02/05
13500 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 EXISTE DEJA 08/03/28
13600 C 25 LEAVESR 08/02/05
13700 C EVAL *IN26 = *IN66 OCCUPE 08/03/28
13800 C 26 LEAVESR 08/02/05
13900 * TEST KEY *BLANK 08/02/05
14000 C EVAL *IN29 = (V_OTYP = *BLANK) 08/02/28
14100 C 29 LEAVESR 08/02/28
14200 C EVAL *IN29=(V_OATR =*BLANK) 08/02/28
14300 C 29 LEAVESR 08/02/28
14400 C EVAL *IN30=(V_OYNS =*BLANK) 08/02/28
14500 C EVAL *IN31=(V_OYNO =*BLANK) 08/02/28
14600 * RECHERCHE SI FICHIER SOURCE PAR DE BASE EXISTE 08/02/28
14700 C IF V_OFCH <> *BLANK 08/02/28
14800 C CALLB 'MADMOBJCHK' 08/02/28
14900 C PARM 'ADMOPS' P_LIB 10 08/02/28
15000 C PARM V_OFCH P_OBJ 10 08/02/28
15100 C PARM '*FILE' P_TYPE 10 08/02/28
15200 C PARM '*NONE' P_MBR 10 08/02/28
15300 C PARM TROUVE 08/02/28
15400 C EVAL *IN32 = TROUVE = *OFF 08/02/28
15500 C ENDIF 08/02/28
15600 * 08/02/11
15700 * TRAITEMENT ECRAN N° 1 08/02/05
15800 *- 08/02/05
15900 C CLEAR ADMTYPF1 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C SETON 50 *IND PROTEC KEY FMT 08/02/11
16100 C WRITE STYPI1 08/02/05
16200 C DO *HIVAL 08/02/05
16300 C EXFMT STYPC1 08/02/05
16400 C SELECT 08/02/05
16500 C WHEN *IN03 OR *IN12 08/02/05
16600 C SETOFF 50 08/02/05
16700 C LEAVESR 08/02/05
16800 *----- AIDE EN LIGNE 08/02/05
16900 C WHEN V_KEY = F_AID 08/02/05
17000 C EXSR $AID 08/02/05
17100 *----- TRAITEMENT 08/02/05
17200 C WHEN V_KEY = F_ENT 08/02/05
17300 *----- RECHERCHE SI ERR 08/02/05
17400 C EXSR $EC01 08/02/05
17500 C 40 DO 42 I 08/02/15
17600 C EVAL *IN66 = *IN(I) 08/02/05
17700 C N66 ENDDO 08/02/05
17800 C 66 ITER 08/02/11
17900 C 08/02/05
18000 *----- VALIDATION 08/02/05
18100 C WRITE STYPC1 08/02/05
18200 C MOVE NON V_CONF 08/02/05
18300 C EXFMT STYPV99 08/02/05
18400 C EVAL *IN66 = (V_CONF = NON ) 08/02/05
18500 C 66 SETOFF 50 08/02/07
18600 C 66 LEAVESR 08/02/07
18700 *- 08/02/05
18800 *----- ENREGISTREMENT 08/02/05
18900 C SETOFF 50 08/02/05
19000 C K_TY CHAIN ADMTYPF1 3366 08/02/05
19100 C N33 LEAVESR 08/02/05
19200 C*----- INIT ZONE ENRG 08/02/05
19300 C MOVE V_OTYP TYOTYP 08/02/11
19400 C MOVE V_OATR TYOATR 08/02/11
19500 C MOVE V_OFCH TYOFCH 08/02/28
19600 C MOVE V_OYNS TYOYNS 08/02/28
19700 C MOVE V_OYNO TYOYNO 08/02/28
19800 C MOVE *DATE TYDCRT 08/02/05
19900 C MOVE *DATE TYDMAJ 08/02/05
20000 C WRITE ADMTYPF1 66 08/02/05
20100 *----- 08/02/05
20200 C EXSR $SFL 08/02/05
20300 C LEAVESR 08/02/05
20400 *----- 08/02/05
20500 C ENDSL 08/02/05
20600 C ENDDO 08/02/05
20700 C ENDSR 08/02/05
20800 *============================================================================================= 08/02/05
20900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
21000 * MAJ RECORD 08/02/05
21100 *--------------------------------------------------------------------------------------------- 08/02/05
21200 *----- 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C $MAJ BEGSR 08/02/05
21400 *----- TEST EXISTE OUI ERR 08/02/05
21500 C K_TY CHAIN ADMTYPF1 2726 08/02/05
21600 C 26 LEAVESR OCCUPE 08/02/05
21700 C 27 LEAVESR NON TROUVE 08/02/05
21800 *- 08/02/05
21900 * 08/02/11
22000 * TRAITEMENT ECRAN N° 1 08/02/05
22100 *- 08/02/05
22200 C SETON 50 IND PROTEC KEY FMT 08/02/05
22300 C WRITE STYPI1 08/02/05
22400 C DO *HIVAL 08/02/05
22500 C EXFMT STYPC1 08/02/05
22600 C SELECT 08/02/05
22700 C WHEN *IN03 OR *IN12 08/02/05
22800 C SETOFF 50 08/02/05
22900 C LEAVESR 08/02/05
23000 *----- AIDE EN LIGNE 08/02/05
23100 C WHEN V_KEY = F_AID 08/02/05
23200 C EXSR $AID 08/02/05
23300 *----- TRAITEMENT 08/02/05
23400 C WHEN V_KEY = F_ENT 08/02/05
23500 *----- RECHERCHE SI ERR 08/02/05
23600 C EXSR $EC01 08/02/05
23700 C 42 DO 42 I 08/06/25
23800 C EVAL *IN66 = *IN(I) 08/02/05
23900 C N66 ENDDO 08/02/05
24000 C 66 ITER 08/02/05
24100 C 08/02/05
24200 *----- VALIDATION 08/02/05
24300 C WRITE STYPC1 08/02/05
24400 C MOVE NON V_CONF 08/02/05
24500 C EXFMT STYPV99 08/02/05
24600 C EVAL *IN66 = (V_CONF = NON ) 08/02/05
24700 C 66 SETOFF 50 08/02/07
24800 C 66 LEAVESR 08/02/07
24900 *- 08/02/05
25000 *----- ENREGISTREMENT 08/02/05
25100 C SETOFF 50 08/02/05
25200 *----- INIT ZONE ENRG 08/02/05
25300 C MOVE *DATE TYDMAJ 08/02/05
25400 C UPDATE ADMTYPF1 66 08/02/05
25500 *----- 08/02/05
25600 C EXSR $SFL 08/02/05
25700 C LEAVESR 08/02/05
25800 *----- 08/02/05
25900 C ENDSL 08/02/05
26000 C ENDDO 08/02/05
26100 C ENDSR 08/02/05
26200 *============================================================================================= 08/02/07
26300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/07
26400 * DLT RECORD 08/02/07
26500 *--------------------------------------------------------------------------------------------- 08/02/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 *----- 08/02/07
26700 C $DLT BEGSR 08/02/07
26800 *----- TEST EXISTE OUI ERR 08/02/07
26900 C K_TY CHAIN ADMTYPF1 2726 08/02/07
27000 C 26 LEAVESR OCCUPE 08/02/07
27100 C 27 LEAVESR NON TROUVE 08/02/07
27200 *- 08/02/07
27300 *- 08/02/07
27400 *----- VALIDATION 08/02/07
27500 C MOVE NON V_CONF 08/02/07
27600 C EXFMT STYPV99 08/02/07
27700 C EVAL *IN66 = (V_CONF = NON ) 08/02/07
27800 C 66 LEAVESR 08/02/07
27900 *- 08/02/07
28000 *----- INIT ZONE ENRG 08/02/07
28100 C DELETE ADMTYPF1 66 08/02/07
28200 *----- 08/02/07
28300 C EXSR $SFL 08/02/07
28400 *----- 08/02/07
28500 C ENDSR 08/02/07
28600 *============================================================================================= 08/02/05
28700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
28800 * ERR ECRAN 01 08/02/05
28900 *--------------------------------------------------------------------------------------------- 08/02/05
29000 C $EC01 BEGSR 08/02/05
29100 *-- N° ZONE OBLIGATOIRE 08/02/05
29200 *----- 08/02/05
29300 * RECHERCHE SI COMMANDE SYSTEM PAR DE BASE EXISTE 08/02/11
29400 C IF TYOCMD <> *BLANK 08/02/11
29500 C CALLB 'MADMOBJCHK' 08/02/21
29600 C PARM 'QSYS' P_LIB 08/02/15
29700 C PARM TYOCMD P_OBJ 08/02/15
29800 C PARM '*CMD' P_TYPE 08/02/15
29900 C PARM '*NONE' P_MBR 08/02/15
30000 C PARM TROUVE 08/02/21
30100 C EVAL *IN41 = TROUVE = *OFF 08/02/21
30200 * RECHERCHE SI MEMBRE COMPILATION PAR DE BASE EXISTE 08/02/11
30300 C CALLB 'MADMOBJCHK' 08/02/21
30400 C PARM 'ADMOPS' P_LIB 08/02/15
30500 C PARM 'QBLDOPT' P_OBJ 08/02/15
30600 C PARM '*FILE' P_TYPE 08/02/15
30700 C PARM TYOCMD P_MBR 08/02/15
30800 C PARM TROUVE 08/02/21
30900 C EVAL *IN42 = TROUVE = *OFF 08/02/21
31000 C ENDIF 08/02/11
31100 *======================= 08/02/05
31200 C ENDSR 08/02/05
31300 ***************************************************************** 08/02/05
31400 *--------------------------------------------------------------------------------------------- 08/02/05
31500 * INCLUDE 08/02/05
31600 *--------------------------------------------------------------------------------------------- 08/02/05
31700 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
31800 *--------------------------------------------------------------------------------------------- 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMTYP IF E K DISK 08/04/21
600 FSADMTYPP CF E WORKSTN INFDS(V_DSPF) 08/04/21
700 F SFILE(STYPWE1:LIGN1) 08/02/12
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/02/05
1400 D P_OTYP S LIKE(TYOTYP) 08/03/04
1500 D P_OATR S LIKE(TYOATR) 08/03/04
1600 D P_OYNS S LIKE(TYOYNS) 08/03/04
1700 D P_OYNO S LIKE(TYOYNO) 08/03/04
1800 D P_OFCH S LIKE(TYOFCH) 08/03/04
1900 D P_IN03 S LIKE(*IN03) 08/03/04
2000 *--------------------------------------------------------------------------------------------- 08/02/05
2100 * PLIST 08/02/13
2200 *--------------------------------------------------------------------------------------------- 08/02/13
2300 C *ENTRY PLIST 08/04/21
2400 C PARM P_OTYP 08/04/21
2500 C PARM P_OATR 08/04/21
2600 C PARM P_OYNS 08/04/21
2700 C PARM P_OYNO 08/04/21
2800 C PARM P_OFCH 08/04/21
2900 C PARM P_IN03 08/04/21
3000 *--------------------------------------------------------------------------------------------- 08/02/05
3100 * 08/02/05
3200 * 08/02/05
3300 *--------------------------------------------------------------------------------------------- 08/02/05
3400 * KLIST DES FICHIERS 08/02/05
3500 *--------------------------------------------------------------------------------------------- 08/02/05
3600 C K_TY KLIST FADMTYP 08/03/28
3700 C KFLD TYOTYP OBJ TYPE 08/03/28
3800 C KFLD TYOATR ATTR TYPE 08/03/28
3900 * 08/02/05
4000 *--------------------------------------------------------------------------------------------- 08/02/05
4100 * 08/02/05
4200 * 08/02/05
4300 *--------------------------------------------------------------------------------------------- 08/02/05
4400 * INIT DU PGM 08/02/05
4500 *--------------------------------------------------------------------------------------------- 08/02/05
4600 C MOVE *ALL'0' *IN 08/02/05
4700 *--------------------------------------------------------------------------------------------- 08/02/05
4800 * DEBUT PROPRAMME 08/02/05
4900 *--------------------------------------------------------------------------------------------- 08/02/05
5000 C WRITE STYPB0 08/02/22
5100 C EXSR $SFL 08/04/18
5200 C DO *HIVAL 08/02/05
5300 C EXFMT STYPC1 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 08/02/05
5500 * ALTERNATION DES VUE AVEC F2/F11 08/04/21
5600 * *IN55 =*OFF VUE1 (PAR DEFAUT) 08/04/21
5700 C 02 EVAL *IN55 = *ON 08/04/21
5800 C 11 EVAL *IN55 = *OFF 08/04/21
5900 08/04/18
6000 C T_SFL TAG 08/04/21
6100 * 08/04/18
6200 C 91 READC STYPWE1 33 08/03/28
6300 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/04/21
6400 C EVAL P_OTYP = TYOTYP 08/02/13
6500 C EVAL P_OATR = TYOATR 08/02/13
6600 C EVAL P_OYNS = TYOYNS 08/02/29
6700 C EVAL P_OYNO = TYOYNO 08/02/29
6800 C EVAL P_OFCH = TYOFCH 08/02/13
6900 C MOVE *BLANK V_CHX 08/02/13
7000 C UPDATE STYPWE1 08/02/12
7100 C LEAVE 08/02/13
7200 C ENDIF 08/02/05
7300 * 08/04/21
7400 C EXSR $SFL 08/04/21
7500 08/02/05
7600 *----------------------------------------------* 08/02/05
7700 C 03 LEAVE 08/02/05
7800 C ENDDO 08/02/05
7900 *--------------------------------------------------------------------------------------------- 08/02/05
8000 *--------------------------------------------------------------------------------------------- 08/02/05
8100 * FIN PROPRAMME 08/02/05
8200 *--------------------------------------------------------------------------------------------- 08/02/05
8300 C MOVE *IN03 P_IN03 08/03/04
8400 C SETON LR 08/02/05
8500 ********************************************************************************************** 08/02/05
8600 ********************************************************************************************** 08/04/16
8700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/04/16
8800 * SFL 08/04/18
8900 *--------------------------------------------------------------------------------------------- 08/04/16
9000 C $SFL BEGSR 08/04/18
9100 *----- 08/04/16
9200 C SETOFF 9195 08/04/16
9300 C SETON 96 08/04/16
9400 C WRITE STYPC1 08/04/16
9500 C SETOFF 96 08/04/16
9600 C MOVE *BLANK V_CHX 08/04/16
9700 *--------------------------------------------------------------------------------------------- 08/04/16
9800 *--------------------------------------------------------------------------------------------- 08/04/16
9900 C *LOVAL SETLL ADMTYPF1 08/04/16
10000 08/04/16
10100 C Z-ADD *ZEROS LIGN1 4 0 08/04/21
10200 C DO *HIVAL 08/04/21
10300 C READ ADMTYPF1 95 08/04/16
10400 C 95 LEAVE 08/04/16
10500 C 08/04/21
10600 * POUR ENLEVER LES LIGNE VIDE DU SFL 08/04/21
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMTYPP
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C SELECT 08/04/21
10800 *-- VUE -1 08/04/21
10900 C WHEN *IN55 = *OFF 08/04/21
11000 C EVAL *IN33 = TYVUE > 1 08/11/17
11100 C 33 ITER 08/04/21
11200 C ADD 1 LIGN1 08/04/21
11300 C WRITE STYPWE1 08/04/21
11400 C SETON 91 08/04/21
11500 *-- VUE -2 08/04/21
11600 C OTHER 08/04/21
11700 C ADD 1 LIGN1 08/04/21
11800 C WRITE STYPWE1 08/04/21
11900 C SETON 91 08/04/21
12000 C ENDSL 08/04/21
12100 *- 08/04/16
12200 C ENDDO 08/04/16
12300 C Z-ADD 1 LIGN1 08/04/16
12400 *----- 08/04/16
12500 C ENDSR 08/04/16
12600 ***************************************************************** 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/11
200 *--------------------------------------------------------------------------------------------- 08/02/05
300 * DECLARATION DE FICHIER 08/02/05
400 *--------------------------------------------------------------------------------------------- 08/02/05
500 FFADMUSR UF A E K DISK 08/03/04
600 FSADMUSR CF E WORKSTN INFDS(V_DSPF) 08/02/20
700 F SFILE(SUSRE1:LIGN1) 08/02/20
800 * 08/02/05
900 *--------------------------------------------------------------------------------------------- 08/02/05
1000 * UDS 08/02/05
1100 *--------------------------------------------------------------------------------------------- 08/02/05
1200 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1300 D I S 4S 0 INZ(*ZEROS) 08/02/05
1400 D LIGN2 S LIKE(LIGN1) 08/03/04
1500 *--------------------------------------------------------------------------------------------- 08/02/05
1600 * 08/02/05
1700 * 08/02/05
1800 *--------------------------------------------------------------------------------------------- 08/02/05
1900 * KLIST DES FICHIERS 08/02/05
2000 *--------------------------------------------------------------------------------------------- 08/02/05
2100 C K_US KLIST FADMUSR 08/03/28
2200 C KFLD V_USR USER 08/02/20
2300 * 08/02/05
2400 *--------------------------------------------------------------------------------------------- 08/02/05
2500 * 08/02/05
2600 * 08/02/05
2700 *--------------------------------------------------------------------------------------------- 08/02/05
2800 * INIT DU PGM 08/02/05
2900 *--------------------------------------------------------------------------------------------- 08/02/05
3000 C MOVE *ALL'0' *IN 08/02/05
3100 *--------------------------------------------------------------------------------------------- 08/02/05
3200 *--------------------------------------------------------------------------------------------- 08/02/05
3300 * DEBUT PROPRAMME 08/02/05
3400 *--------------------------------------------------------------------------------------------- 08/02/05
3500 C V_USER CABNE 'ADMOPS' T_FIN 08/03/17
3600 C EXSR $SFL 08/02/13
3700 C DO *HIVAL 08/02/05
3800 C WRITE SUSRI1 08/02/20
3900 C EXFMT SUSRC1 08/02/20
4000 C 03 LEAVE 08/02/05
4100 08/02/05
4200 C 91 READC SUSRE1 33 08/03/28
4300 C 91 IF NOT *IN33 AND V_KEY = F_ENT 08/02/05
4400 C MOVEL USUSR V_USR 08/02/20
4500 C MOVE *BLANK V_CHX 08/02/05
4600 C UPDATE SUSRE1 08/02/20
4700 C ITER 08/02/05
4800 C ENDIF 08/02/05
4900 08/02/05
5000 C V_KEY CASEQ F_AID $AID 08/02/05
5100 C *IN09 CASEQ *ON $ADD 08/02/05
5200 C *IN11 CASEQ *ON $MAJ 08/02/05
5300 C *IN23 CASEQ *ON $DLT 08/02/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C CAS $SFL 08/02/05
5500 C ENDCS 08/02/05
5600 *----------------------------------------------* 08/02/05
5700 C 03 LEAVE 08/02/05
5800 C ENDDO 08/02/05
5900 *--------------------------------------------------------------------------------------------- 08/02/05
6000 *--------------------------------------------------------------------------------------------- 08/02/05
6100 * FIN PROPRAMME 08/02/05
6200 *--------------------------------------------------------------------------------------------- 08/02/05
6300 C T_FIN TAG 08/03/17
6400 C SETON LR 08/02/05
6500 ********************************************************************************************** 08/02/05
6600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
6700 * SFL 08/02/05
6800 *--------------------------------------------------------------------------------------------- 08/02/05
6900 C $SFL BEGSR 08/02/05
7000 *----- 08/02/05
7100 C SETOFF 9195 08/02/05
7200 C SETON 96 08/02/05
7300 C WRITE SUSRC1 08/02/20
7400 C SETOFF 96 08/02/05
7500 C SETOFF 55 08/03/04
7600 C MOVE *BLANK V_CHX 08/02/05
7700 *--------------------------------------------------------------------------------------------- 08/02/05
7800 C *LOVAL SETLL ADMUSRF1 08/02/20
7900 08/02/05
8000 C DO 18 LIGN1 4 0 08/02/12
8100 C READ ADMUSRF1 95 08/03/28
8200 C 95 LEAVE 08/02/05
8300 C WRITE SUSRE1 08/02/20
8400 *- 08/02/05
8500 C V_USR IFEQ USUSR 08/03/04
8600 C Z-ADD LIGN1 LIGN2 55 08/03/04
8700 C ENDIF 08/02/05
8800 *- 08/02/05
8900 C SETON 91 08/02/05
9000 C ENDDO 08/02/05
9100 C Z-ADD 1 LIGN1 08/02/05
9200 C 55 Z-ADD LIGN2 LIGN1 08/03/04
9300 *----- 08/02/05
9400 C ENDSR 08/02/05
9500 ***************************************************************** 08/02/05
9600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
9700 * AJOUT RECORD 08/02/05
9800 *--------------------------------------------------------------------------------------------- 08/02/05
9900 *----- 08/02/05
10000 C $ADD BEGSR 08/02/05
10100 *----- TEST EXISTE OUI ERR 08/02/05
10200 C K_US CHAIN ADMUSRF1 3366 *33=TROUV & 66=ERROR 08/02/20
10300 C EVAL *IN25 = NOT *IN33 AND NOT *IN66 *EXISTE DEJA 08/02/05
10400 C 25 LEAVESR 08/02/05
10500 C EVAL *IN26 = *IN66 *OCCUPE 08/02/05
10600 C 26 LEAVESR 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 * TEST KEY *BLANK 08/02/05
10800 C EVAL *IN29 = (V_USR = *BLANK) 08/02/20
10900 C 29 LEAVESR 08/02/15
11000 * 08/02/11
11100 * TRAITEMENT ECRAN N° 1 08/02/05
11200 *- 08/02/05
11300 C CLEAR ADMUSRF1 08/02/20
11400 C MOVE 'N' USDVP 08/02/20
11500 C MOVE 'N' USPRD 08/02/20
11600 08/02/20
11700 C SETON 50 *IND PROTEC KEY FMT 08/02/11
11800 C WRITE SUSRI1 08/02/20
11900 C DO *HIVAL 08/02/05
12000 C EXFMT SUSRC1 08/02/20
12100 C SELECT 08/02/05
12200 C WHEN *IN03 OR *IN12 08/02/05
12300 C SETOFF 50 08/02/05
12400 C LEAVESR 08/02/05
12500 *----- AIDE EN LIGNE 08/02/05
12600 C WHEN V_KEY = F_AID 08/02/05
12700 C EXSR $AID 08/02/05
12800 *----- TRAITEMENT 08/02/05
12900 C WHEN V_KEY = F_ENT 08/02/05
13000 C 08/02/05
13100 *----- VALIDATION 08/02/05
13200 C WRITE SUSRC1 08/02/20
13300 C MOVE NON V_CONF 08/02/05
13400 C EXFMT SUSRV99 08/02/20
13500 C EVAL *IN66 = (V_CONF = NON ) 08/02/05
13600 C 66 SETOFF 50 08/02/07
13700 C 66 LEAVESR 08/02/07
13800 *- 08/02/05
13900 *----- ENREGISTREMENT 08/02/05
14000 C SETOFF 50 08/02/05
14100 C K_US CHAIN ADMUSRF1 3366 08/02/20
14200 C N33 LEAVESR 08/02/05
14300 C*----- INIT ZONE ENRG 08/02/05
14400 C MOVE V_USR USUSR 08/02/20
14500 C MOVE *DATE USDCRT 08/02/20
14600 C MOVE *DATE USDMAJ 08/02/20
14700 C WRITE ADMUSRF1 66 08/02/20
14800 *----- 08/02/05
14900 C EXSR $SFL 08/02/05
15000 C LEAVESR 08/02/05
15100 *----- 08/02/05
15200 C ENDSL 08/02/05
15300 C ENDDO 08/02/05
15400 C ENDSR 08/02/05
15500 *============================================================================================= 08/02/05
15600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/05
15700 * MAJ RECORD 08/02/05
15800 *--------------------------------------------------------------------------------------------- 08/02/05
15900 *----- 08/02/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C $MAJ BEGSR 08/02/05
16100 *----- TEST EXISTE OUI ERR 08/02/05
16200 C K_US CHAIN ADMUSRF1 2726 08/02/20
16300 C 26 LEAVESR OCCUPE 08/02/05
16400 C 27 LEAVESR NON TROUVE 08/02/05
16500 *- 08/02/05
16600 * 08/02/11
16700 * TRAITEMENT ECRAN N° 1 08/02/05
16800 *- 08/02/05
16900 C SETON 50 IND PROTEC KEY FMT 08/02/05
17000 C WRITE SUSRI1 08/02/20
17100 C DO *HIVAL 08/02/05
17200 C EXFMT SUSRC1 08/02/20
17300 C SELECT 08/02/05
17400 C WHEN *IN03 OR *IN12 08/02/05
17500 C SETOFF 50 08/02/05
17600 C LEAVESR 08/02/05
17700 *----- AIDE EN LIGNE 08/02/05
17800 C WHEN V_KEY = F_AID 08/02/05
17900 C EXSR $AID 08/02/05
18000 *----- TRAITEMENT 08/02/05
18100 C WHEN V_KEY = F_ENT 08/02/05
18200 C 08/02/05
18300 *----- VALIDATION 08/02/05
18400 C WRITE SUSRC1 08/02/20
18500 C MOVE NON V_CONF 08/02/05
18600 C EXFMT SUSRV99 08/02/20
18700 C EVAL *IN66 = (V_CONF = NON ) 08/02/05
18800 C 66 SETOFF 50 08/02/07
18900 C 66 LEAVESR 08/02/07
19000 *- 08/02/05
19100 *----- ENREGISTREMENT 08/02/05
19200 C SETOFF 50 08/02/05
19300 *----- INIT ZONE ENRG 08/02/05
19400 C MOVE *DATE USDMAJ 08/02/20
19500 C UPDATE ADMUSRF1 66 08/02/20
19600 *----- 08/02/05
19700 C EXSR $SFL 08/02/05
19800 C LEAVESR 08/02/05
19900 *----- 08/02/05
20000 C ENDSL 08/02/05
20100 C ENDDO 08/02/05
20200 C ENDSR 08/02/05
20300 *============================================================================================= 08/02/07
20400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/07
20500 * DLT RECORD 08/02/07
20600 *--------------------------------------------------------------------------------------------- 08/02/07
20700 *----- 08/02/07
20800 C $DLT BEGSR 08/02/07
20900 *----- TEST EXISTE OUI ERR 08/02/07
21000 C K_US CHAIN ADMUSRF1 2726 08/02/20
21100 C 26 LEAVESR OCCUPE 08/02/07
21200 C 27 LEAVESR NON TROUVE 08/02/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMUSR
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 *- 08/02/07
21400 *- 08/02/07
21500 *----- VALIDATION 08/02/07
21600 C MOVE NON V_CONF 08/02/07
21700 C EXFMT SUSRV99 08/02/20
21800 C EVAL *IN66 = (V_CONF = NON ) 08/02/07
21900 C 66 LEAVESR 08/02/07
22000 *- 08/02/07
22100 *----- INIT ZONE ENRG 08/02/07
22200 C DELETE ADMUSRF1 66 08/02/20
22300 *----- 08/02/07
22400 C EXSR $SFL 08/02/07
22500 *----- 08/02/07
22600 C ENDSR 08/02/07
22700 *============================================================================================= 08/02/05
22800 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/02/20
22900 *--------------------------------------------------------------------------------------------- 08/02/05
23000 * INCLUDE 08/02/05
23100 *--------------------------------------------------------------------------------------------- 08/02/05
23200 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
23300 *--------------------------------------------------------------------------------------------- 08/02/05
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWDSC
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/03/31
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,ADMQDBLDBR 08/03/14
800 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
900 *--------------------------------------------------------------------------------------------- 08/02/20
1000 D P_SOC S LIKE(PRSOC) 08/02/20
1100 D P_PRJ S LIKE(PRPRJ) 08/02/20
1200 D P_OBJ S LIKE(OBOOBJ) 08/02/20
1300 D P_TYP S LIKE(OBOTYP) 08/02/20
1400 D P_TOPC S LIKE(*IN) 08/03/31
1500 D P_FRMPC S LIKE(*IN) 08/03/31
1600 08/02/25
1700 08/03/11
1800 *--------------------------------------------------------------------------------------------- 08/03/31
1900 D V_LIB S LIKE(PRLIBP) 08/03/31
2000 D P_LIBF S LIKE(OBOLIB) 08/03/31
2100 D P_LIB S LIKE(OBOLIB) 08/03/31
2200 D P_MBR S LIKE(OBOOBJ) 08/03/31
2300 *--------------------------------------------------------------------------------------------- 08/02/12
2400 D PTR_LST S * 08/02/25
2500 D OK S LIKE(*IN) 08/02/25
2600 D TROUVE S LIKE(*IN) 08/02/20
2700 D FIN S LIKE(*IN) 08/02/25
2800 D I S 5S 0 INZ(*ZEROS) 08/02/12
2900 D L S INZ(*ZEROS) LIKE(I) 08/03/11
3000 D R S INZ(*ZEROS) LIKE(I) 08/03/11
3100 D CMD S 16000 INZ(*BLANK) 08/02/25
3200 D P_CMD S 16000 INZ(*BLANK) 08/02/25
3300 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/02/12
3400 *--------------------------------------------------------------------------------------------- 08/02/12
3500 C K_PR KLIST 08/02/12
3600 C KFLD P_SOC 08/02/12
3700 C KFLD P_PRJ 08/03/08
3800 C K_OBJ KLIST 08/02/12
3900 C KFLD P_SOC 08/03/08
4000 C KFLD P_OBJ 08/03/31
4100 C KFLD P_TYP 08/03/31
4200 *--------------------------------------------------------------------------------------------- 08/02/12
4300 C *ENTRY PLIST 08/02/12
4400 C PARM P_SOC 08/03/08
4500 C PARM P_PRJ 08/03/08
4600 C PARM P_OBJ 08/03/31
4700 C PARM P_TYP 08/03/31
4800 C PARM P_TOPC 08/03/31
4900 C PARM P_FRMPC 08/03/31
5000 *--------------------------------------------------------------------------------------------- 08/02/12
5100 C V_USER CHAIN ADMUSRF1 66 08/02/20
5200 C 66 GOTO T_ERR 08/02/29
5300 08/03/10
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWDSC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C V_USER CHAIN ADMENVF1 66 08/03/07
5500 C 66 GOTO T_ERR 08/03/07
5600 08/02/12
5700 C K_PR CHAIN ADMPRJF1 66 08/02/20
5800 C 66 GOTO T_ERR 08/02/29
5900 08/02/12
6000 C K_OBJ CHAIN ADMOBJF1 6666 08/03/31
6100 C 66 GOTO T_ERR 08/03/31
6200 *---------------------------------------------------------------------------------------- 08/03/10
6300 C CALLB 'MADMOBJCHK' 08/03/31
6400 C PARM 'QSYS' P_LIB 08/03/31
6500 C PARM ENLIBW P_OBJ 08/03/31
6600 C PARM '*LIB' P_TYP 08/03/31
6700 C PARM '*NONE' P_MBR 08/03/31
6800 C PARM TROUVE 08/03/31
6900 C EVAL *IN66 = TROUVE = *OFF 08/03/31
7000 C 66 GOTO T_ERR 08/03/31
7100 08/03/31
7200 C SELECT 08/04/06
7300 C WHEN OBU <> *BLANK 08/04/06
7400 C EVAL V_LIB = PRLIBU 08/04/06
7500 C WHEN OBD <> *BLANK 08/04/06
7600 C EVAL V_LIB = PRLIBD 08/04/06
7700 C ENDSL 08/04/06
7800 08/03/31
7900 C IF P_TOPC = *ON 08/03/31
8000 C CALLB 'MADMCPYMBR' 08/03/31
8100 C PARM V_LIB P_LIBF 08/04/06
8200 C PARM ENLIBW P_LIB 08/03/31
8300 C PARM OBOFCH P_OBJ 08/03/31
8400 C PARM OBOOBJ P_MBR 08/03/31
8500 C IF OBB ='B' 08/03/31
8600 C CALLB 'MADMCPYBLD' 08/03/31
8700 C PARM V_LIB P_LIBF FROM 08/04/06
8800 C PARM ENLIBW P_LIB TO 08/03/31
8900 C PARM OBOOBJ P_MBR 08/03/31
9000 C ENDIF 08/03/31
9100 C EVAL OBT ='W' 08/03/31
9200 C ENDIF 08/03/31
9300 08/03/31
9400 C IF P_FRMPC = *ON 08/03/31
9500 C CALLB 'MADMCPYMBR' 08/03/31
9600 C PARM ENLIBW P_LIBF 08/04/01
9700 C PARM V_LIB P_LIB 08/04/06
9800 C PARM OBOFCH P_OBJ 08/03/31
9900 C PARM OBOOBJ P_MBR 08/03/31
10000 08/03/31
10100 C CALLB 'MADMCPYBLD' 08/04/01
10200 C PARM ENLIBW P_LIBF 08/04/01
10300 C PARM V_LIB P_LIB 08/04/06
10400 C PARM OBOOBJ P_MBR 08/04/01
10500 08/04/01
10600 08/04/01
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWDSC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C EVAL CMD = 'RMVM FILE(' + 08/03/31
10800 C %TRIM(ENLIBW ) +'/'+%TRIM(OBOFCH) + 08/03/31
10900 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/31
11000 C EXSR $CMD 08/03/31
11100 08/03/31
11200 08/03/31
11300 C IF OBB ='B' 08/03/31
11400 C EVAL CMD = 'RMVM FILE(' + 08/03/31
11500 C %TRIM(ENLIBW ) +'/QBLDOPTSRC' + 08/04/01
11600 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/03/31
11700 C EXSR $CMD 08/03/31
11800 C ENDIF 08/03/31
11900 08/03/31
12000 08/03/31
12100 C EVAL OBT =' ' 08/03/31
12200 C ENDIF 08/03/31
12300 C IF P_FRMPC = *OFF AND P_TOPC = *OFF 08/04/01
12400 08/04/01
12500 C EVAL CMD = 'RMVM FILE(' + 08/04/01
12600 C %TRIM(ENLIBW ) +'/'+%TRIM(OBOFCH) + 08/04/01
12700 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/01
12800 C EXSR $CMD 08/04/01
12900 08/04/01
13000 C IF OBB ='B' 08/04/01
13100 C EVAL CMD = 'RMVM FILE(' + 08/04/01
13200 C %TRIM(ENLIBW ) +'/QBLDOPTSRC' + 08/04/01
13300 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/01
13400 C EXSR $CMD 08/04/01
13500 C ENDIF 08/04/01
13600 08/04/01
13700 08/04/01
13800 C EVAL OBT =' ' 08/04/01
13900 C ENDIF 08/04/01
14000 08/02/25
14100 C UPDATE ADMOBJF1 08/03/31
14200 C EXSR $DLT_DQ 08/03/31
14300 C CALLB 'MADMUSPDLT' 66 CLR QRPLOBJ 09/08/14
14400 C T_ERR TAG 08/03/31
14500 C SETON LR 96/04/26
14600 *========================================================================= 94/03/02
14700 C $CMD BEGSR 08/02/25
14800 C CALL 'QCMDEXC' 66 08/02/25
14900 C PARM CMD P_CMD 08/02/29
15000 C PARM P_CMD_LEN 08/02/25
15100 C EVAL CMD = *BLANK 08/02/29
15200 C ENDSR 08/02/25
15300 *========================================================================= 08/02/25
15400 C $DLT_DQ BEGSR 08/02/25
15500 C EVAL V_LIB = ENLIBW 08/03/31
15600 C EVAL CMD = *BLANK 08/02/25
15700 C SELECT 08/02/25
15800 C WHEN OBOTYP = '*FILE' AND OBOATR <>'PF ' 08/02/29
15900 C EVAL CMD = 'DLTF ' 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWDSC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 08/02/25
16100 C WHEN OBOTYP = '*FILE' AND OBOATR = 'PF ' 08/02/29
16200 C EXSR $FILE 08/02/29
16300 C EVAL CMD = 'DLTF ' 08/03/14
16400 08/02/29
16500 C WHEN OBOTYP = '*PGM ' 08/02/25
16600 C EVAL CMD = 'DLTMOD ' 08/03/15
16700 C EVAL CMD = %TRIM(CMD) + ' ' + 08/03/15
16800 C %TRIM(V_LIB) +'/' + %TRIM(OBOOBJ) 08/03/15
16900 C EXSR $CMD 08/03/15
17000 C EVAL CMD = 'DLTPGM ' 08/03/15
17100 08/02/25
17200 C WHEN OBOTYP = '*MODULE' 08/02/25
17300 C EVAL CMD = 'DLTMOD ' 08/02/25
17400 08/02/25
17500 C WHEN OBOTYP = '*SRVPGM' 08/02/25
17600 C EVAL CMD = 'DLTSRVPGM ' 08/02/25
17700 08/02/25
17800 C WHEN OBOTYP = '*CMD' 08/02/25
17900 C EVAL CMD = 'DLTCMD ' 08/02/25
18000 08/02/25
18100 C WHEN OBOTYP = '*DTAARA' 08/02/25
18200 C EVAL CMD = 'DLTDTAARA ' 08/02/25
18300 08/02/25
18400 08/02/25
18500 C WHEN OBOTYP = '*MSGF' 08/02/25
18600 C EVAL CMD = 'DLTMSGF ' 08/02/25
18700 08/02/25
18800 C WHEN OBOTYP = '*MENU' 08/02/25
18900 C EVAL CMD = 'DLTMNU ' 08/02/25
19000 08/02/25
19100 C WHEN OBOTYP = '*QMQRY' 08/02/25
19200 C EVAL CMD = 'DLTQMQRY' 08/02/25
19300 08/02/25
19400 C WHEN OBOTYP = '*QMFORM' 08/02/25
19500 C EVAL CMD = 'DLTQMFORM' 08/02/25
19600 08/02/25
19700 C ENDSL 08/02/25
19800 C IF CMD <> *BLANKS 08/02/25
19900 C EVAL CMD = %TRIM(CMD) + ' ' + 08/02/29
20000 C %TRIM(V_LIB) +'/' + %TRIM(OBOOBJ) 08/02/29
20100 C EXSR $CMD 08/02/25
20200 C ENDIF 08/02/25
20300 C ENDSR 08/02/25
20400 *========================================================================= 08/02/25
20500 C $FILE BEGSR 08/02/29
20600 C EVAL CMD = *BLANK 08/02/29
20700 08/02/29
20800 C CALLB 'MADMOBJCHK' 08/02/29
20900 C PARM V_LIB P_LIB 08/02/29
21000 C PARM OBOOBJ P_OBJ 08/02/29
21100 C PARM '*FILE 'P_TYP 08/02/29
21200 C PARM '*NONE 'P_MBR 08/02/29
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWDSC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 C PARM TROUVE 08/02/29
21400 C EVAL *IN33 = TROUVE = *OFF 08/02/29
21500 C 33 LEAVESR 08/02/29
21600 C CALLB 'MADMDBRLST' 08/03/14
21700 C PARM V_LIB P_LIB 08/02/29
21800 C PARM OBOOBJ P_OBJ 08/02/29
21900 C DO *HIVAL 08/02/29
22000 C CALLB 'MADMUSPLST' 08/02/29
22100 C PARM PTR_LST 08/02/29
22200 C PARM FIN 08/02/29
22300 C EVAL *IN33 = FIN 08/02/29
22400 C 33 LEAVE 08/02/29
22500 C IF QDBDFILN <> '*NONE' 08/03/14
22600 C EVAL CMD = 'DLTF ' 08/02/29
22700 C EVAL CMD = %TRIM(CMD) + ' ' + 08/02/29
22800 C %TRIM(V_LIB) +'/' + %TRIM(QDBDFILN ) 08/03/14
22900 C EXSR $CMD 08/02/29
23000 C ENDIF 08/03/14
23100 C ENDDO 08/02/29
23200 08/02/29
23300 C ENDSR 08/02/29
23400 *========================================================================= 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:50 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWRKJOB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/03/21
200 FSADMWRKJOBCF E WORKSTN 08/03/14
300 F SFILE(SJOBWE1:LIGN1) 08/03/13
400 * 89/05/19
500 D TYP S 1 DIM(09) CTDATA PERRCD(1) 08/03/12
600 D TEXT S 10 DIM(09) CTDATA PERRCD(1) 08/03/12
700 * 92/11/13
800 08/03/12
900 D TROUVE S LIKE(*IN) 08/03/12
1000 D FIN S LIKE(*IN) 08/03/12
1100 08/03/12
1200 D I S 5S 0 08/03/12
1300 08/03/12
1400 D P_USER S 10A 08/03/12
1500 08/03/12
1600 D P_FMT S 8 08/03/12
1700 D P_JOB S 10 08/03/12
1800 D P_NAME S 10 08/03/12
1900 D P_NUM S 10 08/03/12
2000 D P_TYP S 16 08/03/12
2100 *--------------------------------------------------------------------------------------------- 08/03/12
2200 D CMD S 120 INZ(*BLANK) 08/03/12
2300 D P_CMD S 3200 INZ(*BLANK) 08/03/12
2400 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/03/12
2500 *--------------------------------------------------------------------------------------------- 08/03/12
2600 *--- 92/11/16
2700 D/COPY ADMOPS/QRPGLEINC,ADMERREUR 08/03/12
2800 D/COPY ADMOPS/QRPGLEINC,ADMQUSLJOB 08/03/12
2900 D/COPY ADMOPS/QRPGLEINC,ADMJOBI 08/03/15
3000 *==================== 92/11/13
3100 D PTR_LST S * 08/03/12
3200 D X_JOBI0200 S LIKE(QUSI020000) 08/03/12
3300 *--- RECUPERE LA LISTE DES JOBS POUR LE USER 08/03/12
3400 08/03/12
3500 D SDS 08/03/12
3600 D V_NAME 254 263 08/03/12
3700 08/03/12
3800 08/03/12
3900 C EVAL PTR_FMX = %ADDR(X_JOBI0200) 08/03/12
4000 C WRITE SJOBB0 09/08/14
4100 C DO *HIVAL 08/03/15
4200 C CALLB 'MADMJOBLST' 09/08/14
4300 C PARM V_NAME P_USER 08/03/12
4400 ************************************************************************** 08/03/12
4500 * TRAITEMENT * 08/03/12
4600 ************************************************************************** 08/03/12
4700 * PREPARATION SOUS FICHIER 08/03/12
4800 C SETOFF 9691 09/08/14
4900 C Z-ADD 0 LIGN1 4 0 09/08/14
5000 C MOVE *OFF FIN 09/08/14
5100 09/08/14
5200 09/08/14
5300 C SETON 96 92/11/13
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWRKJOB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C WRITE SJOBWC1 66 09/08/12
5500 C SETOFF 9691 08/03/12
5600 *-------------------- 92/11/13
5700 *--- LISTE LES OBJETS 08/03/12
5800 C DO *HIVAL 08/03/12
5900 C CALLB 'MADMUSPLST' 09/08/14
6000 C PARM PTR_LST 08/03/12
6100 C PARM FIN 08/03/12
6200 C FIN CABEQ *ON T_SUITE 08/03/12
6300 * FICHIER JOBQ 08/03/12
6400 * 92/11/13
6500 C Z-ADD 1 I 08/03/12
6600 C QUSJT00 LOOKUP TYP(I) 33 08/03/12
6700 C 33 MOVE TEXT(I) JOBSTS 08/03/12
6800 C N33 MOVE TEXT(9) JOBSTS 08/03/12
6900 C IF QUSJT00 = 'B' 08/03/15
7000 C CALLB 'MADMJOBI' 08/03/12
7100 C PARM QUSJNU P_JOB 08/03/12
7200 C PARM QUSUNU P_NAME 08/03/12
7300 C PARM QUSJNBRU P_NUM 08/03/12
7400 C PARM *BLANK P_TYP 08/03/12
7500 C PARM PTR_FMX 08/03/12
7600 C IF PTR_FMX <> *NULL 09/08/14
7700 C 08/03/12
7800 C MOVE QUSJS05 FNCNAM 08/03/12
7900 C MOVE QUSAJS ACTJOB 08/03/12
8000 08/03/12
8100 C ADD 1 LIGN1 92/11/13
8200 C WRITE SJOBWE1 66 09/08/12
8300 C SETON 91 92/11/13
8400 C ENDIF 09/08/14
8500 C ENDIF 08/03/15
8600 C ENDDO 92/11/13
8700 *-------------------- 92/11/13
8800 C T_SUITE TAG 08/03/12
8900 C 91 Z-ADD 1 LIGN1 08/03/12
9000 *==================== 92/11/13
9100 *==================== 92/11/13
9200 C EXFMT SJOBWC1 66 09/08/12
9300 C 03 LEAVE 08/03/12
9400 C ENDDO 08/03/12
9500 *==================== 92/11/13
9600 *--------------------------------------------------------------------------------------------- 08/03/12
9700 C SETON LR 08/03/12
9800 *========================================================================= 08/03/12
9900 C $CMD BEGSR 08/03/12
10000 C CALL 'QCMDEXC' 66 08/03/12
10100 C PARM CMD P_CMD 08/03/12
10200 C PARM P_CMD_LEN 08/03/12
10300 C EVAL CMD = *BLANK 08/03/12
10400 C ENDSR 08/03/12
10500 *========================================================================= 08/03/12
10600 *========================================================================= 92/11/13
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:50 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADMWRKJOB
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 * TYPES DE TRAVAIL PAS D'INTERACTIF 08/03/12
10800 ** Type 08/03/12
10900 A 08/03/12
11000 B 08/03/12
11100 I 08/03/12
11200 M 08/03/12
11300 R 08/03/12
11400 S 08/03/12
11500 R 08/03/12
11600 X 08/03/12
11700 08/03/12
11800 ** text 08/03/12
11900 Autostart 08/03/12
12000 Batch 08/03/12
12100 Interactif 08/03/12
12200 Moniteur 08/03/12
12300 SpoolReade 08/03/12
12400 JobSystem 08/03/12
12500 SpoolWrite 08/03/12
12600 System 08/03/12
12700 08/03/12
* * * * F I N D U S O U R C E * * * *
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 1
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 H DATEDIT(*YMD) DECEDIT('0,') EXPROPTS(*RESDECPOS) 08/02/26
200 *--------------------------------------------------------------------------------------------- 08/01/30
300 * DECLARATION DE FICHIER 08/01/30
400 *--------------------------------------------------------------------------------------------- 08/01/30
500 FFADMOBJ UF E K DISK 08/03/07
600 FFADMTYP IF E K DISK 08/03/04
700 FFADMPRJ IF E K DISK 08/03/05
800 FSADM015 CF E WORKSTN INFDS(V_DSPF) 08/03/20
900 *--------------------------------------------------------------------------------------------- 08/03/05
1000 * 08/01/30
1100 08/03/07
1200 *--------------------------------------------------------------------------------------------- 08/01/30
1300 * UDS 08/01/30
1400 *--------------------------------------------------------------------------------------------- 08/01/30
1500 D/COPY ADMOPS/QRPGLEINC,ADMR_UDS 08/03/06
1600 D I S 4S 0 INZ(*ZEROS) 08/01/30
1700 *--------------------------------------------------------------------------------------------- 08/08/13
1800 D V_LIB S LIKE(PRLIBP) 08/08/13
1900 *--------------------------------------------------------------------------------------------- 08/08/13
2000 *--------------------------------------------------------------------------------------------- 08/01/30
2100 D P_SOC S LIKE(OBSOC) 08/03/04
2200 D P_PRJ S LIKE(OBPRJ) 08/03/04
2300 D P_LIB S LIKE(OBOLIB) 08/03/04
2400 D P_OBJ S LIKE(OBOOBJ) 08/03/04
2500 D P_MBR S LIKE(OBOOBJ) 08/03/05
2600 D P_TYP S LIKE(OBOTYP) 08/03/04
2700 D P_IN03 S LIKE(*IN) 08/03/04
2800 D TROUVE S LIKE(*IN) 08/03/05
2900 * 08/01/30
3000 D P_OTYP S LIKE(OBOTYP) 08/03/04
3100 D P_OATR S LIKE(OBOATR) 08/03/05
3200 D P_OYNS S LIKE(OBOYNS) 08/03/04
3300 D P_OYNO S LIKE(OBOYNO) 08/03/04
3400 D P_OFCH S LIKE(OBOFCH) 08/03/04
3500 08/03/04
3600 D P_TEXT S LIKE(OBTXTU) 08/03/05
3700 D P_DATE S LIKE(OBDCTL) 08/03/05
3800 D V_DAT6 S 6A 08/03/05
3900 D V_DATE S 8S 0 08/03/05
4000 *--------------------------------------------------------------------------------------------- 08/03/05
4100 D CMD S 512 INZ(*BLANK) 08/03/05
4200 D P_CMD S 3200 INZ(*BLANK) 08/03/05
4300 D P_CMD_LEN S 15 5 INZ(%SIZE(P_CMD)) 08/03/05
4400 *--------------------------------------------------------------------------------------------- 08/03/05
4500 *--------------------------------------------------------------------------------------------- 08/01/30
4600 * KLIST DES FICHIERS 08/01/30
4700 *--------------------------------------------------------------------------------------------- 08/01/30
4800 C K_PR KLIST 08/03/05
4900 C KFLD P_SOC 08/03/05
5000 C KFLD P_PRJ 08/03/05
5100 * 08/03/05
5200 C K_OB KLIST 08/03/07
5300 C KFLD P_SOC SOCIETE 08/03/07
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 2
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 C KFLD P_OBJ OBJET 08/03/07
5500 C KFLD P_TYP TYPE 08/03/07
5600 * 08/01/30
5700 C K_TY KLIST FADMTYP 08/03/28
5800 C KFLD OBOTYP OBJ TYPE 08/03/28
5900 C KFLD OBOATR ATTR TYPE 08/03/28
6000 C KFLD OBOFCH FCH SRC 08/03/28
6100 C KFLD OBOYNS SRC Y/N 08/03/28
6200 C KFLD OBOYNO OBJ Y/N 08/03/28
6300 * 08/03/04
6400 *--------------------------------------------------------------------------------------------- 08/01/30
6500 C *ENTRY PLIST 08/03/04
6600 C PARM P_SOC 08/03/04
6700 C PARM P_PRJ 08/03/04
6800 C PARM P_OBJ 08/03/07
6900 C PARM P_TYP 08/03/07
7000 08/03/04
7100 C K_PR CHAIN ADMPRJF1 33 08/03/05
7200 C 33 GOTO T_FIN 08/03/05
7300 * 08/01/30
7400 *--------------------------------------------------------------------------------------------- 08/01/30
7500 * INIT DU PGM 08/01/30
7600 *--------------------------------------------------------------------------------------------- 08/01/30
7700 *--------------------------------------------------------------------------------------------- 08/01/30
7800 C MOVE P_SOC OBSOC 08/03/04
7900 C MOVE P_PRJ OBPRJ 08/03/04
8000 C MOVE PRLIBP OBOLIB 08/03/05
8100 C MOVE V_USER OBUSR 08/03/04
8200 *--------------------------------------------------------------------------------------------- 08/01/30
8300 * DEBUT PROGRAMME 08/01/30
8400 *--------------------------------------------------------------------------------------------- 08/01/30
8500 C T_55 TAG 08/03/07
8600 C K_OB CHAIN ADMOBJF1 3355 08/03/07
8700 C 55 GOTO T_55 08/03/07
8800 C IF OBQ <> *BLANK 08/08/13
8900 C EVAL V_DLT = NON 08/08/13
9000 C EXFMT S015S2 08/08/13
9100 C N03 EVAL *IN03 = V_DLT = NON 08/08/13
9200 C 03 GOTO T_FIN 08/08/13
9300 C EXSR $QUADLT 08/08/13
9400 C ENDIF 08/08/13
9500 C K_TY CHAIN ADMTYPF1 40 08/03/07
9600 C N40 EVAL *IN40 = (TYSHS > *ZEROS) 08/03/07
9700 C DO *HIVAL 08/01/30
9800 C EVAL *IN51 = OBOATR ='PRTF' 08/04/30
9900 C EXFMT S015S1 08/08/13
10000 C 03 LEAVE 08/01/30
10100 * 08/02/29
10200 C 08/03/05
10300 08/02/29
10400 C V_KEY CASEQ F_AID $AID 08/03/04
10500 C *IN11 CASEQ *ON $MAJ 08/03/07
10600 C ENDCS 08/01/30
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 3
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 C 88 LEAVE 08/03/05
10800 *----------------------------------------------* 08/01/30
10900 C ENDDO 08/03/05
11000 *--------------------------------------------------------------------------------------------- 08/01/30
11100 *--------------------------------------------------------------------------------------------- 08/01/30
11200 * FIN PROGRAMME 08/01/30
11300 *--------------------------------------------------------------------------------------------- 08/01/30
11400 C T_FIN TAG 08/03/05
11500 C SETON LR 08/01/30
11600 ********************************************************************************************** 08/01/30
11700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/01/30
11800 * AJOUT RECORD 08/03/04
11900 *--------------------------------------------------------------------------------------------- 08/03/04
12000 *----- 08/03/04
12100 C $MAJ BEGSR 08/03/07
12200 08/03/05
12300 *----------------------------------- 08/03/05
12400 * BLDOPT MENBER OBLIGATOIRE SI PAS CMD DEFAULT & COMPILE OBJET ='Y' 08/03/05
12500 *----------------------------------- 08/03/05
12600 C EVAL *IN46 = OBOCMD =*BLANK AND TYOCMD = *BLANK 08/03/05
12700 C AND OBOYNO = 'Y' 08/03/05
12800 C 46 LEAVESR 08/03/05
12900 C EVAL *IN47 = OBOCMD <>TYOCMD AND 08/03/07
13000 C OBOCMD <>OBOOBJ 08/03/05
13100 C 47 LEAVESR 08/03/05
13200 08/03/05
13300 C MOVE *BLANK OBB 08/03/07
13400 C IF OBOCMD <> TYOCMD 08/03/07
13500 C CALLB 'MADMOBJCHK' 08/03/05
13600 C PARM PRLIBD P_LIB 08/03/05
13700 C PARM 'QBLDOPTSRC' P_OBJ 08/03/05
13800 C PARM '*FILE' P_TYP 08/03/05
13900 C PARM '*NONE' P_MBR 08/03/05
14000 C PARM TROUVE 08/03/05
14100 C EVAL *IN48 = (TROUVE = *OFF) 08/03/05
14200 C 48 LEAVESR 08/03/05
14300 08/03/05
14400 C MOVE 'B' OBB 08/03/05
14500 C ENDIF 08/03/05
14600 *- 08/03/04
14700 C IF OBOATR = 'PRTF' 08/04/30
14800 C EVAL *IN52 = OBOPAG = *ZEROS 08/04/30
14900 C 52 LEAVESR 08/04/30
15000 C ELSE 08/04/30
15100 C EVAL OBOPAG = *ZEROS 08/04/30
15200 C ENDIF 08/04/30
15300 *- 08/04/30
15400 C 08/03/05
15500 *----- VALIDATION 08/03/04
15600 C WRITE S015S1 08/08/13
15700 C MOVE NON V_CONF 08/03/04
15800 C EXFMT S015V99 08/08/13
15900 C EVAL *IN66 = (V_CONF = NON ) 08/03/04
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 4
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 C 66 LEAVESR 08/03/04
16100 C*----- INIT ZONE ENRG 08/03/04
16200 * BLDOPT OBLIGATOIRE 08/03/05
16300 C IF OBB = 'B' 08/03/05
16400 C EXSR $ADDBLD 08/03/05
16500 C ENDIF 08/03/05
16600 C IF OBB = *BLANKS 08/03/07
16700 C EXSR $DLTBLD 08/03/07
16800 C ENDIF 08/03/07
16900 08/03/05
17000 C UPDATE ADMOBJF1 66 08/03/07
17100 C SETON 88 08/03/05
17200 C ENDSR 08/03/04
17300 *============================================================================================= 08/03/04
17400 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/07
17500 C $DLTBLD BEGSR 08/03/07
17600 C CALLB 'MADMOBJCHK' 08/03/07
17700 C PARM PRLIBD P_LIB 08/03/07
17800 C PARM 'QBLDOPTSRC' P_OBJ 08/03/07
17900 C PARM '*FILE' P_TYP 08/03/07
18000 C PARM OBOOBJ P_MBR 08/03/07
18100 C PARM TROUVE 08/03/07
18200 C IF TROUVE = *ON 08/03/07
18300 C EVAL CMD = 'RMVM FILE(' + 08/03/07
18400 C %TRIM(PRLIBD) +'/QBLDOPTSRC' + 08/04/05
18500 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
18600 C EXSR $CMD 08/03/07
18700 C ENDIF 08/03/07
18800 C ENDSR 08/03/07
18900 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/05
19000 C $ADDBLD BEGSR 08/03/05
19100 C CALLB 'MADMOBJCHK' 08/03/05
19200 C PARM PRLIBD P_LIB 08/03/05
19300 C PARM 'QBLDOPTSRC' P_OBJ 08/03/05
19400 C PARM '*FILE' P_TYP 08/03/05
19500 C PARM OBOOBJ P_MBR 08/03/05
19600 C PARM TROUVE 08/03/05
19700 C IF TROUVE = *ON 08/03/05
19800 C EVAL CMD = 'RMVM FILE(' + 08/03/07
19900 C %TRIM(PRLIBD) +'/QBLDOPTSRC' + 08/04/05
20000 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/04/05
20100 C EXSR $CMD 08/03/05
20200 C ENDIF 08/03/05
20300 C EVAL CMD = 'CPYSRCF FROMFILE(' + 08/03/05
20400 C 'ADMOPS/QBLDOPT)' + 08/03/05
20500 C ' TOFILE(' + 08/03/05
20600 C %TRIM(PRLIBD) +'/QBLDOPTSRC)' + 08/03/05
20700 C ' FROMMBR(' + %TRIM(TYOCMD) + ')' + 08/03/05
20800 C ' TOMBR(' + %TRIM(OBOCMD) + ')' + 08/03/05
20900 C ' MBROPT(*ADD ) ' 08/03/05
21000 C EXSR $CMD 08/03/05
21100 08/03/05
21200 C ENDSR 08/03/05
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 5
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/03/05
21400 *--------------------------------------------------------------------------------------------- 08/03/05
21500 CSR $CMD BEGSR 08/03/05
21600 C CALL 'QCMDEXC' 66 08/03/05
21700 C PARM CMD P_CMD 08/03/05
21800 C PARM P_CMD_LEN 08/03/05
21900 CSR ENDSR 08/03/05
22000 * 08/03/04
22100 *--------------------------------------------------------------------------------------------- 08/01/30
22200 * INCLUDE 08/01/30
22300 *--------------------------------------------------------------------------------------------- 08/01/30
22400 C/COPY ADMOPS/QRPGLEINC,ADMR_AIDE 08/03/06
22500 *--------------------------------------------------------------------------------------------- 08/01/30
22600 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/08/13
22700 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/08/13
22800 CSR $QUADLT BEGSR 08/08/13
22900 C OBQ CABEQ *BLANK T_QUADLT 08/08/13
23000 C EVAL V_LIB = PRLIBQ 08/08/13
23100 * RECHERCHE SI OBJET PRESENT 08/08/13
23200 C SETOFF 66 08/08/13
23300 C CALLB 'MADMOBJCHK' 08/08/13
23400 C PARM V_LIB P_LIB 08/08/13
23500 C PARM OBOOBJ P_OBJ 08/08/13
23600 C PARM OBOTYP P_TYP 08/08/13
23700 C PARM '*NONE' P_MBR 08/08/13
23800 C PARM TROUVE 08/08/13
23900 C IF TROUVE = *ON 08/08/13
24000 C SELECT 08/08/13
24100 * 08/08/13
24200 C WHEN P_TYP = '*USRSPC' 08/08/13
24300 C EVAL CMD = 'DLTUSRSPC ' + 08/08/13
24400 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
24500 C EXSR $CMD 08/08/13
24600 08/08/13
24700 * 08/08/13
24800 C WHEN P_TYP = '*PGM' 08/08/13
24900 C EVAL CMD = 'DLTMOD ' + 08/08/13
25000 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
25100 C EXSR $CMD 08/08/13
25200 C EVAL CMD = 'DLTPGM ' + 08/08/13
25300 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
25400 C EXSR $CMD 08/08/13
25500 08/08/13
25600 * 08/08/13
25700 C WHEN P_TYP = '*MODULE' 08/08/13
25800 C EVAL CMD = 'DLTMOD ' + 08/08/13
25900 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
26000 C EXSR $CMD 08/08/13
26100 08/08/13
26200 * 08/08/13
26300 C WHEN P_TYP = '*SRVPGM' 08/08/13
26400 C EVAL CMD = 'DLTSRVPGM ' + 08/08/13
26500 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 6
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 C EXSR $CMD 08/08/13
26700 08/08/13
26800 * 08/08/13
26900 C WHEN P_TYP = '*FILE' 08/08/13
27000 C EVAL CMD = 'DLTF ' + 08/08/13
27100 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
27200 C EXSR $CMD 08/08/13
27300 08/08/13
27400 * 08/08/13
27500 C WHEN P_TYP = '*CMD ' 08/08/13
27600 C EVAL CMD = 'DLTCMD ' + 08/08/13
27700 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
27800 C EXSR $CMD 08/08/13
27900 08/08/13
28000 * 08/08/13
28100 C WHEN P_TYP = '*DTAARA ' 08/08/13
28200 C EVAL CMD = 'DLTDTAARA ' + 08/08/13
28300 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
28400 C EXSR $CMD 08/08/13
28500 08/08/13
28600 * 08/08/13
28700 C WHEN P_TYP = '*MSGF ' 08/08/13
28800 C EVAL CMD = 'DLTMSGF ' + 08/08/13
28900 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
29000 C EXSR $CMD 08/08/13
29100 08/08/13
29200 * 08/08/13
29300 C WHEN P_TYP = '*MENU ' 08/08/13
29400 C EVAL CMD = 'DLTMNU ' + 08/08/13
29500 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
29600 C EXSR $CMD 08/08/13
29700 08/08/13
29800 * 08/08/13
29900 C WHEN P_TYP = '*QMQRY ' 08/08/13
30000 C EVAL CMD = 'DLTQMQRY ' + 08/08/13
30100 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
30200 C EXSR $CMD 08/08/13
30300 08/08/13
30400 * 08/08/13
30500 C WHEN P_TYP = '*QMFORM ' 08/08/13
30600 C EVAL CMD = 'DLTQMFORM ' + 08/08/13
30700 C %TRIM(V_LIB)+'/'+ %TRIM(P_OBJ) 08/08/13
30800 C EXSR $CMD 08/08/13
30900 08/08/13
31000 C ENDSL 08/08/13
31100 C *IN66 CABEQ *ON T_QUADLT 08/08/13
31200 C ENDIF 08/08/13
31300 08/08/13
31400 * RECHERCHE SI SOURCE PRESENT 08/08/13
31500 C IF OBOYNS = 'Y' 08/08/13
31600 C CALLB 'MADMOBJCHK' 08/08/13
31700 C PARM V_LIB P_LIB 08/08/13
31800 C PARM OBOFCH P_OBJ 08/08/13
5761WDS V6R1M0 080215 LISTE SOURCE SEU 09/08/14 17:56:51 S6566EFE PAGE 7
FICHIER SOURCE . . . . . ADMOPS/QRPGLESRC
MEMBRE . . . . . . . . . XADM015
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 C PARM '*FILE' P_TYP 08/08/13
32000 C PARM OBOOBJ P_MBR 08/08/13
32100 C PARM TROUVE 08/08/13
32200 C IF TROUVE = *ON 08/08/13
32300 C EVAL CMD = 'RMVM FILE(' + 08/08/13
32400 C %TRIM(V_LIB)+'/'+ %TRIM(OBOFCH) + 08/08/13
32500 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/08/13
32600 C EXSR $CMD 08/08/13
32700 C ENDIF 08/08/13
32800 C ENDIF 08/08/13
32900 08/08/13
33000 * 08/08/13
33100 * RECHERCHE SI BLDOPT PRESENT 08/08/13
33200 C IF OBB = 'B' 08/08/13
33300 C CALLB 'MADMOBJCHK' 08/08/13
33400 C PARM V_LIB P_LIB 08/08/13
33500 C PARM 'QBLDOPTSRC' P_OBJ 08/08/13
33600 C PARM '*FILE' P_TYP 08/08/13
33700 C PARM OBOOBJ P_MBR 08/08/13
33800 C PARM TROUVE 08/08/13
33900 C IF TROUVE = *ON 08/08/13
34000 C EVAL CMD = 'RMVM FILE(' + 08/08/13
34100 C %TRIM(V_LIB)+'/QBLDOPTSRC' + 08/08/13
34200 C ') MBR(' + %TRIM(OBOOBJ) +')' 08/08/13
34300 C EXSR $CMD 08/08/13
34400 C ENDIF 08/08/13
34500 C ENDIF 08/08/13
34600 08/08/13
34700 C MOVE ' ' OBQ 08/08/13
34800 C UPDATE ADMOBJF1 08/08/13
34900 C K_OB CHAIN ADMOBJF1 33 08/08/13
35000 CSR T_QUADLT ENDSR 08/08/13
35100 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/08/13
35200 *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 08/08/13
* * * * F I N D U S O U R C E * * * *
Copyright © <2009>, <Laroche Jean-Pierre>
Created with the Freeware Edition of HelpNDoc: Easily create CHM Help documents