Discussion :

[zacaoa]

Bonjour à tous,

Depuis le début de semaine, je rencontre un soucis sur une application AS400 qui me refuse l'écriture de données dans un fichier. Suite à une coupure électrique (défaut de phase), l'AS400 s'est éteint brutalement alors qu'une personne travaillait sur le programme en question. Lors du lancement de la commande d'écriture dans le dossier, j'ai désormais ce message :

Erreur d'E-S CPF5090 détectée dans PPLAJO03

Je suppose que le fichier en question est alloué mais je ne trouve pas comment délocker ce fichier.

Merci d'avance pour vos retour.

Cordialement

[DevDX]

Bonjour à tous,

Depuis le début de semaine, je rencontre un soucis sur une application AS400 qui me refuse l'écriture de données dans un fichier. Suite à une coupure électrique (défaut de phase), l'AS400 s'est éteint brutalement alors qu'une personne travaillait sur le programme en question. Lors du lancement de la commande d'écriture dans le dossier, j'ai désormais ce message :

Erreur d'E-S CPF5090 détectée dans PPLAJO03

Je suppose que le fichier en question est alloué mais je ne trouve pas comment délocker ce fichier.

Merci d'avance pour vos retour.

Cordialement

Bonjour Zacaoa,

As-tu essayé avec la commande WRKOBJLCK de trouver ce qui verrouille le fichier PPLAJO03 ?
Il faut que tu indiques le nom de la bibliothèque où se trouve ce fichier.

Cordialement.
DevDX

[DevDX]

Au cas où tu ne connaitrais pas le nom de la bibliothèque, tu peux la trouver ainsi :
WRKOBJ OBJ(*ALL/PPLAJO03)

[zacaoa]

Merci à toi de me porter secours

Après avoir passé la commande que tu m'as donné (que je ne connaissais pas...), voici le résultat:



Comment puis-je délocker le fichier? Avec DLCOBJ ou autre?

[Hédhili Jaïdane]

.../...
Comment puis-je délocker le fichier? Avec DLCOBJ ou autre?

Bonjour.

Il suffit d'arrêter ce travail (option 4 + F4 et *immed)
Si tu ne peux toujours pas accéder au fichier (ça arrive), il faut :
- utiliser la commande RGZPFM, fais F4 pour voir le paramétrage ;
- ou le recopier dans un autre fichier par CPYF, renommer l'ancien puis renommer le nouveau fichier en lui donnant le nom de l'ancien. Attention aux fichier logiques, il faudrait les supprimer avant.

[zacaoa]

Merci du coup de main.

Arrêter le travail ne me permet toujours pas d'accèder au fichier.

La commande RGZPFM me retour une erreur:



Pour ce qui est de copier le fichier, pareil erreur lors de la commande:

[Hédhili Jaïdane]

ah, RGZPFM ne réorganise que les membres des fichiers physiques, donc ton fichier doit être un fichier logique. Dans ce cas le système se chargera de le reconstruire soit immédiatement soit à l'utilisation. Si tu n'as pas de soucis avec le fichier physique parent, tu devrais pouvoir l'utiliser et écrire dedans (réellement on écrit dans le fichier physique), l'annulation du job qui l'utilisait devrait le libérer. Sinon essaie un RGZPFM sur le fichier physique.
Tu peux toujours supprimer le fichier logique et le reconstruire. Si tu as les DDS c'est par un CRTLF, sinon par SQL CRTINDEX après avoir récupéré le script de création. Je ne sais s'il y a une autre méthode pour faire un rebuild d'un index.
Tu peux essayer dans un premier temps de faire un un CHGPF sur le fichier physique, ça marche pas toujours parce qu'il y a des conditions pour restructurer les index fils.

Donc tout d'abord essaie de réutiliser ton fichier (logique), si ça marche toujours pas essaie les autres démarches et tiens nous au courant.

[Hédhili Jaïdane]

Regarde ce lien, il pourrait peut être t'aider : http://www.ibmsystemsmag.com/ibmi/de...ndex-Rebuilds/

[zacaoa]

Effectivement, la commande RGZPFM semble se lancer correctement sur le fichier physique PPLAJO et non le logique PPLAJO03.
Il commence à reconstruire les chemin d'accès jusqu'au PPLAJO et s'arrête en affichant le message ci-dessous



