Convertir número a letra

[martin89]

Buenas, alguno conoce alguna función que convierta un número a una letra.
Ej: 1 --> A
2 --> B
3 --> C.. etc.


saludos!

[azua14]

Intenta con estos codigos

*Conversion de A to 65

data : c value 'A'.
field-symbols : <n> type x.
data : rn type i.
assign c to <n> casting.
move <n> to rn.
write rn.

*Conversion de 66 to B

data : i type i value 66.
data : x type x.
field-symbols : <fc> type c.
move i to x.
assign x to <fc> casting type c.
move <fc> to c.
write c.

En tu caso lo unico que tienes que hacer es sumarle 64 a tu numero, ya que A = 65

[martin89]

Gracias por la respuesta, pero no logro entender.
Lo que necesito es una función que me devuelva la letra correspondiente al número de acuerdo al órden alfabético.
Es decir que si tengo el número 1 me duelva la A, si tengo el número 2 me devuelva la B, con el 3 la C, con el 4 la D y así hasta la Z (si no me equivoco son 26 letras las del abecedario).
Gracias !

[ballan]

La variable SY-ABCDE lleva las 26 letras de la A a la Z por lo tanto si haces

sy-abcde+0(1) seria la A
sy-abcde+1(1) seria la B
sy-abcde+2(1) seria la C

....

[Ariel-StaFe]

Convertir Char to ASCII(Decimal)

Azua14
Te consulto por si sabes.
En la empresa para la que trabajo teníamos la version 4.7 y el código de conversion tal cual detalles en el punto *Conversion de A to 65 nos funcionaba correctamente y devolvía 65.
Hemos migrado a la versión ECC 60 y extrañanemente dejó de funcionar. Ahora devuelve el valor 16.640
A que puede deberse esto ?
Con la migración instalaron "UNICODE".
Desde ya muchas gracias.
Ss

[djabegac]

Código para calcular que numero es una letra

Prueba con este código a ver si te sirve:

REPORT zprueba_djc2.

DATA: cont1 TYPE i, cont2 TYPE i, numero TYPE i.

PARAMETERS: letra(1) TYPE c.

START-OF-SELECTION.

BREAK-POINT.
cont1 = 0.
cont2 = 1.

DO.
IF sy-subrc NE 0.
EXIT.
ELSE.
IF syst-abcde+cont1(1) EQ letra.
MOVE cont2 TO numero.
EXIT.
ELSE.
cont1 = cont1 + 1.
cont2 = cont2 + 1.
ENDIF.
ENDIF.
ENDDO.

WRITE:/ 'La letra:', letra, 'corresponde con el nº:', cont2.

Un saludo y espero que te sirva.

[Ariel-StaFe]

Unicode

Estimados:
Por el tema que yo planteé ya lo pude resolver.
Comento por si a alguien le sucede lo mismo.
En la misma función estoy recibiendo el valor en hexadecimal, lo tomo de ahi y lo convierto de hexadecimal a ASCII (decimal).
Resuelto.
Saludos