ABAP Select data from SAP table PES_FORM_I190_0003 into internal table

Get Example source ABAP code based on a different SAP table

Below is a number of ABAP code snippets to demonstrate how to select data from SAP PES_FORM_I190_0003 table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to PES_FORM_I190_0003. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the PES_FORM_I190_0003 table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_PES_FORM_I190_0003 TYPE STANDARD TABLE OF PES_FORM_I190_0003,
      WA_PES_FORM_I190_0003 TYPE PES_FORM_I190_0003,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <PES_FORM_I190_0003> TYPE PES_FORM_I190_0003.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_PES_FORM_I190_0003.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM PES_FORM_I190_0003
  INTO TABLE IT_PES_FORM_I190_0003.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PES_FORM_I190_0003
*  INTO TABLE @DATA(IT_PES_FORM_I190_00032).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_PES_FORM_I190_0003 INDEX 1 INTO DATA(WA_PES_FORM_I190_00032).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_PES_FORM_I190_0003 ASSIGNING <PES_FORM_I190_0003>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PES_FORM_I190_0003>-CABECERA = 1.
<PES_FORM_I190_0003>-EJER = 1.
<PES_FORM_I190_0003>-NIF_PER = 1.
<PES_FORM_I190_0003>-NAME = 1.
<PES_FORM_I190_0003>-NAME_EMPR = 1.

ENDLOOP.

LOOP AT IT_PES_FORM_I190_0003 INTO WA_PES_FORM_I190_0003.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PES_FORM_I190_0003-NIF_PRES, sy-vline,
  WA_PES_FORM_I190_0003-SG, sy-vline,
  WA_PES_FORM_I190_0003-VIA, sy-vline,
  WA_PES_FORM_I190_0003-NUMO, sy-vline,
  WA_PES_FORM_I190_0003-ESCALERA, sy-vline,
  WA_PES_FORM_I190_0003-PISO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PES_FORM_I190_0003 you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_PES_FORM_I190_0003 TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_PES_FORM_I190_0003 INTO WA_PES_FORM_I190_0003.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.