Ce que je ne comprend pas, c'est que le logiciel AS qui est sensé tourné sur ce fichier n'est pas ouvert et je n'ai aucun lock sur PPLAJO....

[Hédhili Jaïdane]

ok, juste pour nous mettre dans le bain :
- je suppose qu'il y a eu un IPL depuis la coupure de courant (au moins le premier redémarrage) ?
- est ce que tu peux supprimer tous les logiques du fichier physique et les reconstruire ?
- est ce qu'il y a plusieurs membres dans le fichier physique ?
- est ce que le logique qui déconne est le seul à le faire ?
- est ce que ce logique est un logique simple ou une jointure ?

[zacaoa]

C'est un peu difficile de décrire le système de fichier de l'application car elle a été développé en 1995 et je n'avait que .... 8 ans!! Je n'ai pas la faculté de les recréer.
Le fichier physique est PPLAJO et plusieurs fichiers logiques sont rattachés PPLAJO04, PPLAJO06, PPLAJO07 et le fameux PPLAJO03. Si je fouilles dans les verrouillages puis verrouillages de membre, je trouve un verrou sur le fichier physique PPLAJO par l'utilisateur QSECOFR *SHRUPD type DONNEE qui date de l'heure de coupure, mais que je ne peux à priori pas arrêter...



Lorsque je lance l'instruction 4 pour arrêter le travail j'ai ceci



Je pourrais éventuellement faire un DLCOBJ pour délocker le fichier physique mais je ne crois pas que le type DONNEE existe dans les possibilité de type

[Hédhili Jaïdane]

ok, t'as donc un verrouillage au niveau des données du membre PPLAJO du fichier du même nom, éventuellement une tâche système en cours d'exécution.
- fais 5 devant le job qui verrouille le membre pour avoir le n° du job
- et passe la commande ENDJOB en donnant le nom qualifié du job (fais F4 pour savoir comment le donner), *IMMED et ADLINTJOBS(*ALL)
- si le job n'est pas arrêté au bout de 10mn (F5 pour voir sur l'écran des locks), arrête le par ENDJOBABN.
- si tout ça ne donne rien essaie de passer la commande RCLDBXREF, je doute qu'elle résolve le problème
- sinon, les gros moyens : système dédié et RCLSTG puis arrêt et redémarrage

PS : à chaque fois que tu as un message, mets le curseur dessus et fais F1, regarde les infos puis F10 pour voir l'historique, on peut tomber sur des infos pertinentes.

Regarde aussi le log du système et celui du job avant de l'arrêter : DSPLOG et DSPJOBLOG, il peut y avoir des infos importantes

En fait, as tu fait un IPL ?

PS2 : je suis parfois sur le chat DVP si ça t'intéresse de discuter en live.

[FORMULARY]

Bonjour,
Pour Hedhili, le message indique que le verrouillage provient de son propre travail.
Le message CPF5090 signifie : Incident sur chemin d'accès par clé unique empêche mise à jour du membre
Pour zacaoa, je ne pense pas qu'un DLCOBJ suffise à résoudre le problème.
Peut-être un simple RGZPFM du fichier, ou un RCLDBXREF *FIX ?

[zacaoa]

ok, t'as donc un verrouillage au niveau des données du membre PPLAJO du fichier du même nom, éventuellement une tâche système en cours d'exécution.
- fais 5 devant le job qui verrouille le membre pour avoir le n° du job
- et passe la commande ENDJOB en donnant le nom qualifié du job (fais F4 pour savoir comment le donner), *IMMED et ADLINTJOBS(*ALL)
- si le job n'est pas arrêté au bout de 10mn (F5 pour voir sur l'écran des locks), arrête le par ENDJOBABN.
- si tout ça ne donne rien essaie de passer la commande RCLDBXREF, je doute qu'elle résolve le problème
- sinon, les gros moyens : système dédié et RCLSTG puis arrêt et redémarrage

PS : à chaque fois que tu as un message, mets le curseur dessus et fais F1, regarde les infos puis F10 pour voir l'historique, on peut tomber sur des infos pertinentes.

Regarde aussi le log du système et celui du job avant de l'arrêter : DSPLOG et DSPJOBLOG, il peut y avoir des infos importantes

En fait, as tu fait un IPL ?

PS2 : je suis parfois sur le chat DVP si ça t'intéresse de discuter en live.

