Bonjour a tous,
comment SVP fait-on un display en cobol pour avoir le code ascii d'un caracteres?
merci beaucoup!
Version imprimable
Bonjour a tous,
comment SVP fait-on un display en cobol pour avoir le code ascii d'un caracteres?
merci beaucoup!
A mon avis la fonction ORD devrait vous aider ...
Cette fonction retourne la position du caractère en entrèe dans le jeu de caractère utilisé par le programme.
Comme la position commence à 1, pour avoir la valeur il suffit de soustraire 1.
cf.
The ORD function
Attention ! Il s'agit d'une doc sur un compilateur IBM !
J'ai fait l'essai suivant (extrait du programme ... ) :
Comme j'ai fait l'essai sur un Mainframe IBM j'ai eu un résultat en EBCDIC, mais je pense que ça devrait aussi marcher en ASCII ...Code:
1
2
3
4
5 1 A PIC 999. ... COMPUTE A = FUNCTION ORD('A') - 1 DISPLAY 'A=' A
merci pour ton aide Luc ;)
moi je fais du cobol via unix (AIX5) et cette fonction me retourne des nombres qui corresponde a ch ai po quoi !!? mais pas les codes ascii ....
po grave on finira par trouver ;)
a pliche
Tiens c'est curieux ... Chez moi (z/OS) ça a l'air de marcher ...
Et c'est aussi un compilateur IBM ...
Mais sur AIX vous avez quoi comme résultat ?