Discussion :

[Sakapatate]

Bonjour,

Dans un programme Pacbase, je fais la comparaison de 2 chaines de caractères de longueur 8 de la façon suivante :

Code :

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

1
2
3
4
5
     W-CHAINE = 'AB00TY99'
     Si W-CHAINE > '7FFFFFFF' 
          alors OK
     Sinon KO

Le résultat de ce test est 'KO', mais je ne comprends pas pourquoi.

D'avance merci pour vos infos,
a+

[Luc Orient]

En EBCDIC, et c'est le cas si on est en z/OS, le chacactère '7' ( x'F7' ) a une valeur supérieure au charactère 'A' ( x'C1' ).

[Sakapatate]

Merci Luc,
Effectivement, la comparaison est faite en Hexa !

Existe-t-il une fonction Pacbase pour comparer les chaines de caractères en EBCDIC ?

D'avance merci,
a+

[ekans]

Bonjour,

Dans ton cas, pourquoi t'attends-tu à un test OK ?
Ecrire en cobol un test qui compare 7 à A ne veut pas dire grand chose selon moi.
Comme le dit Luc Orient, dans ce cas, ton programme ne pourra que comparer les valeurs hexa correspondantes.

[Luc Orient]

... Effectivement, la comparaison est faite en Hexa !
Existe-t-il une fonction Pacbase pour comparer les chaines de caractères en EBCDIC ?

Ta question n'a pas de sens. La comparaison est faite sur un code en EBCDIC et la valeur peut être exprimée en hexadécimal, mais pourrait l'être aussi bien en binaire.

A mon sens, pour obtenir ce que tu souhaites il faut coder au niveau de l'ENVIRONNEMENT DIVISION du programme :

Code :

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

1
2
3
4
5
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370
                 PROGRAM COLLATING SEQUENCE IS ASCII.
SPECIAL-NAMES. ALPHABET ASCII IS STANDARD-1.

Avec cette déclaration l'ordre de comparaison appliqué sera celui de l'ASCII avec les valeurs des chiffres avant celles des lettres, et ceci à l'inverse de l'EBCDIC.