Created
November 12, 2018 02:10
-
-
Save iespino00/15d3731c239ba81d6bf1c16373dad3c8 to your computer and use it in GitHub Desktop.
Top Esqueleto, declaracion de tablas internas, estructuras, rangos, constantes, etc
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| *&---------------------------------------------------------------------* | |
| *& 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. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment