GRANDSYSTEME.COM: SITE DE RESSOURCES MAINFRAME

S001

ERREUR MATERIELLE OU LOGICIELLE LORS D'UN ACCES FICHIER.

Cette erreur se produit à la suite d’un ordre de lecture ou d’écriture.

Cause: la longueur du bloc indiqué dans le DCB ne correspond pas à celle du fichier -> souvent mauvais lien entre ddname et assign cobol.

Un return code est fourni dans le registre 15 :

00

LRECL ou BLKSIZE indiqués dans le programme ne correspondent pas à ceux de l'étiquette du fichier

Vérifier programme et JCL

La longueur d’enregistrement et la taille de bloc fournies dans le programme ou dans la carte DD sont différentes de celles trouvées dans les labels du fichier.

01

Erreur d'entrée-sortie (écriture sur un fichier ouvert en lecture, lecture d'un fichier ouvert en écriture, lecture après la fin du fichier, format RECFM=U et pas de LRECL, fichiers de caractéristiques différentes dans une concaténation).

Recréer si nécessaire le fichier.

Tentative d’écriture d’un fichier ouvert en INPUT.

Tentative de lecture d’un fichier ouvert en OUTPUT.

Tentative de lecture après une fin de fichier.

Pour une concaténation, le BLKSIZE d’un des fichiers est supérieur au BLKSIZE des fichiers précédents.

Les BLKSIZE d’une concaténation doivent être présentés en ordre décroissant.

Pour plus d’information sur l’ABEND S001 se référer au message IEC020I.

02

Erreur lors de la fermeture du fichier.

03

Erreur d'entrée sortie QSAM.

Data check ou equip check.

04

Erreur d'entrée sortie (taille de bloc inattendue).

Pour un fichier ouvert eb INPUT, incompatibilité entre les paramètres du DSCB donnés dans le programme ou sur la carte DD et ceux trouvés dans les labels.

05

Lecture après la fin du fichier en QSAM.

Erreur lors d'un accès à un fichier séquentiel QSAM, BSAM ou DA.

Lecture d’un fichier après être passé sur la clause AT END (Fin fu fichier)