PARTE 3 - PART 3

Ahora en la tercera etapa, debemos crear las estructuras, tipos tablas

y funciones que son utilizadas.

Nos vamos a la Transacción SE37, y creamos la Función : ZHR_GET_NAME

Parámetros:

Export -> NAME_FILE_OUT    TYPE    CHAR255

Código Fuente:

***********TRANSLATION********************************************

Now in the third stage, we must create the structures, types, tables
and functions that are used.
We go to the transaction SE37, and create the function: ZHR_GET_NAME
parameters:

Export -> TYPE NAME_FILE_OUT CHAR255

Source Code:

 
**************************************************************************

FUNCTION zhr_get_name.

*"----------------------------------------------------------------------

*"*"Interfase local

*"  EXPORTING

*"     REFERENCE(NAME_FILE_OUT) TYPE  CHAR255

*"----------------------------------------------------------------------

  CALL SCREEN 100.

  name_file_out = name_file.

ENDFUNCTION.

Variables Globales:

DATA  name_file TYPE char255.

DATA  nombre2 TYPE char255.

Screen 100: (campo de ingreso : nombre2 type char)

Damos doble click al "100" y creamos el dynpro:

*****************TRANSLATION**************************

We double click on the "100" and create the Dynpro:

************************************************************

PROCESS BEFORE OUTPUT.

* MODULE STATUS_0100.

  MODULE pbo.

*

PROCESS AFTER INPUT.

* MODULE USER_COMMAND_0100.

  MODULE asignac.

Damos doble click en el pbo creamos:

******************TRANSLATION*******************

We double click on the pbo create:

**********************************************************

MODULE pbo OUTPUT.

  SET PF-STATUS 'ST_FX_NAME'.

  SET TITLEBAR 'T_FX_NAME'. 

ENDMODULE.                 " pbo  OUTPUT

Damos doble click En asignac creamos:

*****************TRANSLATION**********************
We created double click in Mapping page:
************************************************************

MODULE asignac INPUT.

  PERFORM asignac.

ENDMODULE.                 " asignac INPUT

*&---------------------------------------------------------------------*

*&      Form  asignac

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM asignac.

      name_file = nombre2.

      MESSAGE ID 'ZHRMSG' TYPE 'I' NUMBER '534'.

      LEAVE TO SCREEN 0.

ENDFORM.                    "asignac

Ahora nos vamos a la Transacción SE11:

Estructuras:

*******************TRANSLATION****************************

Now we go to transaction SE11:

structures:

*****************************************************************

ZWITEM_LAYOUT:   ADEMAS CREAR EL TIPO TABLA: ZTITEM_LAYOUT

ZWITEM_LAYOUT:Besides creating the type table: ZTITEM_LAYOUT

FIELDNAME	LVC_FNAME	CHAR	30
KEY_NODE	LVC_NKEY	CHAR	12
TYPE	ZTYPE	CHAR	1
CLASS	INT4	INT4	10
FONT	INT4	INT4	10
EDITABLE	AS4FLAG	CHAR	1
ALIGNMENT	INT4	INT4	10
T_IMAGE	TV_IMAGE	CHAR	46
CHOSEN	AS4FLAG	CHAR	1
TOGG_RIGHT	AS4FLAG	CHAR	1
STYLE	INT4	INT4	10
HIDDEN	AS4FLAG	CHAR	1
DISABLED	AS4FLAG	CHAR	1
ISFOLDER	AS4FLAG	CHAR	1
N_IMAGE	TV_IMAGE	CHAR	46
EXP_IMAGE	TV_IMAGE	CHAR	46
LAST_HITEM	TV_ITMNAME	CHAR	12
NO_BRANCH	AS4FLAG	CHAR	1
DRAGDROPID	INT2	INT2	5
EXPANDER	AS4FLAG	CHAR	1
NODE_TEXT	LVC_VALUE	CHAR	128

 

ZWDATAFILE:      ADEMAS CREAR TIPO TABLA: ZTYDATAFILE

ZWDATAFILE:Besides creating the type table: ZTYDATAFILE

LINE

CHAR1024

CHAR

1024

 

ZWASSIGN:      ADEMAS DE CREAR TIPO TABLA ZTASSIGN

ZWASSIGN:Besides creating the type table: ZTASSIGN

 

NODE	LVC_NKEY	CHAR	12
EQUIVALENT	NUM2	NUMC	2

ZWTYPE:            ADEMAS CREAR TIPO TABLA ZTYTYPE.

ZWTYPE:Besides creating the type table: ZTYTYPE.

LINE

SEU_TYPE

CHAR

4

ZDNOS_RANGES:       ADEMAS CREAR TIPO TABLA: ZTYDNOS_RANGES

ZDNOS_RANGES:Besides creating the type table: ZTYDNOS_RANGES

SIGN	CHAR1	CHAR	1
OPTION	CHAR2	CHAR	2
LOW	CHAR255	CHAR	255
HIGH	CHAR255	CHAR	255

ZWDATATREE:    ADEMAS DE CREAR TIPO TABLA ZTDATATREE

ZWDATATREE:Besides creating the type table ZTDATATREE

CONTAIN01	ZELINEA	CHAR	100
CONTAIN02	ZELINEA	CHAR	100
CONTAIN03	ZELINEA	CHAR	100
CONTAIN04	ZELINEA	CHAR	100
CONTAIN05	ZELINEA	CHAR	100
CONTAIN06	ZELINEA	CHAR	100
CONTAIN07	ZELINEA	CHAR	100
CONTAIN08	ZELINEA	CHAR	100
CONTAIN09	ZELINEA	CHAR	100
NUM_GROUP	ZENUM_GRUPO	INT2	5

ZWSORT:    ADEMAS DE CREAR TIPO TABLA: ZTSORT

ZWSORT:    : Besides creating the type table ZTSORT

NODE	LVC_NKEY	CHAR	12
MARK	ZMARK	CHAR	1
TYPE	SEU_TYPE	CHAR	4
FATHER	LVC_NKEY	CHAR	12

ZWFNAME:

LINE

LVC_FNAME

CHAR

30

 

ZTREE:

TKEY LVC_NKEY  CHAR 12 TYPE SEU_TYPE  CHAR 4 TSCREEN SEU_LOCK  CHAR 1 TSAVE ZESAVE  CHAR 1 TPAGE ZEPAGINA INT2 5 TCOM CHAR1 CHAR 1
ZWTRAMA:  ADEMAS CREAR TIPO TABLA ZTTRAMA. ZWTRAMA:Besides creating the type table: ZTTRAMA.
COLUMNA CHAR 4 CONTENIDO CHAR 50