Tabla de multiplicar para SAP ABAP IV

De todo hay que aprender y nada puede detenernos, ahora estoy estudiando algo de ABAP IV, como muestra os voy a dejar una tabla de multiplicar realizada bajo SAP ABAP IV.

SAP nos solicita de que numero solicitamos la tabla de multiplicar, tras ello hacemos un bucle para imprimir las diez multiplicaciones necesarias.

*&---------------------------------------------------------------------*
*& Report  Z_LIEM_TEST
*&
*&---------------------------------------------------------------------*
*&
*& El programa solicita un numero y muestra su tabla de multiplicar
*&---------------------------------------------------------------------*

REPORT  z_liem_test.

DATA resultado TYPE string.
DATA multi(17) TYPE c.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS p_params TYPE i.
SELECTION-SCREEN END OF BLOCK b1.

IF p_params IS INITIAL.
  WRITE 'No se ha indicado de que tabla quiere'.
ELSE.
  WRITE p_params TO multi.
  DO 10 TIMES.
    DATA index(17) TYPE c.
    DATA res(17) TYPE c.
    DATA resu TYPE i.
    resu = sy-index.
    WRITE sy-index TO index.
    MULTIPLY resu BY multi.
    WRITE resu TO res.
    CONCATENATE index ' * ' multi ' = ' res INTO resultado.
    CONDENSE resultado.
    WRITE resultado.
    SKIP.
  ENDDO.
ENDIF.

Como podemos ver es mucho código para este solo proceso, pero es un primer acercamiento al código  seguiremos haciendo cosas para SAP ABAP IV :)