Insert SQL par JCL [Résolu]

[Antichoc]

Encore bonjour, décidemment, j'ai pas mal de questions !!!

Je cherche à réaliser un INSERT SQL via un Step de JCL. J'ai utilisé l'utiltaire IKEFT01 mais il n'est pas installé ...

Avez vous une solution à ce problème ? (autre que IKEFT01), j'utilise par exemple DSNUTILB pour les load, peut on s'en servir pour les INSERT et UPDATE ?

Petite précision, en fait ce que je voudrais faire c'est insérer un enregistrement dans une table s'il n'existe pas, sinon, je voudrais le mettre à jour ... mais je ne vois pas trop comment coder ca en JCL (faire un select puis en fonction du code retour faire un insert ou update ?)

Merci à vous.

[SPACHFR]

T'es sur que c'est pas plutôt cet utilitaire : IKJEFT01

[Peut-êtreUneRéponse]

Sous MVS via JCL : de la même manière que tu utilises l'utilitaire LOAD par DSNUTILB pour faire tes chargements, tu peux utiliser l'utilitaire EXEC SQL.

Il se code de la sorte en SYSIN :

Code jcl :

1
2
3
4
5
6
7
8
 
 EXEC SQL 
     INSERT INTO toto 
         VALUES (...
                ,...
                ,...
                ,...) 
ENDEXEC

Attention cet utilitaire est utilisable uniquement avec ALTER, COMMIT, CREATE, DELETE, DROP, EXPLAIN, GRANT, INSERT.

.

[Peut-êtreUneRéponse]

En y réfléchissant un peu, bof bof comme utilisation!

Que veux tu faire exactement, dans quel contexte ? Peut-être vaut-il mieux passer ta requête par programme ou bien via SPUFI ?

.

[Antichoc]

Pour utiliser certains batch de mon JCL, je dois inserer ou mettre à jour une ligne DB2 dans une table afin d'autoriser mon user et le nom de mon job à se lancer.

C'est pourquoi avant de lancer le step de mon batch, je dois vérifier et mettre à jour (ou ajouter) cette fameuse ligne ...

Je préfère donc automatiser car le JCL est parametrable pour pouvoir le changer d'environnement à volonté (et donc de table DB2 !)

En revanche, pour ton premier poste qui stipule que je peux utiliser celui du LOAD, les fichiers SYSREC00 et SYSPUNCH sont-ils utiles ?

[Peut-êtreUneRéponse]

Il te suffit de ne conserver que la SYSPRINT pour vérifier le code SQL de ta requête dans ton compte rendu et la SYSIN elle même, soit:

Code jcl :

1
2
3
4
5
6
7
8
9
10
11
12
 
//STEP1    EXEC PGM=DSNUTILB,PARM='SSID,userID'
//SYSPRINT DD SYSOUT=*                          
//SYSIN    DD *
 EXEC SQL 
     INSERT INTO toto 
         VALUES (...
                ,...
                ,...
                ,...) 
 ENDEXEC
