5 juillet 2011

Retrouver le processus *xx01 associé a un programme technique

Suite à intégration de patch ou personnalisation des objets techniques (aussi appelés "Fichier Micro"), il peut être nécessaire de regénérer des processus techniques. Hors l'association processus technique *xx01 / programme n'est pas documenté.

En fait l'association se trouvera dans le squelette du programme BGH !

Exemple avec un squelette HRv5 (extrait) :
  087900*Valeurs du triplet système :
  088000*    0C2 = Mvs/Cics/Db2           0I2 = Mvs/Ims/Db2
  088100*    U O = Unix/ /Oracle          U 6 = Unix/ /Db2-6k
  088200*    U F = Ubix/ /Informix        U E = Unix/ /Sybase
  088300*    AS2 = As400/As400/Db2     0A2 = MVS/APPC
  088400*
  088500 01                 WPL2-VALEUR.
  088600     10             FILLER        PIC X(9) VALUE "*GEBGE***".
  088700     10             FILLER        PIC X(9) VALUE "*GEBLZ***".
  088800     10             FILLER        PIC X(9) VALUE "*GEBRF***".
  088900     10             FILLER        PIC X(9) VALUE "*GEBGJ***".
  089000     10             FILLER        PIC X(9) VALUE "*GEBGY***".
  089100     10             FILLER        PIC X(9) VALUE "*GEBGZ***".
  089200     10             FILLER        PIC X(9) VALUE "*GEBSC***".
  089300     10             FILLER        PIC X(9) VALUE "         ".
  089400     10             FILLER        PIC X(9) VALUE "*GEBC7***".
  089500     10             FILLER        PIC X(9) VALUE "*GEBC8***".
  ...

Ainsi, pour BC8 le processus technique est *GE01.
Par défaut, utilisez le processus *GE01 ...

4 juillet 2011

Retrouver la liste des programmes associés à une qualification de processus

Plusieurs méthodes sont possibles :

  • Avec HRD*Studio en consultant les objets techniques de nature QAPROS03 ou QAPROS05

  • Par accès SQL aux tables de définition des objets techniques
select FM10.TYFICM, FM10.NATUFM, substr(ZOBANA,1,2) QUALIF, substr(ZOBANA,3,3) CDPROG, substr(ZOBANA,6,1) TYPE 
from FM10, FM30 
where FM10.TYFICM=FM30.TYFICM and FM10.NATUFM in ('QAPROS03','QAPROS04','QAPROS05','QAPROS06') and substr(ZOBANA,6,1) in ('B','T','M') 
order by substr(ZOBANA,1,2), substr(ZOBANA,3,3);

  • En consultant le généré de BGH

  081900*          Qualification de processus             2c
  082000*          Code programme                         3c
  082100*          Qualification de programme (B,M,T)     1c
  082200*
  082200 01              W-WPLP-TABLE.
  082200     05          W-WPLP-VALEURS.
  082200 01              W-WPLP-TABLE.
  082200     05          W-WPLP-VALEURS.
  082200       10        FILLER         PICTURE X(006) VALUE
  082200       "GDBLZB".
  082200       10        FILLER         PICTURE X(006) VALUE
  082200       "GDBNRT".
  082200       10        FILLER         PICTURE X(006) VALUE
  082200       "GDBMRB".
  082200       10        FILLER         PICTURE X(006) VALUE
  082200       "GDRBPB".
  082200       10        FILLER         PICTURE X(006) VALUE
  082200       "GDBHRT".
  082200       10        FILLER         PICTURE X(006) VALUE
  082200       "GDBF7B".