[PRO*COBOL] Appel SQL dans un programme COBOL

[JauB]

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]

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]

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]

Pour COBOL / DB2 sous MVS:

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

Code cobol :

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 :

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 :

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 :

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 :

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

Bon dev

.

[JauB]

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

[iCeCuBe]

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]

SQLCODE = 1403

[Peut-êtreUneRéponse]

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.


.

[cobfly]

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.

[Vincent Rogier]

Effectivement

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.