[OPC/TWS] Add application via JCL ou REXX

Version imprimable

10/02/2011, 16h26
arneo

[OPC/TWS] Add application via JCL ou REXX

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. :cry:
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.

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:

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.

11/02/2011, 16h50
arneo

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

Citation:

//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
14/02/2011, 09h26
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)
14/02/2011, 09h32
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 :D
14/02/2011, 09h38
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.
14/02/2011, 09h52
arneo

Je veux bien m'être tromper mais ce que je ne comprend pas dans le message d'erreur

Citation:

02/14 09.43.25 EQQX110E is not a valid subsystem name
PB LECTURE STATUS PLAN COURANT

c'est que je devrai avoir

Citation:

02/14 09.43.25 EQQX110E TWCB is not a valid subsystem name
PB LECTURE STATUS PLAN COURANT

On dirai qu'il ne le lit même pas :cry: .
14/02/2011, 10h06
arneo

Je ne pense pas m'être trompé sur mon sous-système.
Quand je vais en DA OSTC j'ai bien mon TWCB. quand je rentre dedans j'ai trouver la bibliothèque qui contient le membre PIFPARM, et j'ai bien la même chose.

Citation:

SUBSYS=TWCB,SERVLU=TWSBSX11
/* NOM DU SOUS-SYSTEME POUR LES P.I.F
/* ATTENTION : ANALYSE PAR PROGRAMME UTILISATEUR , GARDER CETTE
/* SYNTAXE POUR LA PREMIERE LIGNE
/* LES LIGNES SUIVANTES NE SONT PAS TRAITEES

Il y a le paramètre SERVLU mais je ne pense pas que ça change quelque chose, enfin de toute façon j'ai fait un test en modifiant mon JCL pour prendre ce membre plutôt que ma SYSIN. Et exactement pareil :cry:
14/02/2011, 10h46
Lemmings1406

Question bête mais j'essaye de comprendre. Est-ce que ta STC TWCB est bien un controller TWS? Est-ce qu'il y a bien le Tracker d'associé?

Peux-tu mettre le compte rendu complet en ligne stp et jeter un coup d'oeil dans la log système pour voir si il n'y aurait pas des messages.
14/02/2011, 11h44
arneo

T'inquiètes pas et j'apprécie énormément ton aide.:D

Réponse premiere question :

Citation:

11.41.35 STC05153 EQQZ200I OPC CONTROLLER TWCB HEARTBEAT
11.41.35 STC05153 S TWJB

On voit bien que la STC TWCB est un controller et que le tracker associé est TWJB (enfin si je me trompe pas)

voici la log du job

Citation:

ICH70001I XIUB020 LAST ACCESS AT 09:43:25 ON MONDAY, FEBRUARY 14, 2011
IEF236I ALLOC. FOR XIUB020A OPCADOC
IGD103I SMS ALLOCATED TO DDNAME PIFPARM
IEF237I 4309 ALLOCATED TO EQQMLIB
IEF237I JES2 ALLOCATED TO EQQMLOG
IEF237I JES2 ALLOCATED TO EQQDMSG
IEF237I JES2 ALLOCATED TO EQQDUMP
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO PIFPRINT
IEF237I JES2 ALLOCATED TO SYSUDUMP
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I XIUB020A OPCADOC - STEP WAS EXECUTED - COND CODE 0012
IGD104I TWSLOC.WA20.OPCQPARM RETAINED, DDNAME=PIFPARM
IEF285I TWS.TWS851.SEQQMSG0 KEPT
IEF285I VOL SER NOS= ZSO81C.
IEF285I XIUB020.XIUB020A.JOB00510.D0000102.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000103.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000104.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000105.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000106.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000106.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000107.? SYSOUT
IEF285I XIUB020.XIUB020A.JOB00510.D0000101.? SYSIN
IEF373I STEP/OPCADOC /START 2011045.0951
IEF374I STEP/OPCADOC /STOP 2011045.0951 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 1176K SYS 352K EXT 536K SYS 11704K
IEF375I JOB/XIUB020A/START 2011045.0951
IEF376I JOB/XIUB020A/STOP 2011045.0951 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC
02/14 09.51.41 EQQX110E is not a valid subsystem name
PB LECTURE STATUS PLAN COURANT

Ci-dessous, le CR de mon job avec un mauvais nom de Sous système

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
IEF236I ALLOC. FOR QA12SC6A OPCADOC                                  
IEF237I JES2 ALLOCATED TO PIFPARM                                    
IEF237I 4BF0 ALLOCATED TO EQQMLIB                                    
IEF237I JES2 ALLOCATED TO EQQMLOG                                    
IEF237I JES2 ALLOCATED TO EQQDMSG                                    
IEF237I JES2 ALLOCATED TO EQQDUMP                                    
IEF237I JES2 ALLOCATED TO SYSPRINT                                   
IEF237I JES2 ALLOCATED TO PIFPRINT                                   
IEF237I JES2 ALLOCATED TO SYSUDUMP                                   
IEF237I JES2 ALLOCATED TO SYSIN                                      
TCPWOPCS00C1O59  = LPIFDATA                                          
TWCBOPCS00C1O59 ****                                                 
APPEL AVEC LUNAME OPCS00C1                                           
APPEL AVEC LUNAME OPCS00C2                                           
APPEL AVEC LUNAME OPCS00C3                                           
APPEL AVEC LUNAME OPCS00C4                                           
APPEL AVEC LUNAME OPCS00C5                                           
APPEL AVEC LUNAME OPCS00C6                                           
APPEL AVEC LUNAME OPCS00C7                                           
APPEL AVEC LUNAME OPCS00C8                                           
IEF142I QA12SC6A OPCADOC - STEP WAS EXECUTED - COND CODE 0032        
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000101.?         SYSIN                   
IEF285I   EQQ.SEQQMSG0                                 KEPT                    
IEF285I   VOL SER NOS= Z19AA2.                                                 
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000103.?         SYSOUT                  
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000104.?         SYSOUT                  
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000105.?         SYSOUT                  
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000106.?         SYSOUT                  
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000107.?         SYSOUT                  
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000108.?         SYSOUT                  
IEF285I   PTCK796.QA12SC6A.JOB03166.D0000102.?         SYSIN                   
IEF373I STEP/OPCADOC /START 2011045.0938                                       
IEF374I STEP/OPCADOC /STOP  2011045.0938 CPU    0MIN 00.12SEC SRB    0MIN 00.00
IEF375I  JOB/QA12SC6A/START 2011045.0938                                       
IEF376I  JOB/QA12SC6A/STOP  2011045.0938 CPU    0MIN 00.12SEC SRB    0MIN 00.00
02/14 09.38.55 EQQX110E TWCB is not a valid subsystem name                     
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C1, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C2, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C3, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C4, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C5, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C6, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C7, RC 19
02/14 09.38.56 EQQX615E Failed to set up communication with Server OPCS00C8, RC 19
PB INITIALISATION INTERFACE OPC    
*******************************************************************************
CARTE PIFPARM LUE :                                                            
SUBSYS=TWCB                                                                    
*******************************************************************************

On peut se poser la question en effet à savoir: est-ce que ta carte PIFPARM est lue???

14/02/2011, 11h57
Lemmings1406

Sinon, autre question car je suis intrigué par les ressemblance qu'il existe entre ton environnement et le mien. Quelle est ta société, tu peux me répondre par MP si tu veux.
14/02/2011, 12h56
arneo

MP envoyé, effectivement on doit faire partie de la même société.
Sinon je trouve mon erreur bizar je me demande ce que j'ai mal renseigné.
14/02/2011, 14h08
Lemmings1406

Je ne sais trop quoi dire... peux-tu rechercher dans quelle bibli il va chercher le programme stp. On ne sait jamais, si il y a chez vous le même genre d'oiseau que nous avons eu, il se peut que le programme est été "transformé" ou "détourné"

Tu peux aussi essayer d'exécuter la chose suivante, tu verras bien (ou rechercher le rexx AJOUTOCC en sysproc):

//ESSAIAJ EXEC AJOUTOCC
//*-------------------------------------------------------------------*
//*COM-ETAPE=Ajout Occurence
//*
//SYSIN DD *
APPL=TEST1
/*
14/02/2011, 15h23
arneo

Il ne me trouve pas la proc AJOUTOCC

Par contre après je suis un peu perdu. je ne sais pas trop ou chercher.

Peux tu essayer de faire tourner un autre programme Pif?

Exemple ci-dessous (modifie l'état d'une occurence dans le PLC):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 //MODOPST EXEC PGM=MODOPST //PIFPARM DD DISP=SHR,DSN=Nom_bibli_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] OPNO=0005 STATUS=C
Ca va peut-être nous donner une piste...

Pour chercher où se trouvent les pgm, il faut faire TSO ISRDDN puis taper LIN puis M Nom_du_pgm et répondre YES à la fenêtre qui va s'ouvrir. Si il trouve le pgm, juste en face, tu auras le nom de la bibli où il se trouve

14/02/2011, 15h39
arneo

Même erreur :

Citation:

02/14 15.37.37 EQQX110E is not a valid subsystem name
********************************************************************************
LE 110214 A 153737, CARTE SYSIN TRAITEE :
APPL=TEST OPNO=0002 STATUS=C

PAS D OCCURRENCE DANS LE PLAN COURANT, RC=28

On revient toujours au même souci, pourquoi il ne prend pas le sous système.

Edit: J'ai deux bib qui contiennent le pgm ADDOCC
PNS00.TWS.MODULES
CSYSO.LZS1B.LINKLIB
14/02/2011, 16h19
Lemmings1406

Si tu as deux biblis qui contiennent le pgm ADDOCC, il faut essayer de l'exécuter à partir des 2 biblis en mettant une steplib. (Ca sent le bidouillage)

Peux-tu également si ça ne donne pas de résultats exécuter ton job mais sans rien renseigner au niveau du pifparm (//PIFPARM DD *)
15/02/2011, 08h47
arneo

Dsl du retard journée assez chargé hier.
Sinon je viens de testé avec les 2 joblib, il y a un mieux.
Avec la première même erreur(RC12), mais avec la deuxième on a (RC32):

Citation:

IEF375I JOB/XIUB020A/START 2011046.0841
IEF376I JOB/XIUB020A/STOP 2011046.0841 CPU 0MIN 00.14SEC SRB 0MIN 00.01SEC
02/15 08.41.17 EQQX615E Failed to set up communication with Server TWSBSX11, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX12, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX13, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX14, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX15, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX16, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX17, RC 19
02/15 08.41.18 EQQX615E Failed to set up communication with Server TWSBSX18, RC 19
PB INITIALISATION INTERFACE OPC
********************************************************************************
CARTE PIFPARM LUE :
SUBSYS=TWCB,SERVLU=TWSBSX11
********************************************************************************

Au moins maintenant il nous lit la PIFPARM
15/02/2011, 10h09
Lemmings1406

C'est bien ce que je pensais, il y a eu du bidouillage, ce qui pour des programmes fournisseurs n'est vraiment pas terrible voir complètement imbécile. A toi de voir de ton côté comment faire en prod ou savoir le pourquoi du comment.

Bon maintenant, il faut trouver la bonne codif pour que ça fonctionne correctement. Peux tu essayer de faire tourner ton jcl mais en mettant le pifparm dans le jcl et sans le nom de la LU(peut-être que le PIFPARM n'est pas bon non plus)...
15/02/2011, 10h23
arneo

J'ai oublié de mettre que j'avais aussi testé avec la pifparm dans mon JCL et sans le SERVLU et même erreur. :cry:
Je suis d'accord avec toi, modifier des programmes standard c'est pas terrible.
Je vais essayer de me renseigner auprès des personnes qui s'occupe d'OPC (si je trouve, vive les grosses boites)

J'ai aussi pensai, les jobs de montés au plan, il ne fond pas d'ADD OPC ? Vais essayer de me pencher dessus.

En tout cas merci de ton aide :merci:
16/02/2011, 16h55
arneo

Bon voila je viens d'avoir la solution. Après plusieurs jours de recherches :cry:
Donc si j'ai bien compris, les admins ont modifiés certaine choses pour qu'on puisse utiliser plusieurs OPC sur une même partition, on doit donc renseigner une carte EQQYPARM. (passage par TCP/IP) j'avoue pas tout à fait bien compris.
Voici les paramètres :
INIT SUBSYS(sous systeme) REMHOST(remote host) REMPORT(num du port)

Merci encore à tout ceux qui m'ont aidé :ccool:
17/02/2011, 07h16
Lemmings1406

Très bien. Ceci dit, je ne vois pas l'intérêt de leurs changements. J'ai également plusieurs TWS sur une même partition. Le PifParm sert à ça.
Si quelqu'un a une explication, je suis preneur.