[PRO*COBOL] Appel SQL dans un programme COBOL

**JauB** · 05/04/2007, 12h02

Bonjour tout le monde,
j'ai une requête SQL qui me retourne plusieurs lignes et j'aimerai savoir comment faire pour exploiter cette requête pour insérer chaque ligne dans un fichier.
est ce que quelqu'un a un bout de code qui permet de faire ça, sachant que je suis débutant en COBOL

**pej80** · 05/04/2007, 16h07

1. Déclare un curseur (DECLARE).
DECLARE nom_curseur CURSOR FOR
SELECT nom_champs
FROM nom-table
WHERE ...

2. Ouvre le curseur (OPEN nom_curseur).

3. Fais une lecture (FETCH) tant qu'il reste des enregistrements à lire.
FETCH nom_curseur
INTO ...

4. A chaque lecture, tu écris ton enreg sur le fichier.

5. Ferme le curseur (CLOSE nom_curseur)

**JauB** · 05/04/2007, 17h03

merci pour tes réponses,mais tu 'as pas par hasard un exemple complet ou cite moi juste d'où peux-je trouver des exemples de ce type. car là je débute et donc....
merci encore une fois

**Peut-êtreUneRéponse** · 06/04/2007, 09h23

Pour COBOL / DB2 sous MVS:

En WORKING-STORAGE SECTION, ne pas oublier les INCLUDE:

Code cobol :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
EXEC SQL 
    INCLUDE SQLCA 
END-EXEC.
 
EXEC SQL 
    INCLUDE dclgen-table1 
END-EXEC. 
 
EXEC SQL 
    INCLUDE dclgen-table2 
END-EXEC. 
 
[...]

Toujour en WSS, déclaration du curseur:

Code cobol :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
*---------------------------
* DECLARATION DE CURSEUR 
*---------------------------
EXEC SQL 
    DECLARE nom-curseur CURSOR FOR 
    SELECT champ1 
          ,champ2
          ,champ2
    FROM table 
    WHERE condition
END-EXEC .

En PROCEDURE DIVISION, en début de traitement, ouverture du curseur:

Code cobol :

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

1
2
3
4
5
6
7
 
*---------------------------
* OUVERTURE DE CURSEUR 
*---------------------------
EXEC SQL 
    OPEN nom-curseur
END-EXEC .

Juste après ne pas oublier de traiter les SQLCODE différents de 0, et de faire le premier fetch:

Code cobol :

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

1
2
3
4
5
6
7
8
9
10
 
*--------
* FETCH 
*--------
EXEC SQL 
    FETCH nom-curseur 
    INTO :hôte-variable-champ1 
        ,:hôte-variable-champ2 
        ,:hôte-variable-champ2 
END-EXEC.

Ensuite tu fais les étapes suivantes:

- Traitement du SQLCODE,
- Traitement des données récupérées (calcul, filtre,...)
- Ecriture d'un enreg dans un fichier

Après l'écriture de ton enreg, tu récupères les données suivantes de la (les) tables(s) en refaisant un fetch (utilise un PERFORM vers le paragraphe décrit plus haut pour le 1er fetch)

A la fin du programme, juste avant de le quitter, n'oublies pas de fermer ton curseur:

Code cobol :

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

1
2
3
4
5
6
7
 
*---------------------------
* OUVERTURE DE CURSEUR 
*---------------------------
EXEC SQL 
    CLOSE nom-curseur
END-EXEC .

Bon dev

.

**JauB** · 06/04/2007, 10h52

et ça marche sur COBOL sous AS400 ( I5) ?

**iCeCuBe** · 30/04/2010, 11h37

Bonjour,

puis-je savoir comment détecter et gérer la fin du curseur (plus aucun enregistrement dans la table).

merci d'avance

**Vincent Rogier** · 30/04/2010, 12h09

SQLCODE = 1403

**Peut-êtreUneRéponse** · 06/05/2010, 21h28

Envoyé par Vincent Rogier

SQLCODE = 1403

Pour DB2 : SQLCODE 100

EDIT: intervention sans aucun intérêt de ma part, je n'avais pas vu que le thread avait été déplacé dans le forum ORACLE.

.