Discussion :

[didouda]

Bonjour,

Mon programme Cobol fait appel à des bases DB2 et la requête DB2 constituée me rend 1 ligne donc inutile de faire un declare curseur. Par contre, l'appel DB2 se fera plusieurs fois car en entrée de ce programme j'ai 1 fichier qui alimente les host variables de ma requête. Aussi, comment faire pour coder cela dans mon programme sans utiliser de declare curseur?

Je vous remercie de votre réponse.

[Luc Orient]

Tout simplement en codant une boucle sur la lecture du fichier en entrée ...

[didouda]

J'ai dû mal exprimé ma demande car ma question n'est pas de savoir s'il faut faire une boucle mais comment coder un appel DB2 sans faire de Declare curseur car ma requête ne me renvoie qu'une ligne donc inutile de coder un declare.

[Luc Orient]

Il suffit de coder un SELECT simple entre EXEC SQL et END-EXEC sans coder de curseur (ni DECLARE / OPEN / FETCH / CLOSE ).

Attention, il faut être certain de n'avoir qu'une seule ligne retournée (ou aucune d'ailleurs ...) sinon un SQLCODE négatif est renvoyé.

Idéalement, c'est un accès sur clé primaire ou sur un index unique ...

[didouda]

Oki merci de ta réponse. Il suffit donc de faire un "simple" select avec le from le where sans le into.

[Peut-êtreUneRéponse]

Le INTO est nécessaire pour récupérer les données "selectées".

[Luc Orient]

Le INTO est nécessaire pour récupérer les données "selectées".

Tout à fait ... Il faut bien entendu valoriser les variables hôtes, sinon ça ne présente guère d'intérêt ...

Pour un curseur ces variables sont valorisées par l'instruction FETCH et dans une boucle et là dans une seule instruction SELECT.
cf. :
SELECT INTO

[Hédhili Jaïdane]

Bonjour à tous.

- On peut aussi utiliser les instructions usuelles de déclaration des fichiers et des opérations d’entrée/sortie sur ces fichiers.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SELECT fichier ASSIGN DATABASE-nomExterne
               ORGANIZATION INDEXED
               ACCESS....
               RECORD KEY ....
... 
FD fichier 
01 ...
...
OPEN INPUT fichier.
...
READ (NEXT) fichier AT END ...
…
CLOSE fichier.

- Pardon de me greffer sur cette discussion pour rassurer un tant soit peu les cobolistes purs et durs en disant que l’on peut accéder aux tables, vues et index de DB2 en les considérant comme de simples fichiers ASSIGN (és à) DATABASE (ou même DISK en acceptant de perdre certaines fonctionnalités) avec des descriptions externes de préférence ou même internes si on veut couper le cheveu en quatre.
- Je fais cette remarque parce que je rencontre encore des développeurs qui continuent à penser qu’à partir du moment où ils sont devant une DB2, ils ne peuvent plus pisser la ligne comme d’habitude et qu’ils sont obligés de passer par SQL. A mon humble avis, la meilleure façon est de panacher les deux approches en fonction des traitements à réaliser. On choisira celle qui semble la plus adaptée pour résoudre le problème au moindre coût.
- Dans le cas présent et à partir du moment où on a jugé nécessaire d’écrire un programme en Cobol, autant continuer sur la même lancée et n’utiliser le SQL que lorsqu’il devient inévitable de le faire.

Cordialement
Hédhili Jaïdane
- - - - - - - - - - -

[didouda]

Merci pour vos réponses.

[Luc Orient]

...
- On peut aussi utiliser les instructions usuelles de déclaration des fichiers et des opérations d’entrée/sortie sur ces fichiers.
...

Attention !

Cette technique est propre au DB2 sur l'AS/400 (ou ISeries ou I5/OS c'est pareil ...) mais ne s'applique absolument pas au DB2 for z/OS (le mainframe ...)

Les fichiers qui contiennent les tables sont des VSAM / LDS mais ne sont "lisibles" dans un programme qu'à travers DB2 et donc du SQL ...

Quant à DB2 for LUW je ne sais pas ...

[Hédhili Jaïdane]

Salut Luc.

Merci pour la précision. Effectivement, je parlais de DB2 sur l'AS400 et jai oublié de le mentionner. Pour les autres OS, je n'en sais rien. Autant pour moi.

Hédhili Jaïdane
- - - - - - - -