*&---------------------------------------------------------------------*
*& Titulo: Ejericio Tabla de Multiplicar
*& Autor: Antonio Manuel Torres Martin
*&---------------------------------------------------------------------*

REPORT  zanma_r_tablasmultiplicar.

*si no hay longitud en el parameters es uno por defecto
*definicion de variables y estructuras
PARAMETERS p_tabla(2) TYPE n.
DATA: resultado(3) TYPE n.
data: numlineas(2) type n.

TYPES: BEGIN OF tabla,
  numero(2) TYPE n,
  indice(2) TYPE n,
  resultado(3) TYPE n,
END OF tabla.

DATA: datos TYPE TABLE OF tabla WITH HEADER LINE.

CONSTANTS var1 TYPE c VALUE 'X'.
CONSTANTS var2 TYPE c VALUE '='.

*Initialization
INITIALIZATION.
  CLEAR resultado.

*start of selection
START-OF-SELECTION.

*rellenar la tabla
  DO 10 TIMES.
    resultado = p_tabla * sy-index.
    datos-numero = p_tabla.
    datos-indice = sy-index.
    datos-resultado = resultado.
    APPEND datos.
  ENDDO.

*visualizar tabla
  LOOP AT datos.
*quita los cero de la izquierda
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input         = datos-numero
     IMPORTING
       OUTPUT        = datos-numero.
    
     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input         = datos-indice
     IMPORTING
       OUTPUT        = datos-indice.
       
       CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input         = datos-resultado
     IMPORTING
       OUTPUT        = datos-resultado.
              .
    
    WRITE:/ datos-numero, var1 , datos-indice, var2
    , datos-resultado.
  ENDLOOP.

  describe table tabla lines numlineas.
  skip.
  write:/ 'Numero de linea :', numlineas.

*calcula el resultado con do
*do 10 times.
*resultado = p_tabla * sy-index.
*write:/ p_tabla,'x',sy-index,'=',resultado.
*enddo.

*top of page Titulo
TOP-OF-PAGE.
  WRITE: 'Tabla de multiplicar del ', p_tabla.
  WRITE:/  sy-uline(30).

*end of page Pie de Pagina
END-OF-PAGE.
  WRITE 'Ejercicio realizado por Antonio Manuel Torres'.