ABAP Select data from SAP table ISUMI_PARTNER_REL_AUTO 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 ISUMI_PARTNER_REL_AUTO 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 ISUMI_PARTNER_REL_AUTO. 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 ISUMI_PARTNER_REL_AUTO 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_ISUMI_PARTNER_REL_AUTO TYPE STANDARD TABLE OF ISUMI_PARTNER_REL_AUTO,
      WA_ISUMI_PARTNER_REL_AUTO TYPE ISUMI_PARTNER_REL_AUTO,
      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: <ISUMI_PARTNER_REL_AUTO> TYPE ISUMI_PARTNER_REL_AUTO.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ISUMI_PARTNER_REL_AUTO
*  INTO TABLE @DATA(IT_ISUMI_PARTNER_REL_AUTO2).
*--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_ISUMI_PARTNER_REL_AUTO INDEX 1 INTO DATA(WA_ISUMI_PARTNER_REL_AUTO2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ISUMI_PARTNER_REL_AUTO>-INIT = 1.
<ISUMI_PARTNER_REL_AUTO>-PARTNER1 = 1.
<ISUMI_PARTNER_REL_AUTO>-PARTNER2 = 1.
<ISUMI_PARTNER_REL_AUTO>-DATE_TO = 1.
<ISUMI_PARTNER_REL_AUTO>-DATE_FROM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ISUMI_PARTNER_REL_AUTO-RELTYP, sy-vline,
  WA_ISUMI_PARTNER_REL_AUTO-XRF, sy-vline,
  WA_ISUMI_PARTNER_REL_AUTO-DFTVAL, sy-vline,
  WA_ISUMI_PARTNER_REL_AUTO-RLTYP, sy-vline,
  WA_ISUMI_PARTNER_REL_AUTO-BPEXT1, sy-vline,
  WA_ISUMI_PARTNER_REL_AUTO-BPEXT2, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ISUMI_PARTNER_REL_AUTO 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_ISUMI_PARTNER_REL_AUTO 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_ISUMI_PARTNER_REL_AUTO INTO WA_ISUMI_PARTNER_REL_AUTO.


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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDRESS
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_ISUMI_PARTNER_REL_AUTO-SMTP_ADDRESS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISUMI_PARTNER_REL_AUTO-SMTP_ADDRESS.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_ISUMI_PARTNER_REL_AUTO-SMTP_ADDR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISUMI_PARTNER_REL_AUTO-SMTP_ADDR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SPDEV, internal->external for field PRT_DEST
CALL FUNCTION 'CONVERSION_EXIT_SPDEV_OUTPUT'
  EXPORTING
    input =                      WA_ISUMI_PARTNER_REL_AUTO-PRT_DEST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ISUMI_PARTNER_REL_AUTO-PRT_DEST.
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_ISUMI_PARTNER_REL_AUTO_STR, 
INIT TYPE STRING,
PARTNER1 TYPE STRING,
PARTNER2 TYPE STRING,
DATE_TO TYPE STRING,
DATE_FROM TYPE STRING,
RELTYP TYPE STRING,
XRF TYPE STRING,
DFTVAL TYPE STRING,
RLTYP TYPE STRING,
BPEXT1 TYPE STRING,
BPEXT2 TYPE STRING,
BUT050 TYPE STRING,
DATE_FROM_NEW TYPE STRING,
DATE_TO_NEW TYPE STRING,
RELKIND TYPE STRING,
XDFREL TYPE STRING,
BUT051 TYPE STRING,
FNCTN TYPE STRING,
PAFKT TYPE STRING,
DPRTMNT TYPE STRING,
ABTNR TYPE STRING,
PAAUTH TYPE STRING,
PAVIP TYPE STRING,
PAREM TYPE STRING,
TEL_NUMBER TYPE STRING,
TEL_EXTENS TYPE STRING,
FAX_NUMBER TYPE STRING,
FAX_EXTENS TYPE STRING,
SMTP_ADDRESS TYPE STRING,
REL_PER TYPE STRING,
REL_AMO TYPE STRING,
REL_CUR TYPE STRING,
BUT052 TYPE STRING,
ADDRNUMBER TYPE STRING,
ADEXT_ADDR TYPE STRING,
CHIND_ADDR TYPE STRING,
XDFADR TYPE STRING,
DEPARTMENT TYPE STRING,
FUNCTION TYPE STRING,
BUILDING_C TYPE STRING,
FLOOR_C TYPE STRING,
ROOMNUM_C TYPE STRING,
ID_CODE TYPE STRING,
IH_MAIL TYPE STRING,
DEFLT_COMM TYPE STRING,
CHIND_TEL TYPE STRING,
TEL_CONSNR TYPE STRING,
TEL_CNTRY TYPE STRING,
TEL_NUM_ADDR TYPE STRING,
TEL_EXT_ADDR TYPE STRING,
TEL_DEFLT TYPE STRING,
TEL_REMARK TYPE STRING,
TEL_HOME TYPE STRING,
CHIND_FAX TYPE STRING,
FAX_CONSNR TYPE STRING,
FAX_CNTRY TYPE STRING,
FAX_NUM_ADDR TYPE STRING,
FAX_EXT_ADDR TYPE STRING,
FAX_DEFLT TYPE STRING,
FAX_REMARK TYPE STRING,
FAX_HOME TYPE STRING,
CHIND_TTX TYPE STRING,
TTX_CONSNR TYPE STRING,
TTX_CNTRY TYPE STRING,
TTX_NUM_ADDR TYPE STRING,
TTX_DEFLT TYPE STRING,
TTX_REMARK TYPE STRING,
TTX_HOME TYPE STRING,
CHIND_TLX TYPE STRING,
TLX_CONSNR TYPE STRING,
TLX_CNTRY TYPE STRING,
TLX_NUM_ADDR TYPE STRING,
TLX_DEFLT TYPE STRING,
TLX_REMARK TYPE STRING,
TLX_HOME TYPE STRING,
CHIND_SMTP TYPE STRING,
SMTP_CONSNR TYPE STRING,
SMTP_ADDR TYPE STRING,
SMTP_DEFLT TYPE STRING,
SMTP_REMARK TYPE STRING,
SMTP_HOME TYPE STRING,
CHIND_RML TYPE STRING,
RML_CONSNR TYPE STRING,
RML_SYMB_DEST TYPE STRING,
RML_RECVR_TYPE TYPE STRING,
RML_UMAND TYPE STRING,
RML_UNAME TYPE STRING,
RML_DEFLT TYPE STRING,
RML_REMARK TYPE STRING,
RML_HOME TYPE STRING,
CHIND_X400 TYPE STRING,
X400_CONSNR TYPE STRING,
X400_CNTRY TYPE STRING,
X400_ADMIN TYPE STRING,
X400_PRIVD TYPE STRING,
X400_ORG TYPE STRING,
X400_ORG1 TYPE STRING,
X400_ORG2 TYPE STRING,
X400_ORG3 TYPE STRING,
X400_ORG4 TYPE STRING,
X400_LNAME TYPE STRING,
X400_FNAME TYPE STRING,
X400_INI TYPE STRING,
X400_GENER TYPE STRING,
X400_X121 TYPE STRING,
X400_TERMID TYPE STRING,
X400_TERMTP TYPE STRING,
X400_UANUMID TYPE STRING,
X400_TYPE1 TYPE STRING,
X400_VALUE1 TYPE STRING,
X400_TYPE2 TYPE STRING,
X400_VALUE2 TYPE STRING,
X400_TYPE3 TYPE STRING,
X400_VALUE3 TYPE STRING,
X400_TYPE4 TYPE STRING,
X400_VALUE4 TYPE STRING,
X400_R3_USER TYPE STRING,
X400_DEFLT TYPE STRING,
X400_REMARK TYPE STRING,
X400_HOME TYPE STRING,
CHIND_RFC TYPE STRING,
RFC_CONSNR TYPE STRING,
RFC_DEST TYPE STRING,
RFC_DEFLT TYPE STRING,
RFC_REMARK TYPE STRING,
RFC_HOME TYPE STRING,
CHIND_PRT TYPE STRING,
PRT_CONSNR TYPE STRING,
PRT_DEST TYPE STRING,
PRT_DEFLT TYPE STRING,
PRT_REMARK TYPE STRING,
PRT_HOME TYPE STRING,
CHIND_SSF TYPE STRING,
SSF_CONSNR TYPE STRING,
SSF_SCREEN TYPE STRING,
SSF_DEFLT TYPE STRING,
SSF_REMARK TYPE STRING,
SSF_HOME TYPE STRING,
CHIND_URI TYPE STRING,
URI_CONSNR TYPE STRING,
URI_TYPE TYPE STRING,
URI_SCREEN TYPE STRING,
URI_DEFLT TYPE STRING,
URI_REMARK TYPE STRING,
URI_HOME TYPE STRING,
CHIND_PAG TYPE STRING,
PAG_CONSNR TYPE STRING,
PAG_CNTRY TYPE STRING,
PAG_SERV TYPE STRING,
PAG_NMBR TYPE STRING,
PAG_DEFLT TYPE STRING,
PAG_REMARK TYPE STRING,
PAG_HOME TYPE STRING,
R_3_USER TYPE STRING,
STD_RECIP TYPE STRING,
FLG_NOUSE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ISUMI_PARTNER_REL_AUTO_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_ISUMI_PARTNER_REL_AUTO_STR-INIT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PARTNER1 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PARTNER2 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DATE_TO sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DATE_FROM sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RELTYP sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-XRF sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DFTVAL sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RLTYP sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-BPEXT1 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-BPEXT2 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-BUT050 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DATE_FROM_NEW sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DATE_TO_NEW sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RELKIND sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-XDFREL sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-BUT051 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FNCTN sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAFKT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DPRTMNT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-ABTNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAAUTH sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAVIP sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAREM sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_NUMBER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_EXTENS sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_NUMBER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_EXTENS sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SMTP_ADDRESS sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-REL_PER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-REL_AMO sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-REL_CUR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-BUT052 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-ADDRNUMBER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-ADEXT_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-XDFADR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DEPARTMENT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FUNCTION sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-BUILDING_C sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FLOOR_C sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-ROOMNUM_C sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-ID_CODE sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-IH_MAIL sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-DEFLT_COMM sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_TEL sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_CNTRY sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_NUM_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_EXT_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TEL_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_FAX sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_CNTRY sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_NUM_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_EXT_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FAX_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_TTX sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TTX_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TTX_CNTRY sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TTX_NUM_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TTX_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TTX_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TTX_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_TLX sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TLX_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TLX_CNTRY sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TLX_NUM_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TLX_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TLX_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-TLX_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_SMTP sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SMTP_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SMTP_ADDR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SMTP_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SMTP_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SMTP_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_RML sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_SYMB_DEST sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_RECVR_TYPE sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_UMAND sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_UNAME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RML_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_X400 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_CNTRY sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_ADMIN sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_PRIVD sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_ORG sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_ORG1 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_ORG2 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_ORG3 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_ORG4 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_LNAME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_FNAME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_INI sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_GENER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_X121 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_TERMID sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_TERMTP sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_UANUMID sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_TYPE1 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_VALUE1 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_TYPE2 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_VALUE2 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_TYPE3 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_VALUE3 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_TYPE4 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_VALUE4 sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_R3_USER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-X400_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_RFC sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RFC_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RFC_DEST sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RFC_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RFC_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-RFC_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_PRT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PRT_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PRT_DEST sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PRT_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PRT_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PRT_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_SSF sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SSF_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SSF_SCREEN sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SSF_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SSF_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-SSF_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_URI sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-URI_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-URI_TYPE sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-URI_SCREEN sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-URI_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-URI_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-URI_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-CHIND_PAG sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_CONSNR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_CNTRY sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_SERV sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_NMBR sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_DEFLT sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_REMARK sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-PAG_HOME sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-R_3_USER sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-STD_RECIP sy-vline 
WA_ISUMI_PARTNER_REL_AUTO_STR-FLG_NOUSE sy-vline      INTO ld_text SEPARATED BY SPACE.

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