En faisant 5 j'ai bien récupéré le numéro du job soit 414542.
le passage de la commade ENDJOB ou ENDJOBABN me retourne la même erreur sans changement sur l'arrêt du JOB en cause (Message erreur : Le nom du travail en cours n'est pas admis dans cette commande)
la commande RCLDBXREF n'est à première vu pas connu de l'AS (Version 5 d'OS)

J'ai regardé dans l'écran de gestion du travail en faisant 5 aussi. Je vois un état des verrouillages du travail



Et aussi les fichiers ouverts par le travail et du coup le fameux PPLAJO03



merci pour votre aide en tout cas

[Hédhili Jaïdane]

.../...
la commande RCLDBXREF n'est à première vu pas connu de l'AS (Version 5 d'OS)

Reclaim DB Cross-Reference (RCLDBXREF), je ne peux pas te dire quand est ce qu'elle est apparue, mais en tout cas je l'ai dans la doc de la V5R4.

J'ai regardé dans l'écran de gestion du travail en faisant 5 aussi. Je vois un état des verrouillages du travail
Et aussi les fichiers ouverts par le travail et du coup le fameux PPLAJO03

Tout à fait normal, il y a une multitude d'objets alloués par le travail.
A mon sens il ne te reste qu'à faire un RCLSTG et redémarrer le système.

As tu regardé les LOG et avais tu fait un IPL ?

[badaze]

Je vais peut être dire des bêtises.

Est-ce que :

copier le fichier physique sans les données dans une autre bibliothèque avec CRTDUPOBJ et *NO pour la copie des données.
copier le logique PPLAJO03 dans la même bib que le nouveau physique
supprimer le logique de PPLAJO03 dans la bib d'origine
copier le logique de la nouvelle bib vers celle d'origine

fonctionnerait ?

[m4k-Hurrican]

Bonjour.
3 choses :
- Je parierai que l'arrêt du travail s'est fait par un simple 4 en face du travail dans l'écran de gestion des verrouillages. Du coup le ENDJOB n'est pas en *IMMED et il peut attendre ad vitam æternam que le fichier soit OK. Il faut faire un 5 en face du JOB, puis option 41 et demander un arrêt *IMMED (qui peut tout de même mettre un certain temps avant de s'arrêter).
- Le fichier peut réellement être endommagé, et nécessiter une récupération. Dans ce cas le mieux est de fermer toutes les sessions, et de faire un bon vieil IPL. Si malgré l'IPL le fichier n'est toujours pas réparé, il faudra peut être lancer un RCLSTG (mode restreint nécessaire, et du temps de non disponibilité à prévoir).
- Le serveur n'a pas un onduleur pour le protéger des coupures et défauts de tension ? C'est pourtant une chose essentielle.

[zacaoa]

Bonjour à tous,

Je vais tester ce que vous m'avez envoyer hier et ce matin.
Je ne sait plus si j'ai fait un IPL ou non... pour le RCLSTG quel risque pour le système AS?

Bien sûr il faudrait un onduleur pour l'AS400 mais.... le matériel étant dans ces 6 derniers mois de vie, la direction ne souhaite pas faire l'achat...

[zacaoa]

Bonjour.
3 choses :
- Je parierai que l'arrêt du travail s'est fait par un simple 4 en face du travail dans l'écran de gestion des verrouillages. Du coup le ENDJOB n'est pas en *IMMED et il peut attendre ad vitam æternam que le fichier soit OK. Il faut faire un 5 en face du JOB, puis option 41 et demander un arrêt *IMMED (qui peut tout de même mettre un certain temps avant de s'arrêter).
- Le fichier peut réellement être endommagé, et nécessiter une récupération. Dans ce cas le mieux est de fermer toutes les sessions, et de faire un bon vieil IPL. Si malgré l'IPL le fichier n'est toujours pas réparé, il faudra peut être lancer un RCLSTG (mode restreint nécessaire, et du temps de non disponibilité à prévoir).
- Le serveur n'a pas un onduleur pour le protéger des coupures et défauts de tension ? C'est pourtant une chose essentielle.

La commande RCLSTG ne se lance pas...
Voici ce qu'elle me retourne :



Pour ce qui est de l'IPL j'en ai refait un propre et suite à l'IPL j'ai pu lancer la commande RGZPFM qui semble correctement se dérouler à présent. Dans les logs je trouve néanmoins ceci:

[badaze]

Quand tu fais F1 sur le message il indique quoi ?