CPF4131

Comment s'en sortir

Le programme a été compilé avec une ancienne version du fichier. Depuis, le fichier a changé (une zone ajoutée, retirée, agrandie), et le système refuse de l'ouvrir pour éviter que le programme lise des données décalées.

Ce qui se passe vraiment

Chaque format d'enregistrement a un identificateur de niveau, calculé à partir de ses zones. Le compilateur le recopie dans le programme. À l'ouverture, le système compare les deux : s'ils diffèrent, c'est CPF4131. On parle d'« erreur de niveau » ou de level check.

Les causes les plus fréquentes

• Le fichier a été modifié (CHGPF, ALTER TABLE, DDS recompilée) sans recompiler les programmes qui l'utilisent.
• Le programme ouvre un autre fichier que prévu : la liste de bibliothèques trouve la version de test au lieu de celle de production, ou l'inverse.
• Un programme a été transféré d'une machine à une autre sans le fichier dans la même version.

Diagnostiquer

/* Identificateur de niveau actuel du fichier */
DSPFD      FILE(MALIB/MONFIC) TYPE(*RCDFMT)

/* Celui que le programme attend */
DSPPGMREF  PGM(MALIB/MONPGM)

/* Tous les programmes d'une bibliothèque qui utilisent le fichier */
DSPPGMREF  PGM(MALIB/*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/REFS)

Puis SELECT WHPNAM FROM QTEMP.REFS WHERE WHFNAM = 'MONFIC' donne la liste des programmes à recompiler.

Corriger

/* La vraie solution : recompiler chaque programme concerné */
CRTBNDRPG  PGM(MALIB/MONPGM) SRCFILE(MALIB/QRPGLESRC) SRCMBR(MONPGM)

LVLCHK(*NO) (sur OVRDBF ou le fichier lui-même) fait disparaître le message, mais le programme lit alors les enregistrements avec l'ancien découpage : zones décalées, données fausses, sans aucune erreur. Ne l'utilisez que si vous êtes certain que les zones lues par le programme n'ont pas bougé, par exemple quand une zone a seulement été ajoutée en fin d'enregistrement et que le programme ne réécrit pas le fichier.