Discussion :

[NeedToHelp]

Bonjour ;

Je développe en COBOL sous environnement AS400, et j'ai un petit souci par rapport à un paramètre.
Pour faire court et simple, j'ai un programme X qui est censé recevoir 3 paramètres (A, B et C). Ce programme est appelé par un autre programme Y qui lui passe les 3 paramètres requis, dans ce cas de figure tout marche bien comme il faut. Sauf que, il existe un tiers programme Z qui fait appel au programme X mais cette fois ci en lui passant 2 paramètres seulement, ce qui -naturellement- génère une erreur de type "Pointeur non définie pour position mémoire référencé" au niveau d'une condition (IF).
Réellement, il existe un tas de programmes qui font appel au programme X, et je ne maîtrise pas l'arborescence de ces PGM.
La solution qui me parait la plus optimale, est d'incorporer un test juste avant l'utilisation de la variable objet de problème, en vérifiant son contenu (Si la variable est initialisé ou pas, autrement dit si elle ne contient aucune valeur).

Question : Est ce qu'il y une instruction ou une astuce qui me permettra de contourner ce problème, sachant que la variable peut être de n'importe quelle type de donnée.

Merci infiniment pour l'intérêt que vous avez porté un ma requête.

[Hédhili Jaïdane]

Bonjour.

Je n'ai pas l'habitude de jongler avec les paramètres manquants et les NULL, mais tu si tu es en ILE et que tu veux tester si un paramètre n'est pas transmis, utilise l'ADDRESS OF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
0025.00            IF ADDRESS OF C3 NOT = NULL                        
0026.00               DISPLAY "C3=" C3.

[NeedToHelp]

Bonjour.

Je n'ai pas l'habitude de jongler avec les paramètres manquants et les NULL, mais tu si tu es en ILE et que tu veux tester si un paramètre n'est pas transmis, utilise l'ADDRESS OF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
0025.00            IF ADDRESS OF C3 NOT = NULL                        
0026.00               DISPLAY "C3=" C3.

Quoi dire !!!! Merci infiniment.
Le problème est résolu, vous êtes un AS

[xfanx]

bonjour,

attention, pour avoir tenté de l'utiliser ce systeme ne fonctionne pas dans tous les cas.

un exemple :

premier appel avec using p1 p2

si tu testes address of P3 = null , c est OK

2eme appel avec using P1 P2 P3

3eme appel avec using P1 P2

si tu testes address of P3 = NULL ce sera faux

cdlt