ABAP Select data from SAP table BAPI1300SRVDAX 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 BAPI1300SRVDAX 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 BAPI1300SRVDAX. 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 BAPI1300SRVDAX 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_BAPI1300SRVDAX TYPE STANDARD TABLE OF BAPI1300SRVDAX,
      WA_BAPI1300SRVDAX TYPE BAPI1300SRVDAX,
      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: <BAPI1300SRVDAX> TYPE BAPI1300SRVDAX.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPI1300SRVDAX
*  INTO TABLE @DATA(IT_BAPI1300SRVDAX2).
*--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_BAPI1300SRVDAX INDEX 1 INTO DATA(WA_BAPI1300SRVDAX2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPI1300SRVDAX>-CLIENT = 1.
<BAPI1300SRVDAX>-INSTITUTION = 1.
<BAPI1300SRVDAX>-SRVCATID = 1.
<BAPI1300SRVDAX>-SERVICEID = 1.
<BAPI1300SRVDAX>-SRV_ENDDATE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPI1300SRVDAX-SRV_ENDDATEX, sy-vline,
  WA_BAPI1300SRVDAX-SRV_BEGDATE, sy-vline,
  WA_BAPI1300SRVDAX-SRV_BEGDATEX, sy-vline,
  WA_BAPI1300SRVDAX-EXTID, sy-vline,
  WA_BAPI1300SRVDAX-EXTIDX, sy-vline,
  WA_BAPI1300SRVDAX-SRV_GROUP_IND, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPI1300SRVDAX 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_BAPI1300SRVDAX 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_BAPI1300SRVDAX INTO WA_BAPI1300SRVDAX.


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

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

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

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

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

*Conversion exit CUNIT, internal->external for field QNT_UNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1300SRVDAX-QNT_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1300SRVDAX-QNT_UNIT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field REF_MATR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1300SRVDAX-REF_MATR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1300SRVDAX-REF_MATR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field USERUNIT1
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_BAPI1300SRVDAX-USERUNIT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI1300SRVDAX-USERUNIT1.
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_BAPI1300SRVDAX_STR, 
CLIENT TYPE STRING,
INSTITUTION TYPE STRING,
SRVCATID TYPE STRING,
SERVICEID TYPE STRING,
SRV_ENDDATE TYPE STRING,
SRV_ENDDATEX TYPE STRING,
SRV_BEGDATE TYPE STRING,
SRV_BEGDATEX TYPE STRING,
EXTID TYPE STRING,
EXTIDX TYPE STRING,
SRV_GROUP_IND TYPE STRING,
SRV_GROUP_INDX TYPE STRING,
SRV_CATEG TYPE STRING,
SRV_CATEGX TYPE STRING,
VALFORMULA TYPE STRING,
VALFORMULAX TYPE STRING,
BILL_IN_IND TYPE STRING,
BILL_IN_INDX TYPE STRING,
ACCRUAL_IND TYPE STRING,
ACCRUAL_INDX TYPE STRING,
COPAY_IND TYPE STRING,
COPAY_INDX TYPE STRING,
QNT_UNIT TYPE STRING,
QNT_UNITX TYPE STRING,
QNT_UNIT_ISO TYPE STRING,
REF_MATR TYPE STRING,
REF_MATRX TYPE STRING,
DIFFTEXT_IND TYPE STRING,
DIFFTEXT_INDX TYPE STRING,
EXTDSRV_IND TYPE STRING,
EXTDSRV_INDX TYPE STRING,
TAX_CLASS TYPE STRING,
TAX_CLASSX TYPE STRING,
MECHANICAL TYPE STRING,
MECHANICALX TYPE STRING,
DISCREL_IND TYPE STRING,
DISCREL_INDX TYPE STRING,
DELETION_IND TYPE STRING,
DELETION_INDX TYPE STRING,
DELETION_USER TYPE STRING,
DELETION_USERX TYPE STRING,
DELETION_DATE TYPE STRING,
DELETION_DATEX TYPE STRING,
CREATION_DATE TYPE STRING,
CREATION_DATEX TYPE STRING,
CREATION_USER TYPE STRING,
CREATION_USERX TYPE STRING,
UPDATE_DATE TYPE STRING,
UPDATE_DATEX TYPE STRING,
UPDATE_USER TYPE STRING,
UPDATE_USERX TYPE STRING,
ADMINSRV_IND TYPE STRING,
ADMINSRV_INDX TYPE STRING,
DEMSRV_IND TYPE STRING,
DEMSRV_INDX TYPE STRING,
DURATION_SRV TYPE STRING,
DURATION_SRVX TYPE STRING,
PERFSERV_IND TYPE STRING,
PERFSERV_INDX TYPE STRING,
EXTSRV_IND TYPE STRING,
EXTSRV_INDX TYPE STRING,
MEDSRV_IND TYPE STRING,
MEDSRV_INDX TYPE STRING,
NURSRV_IND TYPE STRING,
NURSRV_INDX TYPE STRING,
CHARGE_TYPE TYPE STRING,
CHARGE_TYPEX TYPE STRING,
VAT_IND TYPE STRING,
VAT_INDX TYPE STRING,
HCO_IND TYPE STRING,
HCO_INDX TYPE STRING,
OBJECT_TYPE TYPE STRING,
OBJECT_TYPEX TYPE STRING,
BILL_OUT_IND TYPE STRING,
BILL_OUT_INDX TYPE STRING,
CHRGEKEY_P301 TYPE STRING,
CHRGEKEY_P301X TYPE STRING,
ADD_CHRGEKEY TYPE STRING,
ADD_CHRGEKEYX TYPE STRING,
CHRGETYP_P301 TYPE STRING,
CHRGETYP_P301X TYPE STRING,
COSTOBJ_IND TYPE STRING,
COSTOBJ_INDX TYPE STRING,
ABS_REL_IND TYPE STRING,
ABS_REL_INDX TYPE STRING,
SEX TYPE STRING,
SEXX TYPE STRING,
AGELOW TYPE STRING,
AGELOWX TYPE STRING,
AGEHIGH TYPE STRING,
AGEHIGHX TYPE STRING,
FLATRATE_TYPE TYPE STRING,
FLATRATE_TYPEX TYPE STRING,
ENTERLOCK_IND TYPE STRING,
ENTERLOCK_INDX TYPE STRING,
EXPGRP_IND TYPE STRING,
EXPGRP_INDX TYPE STRING,
OPTABLE TYPE STRING,
OPTABLEX TYPE STRING,
DIFF_IND TYPE STRING,
DIFF_INDX TYPE STRING,
PRICEDATE_IND TYPE STRING,
PRICEDATE_INDX TYPE STRING,
EXT_CHRGTYPE TYPE STRING,
EXT_CHRGTYPEX TYPE STRING,
SRVSUM_CODE TYPE STRING,
SRVSUM_CODEX TYPE STRING,
SRVTXT_SHORT TYPE STRING,
SRVTXT_SHORTX TYPE STRING,
SRV_TYPE TYPE STRING,
SRV_TYPEX TYPE STRING,
SRV_CATEG2 TYPE STRING,
SRV_CATEG2X TYPE STRING,
OP_ROOM TYPE STRING,
OP_ROOMX TYPE STRING,
PERFORM_OP TYPE STRING,
PERFORM_OPX TYPE STRING,
FLATRATE_IND TYPE STRING,
FLATRATE_INDX TYPE STRING,
FEE_REL TYPE STRING,
FEE_RELX TYPE STRING,
FEE_TYPE TYPE STRING,
FEE_TYPEX TYPE STRING,
FEE_GROUP TYPE STRING,
FEE_GROUPX TYPE STRING,
DIAG_CATALOG1 TYPE STRING,
DIAG_CATALOG1X TYPE STRING,
DIAG_KEY1 TYPE STRING,
DIAG_KEY1X TYPE STRING,
PICTURE TYPE STRING,
PICTUREX TYPE STRING,
PRDATEOP_IND TYPE STRING,
PRDATEOP_INDX TYPE STRING,
DRG_PARTITION TYPE STRING,
DRG_PARTITIONX TYPE STRING,
OPLOC TYPE STRING,
OPLOCX TYPE STRING,
CHGUNIT TYPE STRING,
CHGUNITX TYPE STRING,
IND_COMP TYPE STRING,
IND_COMPX TYPE STRING,
USERSIGN1 TYPE STRING,
USERSIGN1X TYPE STRING,
USERSIGN2 TYPE STRING,
USERSIGN2X TYPE STRING,
USERAMOUNT1 TYPE STRING,
USERAMOUNT1X TYPE STRING,
USERUNIT1 TYPE STRING,
USERUNIT1X TYPE STRING,
USERDATE1 TYPE STRING,
USERDATE1X TYPE STRING,
USERDATE2 TYPE STRING,
USERDATE2X 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,
ABRBLOC TYPE STRING,
ABRBLOCX TYPE STRING,
DURATION_SRVBAS TYPE STRING,
DURATION_SRVBASX TYPE STRING,
CHRGTYP_OUTP TYPE STRING,
CHRGTYP_OUTPX TYPE STRING,
USER0 TYPE STRING,
USER0X TYPE STRING,
TEMPUSE_ENDDATE TYPE STRING,
TEMPUSE_ENDDATEX TYPE STRING,
SRVTYP_OUTP TYPE STRING,
SRVTYP_OUTPX TYPE STRING,
SRVKEY_OUTP TYPE STRING,
SRVKEY_OUTPX TYPE STRING,
OPLIVDON TYPE STRING,
OPLIVDON_X TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPI1300SRVDAX_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_BAPI1300SRVDAX_STR-CLIENT sy-vline 
WA_BAPI1300SRVDAX_STR-INSTITUTION sy-vline 
WA_BAPI1300SRVDAX_STR-SRVCATID sy-vline 
WA_BAPI1300SRVDAX_STR-SERVICEID sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_ENDDATE sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_ENDDATEX sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_BEGDATE sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_BEGDATEX sy-vline 
WA_BAPI1300SRVDAX_STR-EXTID sy-vline 
WA_BAPI1300SRVDAX_STR-EXTIDX sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_GROUP_IND sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_GROUP_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_CATEG sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_CATEGX sy-vline 
WA_BAPI1300SRVDAX_STR-VALFORMULA sy-vline 
WA_BAPI1300SRVDAX_STR-VALFORMULAX sy-vline 
WA_BAPI1300SRVDAX_STR-BILL_IN_IND sy-vline 
WA_BAPI1300SRVDAX_STR-BILL_IN_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-ACCRUAL_IND sy-vline 
WA_BAPI1300SRVDAX_STR-ACCRUAL_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-COPAY_IND sy-vline 
WA_BAPI1300SRVDAX_STR-COPAY_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-QNT_UNIT sy-vline 
WA_BAPI1300SRVDAX_STR-QNT_UNITX sy-vline 
WA_BAPI1300SRVDAX_STR-QNT_UNIT_ISO sy-vline 
WA_BAPI1300SRVDAX_STR-REF_MATR sy-vline 
WA_BAPI1300SRVDAX_STR-REF_MATRX sy-vline 
WA_BAPI1300SRVDAX_STR-DIFFTEXT_IND sy-vline 
WA_BAPI1300SRVDAX_STR-DIFFTEXT_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-EXTDSRV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-EXTDSRV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-TAX_CLASS sy-vline 
WA_BAPI1300SRVDAX_STR-TAX_CLASSX sy-vline 
WA_BAPI1300SRVDAX_STR-MECHANICAL sy-vline 
WA_BAPI1300SRVDAX_STR-MECHANICALX sy-vline 
WA_BAPI1300SRVDAX_STR-DISCREL_IND sy-vline 
WA_BAPI1300SRVDAX_STR-DISCREL_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-DELETION_IND sy-vline 
WA_BAPI1300SRVDAX_STR-DELETION_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-DELETION_USER sy-vline 
WA_BAPI1300SRVDAX_STR-DELETION_USERX sy-vline 
WA_BAPI1300SRVDAX_STR-DELETION_DATE sy-vline 
WA_BAPI1300SRVDAX_STR-DELETION_DATEX sy-vline 
WA_BAPI1300SRVDAX_STR-CREATION_DATE sy-vline 
WA_BAPI1300SRVDAX_STR-CREATION_DATEX sy-vline 
WA_BAPI1300SRVDAX_STR-CREATION_USER sy-vline 
WA_BAPI1300SRVDAX_STR-CREATION_USERX sy-vline 
WA_BAPI1300SRVDAX_STR-UPDATE_DATE sy-vline 
WA_BAPI1300SRVDAX_STR-UPDATE_DATEX sy-vline 
WA_BAPI1300SRVDAX_STR-UPDATE_USER sy-vline 
WA_BAPI1300SRVDAX_STR-UPDATE_USERX sy-vline 
WA_BAPI1300SRVDAX_STR-ADMINSRV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-ADMINSRV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-DEMSRV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-DEMSRV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-DURATION_SRV sy-vline 
WA_BAPI1300SRVDAX_STR-DURATION_SRVX sy-vline 
WA_BAPI1300SRVDAX_STR-PERFSERV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-PERFSERV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-EXTSRV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-EXTSRV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-MEDSRV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-MEDSRV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-NURSRV_IND sy-vline 
WA_BAPI1300SRVDAX_STR-NURSRV_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-CHARGE_TYPE sy-vline 
WA_BAPI1300SRVDAX_STR-CHARGE_TYPEX sy-vline 
WA_BAPI1300SRVDAX_STR-VAT_IND sy-vline 
WA_BAPI1300SRVDAX_STR-VAT_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-HCO_IND sy-vline 
WA_BAPI1300SRVDAX_STR-HCO_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-OBJECT_TYPE sy-vline 
WA_BAPI1300SRVDAX_STR-OBJECT_TYPEX sy-vline 
WA_BAPI1300SRVDAX_STR-BILL_OUT_IND sy-vline 
WA_BAPI1300SRVDAX_STR-BILL_OUT_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-CHRGEKEY_P301 sy-vline 
WA_BAPI1300SRVDAX_STR-CHRGEKEY_P301X sy-vline 
WA_BAPI1300SRVDAX_STR-ADD_CHRGEKEY sy-vline 
WA_BAPI1300SRVDAX_STR-ADD_CHRGEKEYX sy-vline 
WA_BAPI1300SRVDAX_STR-CHRGETYP_P301 sy-vline 
WA_BAPI1300SRVDAX_STR-CHRGETYP_P301X sy-vline 
WA_BAPI1300SRVDAX_STR-COSTOBJ_IND sy-vline 
WA_BAPI1300SRVDAX_STR-COSTOBJ_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-ABS_REL_IND sy-vline 
WA_BAPI1300SRVDAX_STR-ABS_REL_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-SEX sy-vline 
WA_BAPI1300SRVDAX_STR-SEXX sy-vline 
WA_BAPI1300SRVDAX_STR-AGELOW sy-vline 
WA_BAPI1300SRVDAX_STR-AGELOWX sy-vline 
WA_BAPI1300SRVDAX_STR-AGEHIGH sy-vline 
WA_BAPI1300SRVDAX_STR-AGEHIGHX sy-vline 
WA_BAPI1300SRVDAX_STR-FLATRATE_TYPE sy-vline 
WA_BAPI1300SRVDAX_STR-FLATRATE_TYPEX sy-vline 
WA_BAPI1300SRVDAX_STR-ENTERLOCK_IND sy-vline 
WA_BAPI1300SRVDAX_STR-ENTERLOCK_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-EXPGRP_IND sy-vline 
WA_BAPI1300SRVDAX_STR-EXPGRP_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-OPTABLE sy-vline 
WA_BAPI1300SRVDAX_STR-OPTABLEX sy-vline 
WA_BAPI1300SRVDAX_STR-DIFF_IND sy-vline 
WA_BAPI1300SRVDAX_STR-DIFF_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-PRICEDATE_IND sy-vline 
WA_BAPI1300SRVDAX_STR-PRICEDATE_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-EXT_CHRGTYPE sy-vline 
WA_BAPI1300SRVDAX_STR-EXT_CHRGTYPEX sy-vline 
WA_BAPI1300SRVDAX_STR-SRVSUM_CODE sy-vline 
WA_BAPI1300SRVDAX_STR-SRVSUM_CODEX sy-vline 
WA_BAPI1300SRVDAX_STR-SRVTXT_SHORT sy-vline 
WA_BAPI1300SRVDAX_STR-SRVTXT_SHORTX sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_TYPE sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_TYPEX sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_CATEG2 sy-vline 
WA_BAPI1300SRVDAX_STR-SRV_CATEG2X sy-vline 
WA_BAPI1300SRVDAX_STR-OP_ROOM sy-vline 
WA_BAPI1300SRVDAX_STR-OP_ROOMX sy-vline 
WA_BAPI1300SRVDAX_STR-PERFORM_OP sy-vline 
WA_BAPI1300SRVDAX_STR-PERFORM_OPX sy-vline 
WA_BAPI1300SRVDAX_STR-FLATRATE_IND sy-vline 
WA_BAPI1300SRVDAX_STR-FLATRATE_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-FEE_REL sy-vline 
WA_BAPI1300SRVDAX_STR-FEE_RELX sy-vline 
WA_BAPI1300SRVDAX_STR-FEE_TYPE sy-vline 
WA_BAPI1300SRVDAX_STR-FEE_TYPEX sy-vline 
WA_BAPI1300SRVDAX_STR-FEE_GROUP sy-vline 
WA_BAPI1300SRVDAX_STR-FEE_GROUPX sy-vline 
WA_BAPI1300SRVDAX_STR-DIAG_CATALOG1 sy-vline 
WA_BAPI1300SRVDAX_STR-DIAG_CATALOG1X sy-vline 
WA_BAPI1300SRVDAX_STR-DIAG_KEY1 sy-vline 
WA_BAPI1300SRVDAX_STR-DIAG_KEY1X sy-vline 
WA_BAPI1300SRVDAX_STR-PICTURE sy-vline 
WA_BAPI1300SRVDAX_STR-PICTUREX sy-vline 
WA_BAPI1300SRVDAX_STR-PRDATEOP_IND sy-vline 
WA_BAPI1300SRVDAX_STR-PRDATEOP_INDX sy-vline 
WA_BAPI1300SRVDAX_STR-DRG_PARTITION sy-vline 
WA_BAPI1300SRVDAX_STR-DRG_PARTITIONX sy-vline 
WA_BAPI1300SRVDAX_STR-OPLOC sy-vline 
WA_BAPI1300SRVDAX_STR-OPLOCX sy-vline 
WA_BAPI1300SRVDAX_STR-CHGUNIT sy-vline 
WA_BAPI1300SRVDAX_STR-CHGUNITX sy-vline 
WA_BAPI1300SRVDAX_STR-IND_COMP sy-vline 
WA_BAPI1300SRVDAX_STR-IND_COMPX sy-vline 
WA_BAPI1300SRVDAX_STR-USERSIGN1 sy-vline 
WA_BAPI1300SRVDAX_STR-USERSIGN1X sy-vline 
WA_BAPI1300SRVDAX_STR-USERSIGN2 sy-vline 
WA_BAPI1300SRVDAX_STR-USERSIGN2X sy-vline 
WA_BAPI1300SRVDAX_STR-USERAMOUNT1 sy-vline 
WA_BAPI1300SRVDAX_STR-USERAMOUNT1X sy-vline 
WA_BAPI1300SRVDAX_STR-USERUNIT1 sy-vline 
WA_BAPI1300SRVDAX_STR-USERUNIT1X sy-vline 
WA_BAPI1300SRVDAX_STR-USERDATE1 sy-vline 
WA_BAPI1300SRVDAX_STR-USERDATE1X sy-vline 
WA_BAPI1300SRVDAX_STR-USERDATE2 sy-vline 
WA_BAPI1300SRVDAX_STR-USERDATE2X sy-vline 
WA_BAPI1300SRVDAX_STR-USER1 sy-vline 
WA_BAPI1300SRVDAX_STR-USER1X sy-vline 
WA_BAPI1300SRVDAX_STR-USER2 sy-vline 
WA_BAPI1300SRVDAX_STR-USER2X sy-vline 
WA_BAPI1300SRVDAX_STR-USER3 sy-vline 
WA_BAPI1300SRVDAX_STR-USER3X sy-vline 
WA_BAPI1300SRVDAX_STR-USER4 sy-vline 
WA_BAPI1300SRVDAX_STR-USER4X sy-vline 
WA_BAPI1300SRVDAX_STR-ABRBLOC sy-vline 
WA_BAPI1300SRVDAX_STR-ABRBLOCX sy-vline 
WA_BAPI1300SRVDAX_STR-DURATION_SRVBAS sy-vline 
WA_BAPI1300SRVDAX_STR-DURATION_SRVBASX sy-vline 
WA_BAPI1300SRVDAX_STR-CHRGTYP_OUTP sy-vline 
WA_BAPI1300SRVDAX_STR-CHRGTYP_OUTPX sy-vline 
WA_BAPI1300SRVDAX_STR-USER0 sy-vline 
WA_BAPI1300SRVDAX_STR-USER0X sy-vline 
WA_BAPI1300SRVDAX_STR-TEMPUSE_ENDDATE sy-vline 
WA_BAPI1300SRVDAX_STR-TEMPUSE_ENDDATEX sy-vline 
WA_BAPI1300SRVDAX_STR-SRVTYP_OUTP sy-vline 
WA_BAPI1300SRVDAX_STR-SRVTYP_OUTPX sy-vline 
WA_BAPI1300SRVDAX_STR-SRVKEY_OUTP sy-vline 
WA_BAPI1300SRVDAX_STR-SRVKEY_OUTPX sy-vline 
WA_BAPI1300SRVDAX_STR-OPLIVDON sy-vline 
WA_BAPI1300SRVDAX_STR-OPLIVDON_X sy-vline      INTO ld_text SEPARATED BY SPACE.

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