Discussion :

[tost]

Bonjour,

je souhaite écrire un programme capable de lire un fichier séquentiel de longueur fixe ("RECORDING F") et ce, pour plusieurs longueur d'enregistrement différentes. Cela me permettra d'avoir un programme "tout-terrain" capable de traiter de nombreux fichiers.

J'ai regardé du côté du côté de "RECORD IS VARYING IN SIZE FROM... TO ..." mais les fichiers sur lesquels je travaille ne sont pas de taille variable ("RECORDING V"). Pour un fichier donné, la longueur est fixe.

Auriez-vous quelques pistes ?
Merci,

Pictor

[Homer-ac]

Indiques RECORD 0 à la place de BLOCK 0. Avec un PIC X(au maxi) pour ton buffer de lecture. Par contre en fixe tu n'auras pas sans ruser la taille de l'enregistrement fixe lu. Spécifiquement pour MVS j'ai d'éja posté des exemples COBOL pour contourner le pb, en jouant sur le fait que la FD pointe sur le DCB. Si tu est en z/OS tu peux regarder l'exemple MQ suivant (puisque MQ gère des messages variables) : ici
Attention cependant, tu peux lire un fichier fixe dont tu ne connais pas la longueur mais en sortie tu devras traiter en variable. Record 0 et refusé pour un fichier en sortie

[tost]

Indiques RECORD 0 à la place de BLOCK 0. Avec un PIC X(au maxi) pour ton buffer de lecture.

Merci Homer-ac.
Etant sous VSE (et non MVS), cette solution provoque une erreur à l'ouverture du fichier:

Code :

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

CEE3756S THE PARAMETER BLKSIZE WAS INVALID IN A CALL TO CEEYDBSD.

Heureusement, après quelques tâtonnements, j'ai trouvé la bonne version de la FD, que j'écris ici pour info:

Code :

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

1
2
3
4
5
6
7
FD  FICIN                 
    RECORD    0           
    BLOCK     0           
    RECORDING F           
    LABEL RECORD OMITTED. 
01  LIGNE-IN  PIC X(1024).

Ensuite, pour récupérer la zone proprement, on peut passer la longueur d'enregistrement en paramètre au programme et faire un MOVE (1:WS-LONG).

Merci pour ce coup de main et au plaisir
Pictor