[PRO*COBOL] Appel SQL dans un programme COBOL

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 :D

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)

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 :mrgreen:

Pour COBOL / DB2 sous MVS:

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

Code:

---

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:

---

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:

---

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:

---

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:

---

1 2 3 4 5 6 7

*--------------------------- * OUVERTURE DE CURSEUR *--------------------------- EXEC SQL CLOSE nom-curseur END-EXEC .

---

Bon dev ;)

.

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

Bonjour,

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

merci d'avance

SQLCODE = 1403

Citation:

---

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.


.

Citation:

---

Envoyé par Vincent Rogier

SQLCODE = 1403

---

Le SQLCODE renvoyé dépend du mode de précompilation utilisé oracle | ansi

1403 en mode oracle, 100 en mode ansi

Fly.

Effectivement ;)

Citation:

---

Envoyé par cobfly

Le SQLCODE renvoyé dépend du mode de précompilation utilisé oracle | ansi

1403 en mode oracle, 100 en mode ansi

Fly.

---