[z/OS] Obtenir le LRECL d'un fichier ?

Bonjour à tous,

j'écris un programme qui peut prendre en input un fichier à LRECL quelconque.
Pour cela, j'utilise dans la définition du fichier :
RECORD CONTAINS 0 CHARACTERS, ce qui permet de ne pas spécifier le LRECL mais d'aller chercher automatiquement le LRECL à l'exécution dans le DCB du fichier.

Le problème est que j'aimerais savoir quel est le LRECL du fichier que je lis.

Il doit y avoir un moyen de le récupérer, soit directement via une instruction COBOL, soit une macro, soit une routine assembleur.

Si quelqu'un a une idée.

Merci beaucoup.

Synthetis

Citation:

---

Envoyé par synthetis

...
j'écris un programme qui peut prendre en input un fichier à LRECL quelconque.
Pour cela, j'utilise dans la définition du fichier :
RECORD CONTAINS 0 CHARACTERS, ce qui permet de ne pas spécifier le LRECL mais d'aller chercher automatiquement le LRECL à l'exécution dans le DCB du fichier ...

---

A mon humble avis, ça ne sert à rien :
"The DATA RECORDS clause is syntax checked, but it serves only as documentation for the names of data records associated with this file"

Source : COBOL Language Reference
DATA RECORDS Clause

Citation:

---

Le problème est que j'aimerais savoir quel est le LRECL du fichier que je lis.

---

C'est un fichier avec des enregistrements de longueur fixe (FB) ou variable (VB) ?

Citation:

---

Envoyé par Luc Orient

C'est un fichier avec des enregistrements de longueur fixe (FB) ou variable (VB) ?

---

Ce sont des fichiers de longueur fixe (FB).
Mais il faut que je connaisse la longueur du fichier d'entrée.
C'est crucial parce que justement le but de mon programme c'est de faire du "data validation" sur les records en input.

Merci!

julien.

Citation:

---

Envoyé par synthetis

Ce sont des fichiers de longueur fixe (FB).
Mais il faut que je connaisse la longueur du fichier d'entrée.

---

ça me semble difficile à faire en COBOL ...
Si je me souviens bien, la longueur de l'enregistrement du fichier en entrée est déterminé a priori par le compilateur COBOL à partir du niveau 01 décrit en FD (File Description) dans la DATA DIVISION.
Donc je vois mal comment procéder ...

Citation:

---

C'est crucial parce que justement le but de mon programme c'est de faire du "data validation" sur les records en input.

---

Qu'appelez-vous "data validation" ?

Bonjour,

Merci pour les réponses.

Par 'data validation' je veux dire que le but de mon programme est justement de vérifier que les records dans le fichier ont le bon format.
C'est une sorte d'application qui va vérifier le format des fichiers en entrée (s'assurer qu'ils ont le bon format) avant de les envoyer vers d'autres applications en production.
Ces autres applications n'ont pas joué sur la 'défensive', ce qui fait que si les records n'ont pas le bon format, l'application crash.
D'où mon application qui va remédier à ce problème.

Je pense vraiment qu'il y a moyen de le faire. En fait, j'ai lu qu'à l'exécution, le programme va chercher dynamiquement le LRECL dans le DCB du fichier (header du fichier). Donc, il le connait, et c'est comme ça qu'il peut fonctionner avec RECORD CONTAINS 0 CHARACTERS.
Maintenant, il faut trouver le moyen de récupérer ce paramètre dans l'application. En effectuant des recherches j'ai vu qu'il était possible de le récupérer par une routine assembleur. Mais je ne suis jamais tombé sur un programme.

Une idée?

Merci.

Solution : faire un petit programme REXX, qui lui a des build-in functions pour récupérer les infos de DCB d'un fichier (LRECL, etc..).

Faire un CALL dans le programme COBOL pour appeler le REXX.