Discussion :

[arneo]

Bonjour,

Je souhaite ajouter au plan courant une application qui se trouve dans la Database OPC( rien de bien compliqué en soit mais...).
J'ai vu qu'il était possible par OCL j'ai trouvé la doc ici mais j'avoue que je patauge pas mal.
Si une âme charitable veux bien me conseiller.

Merci d'avance pour votre aide

Edit: pour OCL ca va être dur car le membre EQQYRPRC de la SEQQSAMP n'est pas renseigné dans mon environnement.

[Lemmings1406]

Bonjour,

Si tu n'as pas la possibilité de pouvoir mettre en place l'environnement nécessaire pour utiliser le langage OCL, tu peux utiliser le programme ADDOCC qui fait partie des "programmes interface" de TWS (comme MODOCST ou MODOPST par exemple mais il y en a d'autres).

Un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//OPCADOC EXEC PGM=ADDOCC
//PIFPARM DD DISP=SHR,DSN=Nom_Bibli_contenant_Pifparm(PIFPARM)
//EQQMLIB DD DISP=SHR,DSN=Nom_de_la_Eqqmlib
//EQQMLOG DD SYSOUT=*
//EQQDMSG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PIFPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
   APPL=nom de l'application

Il est possible d'appeler ce programme en REXX (je peux te fournir le rexx si tu veux mais ce n'est pas un rexx "standard").

D'autres options sont possibles pour la sysin:

APPL= nom de l'application à ajouter.
16 caractères maximum

IA= input arrival date & time de l'occurrence.
10 caractères.
Format: YYMMDDHHMM
Champ facultatif.

IADATE= input arrival date de l'occurrence.
6 caractères.
Format: YYMMDD
Champ facultatif.

IATIME= input arrival time de l'occurrence.
4 caractères.
Format: HHMM
Champ facultatif.

DL= dealine date & time de l'occurrence
10 caractères.
Format: YYMMDDHHMM
Champ facultatif

DLDATE= deadline date de l'occurrence
6 caractères.
Format: YYMMDD
Champ facultatif

DLTIME= deadline time de l'occurrence
4 caractères.
Format: HHMM
Champ facultatif
Valeur par défaut: heure de passage du programme.

PS: L'application sera ajoutée dans le plan à long terme si la valeur du paramètre IA est supérieure à la date/heure de fin du plan courant, dans le plan courant dans tous les autres cas.

[arneo]

Merci pour ton aide mais impossible de faire tourner ton JCL.
Voici mon JCL :

//OPCADOC EXEC PGM=ADDOCC
//PIFPARM DD *
SUBSYS=TWCB
//EQQMLIB DD DISP=SHR,DSN=TWS.TWS851.SEQQMSG0
//EQQMLOG DD SYSOUT=*
//EQQDMSG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PIFPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
APPL=TEST

et j'ai l'erreur :
02/11 16.38.48 EQQX110E is not a valid subsystem name
PB LECTURE STATUS PLAN COURANT

Je ne comprend pas, il ne veux pas me prendre le sous système que j'indique dans la PIFPARM. Pourtant j'en suis sur puisque c'est celui que j'ai dans les options OPC.

Une idée ?

Merci d'avance

[Lemmings1406]

il me semble mais je ne veux pas dire de bêtise que la sysin ne commence pas au bon endroit. Essaye de décaler ton "subsys=" (colonne 7 chez moi)

[arneo]

Je viens de faire le test avec ma sysin commençant colonne 7 et même message il ne prend pas en compte mon subsystem.
Merci quand même

[Lemmings1406]

Je viens de faire le test avec ton jcl. Aucun problème, tu as du te tromper dans le nom du sous système, je ne vois pas autre chose. Regarde sous SDSF, les stc qui tournent.