Insert et Perform

Bonsoir,

Avant tout, je précise que le probleme est rencontré sur MVS.

Est ce que la commande suivante vous parait "viable" ?
Code:

1 2 3 4 5 6 7 Perform varying I from 1 by 1 until I > 3 EXEC SQL INSERT INTO MA.TABLE (VA1, VA2, VA3) VALUES (:HVA1(I), :HVA2(I), :HVA3(I)) END-EXEC. END-PERFORM
avec en WSS

mon indice

Code:

I PIC 9(2)

mes 3 variables
Code:

1 2 3 4 5 6 01 INIT-TABLE-HVA1. 05 FILLER PIC X(1) VALUE 'A'. 05 FILLER PIC X(1) VALUE 'B'. 05 FILLER PIC X(1) VALUE 'C'. 01 TABLE-HVA1 REDEFINES INIT-TABLE-HVA1.. 05 HVA1 PIC X(1) OCCURS 3.
Code:

1 2 3 4 5 6 01 INIT-TABLE-HVA2. 05 FILLER PIC X(2) VALUE 'AA'. 05 FILLER PIC X(2) VALUE 'BB'. 05 FILLER PIC X(2) VALUE 'CC'. 01 TABLE-HVA2 REDEFINES INIT-TABLE-HVA2. 05 HVA2 PIC X(2) OCCURS 3.
Code:

1 2 3 4 5 6 01 INIT-TABLE-HVA3. 05 FILLER PIC X(3) VALUE 'AAA'. 05 FILLER PIC X(3) VALUE 'BBB'. 05 FILLER PIC X(3) VALUE 'CCC'. 01 TABLE-HVA3 REDEFINES INIT-TABLE-HVA3.. 05 HVA3 PIC X(3) OCCURS 3.
Le but étant d'inserer les 3 lignes suivantes dans la table MA.TABLE :
------------------------|
| VA1 | VA2 | VA3 |
------------------------|
| A | AA | AAA |
| B | BB | BBB |
| C | CC | CCC |

