IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    juin 2010
    Messages
    73
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2010
    Messages : 73
    Points : 140
    Points
    140
    Par défaut [ZOS] [DB2] Requête multicolonnes et tableau
    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 ?

  2. #2
    Membre à l'essai
    Homme Profil pro
    Référent technique
    Inscrit en
    novembre 2004
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Référent technique
    Secteur : Conseil

    Informations forums :
    Inscription : novembre 2004
    Messages : 19
    Points : 14
    Points
    14
    Par défaut
    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.

  3. #3
    Modérateur
    Avatar de escartefigue
    Homme Profil pro
    bourreau
    Inscrit en
    mars 2010
    Messages
    6 948
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : bourreau
    Secteur : Finance

    Informations forums :
    Inscription : mars 2010
    Messages : 6 948
    Points : 21 886
    Points
    21 886
    Billets dans le blog
    2
    Par défaut
    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.

Discussions similaires

  1. [SQL] Affichage résultat requête dans un tableau, bouton affichage page
    Par megapacman dans le forum PHP & Base de données
    Réponses: 35
    Dernier message: 18/05/2006, 16h42
  2. requêtes dans un tableau excel!? possible?
    Par flower dans le forum Access
    Réponses: 2
    Dernier message: 12/05/2006, 16h43
  3. [VB]résultat requête dans un tableau
    Par blaiso dans le forum VB 6 et antérieur
    Réponses: 29
    Dernier message: 30/01/2006, 16h26
  4. [DB2] Requête imbriquée avec opérateur IN
    Par JFDelges dans le forum Langage SQL
    Réponses: 23
    Dernier message: 21/12/2005, 11h27
  5. [DB2]Requête regroupement par intervals
    Par sm dans le forum DB2
    Réponses: 8
    Dernier message: 01/09/2004, 17h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo