Discussion :

[L5Premier]

Bonjour à tous,

Connaissez-vous une méthode pour connaître le nombre total de lignes et/ou par clé d'un fichier VSAM via un programme COBOL ?
Je souhaite éviter la lecture du fichier avec la gestion d'un compteur.

Merci de votre aide.

[Hédhili Jaïdane]

Bonjour.

Perso, je ne pense pas qu'on puisse le faire par Cobol à moins de lire tout le fichier, il faudrait passer par le JCL pour extraire les attributs du fichier, dont certainement le nbre des enregistrements réels, supprimés, etc...

[Homer-ac]

Comptage par clé, c'est de la gestion : il faudra lire le fichier
Comptage global, on a le nombre d'enregistrements au catalogue (à condition toutefois que les stats soient à jour (VERIFY IDCAMS en amont au besoin).
En COBOL, CALL IDCAMS avec le LISTCAT en SYSIN. Je n'ai pas vérifié mais il n'y a pas de raison pour que celà ne fonctionne pas. Je préfère des CALL IGGCSI pour des raisons de performances. Des exemples IGGCSIxx en SYS1.SAMPLIB mais uniquement en REXX et en Assembleur. Je l'ai testé en COBOL, ça marche mais c'est un peu plus difficile, assez en tous cas pour ne pas pouvoir proposer un exemple simple (on récupère les informations catalogue des attributs spécifiquement demandés, il faut ensuite traduire celles-ci).

[L5Premier]

Bonjour et merci pour vos réponses.

Je ne connaissais pas les commandes CALL IDCAMS et CALL IGGCSI. Cependant je ne vais pas pouvoir les mettre en pratique car je dois mettre ne place une solution portable (MVS, UNIX et Windows).
Je pense donc m'orienter sur un programme de lecture du fichier pour compter,
puis insérer un enregistrement de type compteur dans le fichier.

Encore merci.

[fremen167]

Je pense donc m'orienter sur un programme de lecture du fichier pour compter,
puis insérer un enregistrement de type compteur dans le fichier.

Cette solution, je l'ai déjà mise en œuvre, un enregistrement spécifique qui contient la dernière clé utilisée (le même principe qu'un compteur). En mise à jour, il faut penser à mettre un verrou sur l'enregistrement compteur avant d'insérer ou de supprimer un autre enregistrement, sinon, tu peux avoir des problèmes de concurrence d'accès.

[Luc Orient]

... Cependant je ne vais pas pouvoir les mettre en pratique car je dois mettre ne place une solution portable (MVS, UNIX et Windows).

VSAM est disponible aussi sous UNIX et Windows ?
J'en suis fort surpris ...

[Hédhili Jaïdane]

...
le nombre total de ligne et/ou par clé d'un fichier... via un programme COBOL ?

En fait c'est quoi le but de la manoeuvre ?

[L5Premier]

Bonjour,

Je travail sur un produit disponible sur plusieurs plateforme.
Donc sur MVS j'utilise des fichiers VSAM et sur Windows et UNIX des fichiers avec indexes.
J'essaye donc d'avoir une compatibilité technique la plus proche entre chaque machine pour que le portage soit le plus efficace et un comportement similaire entre les machines.

Le but de la manoeuvre et d'afficher dans une application cliente les données de la clé du fichier sous la forme d'un arbre. Cependant suivant la volumétrie du fichier, la construction de l'arbre peut être longue.
Au final je souhaite proposer une interface avec arbre sur plusieurs pages. C'est pour ça que je veux avoir le nombre d'éléments du fichier.

En espérant avoir été limpide ...

Encore merci pour vos réponses et vos idées.