ABAP Select data from SAP table BAPI1084INX into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP BAPI1084INX 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 BAPI1084INX. 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 BAPI1084INX 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_BAPI1084INX TYPE STANDARD TABLE OF BAPI1084INX,
      WA_BAPI1084INX TYPE BAPI1084INX,
      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: <BAPI1084INX> TYPE BAPI1084INX.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPI1084INX
*  INTO TABLE @DATA(IT_BAPI1084INX2).
*--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_BAPI1084INX INDEX 1 INTO DATA(WA_BAPI1084INX2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPI1084INX>-EXT_PAT_ID = 1.
<BAPI1084INX>-EXT_PAT_IDX = 1.
<BAPI1084INX>-LAST_NAME_PAT = 1.
<BAPI1084INX>-LAST_NAME_PATX = 1.
<BAPI1084INX>-FRST_NAME_PAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPI1084INX-FRST_NAME_PATX, sy-vline,
  WA_BAPI1084INX-BIRTH_NAME, sy-vline,
  WA_BAPI1084INX-BIRTH_NAMEX, sy-vline,
  WA_BAPI1084INX-DOB, sy-vline,
  WA_BAPI1084INX-DOBX, sy-vline,
  WA_BAPI1084INX-BIRTHCTRY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPI1084INX 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_BAPI1084INX 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_BAPI1084INX INTO WA_BAPI1084INX.


*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 PAT_ADDR_NO
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1084INX-PAT_ADDR_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1084INX-PAT_ADDR_NO.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field PAT_LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1084INX-PAT_LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1084INX-PAT_LANGU.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit NLJUS, internal->external for field DOC_NO
CALL FUNCTION 'CONVERSION_EXIT_NLJUS_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1084INX-DOC_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1084INX-DOC_NO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field POST_DIS_PHYS_OUTP
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1084INX-POST_DIS_PHYS_OUTP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1084INX-POST_DIS_PHYS_OUTP.
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_BAPI1084INX_STR, 
EXT_PAT_ID TYPE STRING,
EXT_PAT_IDX TYPE STRING,
LAST_NAME_PAT TYPE STRING,
LAST_NAME_PATX TYPE STRING,
FRST_NAME_PAT TYPE STRING,
FRST_NAME_PATX TYPE STRING,
BIRTH_NAME TYPE STRING,
BIRTH_NAMEX TYPE STRING,
DOB TYPE STRING,
DOBX TYPE STRING,
BIRTHCTRY TYPE STRING,
BIRTHCTRYX TYPE STRING,
BIRTHCTRY_ISO TYPE STRING,
BIRTHPLACE TYPE STRING,
BIRTHPLACEX TYPE STRING,
SEX_EXT TYPE STRING,
SEX_EXTX TYPE STRING,
PSEUDO TYPE STRING,
PSEUDOX TYPE STRING,
FORM_ADDRS_STXT TYPE STRING,
FORM_ADDRS_STXTX TYPE STRING,
TITLE TYPE STRING,
TITLEX TYPE STRING,
AFFIX TYPE STRING,
AFFIXX TYPE STRING,
PREFIX TYPE STRING,
PREFIXX TYPE STRING,
PAT_ADDR_NO TYPE STRING,
PAT_ADDR_NOX TYPE STRING,
PAT_ADDR2_NO TYPE STRING,
PAT_ADDR2_NOX TYPE STRING,
MAR_STAT_TEXT TYPE STRING,
MAR_STAT_TEXTX TYPE STRING,
REL_DENOM_STXT TYPE STRING,
REL_DENOM_STXTX TYPE STRING,
NATIONALITY TYPE STRING,
NATIONALITYX TYPE STRING,
PAT_LANGU TYPE STRING,
PAT_LANGUX TYPE STRING,
PAT_LANGU_ISO TYPE STRING,
ORGAN_DONOR TYPE STRING,
ORGAN_DONORX TYPE STRING,
VIP TYPE STRING,
VIPX TYPE STRING,
EXPIRED TYPE STRING,
EXPIREDX TYPE STRING,
DT_O_DEATH_FROM TYPE STRING,
DT_O_DEATH_FROMX TYPE STRING,
TM_O_DEATH_FROM TYPE STRING,
TM_O_DEATH_FROMX TYPE STRING,
DT_O_DEATH_TO TYPE STRING,
DT_O_DEATH_TOX TYPE STRING,
TM_O_DEATH_TO TYPE STRING,
TM_O_DEATH_TOX TYPE STRING,
C_OF_DEATH TYPE STRING,
C_OF_DEATHX TYPE STRING,
EMERG_ADM TYPE STRING,
EMERG_ADMX TYPE STRING,
QUICK_ADM TYPE STRING,
QUICK_ADMX TYPE STRING,
NON_RESIDENT TYPE STRING,
NON_RESIDENTX TYPE STRING,
INACTIVE TYPE STRING,
INACTIVEX TYPE STRING,
PUBLISTBLOCK TYPE STRING,
PUBLISTBLOCKX TYPE STRING,
RELIG_LIST TYPE STRING,
RELIG_LISTX TYPE STRING,
PARISH TYPE STRING,
PARISHX TYPE STRING,
RACE TYPE STRING,
RACEX TYPE STRING,
SSN TYPE STRING,
SSNX TYPE STRING,
DOC_TYPE TYPE STRING,
DOC_TYPEX TYPE STRING,
DOC_NO TYPE STRING,
DOC_NOX TYPE STRING,
OCCUPATION TYPE STRING,
OCCUPATIONX TYPE STRING,
EMPLOYERID TYPE STRING,
EMPLOYERIDX TYPE STRING,
EMP_NAME TYPE STRING,
EMP_NAMEX TYPE STRING,
EMP_ADDR_NO TYPE STRING,
EMP_ADDR_NOX TYPE STRING,
CONTACTP1_LNAME TYPE STRING,
CONTACTP1_LNAMEX TYPE STRING,
CONTACTP1_FNAME TYPE STRING,
CONTACTP1_FNAMEX TYPE STRING,
CONTACTP1_RELSH TYPE STRING,
CONTACTP1_RELSHX TYPE STRING,
CONTACTP1_LGLREP TYPE STRING,
CONTACTP1_LGLREPX TYPE STRING,
CONTACTP1_EXTID TYPE STRING,
CONTACTP1_EXTIDX TYPE STRING,
CONTACTP1_ADDRNO TYPE STRING,
CONTACTP1_ADDRNOX TYPE STRING,
CONTACTP2_LNAME TYPE STRING,
CONTACTP2_LNAMEX TYPE STRING,
CONTACTP2_FNAME TYPE STRING,
CONTACTP2_FNAMEX TYPE STRING,
CONTACTP2_RELSH TYPE STRING,
CONTACTP2_RELSHX TYPE STRING,
CONTACTP2_LGLREP TYPE STRING,
CONTACTP2_LGLREPX TYPE STRING,
CONTACTP2_EXTID TYPE STRING,
CONTACTP2_EXTIDX TYPE STRING,
CONTACTP2_ADDRNO TYPE STRING,
CONTACTP2_ADDRNOX TYPE STRING,
FAM_PHYS TYPE STRING,
FAM_PHYSX TYPE STRING,
REF_PHYS TYPE STRING,
REF_PHYSX TYPE STRING,
REF_PHYS2 TYPE STRING,
REF_PHYS2X TYPE STRING,
USER1 TYPE STRING,
USER1X TYPE STRING,
USER2 TYPE STRING,
USER2X TYPE STRING,
USER3 TYPE STRING,
USER3X TYPE STRING,
USER4 TYPE STRING,
USER4X TYPE STRING,
USER5 TYPE STRING,
USER5X TYPE STRING,
USER6 TYPE STRING,
USER6X TYPE STRING,
UPDATE_DATE TYPE STRING,
UPDATE_DATEX TYPE STRING,
UPDATE_USER TYPE STRING,
UPDATE_USERX TYPE STRING,
EMPLOYED_SINCE TYPE STRING,
EMPLOYED_SINCEX TYPE STRING,
ISTAT_BIRTHPL TYPE STRING,
ISTAT_BIRTHPLX TYPE STRING,
TAXNUMBER TYPE STRING,
TAXNUMBERX TYPE STRING,
TAXNUMBER_INDIC TYPE STRING,
TAXNUMBER_INDICX TYPE STRING,
STPCODE TYPE STRING,
STPCODEX TYPE STRING,
STPCODE_EXPIRY TYPE STRING,
STPCODE_EXPIRYX TYPE STRING,
CONSENT_PERSDATA TYPE STRING,
CONSENT_PERSDATAX TYPE STRING,
BIRTH_RANK TYPE STRING,
BIRTH_RANKX TYPE STRING,
FLAG_EXT_ORDERER TYPE STRING,
FLAG_EXT_ORDERERX TYPE STRING,
DTH_LOC TYPE STRING,
DTH_LOCX TYPE STRING,
POST_DIS_PHYS TYPE STRING,
POST_DIS_PHYSX TYPE STRING,
POST_DIS_PHYS_OUTP TYPE STRING,
POST_DIS_PHYS_OUTPX TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPI1084INX_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_BAPI1084INX_STR-EXT_PAT_ID sy-vline 
WA_BAPI1084INX_STR-EXT_PAT_IDX sy-vline 
WA_BAPI1084INX_STR-LAST_NAME_PAT sy-vline 
WA_BAPI1084INX_STR-LAST_NAME_PATX sy-vline 
WA_BAPI1084INX_STR-FRST_NAME_PAT sy-vline 
WA_BAPI1084INX_STR-FRST_NAME_PATX sy-vline 
WA_BAPI1084INX_STR-BIRTH_NAME sy-vline 
WA_BAPI1084INX_STR-BIRTH_NAMEX sy-vline 
WA_BAPI1084INX_STR-DOB sy-vline 
WA_BAPI1084INX_STR-DOBX sy-vline 
WA_BAPI1084INX_STR-BIRTHCTRY sy-vline 
WA_BAPI1084INX_STR-BIRTHCTRYX sy-vline 
WA_BAPI1084INX_STR-BIRTHCTRY_ISO sy-vline 
WA_BAPI1084INX_STR-BIRTHPLACE sy-vline 
WA_BAPI1084INX_STR-BIRTHPLACEX sy-vline 
WA_BAPI1084INX_STR-SEX_EXT sy-vline 
WA_BAPI1084INX_STR-SEX_EXTX sy-vline 
WA_BAPI1084INX_STR-PSEUDO sy-vline 
WA_BAPI1084INX_STR-PSEUDOX sy-vline 
WA_BAPI1084INX_STR-FORM_ADDRS_STXT sy-vline 
WA_BAPI1084INX_STR-FORM_ADDRS_STXTX sy-vline 
WA_BAPI1084INX_STR-TITLE sy-vline 
WA_BAPI1084INX_STR-TITLEX sy-vline 
WA_BAPI1084INX_STR-AFFIX sy-vline 
WA_BAPI1084INX_STR-AFFIXX sy-vline 
WA_BAPI1084INX_STR-PREFIX sy-vline 
WA_BAPI1084INX_STR-PREFIXX sy-vline 
WA_BAPI1084INX_STR-PAT_ADDR_NO sy-vline 
WA_BAPI1084INX_STR-PAT_ADDR_NOX sy-vline 
WA_BAPI1084INX_STR-PAT_ADDR2_NO sy-vline 
WA_BAPI1084INX_STR-PAT_ADDR2_NOX sy-vline 
WA_BAPI1084INX_STR-MAR_STAT_TEXT sy-vline 
WA_BAPI1084INX_STR-MAR_STAT_TEXTX sy-vline 
WA_BAPI1084INX_STR-REL_DENOM_STXT sy-vline 
WA_BAPI1084INX_STR-REL_DENOM_STXTX sy-vline 
WA_BAPI1084INX_STR-NATIONALITY sy-vline 
WA_BAPI1084INX_STR-NATIONALITYX sy-vline 
WA_BAPI1084INX_STR-PAT_LANGU sy-vline 
WA_BAPI1084INX_STR-PAT_LANGUX sy-vline 
WA_BAPI1084INX_STR-PAT_LANGU_ISO sy-vline 
WA_BAPI1084INX_STR-ORGAN_DONOR sy-vline 
WA_BAPI1084INX_STR-ORGAN_DONORX sy-vline 
WA_BAPI1084INX_STR-VIP sy-vline 
WA_BAPI1084INX_STR-VIPX sy-vline 
WA_BAPI1084INX_STR-EXPIRED sy-vline 
WA_BAPI1084INX_STR-EXPIREDX sy-vline 
WA_BAPI1084INX_STR-DT_O_DEATH_FROM sy-vline 
WA_BAPI1084INX_STR-DT_O_DEATH_FROMX sy-vline 
WA_BAPI1084INX_STR-TM_O_DEATH_FROM sy-vline 
WA_BAPI1084INX_STR-TM_O_DEATH_FROMX sy-vline 
WA_BAPI1084INX_STR-DT_O_DEATH_TO sy-vline 
WA_BAPI1084INX_STR-DT_O_DEATH_TOX sy-vline 
WA_BAPI1084INX_STR-TM_O_DEATH_TO sy-vline 
WA_BAPI1084INX_STR-TM_O_DEATH_TOX sy-vline 
WA_BAPI1084INX_STR-C_OF_DEATH sy-vline 
WA_BAPI1084INX_STR-C_OF_DEATHX sy-vline 
WA_BAPI1084INX_STR-EMERG_ADM sy-vline 
WA_BAPI1084INX_STR-EMERG_ADMX sy-vline 
WA_BAPI1084INX_STR-QUICK_ADM sy-vline 
WA_BAPI1084INX_STR-QUICK_ADMX sy-vline 
WA_BAPI1084INX_STR-NON_RESIDENT sy-vline 
WA_BAPI1084INX_STR-NON_RESIDENTX sy-vline 
WA_BAPI1084INX_STR-INACTIVE sy-vline 
WA_BAPI1084INX_STR-INACTIVEX sy-vline 
WA_BAPI1084INX_STR-PUBLISTBLOCK sy-vline 
WA_BAPI1084INX_STR-PUBLISTBLOCKX sy-vline 
WA_BAPI1084INX_STR-RELIG_LIST sy-vline 
WA_BAPI1084INX_STR-RELIG_LISTX sy-vline 
WA_BAPI1084INX_STR-PARISH sy-vline 
WA_BAPI1084INX_STR-PARISHX sy-vline 
WA_BAPI1084INX_STR-RACE sy-vline 
WA_BAPI1084INX_STR-RACEX sy-vline 
WA_BAPI1084INX_STR-SSN sy-vline 
WA_BAPI1084INX_STR-SSNX sy-vline 
WA_BAPI1084INX_STR-DOC_TYPE sy-vline 
WA_BAPI1084INX_STR-DOC_TYPEX sy-vline 
WA_BAPI1084INX_STR-DOC_NO sy-vline 
WA_BAPI1084INX_STR-DOC_NOX sy-vline 
WA_BAPI1084INX_STR-OCCUPATION sy-vline 
WA_BAPI1084INX_STR-OCCUPATIONX sy-vline 
WA_BAPI1084INX_STR-EMPLOYERID sy-vline 
WA_BAPI1084INX_STR-EMPLOYERIDX sy-vline 
WA_BAPI1084INX_STR-EMP_NAME sy-vline 
WA_BAPI1084INX_STR-EMP_NAMEX sy-vline 
WA_BAPI1084INX_STR-EMP_ADDR_NO sy-vline 
WA_BAPI1084INX_STR-EMP_ADDR_NOX sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_LNAME sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_LNAMEX sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_FNAME sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_FNAMEX sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_RELSH sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_RELSHX sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_LGLREP sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_LGLREPX sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_EXTID sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_EXTIDX sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_ADDRNO sy-vline 
WA_BAPI1084INX_STR-CONTACTP1_ADDRNOX sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_LNAME sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_LNAMEX sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_FNAME sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_FNAMEX sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_RELSH sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_RELSHX sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_LGLREP sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_LGLREPX sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_EXTID sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_EXTIDX sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_ADDRNO sy-vline 
WA_BAPI1084INX_STR-CONTACTP2_ADDRNOX sy-vline 
WA_BAPI1084INX_STR-FAM_PHYS sy-vline 
WA_BAPI1084INX_STR-FAM_PHYSX sy-vline 
WA_BAPI1084INX_STR-REF_PHYS sy-vline 
WA_BAPI1084INX_STR-REF_PHYSX sy-vline 
WA_BAPI1084INX_STR-REF_PHYS2 sy-vline 
WA_BAPI1084INX_STR-REF_PHYS2X sy-vline 
WA_BAPI1084INX_STR-USER1 sy-vline 
WA_BAPI1084INX_STR-USER1X sy-vline 
WA_BAPI1084INX_STR-USER2 sy-vline 
WA_BAPI1084INX_STR-USER2X sy-vline 
WA_BAPI1084INX_STR-USER3 sy-vline 
WA_BAPI1084INX_STR-USER3X sy-vline 
WA_BAPI1084INX_STR-USER4 sy-vline 
WA_BAPI1084INX_STR-USER4X sy-vline 
WA_BAPI1084INX_STR-USER5 sy-vline 
WA_BAPI1084INX_STR-USER5X sy-vline 
WA_BAPI1084INX_STR-USER6 sy-vline 
WA_BAPI1084INX_STR-USER6X sy-vline 
WA_BAPI1084INX_STR-UPDATE_DATE sy-vline 
WA_BAPI1084INX_STR-UPDATE_DATEX sy-vline 
WA_BAPI1084INX_STR-UPDATE_USER sy-vline 
WA_BAPI1084INX_STR-UPDATE_USERX sy-vline 
WA_BAPI1084INX_STR-EMPLOYED_SINCE sy-vline 
WA_BAPI1084INX_STR-EMPLOYED_SINCEX sy-vline 
WA_BAPI1084INX_STR-ISTAT_BIRTHPL sy-vline 
WA_BAPI1084INX_STR-ISTAT_BIRTHPLX sy-vline 
WA_BAPI1084INX_STR-TAXNUMBER sy-vline 
WA_BAPI1084INX_STR-TAXNUMBERX sy-vline 
WA_BAPI1084INX_STR-TAXNUMBER_INDIC sy-vline 
WA_BAPI1084INX_STR-TAXNUMBER_INDICX sy-vline 
WA_BAPI1084INX_STR-STPCODE sy-vline 
WA_BAPI1084INX_STR-STPCODEX sy-vline 
WA_BAPI1084INX_STR-STPCODE_EXPIRY sy-vline 
WA_BAPI1084INX_STR-STPCODE_EXPIRYX sy-vline 
WA_BAPI1084INX_STR-CONSENT_PERSDATA sy-vline 
WA_BAPI1084INX_STR-CONSENT_PERSDATAX sy-vline 
WA_BAPI1084INX_STR-BIRTH_RANK sy-vline 
WA_BAPI1084INX_STR-BIRTH_RANKX sy-vline 
WA_BAPI1084INX_STR-FLAG_EXT_ORDERER sy-vline 
WA_BAPI1084INX_STR-FLAG_EXT_ORDERERX sy-vline 
WA_BAPI1084INX_STR-DTH_LOC sy-vline 
WA_BAPI1084INX_STR-DTH_LOCX sy-vline 
WA_BAPI1084INX_STR-POST_DIS_PHYS sy-vline 
WA_BAPI1084INX_STR-POST_DIS_PHYSX sy-vline 
WA_BAPI1084INX_STR-POST_DIS_PHYS_OUTP sy-vline 
WA_BAPI1084INX_STR-POST_DIS_PHYS_OUTPX sy-vline      INTO ld_text SEPARATED BY SPACE.

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