SQL descriptor

RPG (3 et 4, free), CL, SQL, etc...
Répondre
Igrecaimo
Messages : 3
Enregistré le : jeu. 04 mai 2017, 13:18:02

Message par Igrecaimo »

Bonjour,

Je connais peu les descripteurs SQL et j'aurais besoin de savoir si mon code est correct. Je n'ai pas trouvé d'exemple sur le web pour mon cas.

Le principe du programme est simple : Les éléments d'une requête SELECT (nom de la table, noms du champ à afficher et de ceux à retourner, critères de sélection et de tri) sont reçus en paramètres. Le programme construit une requête et l'exécute. Un zone en saisie sur l'écran permet de restreindre l'affichage (par exemple, afficher tous le noms commençant par "R").

Le programme fonctionne jusqu'au moment où il ne trouve aucune info pour la seconde fois consécutive : Erreur SQL0901 (erreur système) sur une instruction SET DESCRIPTOR. A partir de là, plus rien de va.

Il me manque certainement quelque chose mais je ne vois pas quoi. Je pense pourtant avoir collé au manuel SQL d'IBM.

Si quelqu'un peut m'aider, merci.
Voici mon code (des chevrons sont sur la ligne en erreur) :

Code : Tout sélectionner

     *
      *-------------------------------------------------------------------------------------------*
      *
     D SQL_NUM         c                   const( 6 )
     D EMBARQUE        c                   const( 'E' )
     D PORTABLE        c                   const( 'P' )
      *
     D MTREC02O        PR                  extpgm( 'MTREC02O' )
     D pi$Table                      32
     D pi$Filtre                    128
     D pi$Tri                       128
     D pi$Display                    32
     D pi$Typecr                      1
     D pi$data1                      32
     D pi$data2                      32
     D pi$data3                      32
     D pi$data4                      32
     D pi$data5                      32
     D po$Retour1                   128
     D po$Retour2                   128
     D po$Retour3                   128
     D po$Retour4                   128
     D po$Retour5                   128
     D po$cdret                       1
      *
     D MTREC02O        PI
     D pi$Table                      32
     D pi$Filtre                    128
     D pi$Tri                       128
     D pi$Display                    32
     D pi$Typecr                      1
     D pi$data1                      32
     D pi$data2                      32
     D pi$data3                      32
     D pi$data4                      32
     D pi$data5                      32
     D po$Retour1                   128
     D po$Retour2                   128
     D po$Retour3                   128
     D po$Retour4                   128
     D po$Retour5                   128
     D po$cdret                       1
      *
      *
     D X1AFFICHER      s             20
     D X2AFFICHER      s             44
     D wwAfficher      s                   like( X2AFFICHER )
     D wwCount         s              5i 0
     D wwData          s                   like( X2AFFICHER )
     D wwI             s              3i 0
     D wwStmt          s           5000    varying
      *
      /free
        exec sql include SQLDA;
        exec sql set option datfmt=*ISO, commit=*NONE;

        exsr InitSQLStmt;
        exsr ReadResult;

        X2Afficher = 'R';
        exsr ReadResult;

        X2Afficher = ' ';
        exsr ReadResult;

        X2Afficher = 'x';
        exsr ReadResult;

        X2Afficher = 'A';
        exsr ReadResult;

        *inlr = *ON;

        //---------------------------------------------------------------------//
        begsr InitSQLStmt;
           clear wwStmt;
           wwStmt = 'SELECT ' + %trim( pi$Display );
           if pi$Data1 <> *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ',' + %trim&#40; pi$Data1 &#41;;
           endif;
           if pi$Data2 <> *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ',' + %trim&#40; pi$Data2 &#41;;
           endif;
           if pi$Data3 <> *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ',' + %trim&#40; pi$Data3 &#41;;
           endif;
           if pi$Data4 <> *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ',' + %trim&#40; pi$Data4 &#41;;
           endif;
           if pi$Data5 <> *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ',' + %trim&#40; pi$Data5 &#41;;
           endif;
           wwStmt = %trim&#40; wwStmt &#41; + ' FROM ' + %trim&#40; pi$Table &#41;;
           select;
           when pi$TypEcr = PORTABLE;
             wwAfficher = X1AFFICHER;
           when pi$TypEcr = EMBARQUE;
             wwAfficher = X2AFFICHER;
           endsl;
           if pi$Filtre <> *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ' WHERE ' + %trim&#40; pi$Filtre &#41;;
             if wwAfficher <> *BLANKS;
               wwStmt = %trim&#40; wwStmt &#41; + ' AND ' + %trim&#40; pi$Display &#41;
                      + ' LIKE ' + '''' + %trim&#40; wwAfficher &#41; + '%'
                      + '''';
             endif;
           else;
             if wwAfficher <> *BLANKS;
               wwStmt = %trim&#40; wwStmt &#41; + ' WHERE ' + %trim&#40; pi$Display &#41;
                      + ' LIKE ' + '''' + %trim&#40; wwAfficher &#41; + '%'
                      + '''';
             endif;
           endif;
           if pi$Tri = *BLANKS;
             wwStmt = %trim&#40; wwStmt &#41; + ' ORDER BY ' + %trim&#40; pi$Display &#41;;
           else;
             wwStmt = %trim&#40; wwStmt &#41; + ' ORDER BY '
                    + %trim&#40; pi$Tri &#41;
                    + ', ' + pi$Display;
           endif;
           exec sql prepare selectStmt from &#58;wwStmt;
           exec sql declare RECHERCHE cursor for selectStmt;
           exec sql open RECHERCHE;
           exec sql allocate descriptor 'DESCRIPT' with max 6;
           exec sql describe selectStmt using descriptor 'DESCRIPT';
           for wwI = 1 to 6;
             select;
             when wwI = 1;
               if pi$TypEcr = PORTABLE;
               exec sql set descriptor 'DESCRIPT' value &#58;wwI
                                                  type = 1,
                                                  length = 20;
               else;
               exec sql set descriptor 'DESCRIPT' value &#58;wwI
                                                  type = 1,
                                                  length = 44;
               endif;
             other;
               exec sql set descriptor 'DESCRIPT' value &#58;wwI
                                                  type = 1,
                                                  length = 128; <<<<<<<<<<<<<<<
             endsl;
           endfor;

        endsr;
        //---------------------------------------------------------------------//
        begsr ReadResult;
           if wwAfficher <> X2Afficher;
            wwAfficher = X2Afficher;
            exec sql close RECHERCHE;
            exec sql deallocate descriptor 'DESCRIPT';
            exsr InitSQLStmt;
           endif;

           exec sql fetch RECHERCHE into sql descriptor 'DESCRIPT';
           dow sqlCode = 0;

             exec sql get descriptor 'DESCRIPT' &#58;wwCount = COUNT;
             if sqlCode = 0;
               for wwI = 1 to wwCount;
                 if wwI = 1;
                   exec sql get descriptor 'DESCRIPT' value &#58;wwi &#58;WWDATA = DATA;
                   dsply wwData '*EXT';
                 endif;
               endfor;
             endif;
             exec sql fetch RECHERCHE into sql descriptor 'DESCRIPT';
           enddo;
        endsr;
        //---------------------------------------------------------------------//
      /end-free 

cmasse
Site Admin
Messages : 722
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

SQL dynamique

Message par cmasse »

Perso je préfère SQL dynamique

PREPARE puis OPEN CURSOR

j'ai trouvé ça https://www.itjungle.com/2015/09/15/fhg091515-story01/ qui compare les différentes méthodes...
Christian Massé (Volubis.fr)

Igrecaimo
Messages : 3
Enregistré le : jeu. 04 mai 2017, 13:18:02

Message par Igrecaimo »

Merci pour cette réponse rapide. Intéressante cette page. Je n'ai pas trop le choix dans la méthode car je ne connais ni le nom de la table ni les colonnes que je dois fournir : Descripteur obligatoire.

Igrecaimo
Messages : 3
Enregistré le : jeu. 04 mai 2017, 13:18:02

Message par Igrecaimo »

Y a-t-il une astuce qui permette d'en savoir plus sur une erreur système SQL ? Il y a bien un dump quand ça se produit mais ce n'est pas vraiment exploitable.

cmasse
Site Admin
Messages : 722
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

DSPJOBLOG

Message par cmasse »

Normalement les infos SQL sont dans la JOBLOG.
Christian Massé (Volubis.fr)

Répondre