Discussion :

[lolo_44]

bonjour

j'ai compilé un programme cobol avec le compilateur IBM. je n'ai pas d erreur, mais lors de l execution j'ai un message d erreur file-status 39, sur un fichier indexé crée par le programme, c 'est à dire ouvert en output.
comment est est possible ? merci

[Hédhili Jaïdane]

Bonjour.

pour qu'on puisse te répondre avec précision, indique nous ta plateforme et la version de ton compilateur et mets le bout du code qui concerne le fichier, le SELECT, le FD et l'OPEN.

Grosso modo, tu as une incompatibilité entre les attributs du fichier déclarés dans le programme ou entre les attributs du fichier déclarés dans le programme et ceux du fichier existant (propres aux OS admettant la sortie sur des fichiers existants facultatifs ou obligatoires).

Pour AS/400 (et suivants) :

The OPEN statement was unsuccessful because a conflict was detected between the fixed file attributes and the attributes specified for that file in the program.
The possible causes are:
- The minimum record length specified by the program is less than the minimum record length required for the file. Level check error. CPF4131.
- The file specifies the ALTERNATE RECORD KEY clause and one of the following errors was detected:
1. The field(s) in the database file that is to be used as an alternate record key is invalid.
2. The database file is a Distributed Data Management (DDM) file.
3. The database file allows it open data path to be shared.
4. The DUPLICATES clause specified for each key in the program does not match the duplicates attribute of the database file. This includes the primary key.

[Darkzinus]

Bonjour,

Pour du COBOL sur grands systèmes voilà ce que j'ai pour un code retour 39 sur fichier VSAM :

Problème ouverture fichier

Vérifier :
• le DSN du fichier
• La longueur du fichier (dans le JCL et le programme)
• Le nom du fichier dans le JCL et dans le SELECT du programme (ils doivent être identiques
• Le JOBLIB du JCL pour savoir si le JCL prend la bonne version du programme