Discussion :

[faluma]

Bonjour,

J'ai un fichier sequentiel dans mon programme que j'ouvre en extend pour rajouter des enregistrements à la fin du fichier.
Cela fonctionne correctement lors des premiers rajouts d'enregistrements mais par la suite j'ai l'erreur suivante :

"IGZ0034W The file with system-name CLIENT could not be extended. Secondary extents were not specified or were not available. The last WRITE was at offset X'0D16' in program CRL."

Que dois-je faire s.v.p pour éviter cette erreur???

Merci d'avance...

[Fred Ratel]

Bonjour,

Le problème ne vient pas de COBOL mais de l'OS qu'il y a derrière.

Es-tu sur de l'IBM ?

Quand tu définis ton fichier, tu peux lui allouer un espace primaire (espace alloué lors de la création du fichier) puis des espaces secondaires.
Lorsque ton espace alloué est rempli, le système ajoute un nouvel espace au fichier selon la taille définie en espace secondaire. Cette opération peut être renouvelée jusqu'à 16 fois (si mes souvenirs son exacts).

Ce qui peut se produire chez toi :
- pas d'espace secondaire défini ou mal défini
- toutes les extensions ont été réalisées
- plus d'espace disque

Tu peux augmenter l'espace primaire ou les extensions selon le cas.

[faluma]

Ok,
Mais comment augmenter l'espace primaire et/ou secondaire???

Dans mon jcl on retrouve :

Code :

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

1
2
3
CLIENT   DD  DSN=CLIENT.FICHIER,                     
                  DISP=(OLD,CATLG,CATLG),                           
                  RECFM=VB,LRECL=4092,SPACE=(10,(5,5),RLSE,,ROUND)

[Fred Ratel]

Voilà la syntaxe du SPACE :

SPACE


Indique à l'INITIATOR l'espace disque à affecter à un fichier en création (ignoré dans les autres cas).

Syntaxe :

SPACE=(TRK ou CYL ou long,(primaire,secondaire,blocs-dir ou index),RLSE, CONTIG ou MXIG ou ALX,ROUND
Pour indiquer une allocation à un endroit spécifique du disque :

SPACE=(ABSTR,(primaire,adresse,blocs-dir ou index)
Calcul pour l'allocation d'un fichier :

Espace alloué Total = Qté primaire + (15 * Qté secondaire)
Exemple : (CYL,(10,2)) donnera comme espace maxi : 10 + (15*2) = 40 CYLS

Les paramètres :

TRK, CYL ou long : unité d'allocation (pistes, cylindres ou blocs de longueur 'long') A SAVOIR : 1 CYL = 15 TRKS ;
Primaire : taille dans l'unité indiquée de l'espace d'allocation primaire pour le fichier. Cet espace sera alloué sur le premier volume disque en 5 morceaux (extents) maximum ;
Secondaire : quantité d'espace supplémentaire qui pourra être allouée sur le disque si l'espace primaire se révèle insuffisant ;
Blocs-dir : nombre de blocs de 256 octets à allouer pour le répertoire du PDS.
Index : taille en pistes ou cylindres de l'index du fichier ISAM ;
RLSE : l'espace alloué et inutilisé sera rendu (released) lors de la fermeture du fichier ;
CONTIG : l'espace primaire à allouer doit être contigu, sinon le job est terminé en erreur ;
MXIG : l'espace à allouer doit être au moins égal au primaire et doit occupé la plus grande portion d'espace contigu du disque ;
ALX : on doit allouer jusqu'à 5 zones contigues, chacune ayant la taille de l'espace primaire ;
ROUND : pour une allocation en blocs (ni TRK ni CYL précisés), l'espace alloué doit être arrondi pour correspondre à une frontière de cylindre ;
ABSTR : allocation en adresse absolue de piste ;
adresse : numéro de la première piste à allouer (le numéro 1 correspondant à la deuxième piste du volume).

[Luc Orient]

...
Dans mon jcl on retrouve :

CLIENT DD DSN=CLIENT.FICHIER,
DISP=(OLD,CATLG,CATLG),
RECFM=VB,LRECL=4092,SPACE=(10,(5,5),RLSE,,ROUND)

DISP=OLD indique que le fichier a déjà été créé.
Donc là, SPACE= ... ne sert à rien ...
Faudrait voir comment il a été créé la toute première fois ou faire I (INFO) en 3.4 sous ISPF/TSO.

[faluma]

J'ai modifié au niveau du fichier déja créé.
Résultat : Ca marche!!!
Merci beaucoup!!!...

[Homer-ac]

Je connais des sites qui interdisent l'utilisation les OPEN EXTEND sur des fichiers QSAM dans des programmes en production.
La raison : par expérience, corrollaire de 'il y en a qui ont essayé, ils ont eu des problèmes'.
Luc Orient a raison. En MVS l'allocation d'un fichier QSAM se fait en disp=new ou mod. Le disp=mod peut être une possibilité mais peut entraîner d'autres problèmes dans certains cas (storage class SMS ou non).
Au contraire des VSAM, cette allocation n'est pas inscrite au catalogue (dans le VVDS).
Si vous avez besoin de la logique de l'open extent, je vous conseillerai plutôt de charger votre fichier sur un VSAM ESDS et de modifier votre COBOL en conséquences.
Dans ce cas, vous aurez défini l'allocation nécessaires au catalogue et la méthode d'accès saura prendre toutes les allocations secondaires suffisantes en cas de besoin. Sans quoi vous risquez les mêmes problèmes récurrents avec des préallocations insuffisantes.