Listes des applications au plan dans TWS

[Jean GVE]

Bonsoir,
Existe-t-il un programme outil (dans la séries EQQxxx, par exemple) pour obtenir dans un fichier les jobs en erreurs (et le nombre d'applications "successeur") pareil pour les jobs en attentes avec le nombre d'appli, successeur et le nombre d'appli, prédécesseur.
Le but est d'avoir un fichier exploitable (1 pour les erreurs et un autre pour les "WSU") par d'autres programmes et signaler aux différents services les problèmes en automatique.
Merci d'avance de vos réponses,
Jean

[coderetour0]

bonjour,

regarde dans la librairie sample de tws. tu y trouveras au moins un exemple en rexx qui utilise le pgm EQQYCOM. il te permettra d'extraire quasiment toutes les infos dont tu peux avoir besoin.

la structure du rexx est getmain -> init -> traitement de la data area -> term -> freemain

ton traitement peux traiter en boucle une serie d'appli et donc une serie de data area.

exemple: affichage basique des predecesseurs d'une appli

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PRED: procedure expose (parm_list) appli prof                    
  arg app,niv                                                    
  dep.0=0; info=''                                               
  old_value     = Storage(c2x(arg_values),16,Left(strip(app),16))
  Address LINKPGM "EQQYCOM" parm_list                            
  If return_code='00000000'x Then call DATA                      
  queue copies('! ',prof-niv)!!'+' app info                      
  "execio 1 diskw temp"                                          
  if niv=1 then return                                           
  if app=appli & niv<prof then return                            
  if dep.0>0 then do                                             
    niv=niv-1                                                    
    do i=1 to dep.0                                              
      call pred dep.i,niv                                        
    end                                                          
  end                                                            
  return

a+

[bernard59139]

bonjour
pour avoir les jobs en erreur, ce petit batch suffit:

//LIST EXEC PGM=EQQYCAIN,PARM=(OPCX)
- - - - - - - - - - - - - - - -
//SYSIN DD *
ACTION=OPTIONS,BL=Y;
ACTION=LIST,RESOURCE=CPOPCOM,ADID=*,STATUS=E.

jour sur les options pour avoir des info plus ou moins completes.

[Jean GVE]

Merci pour ces informations, je vais tester tout ça !
Jean

[coderetour0]

salut,

la méthode de bernard fournit un fichier texte, l'autre te fournit un enregistrement complet ou pas. a toi de voir la méthode qui te conviens le mieux.

le fichier texte est lourd a manipuler. c'est pourquoi je préfère utiliser eqqycom en rexx. cependant dans le cas par exemple d'un ajout ou suppression de dépendances sur une appli, j'applique une macro sur un fichier BL. c'est plus simple que de manipuler les segments du data area.

a+