Discussion :

[macgawel]

Bonjour.

Je travaille sur Z/OS et j'utilise DB2.

En général, quand j'utilise une requête SELECT je mets le résultat dans un tableau, je trouve le FETCH plus clair (surtout quand j'ai une 50aine de colonnes à récupérer) et la maintenance plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
01 RESULTAT.
   05 COL1 PIC S9(4).
   05 COL2 PIC X.
*---------
EXEC SQL
   DECLARE CURSEUR CURSOR FOR
      SELECT COL1, COL2
      FROM MATABLE
      WHERE CONDITION
END-EXEC.
*---------
EXEC SQL
   FETCH CURSEUR INTO :RESULTAT
END-EXEC

Là, j'aimerais utiliser le "multi-row fetching".
Le problème, c'est que j'arrive à le mettre en place, mais pas avec un tableau.
Ca fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
01 RESULTAT.
   05 COL1 PIC S9(4) OCCURS 10 TIMES.
   05 COL2 PIC X OCCURS 10 TIMES.
*---------
EXEC SQL
   DECLARE CURSEUR CURSOR WITH ROWSET POSITIONING FOR
      SELECT COL1, COL2
      FROM MATABLE
      WHERE CONDITION
END-EXEC.
*---------
EXEC SQL
   FETCH  NEXT ROWSET FROM CURSEUR FOR 10 ROWS INTO :COL1 :COL2
END-EXEC

Je voudrais :

Code :

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

1
2
3
EXEC SQL
   FETCH  NEXT ROWSET FROM CURSEUR FOR 10 ROWS INTO :RESULTAT
END-EXEC

Mais la compile me renvoie un RC08 avec le message

Code :

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

DSNH5011I E     DSNHSMUD LINE XXX COL XX  HOST VARIABLE ARRAY "RESULTAT" IS EITHER NOT DEFINED OR IS NOT USABLE

J'ai essayé de déclarer RESULTAT comme un tableau, ça fait pareil...

Quelqu'un aurait une solution ?

[rdummies]

Bonjour,

L'OCCURS ne doit-il pas être porté par la zone mère ?

Code :

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

1
2
3
01 RESULTAT OCCURS 10 TIMES.
   05 COL1 PIC S9(4).
   05 COL2 PIC X.

[escartefigue]

Exemple chopé sur le web

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
01  OUTPUT-VARS.
    05 LASTNME OCCURS 10 TIMES.
    49 LASTNME-LGTH PIC S9(4) USAGE COMP.
    49 LASTNME-DATA PIC X(50).
    05 EMPNO PIC S9(9) COMP-4 OCCURS 10 TIMES.

PROCEDURE DIVISION.
    EXEC SQL
         DECLARE C1 CURSOR WITH ROWSET POSITIONING FOR
                 SELECT LASTNME, EMPNO
                 FROM EMP
    END-EXEC.

    EXEC SQL
        OPEN C1
    END-EXEC.

    EXEC SQL
        FETCH FIRST ROWSET FROM C1 FOR 10 ROWS
        INTO :LASTNME,
             :EMPNO
    END-EXEC.