[OPC/TWS] Add application via JCL ou REXX

**arneo** · 10/02/2011, 16h26

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** · 11/02/2011, 15h02

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** · 11/02/2011, 16h50

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** · 14/02/2011, 09h26

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** · 14/02/2011, 09h32

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** · 14/02/2011, 09h38

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.

**arneo** · 14/02/2011, 09h52

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

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

c'est que je devrai avoir

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

.

**arneo** · 14/02/2011, 10h06

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.

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

**Lemmings1406** · 14/02/2011, 10h46

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.

**arneo** · 14/02/2011, 11h44

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

Réponse premiere question :

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

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

**Lemmings1406** · 14/02/2011, 11h52

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

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
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???

**Lemmings1406** · 14/02/2011, 11h57

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.

**arneo** · 14/02/2011, 12h56

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é.

**Lemmings1406** · 14/02/2011, 14h08

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

**arneo** · 14/02/2011, 15h23

Il ne me trouve pas la proc AJOUTOCC

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

**Lemmings1406** · 14/02/2011, 15h32

Peux tu essayer de faire tourner un autre programme Pif?

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

Code :

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

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

**arneo** · 14/02/2011, 15h39

Même erreur :

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

**Lemmings1406** · 14/02/2011, 16h19

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 *)

**arneo** · 15/02/2011, 08h47

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):

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

**Lemmings1406** · 15/02/2011, 10h09

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)...

[OPC/TWS] Add application via JCL ou REXX

JCL - SORT

Discussions similaires

Partager

Partager