*Conversion exit ALPHA, internal->external for field C_COSTE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PES_FORM_I190_0003-C_COSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PES_FORM_I190_0003-C_COSTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field C_COSTE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PES_FORM_I190_0003-C_COSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PES_FORM_I190_0003-C_COSTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field C_COSTE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PES_FORM_I190_0003-C_COSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PES_FORM_I190_0003-C_COSTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field C_COSTE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PES_FORM_I190_0003-C_COSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PES_FORM_I190_0003-C_COSTE.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_PES_FORM_I190_0003_STR, 
CABECERA TYPE STRING,
EJER TYPE STRING,
NIF_PER TYPE STRING,
NAME TYPE STRING,
NAME_EMPR TYPE STRING,
NIF_PRES TYPE STRING,
SG TYPE STRING,
VIA TYPE STRING,
NUMO TYPE STRING,
ESCALERA TYPE STRING,
PISO TYPE STRING,
PUERTA TYPE STRING,
CPOS TYPE STRING,
MUNIC TYPE STRING,
PROVINCIA TYPE STRING,
TELN TYPE STRING,
PROV_TRA TYPE STRING,
PROV_EMP TYPE STRING,
REPRESENT TYPE STRING,
NIF TYPE STRING,
NOMBRE TYPE STRING,
TITULO TYPE STRING,
ACTIV_ECONOM TYPE STRING,
ACTIV_ECONOM_TEXT TYPE STRING,
A_NAC TYPE STRING,
DISCA TYPE STRING,
SIT_FAM TYPE STRING,
NIF_CONY TYPE STRING,
PECOM TYPE STRING,
ALIME TYPE STRING,
PROLACTLAB TYPE STRING,
MOV_GEOG TYPE STRING,
HIJOS_0_2 TYPE STRING,
HIJOS_0_2_E TYPE STRING,
HIJOS_3_24 TYPE STRING,
HIJOS_3_24_E TYPE STRING,
DESC_33_65 TYPE STRING,
DESC_33_65_E TYPE STRING,
DESC_65 TYPE STRING,
DESC_65_E TYPE STRING,
DESC_ASIST TYPE STRING,
DESC_ASIST_E TYPE STRING,
ASC_75 TYPE STRING,
ASC_75_E TYPE STRING,
ASC_65 TYPE STRING,
ASC_65_E TYPE STRING,
ASCM_33_65 TYPE STRING,
ASCM_33_65_E TYPE STRING,
ASCM_65 TYPE STRING,
ASCM_65_E TYPE STRING,
ASCM_ASIST TYPE STRING,
ASCM_ASIST_E TYPE STRING,
NOHIJ TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
REDUC TYPE STRING,
CINTG TYPE STRING,
REDU1 TYPE STRING,
BASIR TYPE STRING,
BAITG TYPE STRING,
REDUC TYPE STRING,
RETEN TYPE STRING,
PITGR TYPE STRING,
REDU2 TYPE STRING,
BASIR TYPE STRING,
BAITG TYPE STRING,
REDUC TYPE STRING,
RETEN TYPE STRING,
PITGR TYPE STRING,
REDU3 TYPE STRING,
BASIR TYPE STRING,
BAITG TYPE STRING,
REDUC TYPE STRING,
RETEN TYPE STRING,
PITGR TYPE STRING,
SEGUR_COLEC TYPE STRING,
MUTUAS TYPE STRING,
GASTOS TYPE STRING,
COOPE TYPE STRING,
ZIMCLI TYPE STRING,
EJDEV1 TYPE STRING,
EJDEV2 TYPE STRING,
EJDEV3 TYPE STRING,
EJDEV4 TYPE STRING,
RETEN1 TYPE STRING,
RETEN2 TYPE STRING,
RETEN3 TYPE STRING,
RETEN4 TYPE STRING,
PERCE1 TYPE STRING,
PERCE2 TYPE STRING,
PERCE3 TYPE STRING,
PERCE4 TYPE STRING,
NJDEV1 TYPE STRING,
NJDEV2 TYPE STRING,
NJDEV3 TYPE STRING,
NERCE1 TYPE STRING,
NERCE2 TYPE STRING,
NERCE3 TYPE STRING,
SJDEV1 TYPE STRING,
SJDEV2 TYPE STRING,
SJDEV3 TYPE STRING,
SJDEV4 TYPE STRING,
SETEN1 TYPE STRING,
SETEN2 TYPE STRING,
SETEN3 TYPE STRING,
SETEN4 TYPE STRING,
SERCE1 TYPE STRING,
SERCE2 TYPE STRING,
SERCE3 TYPE STRING,
SERCE4 TYPE STRING,
DIETAS TYPE STRING,
DESPID TYPE STRING,
EXENTO TYPE STRING,
O_EXEN TYPE STRING,
PREMIO TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
DATOS_ADICIONALES TYPE STRING,
PERNR TYPE STRING,
NIF TYPE STRING,
TRAT_EMPL TYPE STRING,
APELLIDO TYPE STRING,
SIGLA_DOM TYPE STRING,
CP TYPE STRING,
PROVINCIA TYPE STRING,
POBLACION TYPE STRING,
DIRECCION TYPE STRING,
PAIS TYPE STRING,
FECHA_ACTUAL TYPE STRING,
FECHA_FIN_EJ TYPE STRING,
EDIFICIO TYPE STRING,
NUMERO TYPE STRING,
ID_CASA TYPE STRING,
PLANTA TYPE STRING,
CPO_ADD TYPE STRING,
ADR03 TYPE STRING,
ADR04 TYPE STRING,
ACTUAL TYPE STRING,
DIV_PERS TYPE STRING,
SUBDIVISION TYPE STRING,
DIVISION TYPE STRING,
C_COSTE TYPE STRING,
POBL_DIV TYPE STRING,
SOCIEDAD TYPE STRING,
FINEJER TYPE STRING,
DIV_PERS TYPE STRING,
SUBDIVISION TYPE STRING,
DIVISION TYPE STRING,
C_COSTE TYPE STRING,
POBL_DIV TYPE STRING,
SOCIEDAD TYPE STRING,
S_0004 TYPE STRING,
CABECERA TYPE STRING,
EJER TYPE STRING,
NIF_PER TYPE STRING,
NAME TYPE STRING,
NAME_EMPR TYPE STRING,
NIF_PRES TYPE STRING,
SG TYPE STRING,
VIA TYPE STRING,
NUMO TYPE STRING,
ESCALERA TYPE STRING,
PISO TYPE STRING,
PUERTA TYPE STRING,
CPOS TYPE STRING,
MUNIC TYPE STRING,
PROVINCIA TYPE STRING,
TELN TYPE STRING,
PROV_TRA TYPE STRING,
PROV_EMP TYPE STRING,
REPRESENT TYPE STRING,
NIF TYPE STRING,
NOMBRE TYPE STRING,
TITULO TYPE STRING,
ACTIV_ECONOM TYPE STRING,
ACTIV_ECONOM_TEXT TYPE STRING,
PROFES TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
AGRICO TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
PROPIN TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
DATOS_ADICIONALES TYPE STRING,
PERNR TYPE STRING,
NIF TYPE STRING,
TRAT_EMPL TYPE STRING,
APELLIDO TYPE STRING,
SIGLA_DOM TYPE STRING,
CP TYPE STRING,
PROVINCIA TYPE STRING,
POBLACION TYPE STRING,
DIRECCION TYPE STRING,
PAIS TYPE STRING,
FECHA_ACTUAL TYPE STRING,
FECHA_FIN_EJ TYPE STRING,
EDIFICIO TYPE STRING,
NUMERO TYPE STRING,
ID_CASA TYPE STRING,
PLANTA TYPE STRING,
CPO_ADD TYPE STRING,
ADR03 TYPE STRING,
ADR04 TYPE STRING,
ACTUAL TYPE STRING,
DIV_PERS TYPE STRING,
SUBDIVISION TYPE STRING,
DIVISION TYPE STRING,
C_COSTE TYPE STRING,
POBL_DIV TYPE STRING,
SOCIEDAD TYPE STRING,
FINEJER TYPE STRING,
DIV_PERS TYPE STRING,
SUBDIVISION TYPE STRING,
DIVISION TYPE STRING,
C_COSTE TYPE STRING,
POBL_DIV TYPE STRING,
SOCIEDAD TYPE STRING,
ACTEMP TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
FORESTRY_ACTV_ON_PUBLIC_HILLS TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
IMAGE_RIGHTS TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
FOREST TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
DESCRIP_SY_DATUM TYPE STRING,
BENEFITS_VALOR TYPE STRING,
BENEFITS_ING_EFEC TYPE STRING,
S_0005 TYPE STRING,
PRIZE_WITH_ADVERT_PURPOSES TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
PREMIO TYPE STRING,
DINER_PER TYPE STRING,
DINER_RET TYPE STRING,
ESPEC_PER TYPE STRING,
ESPEC_RET TYPE STRING,
ESPEC_REP TYPE STRING,
ESPEC_NOREP TYPE STRING,
BENEFITS_AMOUNT TYPE STRING,
BENEFITS_RETEN TYPE STRING,
BENEFITS_REPERC TYPE STRING,
HEADER TYPE STRING,
EJER TYPE STRING,
NIF_PER TYPE STRING,
NAME TYPE STRING,
NAME_EMPR TYPE STRING,
NIF_PRES TYPE STRING,
SG TYPE STRING,
VIA TYPE STRING,
NUMO TYPE STRING,
ESCALERA TYPE STRING,
PISO TYPE STRING,
PUERTA TYPE STRING,
CPOS TYPE STRING,
MUNIC TYPE STRING,
PROVINCIA TYPE STRING,
TELN TYPE STRING,
PROV_TRA TYPE STRING,
PROV_EMP TYPE STRING,
REPRESENT TYPE STRING,
NIF TYPE STRING,
NOMBRE TYPE STRING,
TITULO TYPE STRING,
ACTIV_ECONOM TYPE STRING,
ACTIV_ECONOM_TEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PES_FORM_I190_0003_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_PES_FORM_I190_0003_STR-CABECERA sy-vline 
WA_PES_FORM_I190_0003_STR-EJER sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_PER sy-vline 
WA_PES_FORM_I190_0003_STR-NAME sy-vline 
WA_PES_FORM_I190_0003_STR-NAME_EMPR sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_PRES sy-vline 
WA_PES_FORM_I190_0003_STR-SG sy-vline 
WA_PES_FORM_I190_0003_STR-VIA sy-vline 
WA_PES_FORM_I190_0003_STR-NUMO sy-vline 
WA_PES_FORM_I190_0003_STR-ESCALERA sy-vline 
WA_PES_FORM_I190_0003_STR-PISO sy-vline 
WA_PES_FORM_I190_0003_STR-PUERTA sy-vline 
WA_PES_FORM_I190_0003_STR-CPOS sy-vline 
WA_PES_FORM_I190_0003_STR-MUNIC sy-vline 
WA_PES_FORM_I190_0003_STR-PROVINCIA sy-vline 
WA_PES_FORM_I190_0003_STR-TELN sy-vline 
WA_PES_FORM_I190_0003_STR-PROV_TRA sy-vline 
WA_PES_FORM_I190_0003_STR-PROV_EMP sy-vline 
WA_PES_FORM_I190_0003_STR-REPRESENT sy-vline 
WA_PES_FORM_I190_0003_STR-NIF sy-vline 
WA_PES_FORM_I190_0003_STR-NOMBRE sy-vline 
WA_PES_FORM_I190_0003_STR-TITULO sy-vline 
WA_PES_FORM_I190_0003_STR-ACTIV_ECONOM sy-vline 
WA_PES_FORM_I190_0003_STR-ACTIV_ECONOM_TEXT sy-vline 
WA_PES_FORM_I190_0003_STR-A_NAC sy-vline 
WA_PES_FORM_I190_0003_STR-DISCA sy-vline 
WA_PES_FORM_I190_0003_STR-SIT_FAM sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_CONY sy-vline 
WA_PES_FORM_I190_0003_STR-PECOM sy-vline 
WA_PES_FORM_I190_0003_STR-ALIME sy-vline 
WA_PES_FORM_I190_0003_STR-PROLACTLAB sy-vline 
WA_PES_FORM_I190_0003_STR-MOV_GEOG sy-vline 
WA_PES_FORM_I190_0003_STR-HIJOS_0_2 sy-vline 
WA_PES_FORM_I190_0003_STR-HIJOS_0_2_E sy-vline 
WA_PES_FORM_I190_0003_STR-HIJOS_3_24 sy-vline 
WA_PES_FORM_I190_0003_STR-HIJOS_3_24_E sy-vline 
WA_PES_FORM_I190_0003_STR-DESC_33_65 sy-vline 
WA_PES_FORM_I190_0003_STR-DESC_33_65_E sy-vline 
WA_PES_FORM_I190_0003_STR-DESC_65 sy-vline 
WA_PES_FORM_I190_0003_STR-DESC_65_E sy-vline 
WA_PES_FORM_I190_0003_STR-DESC_ASIST sy-vline 
WA_PES_FORM_I190_0003_STR-DESC_ASIST_E sy-vline 
WA_PES_FORM_I190_0003_STR-ASC_75 sy-vline 
WA_PES_FORM_I190_0003_STR-ASC_75_E sy-vline 
WA_PES_FORM_I190_0003_STR-ASC_65 sy-vline 
WA_PES_FORM_I190_0003_STR-ASC_65_E sy-vline 
WA_PES_FORM_I190_0003_STR-ASCM_33_65 sy-vline 
WA_PES_FORM_I190_0003_STR-ASCM_33_65_E sy-vline 
WA_PES_FORM_I190_0003_STR-ASCM_65 sy-vline 
WA_PES_FORM_I190_0003_STR-ASCM_65_E sy-vline 
WA_PES_FORM_I190_0003_STR-ASCM_ASIST sy-vline 
WA_PES_FORM_I190_0003_STR-ASCM_ASIST_E sy-vline 
WA_PES_FORM_I190_0003_STR-NOHIJ sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-REDUC sy-vline 
WA_PES_FORM_I190_0003_STR-CINTG sy-vline 
WA_PES_FORM_I190_0003_STR-REDU1 sy-vline 
WA_PES_FORM_I190_0003_STR-BASIR sy-vline 
WA_PES_FORM_I190_0003_STR-BAITG sy-vline 
WA_PES_FORM_I190_0003_STR-REDUC sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-PITGR sy-vline 
WA_PES_FORM_I190_0003_STR-REDU2 sy-vline 
WA_PES_FORM_I190_0003_STR-BASIR sy-vline 
WA_PES_FORM_I190_0003_STR-BAITG sy-vline 
WA_PES_FORM_I190_0003_STR-REDUC sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-PITGR sy-vline 
WA_PES_FORM_I190_0003_STR-REDU3 sy-vline 
WA_PES_FORM_I190_0003_STR-BASIR sy-vline 
WA_PES_FORM_I190_0003_STR-BAITG sy-vline 
WA_PES_FORM_I190_0003_STR-REDUC sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-PITGR sy-vline 
WA_PES_FORM_I190_0003_STR-SEGUR_COLEC sy-vline 
WA_PES_FORM_I190_0003_STR-MUTUAS sy-vline 
WA_PES_FORM_I190_0003_STR-GASTOS sy-vline 
WA_PES_FORM_I190_0003_STR-COOPE sy-vline 
WA_PES_FORM_I190_0003_STR-ZIMCLI sy-vline 
WA_PES_FORM_I190_0003_STR-EJDEV1 sy-vline 
WA_PES_FORM_I190_0003_STR-EJDEV2 sy-vline 
WA_PES_FORM_I190_0003_STR-EJDEV3 sy-vline 
WA_PES_FORM_I190_0003_STR-EJDEV4 sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN1 sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN2 sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN3 sy-vline 
WA_PES_FORM_I190_0003_STR-RETEN4 sy-vline 
WA_PES_FORM_I190_0003_STR-PERCE1 sy-vline 
WA_PES_FORM_I190_0003_STR-PERCE2 sy-vline 
WA_PES_FORM_I190_0003_STR-PERCE3 sy-vline 
WA_PES_FORM_I190_0003_STR-PERCE4 sy-vline 
WA_PES_FORM_I190_0003_STR-NJDEV1 sy-vline 
WA_PES_FORM_I190_0003_STR-NJDEV2 sy-vline 
WA_PES_FORM_I190_0003_STR-NJDEV3 sy-vline 
WA_PES_FORM_I190_0003_STR-NERCE1 sy-vline 
WA_PES_FORM_I190_0003_STR-NERCE2 sy-vline 
WA_PES_FORM_I190_0003_STR-NERCE3 sy-vline 
WA_PES_FORM_I190_0003_STR-SJDEV1 sy-vline 
WA_PES_FORM_I190_0003_STR-SJDEV2 sy-vline 
WA_PES_FORM_I190_0003_STR-SJDEV3 sy-vline 
WA_PES_FORM_I190_0003_STR-SJDEV4 sy-vline 
WA_PES_FORM_I190_0003_STR-SETEN1 sy-vline 
WA_PES_FORM_I190_0003_STR-SETEN2 sy-vline 
WA_PES_FORM_I190_0003_STR-SETEN3 sy-vline 
WA_PES_FORM_I190_0003_STR-SETEN4 sy-vline 
WA_PES_FORM_I190_0003_STR-SERCE1 sy-vline 
WA_PES_FORM_I190_0003_STR-SERCE2 sy-vline 
WA_PES_FORM_I190_0003_STR-SERCE3 sy-vline 
WA_PES_FORM_I190_0003_STR-SERCE4 sy-vline 
WA_PES_FORM_I190_0003_STR-DIETAS sy-vline 
WA_PES_FORM_I190_0003_STR-DESPID sy-vline 
WA_PES_FORM_I190_0003_STR-EXENTO sy-vline 
WA_PES_FORM_I190_0003_STR-O_EXEN sy-vline 
WA_PES_FORM_I190_0003_STR-PREMIO sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-DATOS_ADICIONALES sy-vline 
WA_PES_FORM_I190_0003_STR-PERNR sy-vline 
WA_PES_FORM_I190_0003_STR-NIF sy-vline 
WA_PES_FORM_I190_0003_STR-TRAT_EMPL sy-vline 
WA_PES_FORM_I190_0003_STR-APELLIDO sy-vline 
WA_PES_FORM_I190_0003_STR-SIGLA_DOM sy-vline 
WA_PES_FORM_I190_0003_STR-CP sy-vline 
WA_PES_FORM_I190_0003_STR-PROVINCIA sy-vline 
WA_PES_FORM_I190_0003_STR-POBLACION sy-vline 
WA_PES_FORM_I190_0003_STR-DIRECCION sy-vline 
WA_PES_FORM_I190_0003_STR-PAIS sy-vline 
WA_PES_FORM_I190_0003_STR-FECHA_ACTUAL sy-vline 
WA_PES_FORM_I190_0003_STR-FECHA_FIN_EJ sy-vline 
WA_PES_FORM_I190_0003_STR-EDIFICIO sy-vline 
WA_PES_FORM_I190_0003_STR-NUMERO sy-vline 
WA_PES_FORM_I190_0003_STR-ID_CASA sy-vline 
WA_PES_FORM_I190_0003_STR-PLANTA sy-vline 
WA_PES_FORM_I190_0003_STR-CPO_ADD sy-vline 
WA_PES_FORM_I190_0003_STR-ADR03 sy-vline 
WA_PES_FORM_I190_0003_STR-ADR04 sy-vline 
WA_PES_FORM_I190_0003_STR-ACTUAL sy-vline 
WA_PES_FORM_I190_0003_STR-DIV_PERS sy-vline 
WA_PES_FORM_I190_0003_STR-SUBDIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-DIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-C_COSTE sy-vline 
WA_PES_FORM_I190_0003_STR-POBL_DIV sy-vline 
WA_PES_FORM_I190_0003_STR-SOCIEDAD sy-vline 
WA_PES_FORM_I190_0003_STR-FINEJER sy-vline 
WA_PES_FORM_I190_0003_STR-DIV_PERS sy-vline 
WA_PES_FORM_I190_0003_STR-SUBDIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-DIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-C_COSTE sy-vline 
WA_PES_FORM_I190_0003_STR-POBL_DIV sy-vline 
WA_PES_FORM_I190_0003_STR-SOCIEDAD sy-vline 
WA_PES_FORM_I190_0003_STR-S_0004 sy-vline 
WA_PES_FORM_I190_0003_STR-CABECERA sy-vline 
WA_PES_FORM_I190_0003_STR-EJER sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_PER sy-vline 
WA_PES_FORM_I190_0003_STR-NAME sy-vline 
WA_PES_FORM_I190_0003_STR-NAME_EMPR sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_PRES sy-vline 
WA_PES_FORM_I190_0003_STR-SG sy-vline 
WA_PES_FORM_I190_0003_STR-VIA sy-vline 
WA_PES_FORM_I190_0003_STR-NUMO sy-vline 
WA_PES_FORM_I190_0003_STR-ESCALERA sy-vline 
WA_PES_FORM_I190_0003_STR-PISO sy-vline 
WA_PES_FORM_I190_0003_STR-PUERTA sy-vline 
WA_PES_FORM_I190_0003_STR-CPOS sy-vline 
WA_PES_FORM_I190_0003_STR-MUNIC sy-vline 
WA_PES_FORM_I190_0003_STR-PROVINCIA sy-vline 
WA_PES_FORM_I190_0003_STR-TELN sy-vline 
WA_PES_FORM_I190_0003_STR-PROV_TRA sy-vline 
WA_PES_FORM_I190_0003_STR-PROV_EMP sy-vline 
WA_PES_FORM_I190_0003_STR-REPRESENT sy-vline 
WA_PES_FORM_I190_0003_STR-NIF sy-vline 
WA_PES_FORM_I190_0003_STR-NOMBRE sy-vline 
WA_PES_FORM_I190_0003_STR-TITULO sy-vline 
WA_PES_FORM_I190_0003_STR-ACTIV_ECONOM sy-vline 
WA_PES_FORM_I190_0003_STR-ACTIV_ECONOM_TEXT sy-vline 
WA_PES_FORM_I190_0003_STR-PROFES sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-AGRICO sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-PROPIN sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-DATOS_ADICIONALES sy-vline 
WA_PES_FORM_I190_0003_STR-PERNR sy-vline 
WA_PES_FORM_I190_0003_STR-NIF sy-vline 
WA_PES_FORM_I190_0003_STR-TRAT_EMPL sy-vline 
WA_PES_FORM_I190_0003_STR-APELLIDO sy-vline 
WA_PES_FORM_I190_0003_STR-SIGLA_DOM sy-vline 
WA_PES_FORM_I190_0003_STR-CP sy-vline 
WA_PES_FORM_I190_0003_STR-PROVINCIA sy-vline 
WA_PES_FORM_I190_0003_STR-POBLACION sy-vline 
WA_PES_FORM_I190_0003_STR-DIRECCION sy-vline 
WA_PES_FORM_I190_0003_STR-PAIS sy-vline 
WA_PES_FORM_I190_0003_STR-FECHA_ACTUAL sy-vline 
WA_PES_FORM_I190_0003_STR-FECHA_FIN_EJ sy-vline 
WA_PES_FORM_I190_0003_STR-EDIFICIO sy-vline 
WA_PES_FORM_I190_0003_STR-NUMERO sy-vline 
WA_PES_FORM_I190_0003_STR-ID_CASA sy-vline 
WA_PES_FORM_I190_0003_STR-PLANTA sy-vline 
WA_PES_FORM_I190_0003_STR-CPO_ADD sy-vline 
WA_PES_FORM_I190_0003_STR-ADR03 sy-vline 
WA_PES_FORM_I190_0003_STR-ADR04 sy-vline 
WA_PES_FORM_I190_0003_STR-ACTUAL sy-vline 
WA_PES_FORM_I190_0003_STR-DIV_PERS sy-vline 
WA_PES_FORM_I190_0003_STR-SUBDIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-DIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-C_COSTE sy-vline 
WA_PES_FORM_I190_0003_STR-POBL_DIV sy-vline 
WA_PES_FORM_I190_0003_STR-SOCIEDAD sy-vline 
WA_PES_FORM_I190_0003_STR-FINEJER sy-vline 
WA_PES_FORM_I190_0003_STR-DIV_PERS sy-vline 
WA_PES_FORM_I190_0003_STR-SUBDIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-DIVISION sy-vline 
WA_PES_FORM_I190_0003_STR-C_COSTE sy-vline 
WA_PES_FORM_I190_0003_STR-POBL_DIV sy-vline 
WA_PES_FORM_I190_0003_STR-SOCIEDAD sy-vline 
WA_PES_FORM_I190_0003_STR-ACTEMP sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-FORESTRY_ACTV_ON_PUBLIC_HILLS sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-IMAGE_RIGHTS sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-FOREST sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-DESCRIP_SY_DATUM sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_VALOR sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_ING_EFEC sy-vline 
WA_PES_FORM_I190_0003_STR-S_0005 sy-vline 
WA_PES_FORM_I190_0003_STR-PRIZE_WITH_ADVERT_PURPOSES sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-PREMIO sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_PER sy-vline 
WA_PES_FORM_I190_0003_STR-DINER_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_PER sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_RET sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_REP sy-vline 
WA_PES_FORM_I190_0003_STR-ESPEC_NOREP sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_AMOUNT sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_RETEN sy-vline 
WA_PES_FORM_I190_0003_STR-BENEFITS_REPERC sy-vline 
WA_PES_FORM_I190_0003_STR-HEADER sy-vline 
WA_PES_FORM_I190_0003_STR-EJER sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_PER sy-vline 
WA_PES_FORM_I190_0003_STR-NAME sy-vline 
WA_PES_FORM_I190_0003_STR-NAME_EMPR sy-vline 
WA_PES_FORM_I190_0003_STR-NIF_PRES sy-vline 
WA_PES_FORM_I190_0003_STR-SG sy-vline 
WA_PES_FORM_I190_0003_STR-VIA sy-vline 
WA_PES_FORM_I190_0003_STR-NUMO sy-vline 
WA_PES_FORM_I190_0003_STR-ESCALERA sy-vline 
WA_PES_FORM_I190_0003_STR-PISO sy-vline 
WA_PES_FORM_I190_0003_STR-PUERTA sy-vline 
WA_PES_FORM_I190_0003_STR-CPOS sy-vline 
WA_PES_FORM_I190_0003_STR-MUNIC sy-vline 
WA_PES_FORM_I190_0003_STR-PROVINCIA sy-vline 
WA_PES_FORM_I190_0003_STR-TELN sy-vline 
WA_PES_FORM_I190_0003_STR-PROV_TRA sy-vline 
WA_PES_FORM_I190_0003_STR-PROV_EMP sy-vline 
WA_PES_FORM_I190_0003_STR-REPRESENT sy-vline 
WA_PES_FORM_I190_0003_STR-NIF sy-vline 
WA_PES_FORM_I190_0003_STR-NOMBRE sy-vline 
WA_PES_FORM_I190_0003_STR-TITULO sy-vline 
WA_PES_FORM_I190_0003_STR-ACTIV_ECONOM sy-vline 
WA_PES_FORM_I190_0003_STR-ACTIV_ECONOM_TEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.