Ver Mensaje Individual
  #6  
Viejo 08/09/10, 14:39:52
djabegac djabegac is offline
Junior Member
 
Fecha de Ingreso: abr 2008
Mensajes: 7
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.
Responder Con Cita