Discussion :

[elajjouri]

Bonjour,

Je rencontre une plantage dans mon programme ( S0C7 ) lors de l'alimentation de la donnée A dans B :

A : T230-M-AUTSR PIC S9(13)V9(2) COMP-3.
B : ZCOM-M-AUTSR PIC S9(18) BINARY.

Voici ce que j'ai dans la syout :

CEE3207S The system detected a data exception (System Completion Code=0C7).
From compile unit MZBCCR30 at entry point MZBCCR30 at compile unit off
at address 3368F99E.

Avez-vous une idée ?
Merci.

[Hédhili Jaïdane]

Bonjour.

Je pense qu'il s'agit du contenu de la zone A qui n'est pas numérique conformément à la représentation du comp-3 : espaces (X'40'), signe...
Il faudrait s'assurer de la numéricité de A en faisant un dump et voir le contenu de l'adresse indiquée ou afficher en hexa le contenu de la zone A.

Je me suis trop éloigné des mainframes, mais nos amis z/OSistes t'en diront davantage.

[elajjouri]

Merci Jaidane pour cette réponse rapide.

Voici ce que j'ai dans A en héxadécimale :

T230-M-AUTSR => 000000000000007
EFFF6D6CEEED4764FFFFFFFFFFFFFFF4444444444444444444444444444444444444444444444444
3230040143290EE00000000000000070000000000000000000000000000000000000000000000000

Donc la valeur est numérique.

Je ne sais pas ou est le problème.

[Hédhili Jaïdane]

Code :

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

1
2
3
4
5
T230-M-AUTSR => 000000000000007
1.......10........20........30........40........50........60........70........80
EFFF6D6CEEED4764FFFFFFFFFFFFFFF4444444444444444444444444444444444444444444444444
3230040143290EE00000000000000070000000000000000000000000000000000000000000000000

Ok.

Voilà ce qu'on a donc, j'ai ajouté une réglette.
Dis nous où se situent les 8 octets de ta zone T230-M-AUTSR (13+2=15 digits en comp-3, donc 8 octets). Si ta zone est bien 000000000000007 situéé en colonne 17 à 31 représentée par x'F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0', alors c'est de l'étendu et non du comp-3. Et d'ailleurs j'en vois pas beaucoup des comp-3.

Tu peux nous donner, s'il te plait, la description de tous ces 80 caractères ?

[el_slapper]

PIC S9(13)V9(2) COMP-3.

donc 15 demi-octets, suivis du signe. Par exemple, +1234567891234,56 donnerait en hexa :
13579246
2467135C

tu dois avoir 15 demi-octets entre 0 et 9, et le seizième en lettre; de mémoire, B et D sont négatifs, les autres lettres sont positives, F signifiiant "non signé" mais étant implicitement positif.

Donc ton numérique a été rempli en numérique étendu, pas en COMP-3, comme détecté par notre modérateur préféré. Si tu veux +0,07, tu devrais avoir

00000007
0000000C

Ton entrée croit être en COMP-3, elle est en étendu, donc COBOL ne sait pas la traduire - puisqu'il ne sait pas d'ou il part. Zéro c'est chouette, un grand classique, j'en ai mangé un paquet.

[Hédhili Jaïdane]

[QUOTE=el_slapper;8810664]
.../...

comme détecté par notre modérateur préféré.

plus depuis longtemps

j'en ai mangé un paquet.

comme tout le monde quoi

[el_slapper]

Corrigé la faute. J'aurais du dire "numérique", ça aurait été plus sur..... Merci pour l'avoir pointée.