Discussion :

[DebutanteEnCobol]

Bonjour à tous !

Je débute en langage Cobol et je suis en train de réaliser un projet pour mon DUT. Cependant je rencontre fréquemment une erreur que je n'arrive pas du tout à résoudre. Je travaille sur AS/400 et il m'est très difficile d'interpréter les erreurs et l'endroit exact où elles surviennent.
J'écris dans un fichier sans problème via un écran, mais lorsque je dois afficher son contenu, je suis confrontée à cette erreur : Message MCH1202 reçu par *Nomdufichier* dans *Nomdurépertoire* ( C D F G), puis l'exécution s'arrête brusquement. Si quelqu'un connait la source de cette erreur, ou dans quel cas elle apparaît le plus souvent, ça m'aiderait beaucoup

Merci d'avance !

[Hédhili Jaïdane]

...
Message MCH1202 reçu par *Nomdufichier* dans *Nomdurépertoire* ( C D F G), puis l'exécution s'arrête brusquement.

Bonjour.

Je te félicite pour la qualité du français utilisé dans ta question. Et pour celà je me permets une petite mise au point : sur l'AS400, on parle de Programme et de Bibliothèque et non de *Nomdufichier* et *Nomdurépertoire*. Le terme "Fichier" désigne bien un ensemble de données (objet AS400 de type *file) et "répertoire" est aussi une notion qui existe sur l'AS400 (IFS : ensembles des fichiers de type PC) mais qui n'a rien à voir avec les bibliothèques, sauf pour la bibliothèque QSYS qui est la première bibliothèque adressable à partir de l'IFS en format de nommage 1 parce que tout simplement elle contient toutes les autres bibliothèques présentes sur la machine.

- Pour MCH1202 : erreur dans une zone décimale. Càd que la zone est supposée décimale selon sa picture mais elle ne contient pas une valeur décimale. Le programme peut ne pas s'arrêter brusquement et donc continuer à s'exécuter en fonction de la réponse au message parmi les options affichées C D F G.

- sur l'AS400, quand un message est affiché, on met le curseur dessus et on appuye sur "Aide"/"F1". On a alors tout le baratin classique de l'aide contextuelle. On fait éventuellement "F10" pour accéder au log du job (=DSPJOBLOG). Entre l'aide et le log, on a assez d'info pour gérer l'erreur. Entre autres infos :
* il y a les explications de l'effet de la réponse donnée au message : C=Cancel (du niveau d'appel en cours), G=(Go) Continue si possible par l'instruction suivante, D=Dump, F=Dump Formaté.
* le n° de l'instruction Cobol où il y a eu le plantage, ce n° est le n° d'instruction donné par le compilateur et non celui de la ligne du source. regarder le slpool de compilation pour le voir.
Une fois que tu as vu la ligne source correspondant au n° d'instruction, assure toi que les zones utilisées sont bien renseignées.
Les cas les plus courants de ce type d'erreur dans l'affichage des écrans :
- les zones ne sont pas décrites de la même façon (longueur et type) entre le programme et les dspf.
- des zones dans des vieux fichiers de données supposées être bien initialisées en fonction de leur type ne le sont pas en réalité. Cas où l'on récupère des fillers mis à blanc pour y définir des zones décimales.

** On peut aussi faire un dump (D ou F), sans trop savoir lire ces dumps, on peut facilement voir le contenu de la zone incriminée au moment du plantage.

** Ou alors exécuter le programme en mode debug

Je t'invite à jetter un coup d'oeil sur les brochures Cobol (programmer's guide et reference) sur le site IBM :

http://publib.boulder.ibm.com/infoce...v5r4/index.jsp

Désolé pour ce long laïus.

[DebutanteEnCobol]

Je vous remercie beaucoup pour votre réponse rapide et votre explication !

Vous m'avez appris des choses que j'ignorais, notamment qu'il était possible de voir le détail de l'erreur grace à F1 et aussi la signification des lettres C D F G ! Hélas je ne peux pas tester aujourd'hui, le dimanche étant aussi un jour de repos pour le serveur AS400 de mon IUT, mais dès demain j'appliquerai vos astuces et je vous tiendrai au courant.

Encore un grand merci !

[Hédhili Jaïdane]

Je vous remercie...

Il n'y a pas de quoi. Le "tu" sur le forum est de rigueur.

[DebutanteEnCobol]

Bonjour !

Je suis navrée de ne pas avoir pu te donner des nouvelles plus tôt, j'ai résolu mon problème grâce à toi dès le lendemain, mais je n'avais plus internet donc il m'était difficile de te tenir au courant ! Encore un très grand merci, maintenant que je connais cette astuce j'avance beaucoup plus vite dans mon projet

[Hédhili Jaïdane]

Bonjour !

Je suis navrée de ne pas avoir pu te donner des nouvelles plus tôt, j'ai résolu mon problème grâce à toi dès le lendemain, mais je n'avais plus internet donc il m'était difficile de te tenir au courant ! Encore un très grand merci, maintenant que je connais cette astuce j'avance beaucoup plus vite dans mon projet

Bonjour.

Pas de pbs et il n'y a pas de quoi, l'essentiel est que tu t'en sortes.
Bonne continuation.