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