ABAP Select data from SAP table BAPI2099DATA 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 BAPI2099DATA 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 BAPI2099DATA. 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 BAPI2099DATA 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_BAPI2099DATA TYPE STANDARD TABLE OF BAPI2099DATA,
      WA_BAPI2099DATA TYPE BAPI2099DATA,
      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: <BAPI2099DATA> TYPE BAPI2099DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPI2099DATA
*  INTO TABLE @DATA(IT_BAPI2099DATA2).
*--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_BAPI2099DATA INDEX 1 INTO DATA(WA_BAPI2099DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPI2099DATA>-CLIENT = 1.
<BAPI2099DATA>-INSTITUTION = 1.
<BAPI2099DATA>-PATCASEID = 1.
<BAPI2099DATA>-SERVICE_SEQNO = 1.
<BAPI2099DATA>-INHS_SRVCAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPI2099DATA-SERVICEID, sy-vline,
  WA_BAPI2099DATA-SRV_SHORTTEXT, sy-vline,
  WA_BAPI2099DATA-MOVEMNT_SEQNO, sy-vline,
  WA_BAPI2099DATA-REQ_DEPT_OU, sy-vline,
  WA_BAPI2099DATA-MANCH_REQDOU, sy-vline,
  WA_BAPI2099DATA-REQ_NURS_OU, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPI2099DATA 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_BAPI2099DATA 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_BAPI2099DATA INTO WA_BAPI2099DATA.


*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_BAPI2099DATA-INSTITUTION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099DATA-INSTITUTION.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field CONS_VA
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BAPI2099DATA-CONS_VA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099DATA-CONS_VA.
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_BAPI2099DATA_STR, 
CLIENT TYPE STRING,
INSTITUTION TYPE STRING,
PATCASEID TYPE STRING,
SERVICE_SEQNO TYPE STRING,
INHS_SRVCAT TYPE STRING,
SERVICEID TYPE STRING,
SRV_SHORTTEXT TYPE STRING,
MOVEMNT_SEQNO TYPE STRING,
REQ_DEPT_OU TYPE STRING,
MANCH_REQDOU TYPE STRING,
REQ_NURS_OU TYPE STRING,
MANCH_REQNOU TYPE STRING,
PERFORM_OU TYPE STRING,
MANCH_PERFOU TYPE STRING,
PERFORM_TYPE TYPE STRING,
EXTENDED_IND TYPE STRING,
SRV_STARTDATE TYPE STRING,
SRV_STARTTIME TYPE STRING,
SRV_ENDDATE TYPE STRING,
SRV_ENDTIME TYPE STRING,
SRV_QUANTITY TYPE STRING,
QNT_UNIT TYPE STRING,
QNT_UNIT_ISO TYPE STRING,
STATUS_IND TYPE STRING,
BILLABLE_IND TYPE STRING,
ALTBILLCAT TYPE STRING,
ALTBILLSRVID TYPE STRING,
ALTBILLCATCOL TYPE STRING,
ALTBILLFACTOR TYPE STRING,
REASON_FACTOR TYPE STRING,
RSN_LTEXT_IND TYPE STRING,
DIFF_PRICE TYPE STRING,
DIFPRCURR TYPE STRING,
DIFPRCURR_ISO TYPE STRING,
BILL_CATEGORY TYPE STRING,
CHARGE_FACTOR TYPE STRING,
CHARGE_TYPE TYPE STRING,
CHRGEKEY_P301 TYPE STRING,
ADD_CHRGEKEY TYPE STRING,
CHRGETYP_P301 TYPE STRING,
HCO_IND TYPE STRING,
REFSRV_SEQNO TYPE STRING,
COSTOBJ_IND TYPE STRING,
COST_ORDER TYPE STRING,
REF_SRV_SEQNO TYPE STRING,
OBJECT_TYPE TYPE STRING,
GEN_EVENT TYPE STRING,
GEN_OBJECT TYPE STRING,
UPDATEEVENT TYPE STRING,
UPDATEOBJECT TYPE STRING,
EXT_VALFRMULA TYPE STRING,
SRV_REMARK TYPE STRING,
REM_LTEXT_IND TYPE STRING,
ANALYSIS_TYPE TYPE STRING,
ASSIGN_TYPE TYPE STRING,
EXTRN_CLASS TYPE STRING,
REF_CODE TYPE STRING,
APPLGRPUSER0 TYPE STRING,
APPLGRPUSER1 TYPE STRING,
CREATION_DATE TYPE STRING,
CREATION_USER TYPE STRING,
CREATION_TCDE TYPE STRING,
UPDATE_DATE TYPE STRING,
UPDATE_USER TYPE STRING,
CANCEL_IND TYPE STRING,
CANCEL_USER TYPE STRING,
WOUND_NO TYPE STRING,
USER2 TYPE STRING,
USERDATE1 TYPE STRING,
USERDATE2 TYPE STRING,
USERTIME1 TYPE STRING,
USERTIME2 TYPE STRING,
USERPRICE TYPE STRING,
USERPRICECUR TYPE STRING,
USERPRICECUR_ISO TYPE STRING,
USERAMNT TYPE STRING,
USERAMNTUNT TYPE STRING,
USERAMNTUNT_ISO TYPE STRING,
USERSIGN1 TYPE STRING,
USERSIGN2 TYPE STRING,
USERTEXT1 TYPE STRING,
SRV_INPUTSEQNO TYPE STRING,
LOCALIS TYPE STRING,
MEDICAL_IND TYPE STRING,
MEDICATION_UNIT TYPE STRING,
MATERIAL_NO TYPE STRING,
MATERIALCONS_NO TYPE STRING,
ACTIVITY TYPE STRING,
PHASE TYPE STRING,
MOD_CODE1 TYPE STRING,
MOD_CODE2 TYPE STRING,
MOD_CODE3 TYPE STRING,
MOD_CODE4 TYPE STRING,
REFUND_OF_SOC_INS TYPE STRING,
PRESCRIPT_DATE TYPE STRING,
ASSOC_CODE TYPE STRING,
PUR_PR_LPP TYPE STRING,
SRV_EXON_FROM_COPAY TYPE STRING,
NABM_COEFF TYPE STRING,
FEE_ADD_PRICE TYPE STRING,
HIC_FREE TYPE STRING,
ORDER_NUMBER_C20 TYPE STRING,
COMP_EXT_ORDERER TYPE STRING,
LAB_TYPE TYPE STRING,
DEVICE_NUMBER TYPE STRING,
ORDER_NUMBER TYPE STRING,
PRESCRIPT_VALID TYPE STRING,
DENTAL_CODE TYPE STRING,
CONS_VA TYPE STRING,
SRVTYP_OUTP TYPE STRING,
SRVKEY_OUTP TYPE STRING,
SRV_BILL_REASON TYPE STRING,
CHRGTYP_OUTP TYPE STRING,
GRP_SIZE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPI2099DATA_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_BAPI2099DATA_STR-CLIENT sy-vline 
WA_BAPI2099DATA_STR-INSTITUTION sy-vline 
WA_BAPI2099DATA_STR-PATCASEID sy-vline 
WA_BAPI2099DATA_STR-SERVICE_SEQNO sy-vline 
WA_BAPI2099DATA_STR-INHS_SRVCAT sy-vline 
WA_BAPI2099DATA_STR-SERVICEID sy-vline 
WA_BAPI2099DATA_STR-SRV_SHORTTEXT sy-vline 
WA_BAPI2099DATA_STR-MOVEMNT_SEQNO sy-vline 
WA_BAPI2099DATA_STR-REQ_DEPT_OU sy-vline 
WA_BAPI2099DATA_STR-MANCH_REQDOU sy-vline 
WA_BAPI2099DATA_STR-REQ_NURS_OU sy-vline 
WA_BAPI2099DATA_STR-MANCH_REQNOU sy-vline 
WA_BAPI2099DATA_STR-PERFORM_OU sy-vline 
WA_BAPI2099DATA_STR-MANCH_PERFOU sy-vline 
WA_BAPI2099DATA_STR-PERFORM_TYPE sy-vline 
WA_BAPI2099DATA_STR-EXTENDED_IND sy-vline 
WA_BAPI2099DATA_STR-SRV_STARTDATE sy-vline 
WA_BAPI2099DATA_STR-SRV_STARTTIME sy-vline 
WA_BAPI2099DATA_STR-SRV_ENDDATE sy-vline 
WA_BAPI2099DATA_STR-SRV_ENDTIME sy-vline 
WA_BAPI2099DATA_STR-SRV_QUANTITY sy-vline 
WA_BAPI2099DATA_STR-QNT_UNIT sy-vline 
WA_BAPI2099DATA_STR-QNT_UNIT_ISO sy-vline 
WA_BAPI2099DATA_STR-STATUS_IND sy-vline 
WA_BAPI2099DATA_STR-BILLABLE_IND sy-vline 
WA_BAPI2099DATA_STR-ALTBILLCAT sy-vline 
WA_BAPI2099DATA_STR-ALTBILLSRVID sy-vline 
WA_BAPI2099DATA_STR-ALTBILLCATCOL sy-vline 
WA_BAPI2099DATA_STR-ALTBILLFACTOR sy-vline 
WA_BAPI2099DATA_STR-REASON_FACTOR sy-vline 
WA_BAPI2099DATA_STR-RSN_LTEXT_IND sy-vline 
WA_BAPI2099DATA_STR-DIFF_PRICE sy-vline 
WA_BAPI2099DATA_STR-DIFPRCURR sy-vline 
WA_BAPI2099DATA_STR-DIFPRCURR_ISO sy-vline 
WA_BAPI2099DATA_STR-BILL_CATEGORY sy-vline 
WA_BAPI2099DATA_STR-CHARGE_FACTOR sy-vline 
WA_BAPI2099DATA_STR-CHARGE_TYPE sy-vline 
WA_BAPI2099DATA_STR-CHRGEKEY_P301 sy-vline 
WA_BAPI2099DATA_STR-ADD_CHRGEKEY sy-vline 
WA_BAPI2099DATA_STR-CHRGETYP_P301 sy-vline 
WA_BAPI2099DATA_STR-HCO_IND sy-vline 
WA_BAPI2099DATA_STR-REFSRV_SEQNO sy-vline 
WA_BAPI2099DATA_STR-COSTOBJ_IND sy-vline 
WA_BAPI2099DATA_STR-COST_ORDER sy-vline 
WA_BAPI2099DATA_STR-REF_SRV_SEQNO sy-vline 
WA_BAPI2099DATA_STR-OBJECT_TYPE sy-vline 
WA_BAPI2099DATA_STR-GEN_EVENT sy-vline 
WA_BAPI2099DATA_STR-GEN_OBJECT sy-vline 
WA_BAPI2099DATA_STR-UPDATEEVENT sy-vline 
WA_BAPI2099DATA_STR-UPDATEOBJECT sy-vline 
WA_BAPI2099DATA_STR-EXT_VALFRMULA sy-vline 
WA_BAPI2099DATA_STR-SRV_REMARK sy-vline 
WA_BAPI2099DATA_STR-REM_LTEXT_IND sy-vline 
WA_BAPI2099DATA_STR-ANALYSIS_TYPE sy-vline 
WA_BAPI2099DATA_STR-ASSIGN_TYPE sy-vline 
WA_BAPI2099DATA_STR-EXTRN_CLASS sy-vline 
WA_BAPI2099DATA_STR-REF_CODE sy-vline 
WA_BAPI2099DATA_STR-APPLGRPUSER0 sy-vline 
WA_BAPI2099DATA_STR-APPLGRPUSER1 sy-vline 
WA_BAPI2099DATA_STR-CREATION_DATE sy-vline 
WA_BAPI2099DATA_STR-CREATION_USER sy-vline 
WA_BAPI2099DATA_STR-CREATION_TCDE sy-vline 
WA_BAPI2099DATA_STR-UPDATE_DATE sy-vline 
WA_BAPI2099DATA_STR-UPDATE_USER sy-vline 
WA_BAPI2099DATA_STR-CANCEL_IND sy-vline 
WA_BAPI2099DATA_STR-CANCEL_USER sy-vline 
WA_BAPI2099DATA_STR-WOUND_NO sy-vline 
WA_BAPI2099DATA_STR-USER2 sy-vline 
WA_BAPI2099DATA_STR-USERDATE1 sy-vline 
WA_BAPI2099DATA_STR-USERDATE2 sy-vline 
WA_BAPI2099DATA_STR-USERTIME1 sy-vline 
WA_BAPI2099DATA_STR-USERTIME2 sy-vline 
WA_BAPI2099DATA_STR-USERPRICE sy-vline 
WA_BAPI2099DATA_STR-USERPRICECUR sy-vline 
WA_BAPI2099DATA_STR-USERPRICECUR_ISO sy-vline 
WA_BAPI2099DATA_STR-USERAMNT sy-vline 
WA_BAPI2099DATA_STR-USERAMNTUNT sy-vline 
WA_BAPI2099DATA_STR-USERAMNTUNT_ISO sy-vline 
WA_BAPI2099DATA_STR-USERSIGN1 sy-vline 
WA_BAPI2099DATA_STR-USERSIGN2 sy-vline 
WA_BAPI2099DATA_STR-USERTEXT1 sy-vline 
WA_BAPI2099DATA_STR-SRV_INPUTSEQNO sy-vline 
WA_BAPI2099DATA_STR-LOCALIS sy-vline 
WA_BAPI2099DATA_STR-MEDICAL_IND sy-vline 
WA_BAPI2099DATA_STR-MEDICATION_UNIT sy-vline 
WA_BAPI2099DATA_STR-MATERIAL_NO sy-vline 
WA_BAPI2099DATA_STR-MATERIALCONS_NO sy-vline 
WA_BAPI2099DATA_STR-ACTIVITY sy-vline 
WA_BAPI2099DATA_STR-PHASE sy-vline 
WA_BAPI2099DATA_STR-MOD_CODE1 sy-vline 
WA_BAPI2099DATA_STR-MOD_CODE2 sy-vline 
WA_BAPI2099DATA_STR-MOD_CODE3 sy-vline 
WA_BAPI2099DATA_STR-MOD_CODE4 sy-vline 
WA_BAPI2099DATA_STR-REFUND_OF_SOC_INS sy-vline 
WA_BAPI2099DATA_STR-PRESCRIPT_DATE sy-vline 
WA_BAPI2099DATA_STR-ASSOC_CODE sy-vline 
WA_BAPI2099DATA_STR-PUR_PR_LPP sy-vline 
WA_BAPI2099DATA_STR-SRV_EXON_FROM_COPAY sy-vline 
WA_BAPI2099DATA_STR-NABM_COEFF sy-vline 
WA_BAPI2099DATA_STR-FEE_ADD_PRICE sy-vline 
WA_BAPI2099DATA_STR-HIC_FREE sy-vline 
WA_BAPI2099DATA_STR-ORDER_NUMBER_C20 sy-vline 
WA_BAPI2099DATA_STR-COMP_EXT_ORDERER sy-vline 
WA_BAPI2099DATA_STR-LAB_TYPE sy-vline 
WA_BAPI2099DATA_STR-DEVICE_NUMBER sy-vline 
WA_BAPI2099DATA_STR-ORDER_NUMBER sy-vline 
WA_BAPI2099DATA_STR-PRESCRIPT_VALID sy-vline 
WA_BAPI2099DATA_STR-DENTAL_CODE sy-vline 
WA_BAPI2099DATA_STR-CONS_VA sy-vline 
WA_BAPI2099DATA_STR-SRVTYP_OUTP sy-vline 
WA_BAPI2099DATA_STR-SRVKEY_OUTP sy-vline 
WA_BAPI2099DATA_STR-SRV_BILL_REASON sy-vline 
WA_BAPI2099DATA_STR-CHRGTYP_OUTP sy-vline 
WA_BAPI2099DATA_STR-GRP_SIZE sy-vline      INTO ld_text SEPARATED BY SPACE.

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