[JCL] Transformer un 9(xx) COMP-3 en S9(xx) COMP-3 [Résolu]

[Arnaud F.]

Bonjour,

je souhaiterais transformer la zone d'un fichier qu'est décrite en 9(13) COMP-3 pour la passer en S9(13) COMP-3.

Est-ce possible?

Merci

[Hédhili Jaïdane]

Bonjour.

Je ne vois pas ce qui peut s'y opposer. Et puis la passer où et à qui, et c'est quoi ton OS ?

On peut mouvementer la zone 9(13) COMP-3 dans la zone S9(13) COMP-3 et on pourrait même la prendre telle quelle, ton système saura interpréter le F terminal en C si la zone finale cible est du packé signé.

[el_slapper]

pour paraphraser Hédhili Jaïdane, voici le code complet :

Code :

1
2
3
4
5
6
77 NOMBRE-NON-SIGNE PIC 9(13) COMP-3.
77 NOMBRE-SIGNE     PIC S9(13) COMP-3.
(.../...)
MOVE NOMBRE-NON-SIGNE TO NOMBRE-SIGNE 
.

La conversion est implicite. Je l'ai fait des milliers de fois. C'est bien pratique.

[Arnaud F.]

Désolé ma demande initiale n'était pas claire et j'ai réussi à trouver la source de mon problème...

[Skylyn]

Si le nombre "non signé" est égal à -1, est-ce que le move non-signé to signé renverra -1 quand même ?

Question peut être stupide mais un nombre "non" signé est-il la valeur absolue du nombre (donc positif) ?

[Jean GVE]

Bonsoir,
Physiquement dans un COMP-3 ou PACKED DECIMAL il y a toujours l'emplacement du signe que l'on mette S ou pas dans la déclaration.

En résumé, un COMP-3 est toujours signé !

@+
PS:
Ce serait sympa d'indiquer la solution du problème

[Hédhili Jaïdane]

Envoyé par Skylyn

Si le nombre "non signé" est égal à -1, est-ce que le move non-signé to signé renverra -1 quand même ?

Question peut être stupide mais un nombre "non" signé est-il la valeur absolue du nombre (donc positif) ?

Inutile de chercher midi à quatorze heures ni de calculer la racine carré de -1 dans R.

Un nombre non signé ne pourra pas contenir un nombre négatif. Il est tout simplement considéré (ou assimilé) comme un nombre positif.
1 est représenté en interne en F1 ou en 1F selon qu'il soit en display ou en comp-3.
+1 est représenté en interne en F1 (ou C1 pour certains OS) ou en 1F (ou 1C pour certains OS) selon qu'il soit en display ou en comp-3.
-1 est représenté en interne en D1 ou en 1D selon qu'il soit en display ou en comp-3.

[Hédhili Jaïdane]

Envoyé par Jean GVE

Bonsoir,
Physiquement dans un COMP-3 ou PACKED DECIMAL il y a toujours l'emplacement du signe que l'on mette S ou pas dans la déclaration.

En résumé, un COMP-3 est toujours signé !

@+
PS:
Ce serait sympa d'indiquer la solution du problème

L'emplacement oui mais pas toujours l'indication du signe négatif. On ne pourra jamais mettre un nombre négatif dans une zone nombre non signée. C'est la même chose pour l'usage display. Le signe ne prend jamais de place sauf avec sign separate (leading ou trailing)

[Skylyn]

Envoyé par Hédhili Jaïdane

Inutile de chercher midi à quatorze heures ni de calculer la racine carré de -1 dans R.

Nul besoin d'être médisant... je posais juste une question simple!

De plus, si je veux être ironique :

Inutile de chercher midi à quatorze heure car dans R la racine carrée de -1 tu peux toujours la chercher...

Je me disais juste que, par rapport au sujet, quelle est la différence entre un S9(3) COMP-3 et un 9(3) COMP-3 s'il n'y a aucune différence ?

Pourquoi le nombre non signé devrait avoir un emplacement pour le signe s'il ne l'est pas ?

[el_slapper]

Envoyé par Skylyn

(.../...)
Pourquoi le nombre non signé devrait avoir un emplacement pour le signe s'il ne l'est pas ?

Parceque c'est comme ça que c'est défini. Le "signe" est à C pour "+", D pour "-", et F pour "non signé". Donc, ton COMP-3 non signé a un F à la fin. Je suppose que c'est pour optimiser d'éventuelles opérations avec des éléments qui eux, sont signés(comme par exemple le MOVE que j'ai donné en exemple).