Discussion :

[Antichoc]

Bonjour,

Je ne comprend pas la réaction de mon programme. J'ai le code suivant :

Code :

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

1
2
01 MAZONE1 PIC X(21).
01 MAZONE2 PIC 9(21).

Puis en SQL, je récupère une zone contenant un nombre qui est stocké en ALPHA dans DB2 et je le met dans la zone MAZONE1 à l'aide de l'instruction INTO.

Ce nombre n'a pas forcement 21 chiffres. 21 est la taille de la colonne DB2

Lorsque je MOVE MAZONE1 vers MAZONE2 afin de réaliser des opérations mathématiques dessus, cela donne :

Code :

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

MAZONE2 = XXXXXXX             0

où XXXXXXX représente la valeur retourné par SQL, suivi d'espaces puis du 0 en dernière position.

Comment contourner ce problème ?

[xfanx]

c est le MOVE d'une zone PIC X(20) vers PIC 9(20) qui provoque cela, simplement parceque la justification de tes chiffres est à gauche dans la zone X alors qu'elle devrait etre à droite, conformément à du PIC 9..

je m'explique :
dans PIC X(20) tu as X'F1F2F3404040' , or pour que cela soit considéré comme numeric avant le move en PIC 9(20), tu devrais avoir x'F0F0F0F1F2F3'

donc, dans ton cas, tu dois retravailler la zone en PIC X(20) pour justifier tout tes chiffres vers la droite et remplacer les spaces par des 0 avant le MOVE vers le PIC 9(20).

move 20 to J
perform varying I from 20 by -1 until i < 1
if mazone1(i:1) not = spaces
move mazone1(i:1) to mazone1(j:1)
compute j = j - 1
end-if
move '0' to mazone1(i:1)
end-perform
move mazone1 to mazone2.


un truc dans le genre...

cela dit je suis tres étonnée de ton résultat; dans une ancienne version de compilateur, un telle move '123 ' vers une zone en pic 9(5) par exemple aurait donné '12300'. je viens de faire le test avec COBOL enterprise et effectivement j'ai la meme chose que toi...

[Homer-ac]

cela dit je suis tres étonnée de ton résultat; dans une ancienne version de compilateur, un telle move '123 ' vers une zone en pic 9(5) par exemple aurait donné '12300'. je viens de faire le test avec COBOL enterprise et effectivement j'ai la meme chose que toi...

Non, ce n'est pas lié à Enterprise COBOL mais au fait que parce que la zone d'emission à la même longueur que la zone de réception, COBOL (MVS) n'a pas besoin de générer de code supplémentaire pour passer par une zone de travail packée, ce qui ferait que les blancs seraient effectivement traduits par des zéros.
Dans ce cas et puisqu'il n'y a pas de Picture signée, le généré est un simple MVC (Move) de la zone puis un OI (Ou Inclusif booléen) à x'F0' sur le dernier octet pour forcer le signe numérique positif.

Pour le reste, tu as de multiples possibilités de gestion, comme indiqué par xfanx ou après calcul de la longueur utile à mouvementer, sur arrêt au premier caractère < X'F0' par exemple. Une variante possible :

Code :

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

1
2
3
4
5
6
          05  MONTANT-INTER         Pic x(18) just right.           
          05  MONTANT-INTER9 redefines MONTANT-INTER    Pic 9(18).  
          .................. calcul de LG-UTILE ........                                         
           Move L-MONTANT(1:LG-UTILE) to MONTANT-INTER              
           Inspect MONTANT-INTER converting x'40' to x'F0'

[Antichoc]

Merci pour vos réponses,

en utilisant la commande

Code :

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

UNSTRING MAZONE1 DELIMITED BY SPACE INTO MAZONE2

ca fonctionne !!!

[Homer-ac]

unstring delimited by spaces : si tu n'as que des chiffres + blancs
ça vaut alors un ptit test if numéric en + non ?

[Antichoc]

Effectivement, cela va de soi ...

[bernard59139]

pour un collègue, je viens de faire la même recherche.
j'ai trouvé la fonction NUMVAL lien sur la doc

si ca peux vous aider.