Discussion :

[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.
//*

[Pioup01]

Bonjour,

je me permet de déterrer cette discussion car j'aurais aimé savoir si l'on peut extraire la description complète d'une application (description, input arrival, etc...) avec le pgm EQQYCAIN.

Si oui, pouvez-vous me donner un petit coups de pouce

Merci d'avance.

[bakounine]

Bonjour ,

Eh bien , Lemmings1406 t'a donné la réponse :

//*
//S0000010 EXEC PGM=EQQYCAIN,PARM=OPX1
//EQQMLIB DD DISP=SHR,DSN=TWSZ.SEQQMSG0
//BATCHL DD SYSOUT=*
//OI DD SYSOUT=*
//AD DD SYSOUT=*
//CPOC DD SYSOUT=*
//CPOP DD SYSOUT=*
//EXPORTAD DD SYSOUT=*
//EXPORTOI DD SYSOUT=*
//ERREUR DD SYSOUT=*
//EQQMLOG DD SYSOUT=*
//EQQDMSG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSPRINT DD DSN=fichier en sortie,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(90,90),RLSE),
// RECFM=FB,LRECL=80,DSORG=PS
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
ACTION=OPTIONS,BL=N,BLPRT=Y,LTP=N;
ACTION=LIST,RESOURCE=CPOPCOM,ADID=*ZI*.

Et là tu récupères toutes les données des applications *ZI* présentes au plan courant , ainsi :

APPLICATION ID :SXZIJ£TWS$BAKOUN
INPUT ARRIVAL DATE :140130
INPUT ARRIVAL TIME :0800
OPERATION NUMBER : 1
AUTHORITY GROUP :
DESCRIPTIVE TEXT :
JOB NAME :
JOB ID :
WORKSTATION NAME UMY
FORM NUMBER :
PLANNED START DATE :140130
PLANNED START TIME :00080000
PLANNED END DATE :140130
PLANNED END TIME :00080100
OPERATION INPUT ARRIVAL DATE :140130
OPERATION INPUT ARRIVAL TIME :0800
OPERATION DEADLINE DATE :140131
OPERATION DEADLINE TIME :2000
LATEST OUT OPERATION DATE :140131
LATEST OUT OPERATION TIME :00195551
ACTUAL START DATE :
ACTUAL START TIME :00000000
ACTUAL ARRIVAL DATE :
ACTUAL ARRIVAL TIME :
INTERMEDIATE START DATE :
INTERMEDIATE START TIME :00000000
ACTUAL END DATE :
ACTUAL END TIME :00000000
ESTIMATED DURATION HOURS :00
ESTIMATED DURATION MINUTES :01
ESTIMATED DURATION SECONDS :00

etc ......

A noter que tu peux aussi filtrer sur le Status , la WS , l'IA Date etc .....

Exemple :

//
ACTION=OPTIONS,BL=N,BLPRT=Y,LTP=N;
ACTION=LIST,RESOURCE=CPOPCOM,STATUS=W,WSNAME=CPU1.
//
ACTION=OPTIONS,BL=N,BLPRT=Y,LTP=N;
ACTION=LIST,RESOURCE=CPOPCOM,ADID=*ZI*,
STATUS=C,WSNAME=CPU2,OPNO=020,IA=1302111415.

Bakounine

[Pioup01]

En effet, Lemmings1406 avait déjà donné la réponse et je te remercie d'en avoir fait autant.

Par contre, je rencontre un problème (oui pour moi c'est un problème), car je n'arrive pas à extraire la description de l'application.

La seule description présente est celle du job... vous voyez ce que je veux dire?

[bakounine]

Bonjour ,

En effet , seule la description saisie au niveau du job apparait .....

Je n'ai pas de solution pour l'instant...

Bakounine

[Pioup01]

Trouvé!

Il suffit d'utiliser ceci, juste pour les infos de l'appli pour :

ACTION=LIST,RESOURCE=CPOC,ADID=%%%%%;

Pour le reste (infos jobs), on utilisera la solution précédente avec CPOPCOM.


Merci à tous.

[clermont63]

Bonjour,

Quand j'utilise ces paramètres,

ACTION=LIST,RESOURCE=CPOC,ADID=%%%%%;

je n'ai pas la description de l'application...

[Pioup01]

Bonjour,

Quand j'utilise ces paramètres,

ACTION=LIST,RESOURCE=CPOC,ADID=%%%%%;

je n'ai pas la description de l'application...

Bonjour,


voici un exemple qui fonctionne sur mon site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//APPERR   EXEC PGM=EQQYCAIN,                              
//         PARM='OPCX,MSGOFF',                             
//         REGION=64M                                      
//EQQMLIB  DD DISP=SHR,DSN=EQQ.SEQQMSG0                    
//EQQYPARM DD DISP=SHR,DSN=XXXX.XXXX.PARMLIB(OPCXPIF)
//ERREUR   DD SYSOUT=*                                     
//EQQMLOG  DD SYSOUT=*                                     
//EQQDUMP  DD SYSOUT=*                                     
//SYSPRINT DD DSN=FIC.SORTIE,          
//             DISP=OLD                                    
//CPOC     DD SYSOUT=*                                     
//SYSUDUMP DD SYSOUT=*                                     
//SYSIN    DD *
ACTION=OPTIONS,BL=N,BLPRT=Y,LTP=N; 
ACTION=LIST,RESOURCE=CPOC,ADID=MONAPPLI.
/*

regarde au niveau de ton fichier de sortie (positionné en SYSPRINT)

désolé pour la réponse tardive.

[clermont63]

Bonjour,

Je n'arrive pas au même résultat avec le même paramétrage :

09/15 14.20.45 EQQZ015I INIT STATEMENT: INIT LUNAME(OPCPIF2)
09/15 14.20.45 EQQZ016I RETURN CODE FOR THIS STATEMENT IS: 0000
MONAPPLI 1409151800 W