En effet, lors de la compil(, le BINDALL ne passe pas (unsuccessful)...

D'avance merci

Ted

Citation:

Envoyé par ted the Ors

...
Avant tout, je précise que le probleme est rencontré sur MVS.

Est ce que la commande suivante vous parait "viable" ?
...

Je pense que ça ne marche pas ...

Extrait du "DB2 z/OS Application Programming and SQL Guide V7" :
"You cannot define host variables, other than indicator variables, as arrays. You can specify OCCURS only when defining an indicator structure. You cannot specify OCCURS for any other type of host variable. "

2.4.3.4 Using host variables

Ah flute...:aie:

Le probleme c'est que je dois faire ces insertions de lignes sans passer par plusieurs "insert" (1 / lignes)...

Une idée?

Peut etre en faisant:
Code:

1 2 3 4 5 6 7 8 9 10 Perform varying I FROM 1 BY 1 until I > 3 MOVE HVA1(I) TO WS-HVA1 MOVE HVA2(I) TO WS-HVA2 MOVE HVA3(I) TO WS-HVA3 EXEC SQL INSERT INTO MA.TABLE (VA1, VA2, VA3) VALUES (WS-HVA1,WS-HVA2,WS-HVA3) END-EXEC. END-PERFORM
Avec
Code:

1 2 3 WS-HVA1 PIC X(1). WS-HVA2 PIC X(2). WS-HVA3 PIC X(3).

Oui je pense que ça devrait marcher ...

Citation:

...
Le probleme c'est que je dois faire ces insertions de lignes sans passer par plusieurs "insert" (1 / lignes)...

Mais pourquoi donc ?

Citation:

Envoyé par Luc Orient

Oui je pense que ça devrait marcher ...

Ah bonne nouvelle :yaisse2:

Citation:

Envoyé par Luc Orient

Mais pourquoi donc ?

Disons que c'est difficilement maintenable et pas très propre...J'ai pris un exemple avec 3 lignes et 3 données mais imaginons rien que s'il s'agit de 100 lignes cela génére beaucoup de lignes de codes...
De plus, je doute que les DBA acceptent ce genre de requetes couteuses!

Citation:

Envoyé par ted the Ors

...
Disons que c'est difficilement maintenable et pas très propre...J'ai pris un exemple avec 3 lignes et 3 données mais imaginons rien que s'il s'agit de 100 lignes cela génére beaucoup de lignes de codes...
De plus, je doute que les DBA acceptent ce genre de requetes couteuses!

C'est vrai que c'est sans doute mieux d'un point de vue COBOL.
Mais d'un strict point de vue DB2 ça ne change rien du tout sur la performance des requêtes. Les deux façons de faire sont parfaitement identiques pour DB2.

Citation:

Envoyé par Luc Orient

C'est vrai que c'est sans doute mieux d'un point de vue COBOL.
Mais d'un strict point de vue DB2 ça ne change rien du tout sur la performance des requêtes. Les deux façons de faire sont parfaitement identiques pour DB2.

Ben j'en parlerai à mon DBA! ! ;)

Le soucis c'est que j'ai cela à la compilation:

Code:

1
2
3
"HVA1" was not a uniquely defined name.  The definition to be
used could not be determined from the context.  The reference to the name
was discarded.

et

Code:

1
2
Expected a reference-modification specification but found ")".  The
"MOVE" statement was discarded.

et ce pour les 3 variables HVA1 HVA2 HVA3

:(

Ok j'ai compris...

En fait, j'utilisais la mauvaise variable...
j'ai suivi le tuto de cette page du site

on peut trouver le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 WORKING-STORAGE SECTION.
* l'indice pour la boucle
 01  I             PIC 9(1).
 
* le tableau pour l'affichage des jours
 01  INIT-TABLE-JOUR.
      05  FILLER  PIC  X(8)  VALUE 'LUNDI'.
      05  FILLER  PIC  X(8)  VALUE 'MARDI'.
      05  FILLER  PIC  X(8)  VALUE 'MERCREDI'.
      05  FILLER  PIC  X(8)  VALUE 'JEUDI'.
      05  FILLER  PIC  X(8)  VALUE 'VENDREDI'.
      05  FILLER  PIC  X(8)  VALUE 'SAMEDI'.
      05  FILLER  PIC  X(8)  VALUE 'DIMANCHE'.
 01  TABLE-JOUR  REDEFINES  INIT-TABLE-JOUR.
      05  JOUR    PIC  X(8)  OCCURS  7.    
 
 PROCEDURE DIVISION.       
     PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
         DISPLAY JOUR (I) NB-VOTANT (6, I, 1)
     END-PERFORM.

qu'il faudrait remplacer apparement par

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
WORKING-STORAGE SECTION.
* l'indice pour la boucle
 01  I             PIC 9(1).

* le tableau pour l'affichage des jours
 01  INIT-TABLE-JOUR.
      05  FILLER  PIC  X(8)  VALUE 'LUNDI'.
      05  FILLER  PIC  X(8)  VALUE 'MARDI'.
      05  FILLER  PIC  X(8)  VALUE 'MERCREDI'.
      05  FILLER  PIC  X(8)  VALUE 'JEUDI'.
      05  FILLER  PIC  X(8)  VALUE 'VENDREDI'.
      05  FILLER  PIC  X(8)  VALUE 'SAMEDI'.
      05  FILLER  PIC  X(8)  VALUE 'DIMANCHE'.
 01  TABLE-JOUR  REDEFINES  INIT-TABLE-JOUR.
      05  JOUR    PIC  X(8)  OCCURS  7.    

 PROCEDURE DIVISION.       
     PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
         DISPLAY TABLE-JOUR (I) NB-VOTANT (6, I, 1)
     END-PERFORM.

Cela dépend peut etre du compilateur, du site, etc...Je ne sais pas...

Citation:

Envoyé par ted the Ors

Ok j'ai compris...

En fait, j'utilisais la mauvaise variable...
...

Nous quittons le monde de DB2 pour rentrer dans celui du COBOL.

Ta question, si question il y a, est peut être à poser dans le forum consacré à ce langage ...

Bonjour,

merci pour avoir détécter cette erreur que je vais corriger rapidement:

Code:

1
2
3
4
5
 
 PROCEDURE DIVISION.       
     PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
         DISPLAY TABLE-JOUR (I) NB-VOTANT (6, I, 1)
     END-PERFORM.

.