*&---------------------------------------------------------------------*
*& Report  ZANMA_R_TABLA_CON_FECHA
*&
*&---------------------------------------------------------------------*

REPORT  ZANMA_R_TABLA_CON_FECHA.

********se coloca la longitud en P_TABLA entre TYPE, si no tienes es uno
PARAMETERS: p_tabla(2) TYPE n,
           p_date like sy-datum.

********Defenicion de variables
DATA v_resultado(3) TYPE n.
DATA lv_line(2) TYPE n.
data anio(4) type n.
data mes(2) type n.
data dia(2) type n.

TYPES: BEGIN OF lista,
         p_tabla(2) TYPE n,
         sy_index(2) TYPE n,
         resultado(3) TYPE n,
       END OF lista.
DATA: tabla TYPE TABLE OF lista WITH HEADER LINE.
CONSTANTS igual(1) TYPE c VALUE '='.
CONSTANTS por(1) TYPE c VALUE 'x'.

********Inicializar variables
INITIALIZATION.
  CLEAR: v_resultado,
         tabla.

********Inicio de la seleción
START-OF-SELECTION.
  DO 10 TIMES.
    v_resultado = p_tabla * sy-index.
    tabla-p_tabla = p_tabla.
    tabla-sy_index = sy-index.
    tabla-resultado = v_resultado.
    APPEND tabla.
  ENDDO.

  LOOP AT tabla.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          input         = tabla-resultado
       IMPORTING
         output        = tabla-resultado.

      CALL function 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            input         = tabla-sy_index
          IMPORTING
           output        = tabla-sy_index.

      CALL function 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            input         = tabla-p_tabla
          IMPORTING
           output        = tabla-p_tabla.


      write:/ tabla-p_tabla,por,tabla-sy_index, igual ,tabla-resultado.
  ENDLOOP.

describe table tabla lines lv_line.
write:/ 'Numero de lineas :',lv_line.

anio = p_date(4).
mes  = p_date+4(2).
dia  = p_date+6(2).

CALL function 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            input         = anio
          IMPORTING
           output        = anio.

CALL function 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
            input         = dia
          IMPORTING
           output        = dia.

CALL function 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            input         = mes
          IMPORTING
           output        = mes.

write:/ 'Hoy es',dia no-gap,' del', mes no-gap, ' del', anio no-gap.

********TITULO
TOP-OF-PAGE.
  WRITE:/ 'Tabla de Multiplicar del : ',p_tabla.
  WRITE:/ sy-uline(34).
  SKIP.