/*

Les données contenu dans le paramètre PARM varient selon les normes du site.

.

[Antichoc]

C'est OK merci beaucoup !!

@+

[Antichoc]

Petite précision,

Comment réaliser certaines requete de manière conditionnelle
, c'est à dire :

Code :

1
2
3
4
5
6
7
8
9
10
SELECT * FROM ....

SI SQL CODE à 100 : 
   
   ALORS 
      INSERT INTO 
   
   SINON 
      UPDATE FROM ....

Merci !!

[Luc Orient]

Envoyé par Antichoc

... Comment réaliser certaines requete de manière conditionnelle ...

Euh ... un programme peut-être ?

[Antichoc]

Merci mais c'est justement ce que je veux éviter ... Y a t il moyen de la coder en JCL ?

[Peut-êtreUneRéponse]

Comme Luc... par programme.

.

[Antichoc]

Tampi, merci à vous !

[Luc Orient]

Allez ! ... la communauté des "mainframers" de DVP, peu nombreuse certes mais néanmoins vaillante, ne va pas rester sur un échec !

Voici la solution que je propose :

1. faire un déchargement, via DSNTIAUL par exemple, pour avoir le résultat de la requête dans un fichier
2. tester si le fichier est vide via la fonction COUNT de l'utilitaire ICETOOL en générant un RETURN CODE
3. tester le RETURN CODE via JCL pour faire l'un ou l'autre cas

Concrètement ça donne quelque chose comme ça :

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
//DSNTIAUL EXEC PGM=IKJEFT01,DYNAMNBR=20 
//* DSNTIAUL AVEC ORDRE SQL 
//SYSTSPRT DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SYSTSIN DD * 
 DSN SYSTEM(DSN) 
 RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') 
//SYSREC00 DD DISP=(NEW,PASS),DSN=&&TEMP, 
//  AVGREC=U,SPACE=(80,(100,10)) 
//SYSPUNCH DD DUMMY 
//SYSIN DD * 
  SELECT * FROM SYSIBM.SYSDUMMY1 
  WHERE IBMREQD='A'; 
//* 
//ICETOOL EXEC PGM=ICETOOL 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//TOOLIN DD * 
 COUNT FROM(IN) RC4 EMPTY 
//IN DD DISP=(OLD,PASS),DSN=&&TEMP 
//* 
// IF RC=4 THEN 
//IEFBR14 EXEC PGM=IEFBR14 
// ELSE 
//IEFBR14 EXEC PGM=IEFBR14 
// ENDIF

Dans mon exemple, le RETURN CODE généré vaut 4 si le fichier est vide, c'est à dire si la ligne n'existe pas ...
Les activités exécutées sont ici fictives mais c'est juste pour tester ...
Bien sûr il faut adapter ...

Alors qui dit mieux ?

[Peut-êtreUneRéponse]

Superbe dans la forme, dans le fond je pense que ce genre de cas ne se gère pas par JCL

[Antichoc]

Impréssionné ....

Bon je vais tester et je vous tiens au courant

[Antichoc]

Il semblerait que ICETOOL fonctionne pour diriger vers le step de mon choix (INSERT ou UPDATE) seulement, dans ces step, les requetes ne se font pas correctement, j'ai un abend -805 ...

Je ne sais pas d'où cela peut venir !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//DSNTIAUL EXEC PGM=IKJEFT01,DYNAMNBR=20 
//* DSNTIAUL AVEC ORDRE SQL 
//SYSTSPRT DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SYSTSIN DD * 
DSN SYSTEM(DSN) 
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') 
//SYSREC00 DD DISP=(NEW,PASS),DSN=&&TEMP, 
//  AVGREC=U,SPACE=(80,(100,10)) 
//SYSPUNCH DD DUMMY 
//SYSIN DD * 
  SELECT * FROM MA TABLE
  WHERE MA SELECTION;
//*

Ca c'est ok

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
//ICETOOL EXEC PGM=ICETOOL 
//TOOLMSG DD SYSOUT=* 
//DFSMSG DD SYSOUT=* 
//TOOLIN DD * 
COUNT FROM(IN) RC4 EMPTY 
//IN DD DISP=(OLD,PASS),DSN=&&TEMP 
//* 
// IF RC=4 THEN 
//INSERT EXEC PGM=DSNUTILB,PARM='DSN,USER'
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 EXEC SQL
  INSERT INTO ....
 ENDEXEC
/*
// ELSE 
//UPDATE EXEC PGM=DSNUTILB,PARM='DSN,USER'
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 EXEC SQL
  UPDATE TABLE SET ...
 ENDEXEC
/*
// ENDIF

Qu'il rentre dans l'insert ou l'update, j'ai un MaxCC=8 avec uin sqlcode à -805. Le icetool et le select se sont bien déroulé !!

Merci

[Luc Orient]

Envoyé par Peut-êtreUneRéponse

Superbe dans la forme, dans le fond je pense que ce genre de cas ne se gère pas par JCL

... je suis d'accord ... ça tient plus de l'exercice de style qu'autre chose ... mais bon ...

Envoyé par Antichoc

Il semblerait que ICETOOL fonctionne pour diriger vers le step de mon choix (INSERT ou UPDATE) seulement, dans ces step, les requetes ne se font pas correctement, j'ai un abend -805 ...

c'est d'autant plus curieux que ça a déjà fonctionné non ?

Envoyé par Antichoc

... Ca c'est ok

j'espere que tu as codé ta propre requête quand même ...

Envoyé par Antichoc

Qu'il rentre dans l'insert ou l'update, j'ai un MaxCC=8 avec uin sqlcode à -805. Le icetool et le select se sont bien déroulé !!

... sinon on peut toujours passer par un DSNTEP2 ...

[Antichoc]

Je cherche de la doc sur DSNTEP2 ... je vous tiens au courant

Envoyé par Antichoc
... Ca c'est ok
j'espere que tu as codé ta propre requête quand même ...

Le message est rectifié mais j'avais effectivement codé ma requete ... les DSN et table n'étant pas les même, cela aurait été difficile !!

[Luc Orient]

Envoyé par Antichoc

Je cherche de la doc sur DSNTEP2

DSNTEP2 est un programme exemple fourni par IBM ("sample" en terminologie IBM) qui permet d'exécuter quasiment tout le SQL DB2 de manière dynamique.

Il est particulièrement utile en batch où il est utilisé à partir de l'interface TSO-Batch (le fameux IKJEFT01 i.e. le Terminal Monitor Program).

C'est un programme écrit en PL/1 qui peut même être modifié par un programmeur connaissant ce langage.

Voici un exemple de JCL (à adapter selon le site bien sûr ...) :

Code :

1
2
3
4
5
6
7
8
9
//DSNTEP2 EXEC PGM=IKJEFT01,DYNAMNBR=20 
//SYSTSPRT DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SYSTSIN DD * 
 DSN SYSTEM(DSN) 
 RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2) 
//SYSIN DD * 
 SELECT * FROM SYSIBM.SYSDUMMY1;

DSNTEP2 a un équivalent écrit en assembleur pour les sites qui n'auraient pas le compilateur PL/1 c'est DSNTIAD. Mais ce dernier a des restrictions que n'a pas DSNTEP2 (pas de SELECT notamment).

Pour la doc ( DB2 V7 ) c'est ici :
Running DSNTEP2

[Antichoc]

Désolé pour le retard, je rentre de congés :-)

Ca semble me convenir, merci pour ces infos.