Discussion :

[sam01]

Bonjour à tous,


Est-il possible d'intégrer une requête SQL dans un rexx afin de pouvoir exploiter le résultat de la requête dans la suite du REXX ?

Merci d'avance pour votre réponse.

[ekans]

Bonjour,

Tout d'abord, je n'ai jamais essayé d'utiliser SQL dans du REXX mais ça m'intéresse aussi...

J'ai trouvé ça http://publib.boulder.ibm.com/infoce.../rzajprexx.htm.
J'ai rapidement testé et ça marche bien.

Bon weekend!

[bernard59139]

Dans le fichier joint, un exemple qui me sert de base pour pour mes développements

[sam01]

Bonjour,

désolé pour le retard.

Ton exemple m'interresse bernard59139.
Par contre peux-tu expliquer le détail de chaque ligne, je ne comprends pas tout

[Peut-êtreUneRéponse]

Un exemple d'Homer-ac sur un autre fil

.

[sam01]

merci.

Je test.

[sam01]

Je ne parviens pas à le faire focntionner.

Voici le message d'erreur que j'ai :

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

-* ADDRESS TSO "SUBCOM DSNREXX"    /* HOST CMD ENV AVAILABLE ? */    
L>   "SUBCOM DSNREXX"                                                
++ RC(1) +++                                                         
-* IF RC                                                             
V>   "1"                                                             
-*  THEN                                                             
-*  S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')                       
L>    "ADD"                                                          
L>    "DSNREXX"                                                      
L>    "DSNREXX"                                                      
F>    "0"                                                            
-* ADDRESS DSNREXX "CONNECT" SUBSYS                                  
L>   "CONNECT"                                                       
V>   "DBAM"                                                          
O>   "CONNECT DBAM"                                                  
++ RC(-1) +++                                                        
-* IF SQLCODE ^= 0                                                   
V>   "-923"                                                          
L>   "0"

Savez-vous d'où ça peut venir ?
J'ai l'impression qu'il ne parvient pas à se connecter à DB2 :

Voici ce que dit la doc SQL.

-923 CONNECTION NOT ESTABLISHED: DB2 condition REASON reason-code, TYPE
resource-type, NAME resource-name

[Homer-ac]

Si tu es certain de ton SUBSYS DB2, j'ai bien peur qu'il ne s'agisse d'un pb de droit d'utilisation de DSNREXX sur ton site. Il y a des chances que le bind plan DSNREXX n'est pas bon ou qu'il te manque plus simplement un grant execute sur ce plan.
Je pense que tu vas devoir prendre contact avec les DBA de ton site pour leur demander un grant exécute sur le plan DSNREXX. Tu leur fera peut-être gagner du temps en leur indiquant que c'est dans le membre DSNTIJTM de la SDSNSAMP.

[Luc Orient]

-923 en DB2 z/OS c'est souvent un problème de plan en effet, mais je dirais que le plan n'existe pas ou qu'il a été invalidé de manière définitive.

En outre, il serait intéressant d'avoir le contenu complet de la zone SQLCA et en particulier celui de la variable SQLERRMC.

[sam01]

Voilà ce que j'ai :

Code :

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

1
2
3
4
5
6
7

 SQLCODE  =  -923                             
 SQLSTATE =  57015                            
 SQLERRMC =   ACCESS 00E30301 00000800 DSNREXX
 SQLERRML =  SQLERRML                         
 SQLERRP  =  DSNAET03

[Homer-ac]

Le plan DSNREXX n'a pas été bindé sur le site, il faut voir avec les DBA s'ils sont d'accord pour l'ajouter avec les grant exécute nécessaires (cf. membre SDSNSAMP DB2 : DSNTIJTM).
http://publib.boulder.ibm.com/infoce...s/00e30301.htm

00E30301
Explanation
You have attempted to execute a plan that does not exist. This reason code is used by the automatic BIND function to indicate that no record exists in SYSIBM.SYSPLAN for the plan-ID you are attempting to run, so plan allocation fails.

[sam01]

Merci.