TWS : extraction plan courant

[sam01]

Bonjour à tous,

je me sert régulièrement du Programme EQQYCAIN
pour extraire des données de la database, mais il y a une chose que je ne parviens à faire dans le plan courant.

J'aimerais extraire les worksation des application qui sont dans le plan courant.

Connaissez-vous un programme qui permette de faire cela ?

Merci d'avance pour votre aide.

[Lemmings1406]

Bonjour,

J'utilise un outil qui n'a rien à voir avec TWS pour faire cela, c'est Job/Scan (scan de toutes les occurences du plan courant avec résolutions de dépendances...pour trouver toutes les erreurs éventuelles). Si tu l'as , tu peux t'en servir.

Sinon, avec le language OCL (voir dans la doc TWS Programming Interface), on peut lister les applis du plan courant et obtenir le statut mais on obtient pas le statut de chaque workstation des applications.

Voici un exemple si ça peut t'aider (il faudra peut-être faire un petit paramétrage de EQQYRPRC présent dans la SEQQSAMP):

//DATAPOST EXEC EQQYRPRC,BIB='XXX.XXXX.XXXXXXXX'
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=133)
//SYSTSPRT DD SYSOUT=*
//EQQOCL.SYSIN DD *
CHKAPPL APPL(X*)
/*

Le résultat se présente sous la forme suivante:

********************************************************************************
**** OPC CONTROL LANGUAGE (OCL) ****
**** Execution started on 12 Jan 2010 at 10:40:05.818260 ****
********************************************************************************

EQQCL01I =======================================================================
EQQCL00I Processing: CHKAPPL APPL(X*) OP(*)
EQQCL0JI Searching for occurrence X* in CP
EQQCL0OI Occurrence found: APPL(XXXXXXXX) IA(000000000000) STATUS(C)

[Lemmings1406]

Re,

J'ai bien regardé et tu peux extraire les données que tu désires avec le pgm EQQYCAIN:

Il suffit de modifier la valeur de RESOURCE=XXXX par ce dont tu as besoin comme CPOPCOM pour la description de toutes les opérations d'une application. Voir ci-dessous

//SUPP01 EXEC PGM=EQQYCAIN,PARM=XXXX
//BATCHL DD SYSOUT=*
//EQQMLIB DD DSN=EQQ.SEQQMSG0,DISP=SHR
//OI DD SYSOUT=*
//AD DD SYSOUT=*
//CPOC DD SYSOUT=*
//CPOP DD SYSOUT=*
//EXPORTAD DD SYSOUT=*
//IMPORTOI DD SYSOUT=*
//ERREUR DD SYSOUT=*
//EQQMLOG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
ACTION=LIST,RESOURCE=CPOPCOM,ADID=%%%%%%%%,
STATUS=X.
//*