Top Esqueleto, declaracion de tablas internas, estructuras, rangos, constantes, etc

Esqueleto TOP

*&---------------------------------------------------------------------*
*&  Include           ZHR_EMPLEADOS_TOP
*&---------------------------------------------------------------------*

* Esta linea esta comentada por el simbolo de *
REPORT ZHR_EMPLEADOS. "Este es el nombre del programa...
"DATA: [L: Local, G: Global] + V_(Nombre)   TYPE/LIKE VALUE  SPACE DECIMAL:Cuantos decimales tendra n.

*VARIABLES  v
*CONSTANTES c
*ESTRUCTURAS es
*RANGOS      r
*TABLAS INTERNAS  te

"TYPES - No reservan espacio de Memoria
"TYPES
types: GV_FECHA TYPE d.

"VARIABLES
DATA: gv_nueva_fecha type d value '20170417',
      gv_nueva_fecha2 LIKE gv_nueva_fecha,
      gv_id_empleado type ZHRED_ID_EMPLEADO,
      gv_id_empleado2 TYPE ZHRTT_EMPLEADOS-ID_EMP.

"CONSTANTES
CONSTANTS gc_color(10) TYPE C VALUE 'blanco'.


"ESTRUCTURAS
"Numero 1
DATA : BEGIN OF es_prueba,
        nombre type string,
        edad   type i,
      END OF es_prueba.

"Numero 2
DATA: WA_EMPLEADOS TYPE ZHRES_EMPLEADOS.

*WA_EMPLEADOS-ID_EMP     = '123456'.
*WA_EMPLEADOS-NOMB_EMP   = 'IGNACIO'.
*WA_EMPLEADOS-APEL_EMP   = 'ESPINO'.
*WA_EMPLEADOS-EDAD_EMP   = '29'.
*WA_EMPLEADOS-SEXO_EMP   = 'M'.

"RANGOS - Se pueden colocar muchos valores dentro.
RANGES gr_id_emp FOR ZHRTT_EMPLEADOS-ID_EMP.
*gr_id_emp-sign
*gr_id_emp-option
*gr_id_emp-low
*gr_id_emp-high

*TABLAS INTERNAS
"Poder alojar en memoria una matriz o una tabla, solo existe en tiempo de ejecución
"Numero 1
DATA: ti_empleados type TABLE OF ZHRTT_EMPLEADOS.

"Numero 2
DATA: BEGIN OF ti_table OCCURS 0, "Con occurs 0 le decimos que cantidad de lineas tendra esa tabla.
      fecha type d,
      hora type t,
      END OF ti_table.