Discussion :

[toomsounet]

J'ai une transaction CICS qui appelle un sous programme plusieurs fois de suite avec des EXEC CICS LINK (programme) en passant une commarea en paramètre.


La première fois je l'appelle en lui passant des informations X, il me renvoie un code retour OK.

La seconde fois je l'appelle en lui passant des informations Y (en réinitialisant la commarea juste avant), et boum il me sort un code erreur applicatif (je peux pas passer ce sous prog sous exped malheuresement).

Si je fais qu'un de ces deux appels tout marche nickel.

Il n'y aurait pas un buffer à vider par hasard? J'ai cru qu'avec ce système on en avait pas besoin.

[Hédhili Jaïdane]

Salut.
Il y a longtemps que je n'ai pas pas fait de Cobol Cics. Mais je pense que la règle est la même chez IBM.
Un S/programme appelé reste dans la pile d'appel et EN L'ETAT jusqu'il soit arrêté par un cancel ou que le programme appelant s'arrête. Donc soit tu cancel le s/prog juste après son appel pour préparer l'appel suivant, soit tu reinitialise tout dans le s/prog (en plus des paramètres passés et de la commarea) : c'est à dire toutes les zones de travail, etc... (ché pas moi).
AMHA c'est de là que vient ton problème.

Cordialement
Hédhili Jaïdane
- - - - - - - - -

[Luc Orient]

Pour moi un sous-programme applicatif n'a pas à avoir un comportement différent selon un contexte d'exécution ...

Il me semble que le problème se situe bien dans le sous-programme lui-même ... mauvaise initialisation de variables ?

[Hédhili Jaïdane]

Nous sommes bien d'accord.
Imaginez un peu ceci.

Code :

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

1
2
3
4
5
6
7
8
9
...
77    I comp value 0.
...
A1.
      add 1 to I.
      if I > 30 go a2.
      ....
      go to A1.

Au premier appel du s/pgm I = 0 (initialisé au chargement), à l'appel suivant I = 31.
Il faudrait systématiquement, dans le s/pgm, initialiser I par une instruction explicite du genre move 0 to I ou dans le prog appelant faire :
call "MonSProg"
cancel "MonSProg".


Cordialement
Hédhili Jaïdane
- - - - - - - - -

[toomsounet]

Merci les gars.

Au debut ce sous prog était appelé par un call et effectivement,à chaque nouvel appel, le contexte d'execution est sauvegardé.

Et en passant par un EXEC CICS LINK, j'ai lu que le sous-prog s'exécute dans un nouvel environnement d'exécution (moins performant que le call).
Je vais essayer de voir si le cancel marche avec un call avant car j'ai pas trop envie de toucher au sous-prog utilisé par pas mal de monde.

Encore merci.

[toomsounet]

Problème purement applicatif