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.
|