ABAP Select data from SAP table BAPI2099CDATA 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 BAPI2099CDATA 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 BAPI2099CDATA. 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 BAPI2099CDATA 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_BAPI2099CDATA TYPE STANDARD TABLE OF BAPI2099CDATA,
      WA_BAPI2099CDATA TYPE BAPI2099CDATA,
      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: <BAPI2099CDATA> TYPE BAPI2099CDATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPI2099CDATA
*  INTO TABLE @DATA(IT_BAPI2099CDATA2).
*--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_BAPI2099CDATA INDEX 1 INTO DATA(WA_BAPI2099CDATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPI2099CDATA>-SERVICE_SEQNO = 1.
<BAPI2099CDATA>-RULETYPE = 1.
<BAPI2099CDATA>-ACTIONSEQNO = 1.
<BAPI2099CDATA>-ACTION = 1.
<BAPI2099CDATA>-SERVICEID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPI2099CDATA-SRV_SHORTTEXT, sy-vline,
  WA_BAPI2099CDATA-SRV_SHORTTEXTX, sy-vline,
  WA_BAPI2099CDATA-MOVEMNT_SEQNO, sy-vline,
  WA_BAPI2099CDATA-MOVEMNT_SEQNOX, sy-vline,
  WA_BAPI2099CDATA-REQ_DEPT_OU, sy-vline,
  WA_BAPI2099CDATA-REQ_DEPT_OUX, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPI2099CDATA 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_BAPI2099CDATA 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_BAPI2099CDATA INTO WA_BAPI2099CDATA.


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

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

*Conversion exit ALPHA, internal->external for field SERVICEID
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BAPI2099CDATA-SERVICEID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-REQ_DEPT_OU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-REQ_NURS_OU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-PERFORM_OU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-QNT_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-QNT_UNIT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit ALPHA, internal->external for field ASSIGN_TYPE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BAPI2099CDATA-ASSIGN_TYPE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-REF_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-REF_CODE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field MEDICATION_UNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_BAPI2099CDATA-MEDICATION_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-MATERIAL_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-MATERIALCONS_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-ORDER_NUMBER_C20
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-DEVICE_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-ORDER_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA-CONS_VA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPI2099CDATA-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_BAPI2099CDATA_STR, 
SERVICE_SEQNO TYPE STRING,
RULETYPE TYPE STRING,
ACTIONSEQNO TYPE STRING,
ACTION TYPE STRING,
SERVICEID TYPE STRING,
SRV_SHORTTEXT TYPE STRING,
SRV_SHORTTEXTX TYPE STRING,
MOVEMNT_SEQNO TYPE STRING,
MOVEMNT_SEQNOX TYPE STRING,
REQ_DEPT_OU TYPE STRING,
REQ_DEPT_OUX TYPE STRING,
REQ_NURS_OU TYPE STRING,
REQ_NURS_OUX TYPE STRING,
PERFORM_OU TYPE STRING,
PERFORM_OUX TYPE STRING,
PERFORM_TYPE TYPE STRING,
PERFORM_TYPEX TYPE STRING,
SRV_STARTDATE TYPE STRING,
SRV_STARTDATEX TYPE STRING,
SRV_STARTTIME TYPE STRING,
SRV_STARTTIMEX TYPE STRING,
SRV_ENDDATE TYPE STRING,
SRV_ENDDATEX TYPE STRING,
SRV_ENDTIME TYPE STRING,
SRV_ENDTIMEX TYPE STRING,
SRV_QUANTITY TYPE STRING,
SRV_QUANTITYX TYPE STRING,
QNT_UNIT TYPE STRING,
QNT_UNIT_ISO TYPE STRING,
STATUS_IND TYPE STRING,
STATUS_INDX TYPE STRING,
BILLABLE_IND TYPE STRING,
BILLABLE_INDX TYPE STRING,
ALTBILLCAT TYPE STRING,
ALTBILLCATX TYPE STRING,
ALTBILLSRVID TYPE STRING,
ALTBILLSRVIDX TYPE STRING,
ALTBILLCATCOL TYPE STRING,
ALTBILLCATCOLX TYPE STRING,
ALTBILLFACTOR TYPE STRING,
ALTBILLFACTORX TYPE STRING,
REASON_FACTOR TYPE STRING,
REASON_FACTORX TYPE STRING,
DIFF_PRICE TYPE STRING,
DIFF_PRICEX TYPE STRING,
DIFPRCURR TYPE STRING,
DIFPRCURR_ISO TYPE STRING,
BILL_CATEGORY TYPE STRING,
BILL_CATEGORYX TYPE STRING,
CHARGE_FACTOR TYPE STRING,
CHARGE_FACTORX 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,
HCO_IND TYPE STRING,
HCO_INDX TYPE STRING,
REFSRV_SEQNO TYPE STRING,
REFSRV_SEQNOX TYPE STRING,
COSTOBJ_IND TYPE STRING,
COSTOBJ_INDX TYPE STRING,
SRV_REMARK TYPE STRING,
SRV_REMARKX TYPE STRING,
ANALYSIS_TYPE TYPE STRING,
ANALYSIS_TYPEX TYPE STRING,
ASSIGN_TYPE TYPE STRING,
ASSIGN_TYPEX TYPE STRING,
EXTRN_CLASS TYPE STRING,
EXTRN_CLASSX TYPE STRING,
REF_CODE TYPE STRING,
REF_CODEX TYPE STRING,
APPLGRPUSER0 TYPE STRING,
APPLGRPUSER0X TYPE STRING,
APPLGRPUSER1 TYPE STRING,
APPLGRPUSER1X TYPE STRING,
WOUND_NO TYPE STRING,
WOUND_NOX TYPE STRING,
GEN_EVENT TYPE STRING,
GEN_EVENTX TYPE STRING,
GEN_OBJECT TYPE STRING,
GEN_OBJECTX TYPE STRING,
USER2 TYPE STRING,
USER2X TYPE STRING,
USERDATE1 TYPE STRING,
USERDATE1X TYPE STRING,
USERDATE2 TYPE STRING,
USERDATE2X TYPE STRING,
USERTIME1 TYPE STRING,
USERTIME1X TYPE STRING,
USERTIME2 TYPE STRING,
USERTIME2X TYPE STRING,
USERPRICE TYPE STRING,
USERPRICEX TYPE STRING,
USERPRICECUR TYPE STRING,
USERPRICECUR_ISO TYPE STRING,
USERAMNT TYPE STRING,
USERAMNTX TYPE STRING,
USERAMNTUNT TYPE STRING,
USERAMNTUNTX TYPE STRING,
USERAMNTUNT_ISO TYPE STRING,
USERAMNTUNT_ISOX TYPE STRING,
USERSIGN1 TYPE STRING,
USERSIGN1X TYPE STRING,
USERSIGN2 TYPE STRING,
USERSIGN2X TYPE STRING,
USERTEXT1 TYPE STRING,
USERTEXT1X TYPE STRING,
SRV_INPUTSEQNO TYPE STRING,
SRV_INPUTSEQNOX TYPE STRING,
LOCALIS TYPE STRING,
LOCALISX TYPE STRING,
MEDICAL_IND TYPE STRING,
MEDICAL_INDX TYPE STRING,
MEDICATION_UNIT TYPE STRING,
MEDICATION_UNITX TYPE STRING,
MATERIAL_NO TYPE STRING,
MATERIAL_NOX TYPE STRING,
MATERIALCONS_NO TYPE STRING,
MATERIALCONS_NOX TYPE STRING,
ACTIVITY TYPE STRING,
ACTIVITYX TYPE STRING,
PHASE TYPE STRING,
PHASEX TYPE STRING,
MOD_CODE1 TYPE STRING,
MOD_CODE1X TYPE STRING,
MOD_CODE2 TYPE STRING,
MOD_CODE2X TYPE STRING,
MOD_CODE3 TYPE STRING,
MOD_CODE3X TYPE STRING,
MOD_CODE4 TYPE STRING,
MOD_CODE4X TYPE STRING,
REFUND_OF_SOC_INS TYPE STRING,
REFUND_OF_SOC_INSX TYPE STRING,
PRESCRIPT_DATE TYPE STRING,
PRESCRIPT_DATEX TYPE STRING,
ASSOC_CODE TYPE STRING,
ASSOC_CODEX TYPE STRING,
PUR_PR_LPP TYPE STRING,
PUR_PR_LPPX TYPE STRING,
SRV_EXON_FROM_COPAY TYPE STRING,
SRV_EXON_FROM_COPAYX TYPE STRING,
NABM_COEFF TYPE STRING,
NABM_COEFFX TYPE STRING,
FEE_ADD_PRICE TYPE STRING,
FEE_ADD_PRICEX TYPE STRING,
HIC_FREE TYPE STRING,
HIC_FREEX TYPE STRING,
ORDER_NUMBER_C20 TYPE STRING,
ORDER_NUMBER_C20X TYPE STRING,
COMP_EXT_ORDERER TYPE STRING,
COMP_EXT_ORDERERX TYPE STRING,
LAB_TYPE TYPE STRING,
LAB_TYPEX TYPE STRING,
DEVICE_NUMBER TYPE STRING,
DEVICE_NUMBERX TYPE STRING,
ORDER_NUMBER TYPE STRING,
ORDER_NUMBERX TYPE STRING,
PRESCRIPT_VALID TYPE STRING,
PRESCRIPT_VALIDX TYPE STRING,
DENTAL_CODE TYPE STRING,
DENTAL_CODEX TYPE STRING,
CONS_VA TYPE STRING,
CONS_VAX TYPE STRING,
SRVTYP_OUTP TYPE STRING,
SRVTYP_OUTPX TYPE STRING,
SRVKEY_OUTP TYPE STRING,
SRVKEY_OUTPX TYPE STRING,
SRV_BILL_REASON TYPE STRING,
SRV_BILL_REASONX TYPE STRING,
CHRGTYP_OUTP TYPE STRING,
CHRGTYP_OUTPX TYPE STRING,
GRP_SIZE TYPE STRING,
GRP_SIZEX TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPI2099CDATA_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_BAPI2099CDATA_STR-SERVICE_SEQNO sy-vline 
WA_BAPI2099CDATA_STR-RULETYPE sy-vline 
WA_BAPI2099CDATA_STR-ACTIONSEQNO sy-vline 
WA_BAPI2099CDATA_STR-ACTION sy-vline 
WA_BAPI2099CDATA_STR-SERVICEID sy-vline 
WA_BAPI2099CDATA_STR-SRV_SHORTTEXT sy-vline 
WA_BAPI2099CDATA_STR-SRV_SHORTTEXTX sy-vline 
WA_BAPI2099CDATA_STR-MOVEMNT_SEQNO sy-vline 
WA_BAPI2099CDATA_STR-MOVEMNT_SEQNOX sy-vline 
WA_BAPI2099CDATA_STR-REQ_DEPT_OU sy-vline 
WA_BAPI2099CDATA_STR-REQ_DEPT_OUX sy-vline 
WA_BAPI2099CDATA_STR-REQ_NURS_OU sy-vline 
WA_BAPI2099CDATA_STR-REQ_NURS_OUX sy-vline 
WA_BAPI2099CDATA_STR-PERFORM_OU sy-vline 
WA_BAPI2099CDATA_STR-PERFORM_OUX sy-vline 
WA_BAPI2099CDATA_STR-PERFORM_TYPE sy-vline 
WA_BAPI2099CDATA_STR-PERFORM_TYPEX sy-vline 
WA_BAPI2099CDATA_STR-SRV_STARTDATE sy-vline 
WA_BAPI2099CDATA_STR-SRV_STARTDATEX sy-vline 
WA_BAPI2099CDATA_STR-SRV_STARTTIME sy-vline 
WA_BAPI2099CDATA_STR-SRV_STARTTIMEX sy-vline 
WA_BAPI2099CDATA_STR-SRV_ENDDATE sy-vline 
WA_BAPI2099CDATA_STR-SRV_ENDDATEX sy-vline 
WA_BAPI2099CDATA_STR-SRV_ENDTIME sy-vline 
WA_BAPI2099CDATA_STR-SRV_ENDTIMEX sy-vline 
WA_BAPI2099CDATA_STR-SRV_QUANTITY sy-vline 
WA_BAPI2099CDATA_STR-SRV_QUANTITYX sy-vline 
WA_BAPI2099CDATA_STR-QNT_UNIT sy-vline 
WA_BAPI2099CDATA_STR-QNT_UNIT_ISO sy-vline 
WA_BAPI2099CDATA_STR-STATUS_IND sy-vline 
WA_BAPI2099CDATA_STR-STATUS_INDX sy-vline 
WA_BAPI2099CDATA_STR-BILLABLE_IND sy-vline 
WA_BAPI2099CDATA_STR-BILLABLE_INDX sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLCAT sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLCATX sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLSRVID sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLSRVIDX sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLCATCOL sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLCATCOLX sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLFACTOR sy-vline 
WA_BAPI2099CDATA_STR-ALTBILLFACTORX sy-vline 
WA_BAPI2099CDATA_STR-REASON_FACTOR sy-vline 
WA_BAPI2099CDATA_STR-REASON_FACTORX sy-vline 
WA_BAPI2099CDATA_STR-DIFF_PRICE sy-vline 
WA_BAPI2099CDATA_STR-DIFF_PRICEX sy-vline 
WA_BAPI2099CDATA_STR-DIFPRCURR sy-vline 
WA_BAPI2099CDATA_STR-DIFPRCURR_ISO sy-vline 
WA_BAPI2099CDATA_STR-BILL_CATEGORY sy-vline 
WA_BAPI2099CDATA_STR-BILL_CATEGORYX sy-vline 
WA_BAPI2099CDATA_STR-CHARGE_FACTOR sy-vline 
WA_BAPI2099CDATA_STR-CHARGE_FACTORX sy-vline 
WA_BAPI2099CDATA_STR-CHRGEKEY_P301 sy-vline 
WA_BAPI2099CDATA_STR-CHRGEKEY_P301X sy-vline 
WA_BAPI2099CDATA_STR-ADD_CHRGEKEY sy-vline 
WA_BAPI2099CDATA_STR-ADD_CHRGEKEYX sy-vline 
WA_BAPI2099CDATA_STR-CHRGETYP_P301 sy-vline 
WA_BAPI2099CDATA_STR-CHRGETYP_P301X sy-vline 
WA_BAPI2099CDATA_STR-HCO_IND sy-vline 
WA_BAPI2099CDATA_STR-HCO_INDX sy-vline 
WA_BAPI2099CDATA_STR-REFSRV_SEQNO sy-vline 
WA_BAPI2099CDATA_STR-REFSRV_SEQNOX sy-vline 
WA_BAPI2099CDATA_STR-COSTOBJ_IND sy-vline 
WA_BAPI2099CDATA_STR-COSTOBJ_INDX sy-vline 
WA_BAPI2099CDATA_STR-SRV_REMARK sy-vline 
WA_BAPI2099CDATA_STR-SRV_REMARKX sy-vline 
WA_BAPI2099CDATA_STR-ANALYSIS_TYPE sy-vline 
WA_BAPI2099CDATA_STR-ANALYSIS_TYPEX sy-vline 
WA_BAPI2099CDATA_STR-ASSIGN_TYPE sy-vline 
WA_BAPI2099CDATA_STR-ASSIGN_TYPEX sy-vline 
WA_BAPI2099CDATA_STR-EXTRN_CLASS sy-vline 
WA_BAPI2099CDATA_STR-EXTRN_CLASSX sy-vline 
WA_BAPI2099CDATA_STR-REF_CODE sy-vline 
WA_BAPI2099CDATA_STR-REF_CODEX sy-vline 
WA_BAPI2099CDATA_STR-APPLGRPUSER0 sy-vline 
WA_BAPI2099CDATA_STR-APPLGRPUSER0X sy-vline 
WA_BAPI2099CDATA_STR-APPLGRPUSER1 sy-vline 
WA_BAPI2099CDATA_STR-APPLGRPUSER1X sy-vline 
WA_BAPI2099CDATA_STR-WOUND_NO sy-vline 
WA_BAPI2099CDATA_STR-WOUND_NOX sy-vline 
WA_BAPI2099CDATA_STR-GEN_EVENT sy-vline 
WA_BAPI2099CDATA_STR-GEN_EVENTX sy-vline 
WA_BAPI2099CDATA_STR-GEN_OBJECT sy-vline 
WA_BAPI2099CDATA_STR-GEN_OBJECTX sy-vline 
WA_BAPI2099CDATA_STR-USER2 sy-vline 
WA_BAPI2099CDATA_STR-USER2X sy-vline 
WA_BAPI2099CDATA_STR-USERDATE1 sy-vline 
WA_BAPI2099CDATA_STR-USERDATE1X sy-vline 
WA_BAPI2099CDATA_STR-USERDATE2 sy-vline 
WA_BAPI2099CDATA_STR-USERDATE2X sy-vline 
WA_BAPI2099CDATA_STR-USERTIME1 sy-vline 
WA_BAPI2099CDATA_STR-USERTIME1X sy-vline 
WA_BAPI2099CDATA_STR-USERTIME2 sy-vline 
WA_BAPI2099CDATA_STR-USERTIME2X sy-vline 
WA_BAPI2099CDATA_STR-USERPRICE sy-vline 
WA_BAPI2099CDATA_STR-USERPRICEX sy-vline 
WA_BAPI2099CDATA_STR-USERPRICECUR sy-vline 
WA_BAPI2099CDATA_STR-USERPRICECUR_ISO sy-vline 
WA_BAPI2099CDATA_STR-USERAMNT sy-vline 
WA_BAPI2099CDATA_STR-USERAMNTX sy-vline 
WA_BAPI2099CDATA_STR-USERAMNTUNT sy-vline 
WA_BAPI2099CDATA_STR-USERAMNTUNTX sy-vline 
WA_BAPI2099CDATA_STR-USERAMNTUNT_ISO sy-vline 
WA_BAPI2099CDATA_STR-USERAMNTUNT_ISOX sy-vline 
WA_BAPI2099CDATA_STR-USERSIGN1 sy-vline 
WA_BAPI2099CDATA_STR-USERSIGN1X sy-vline 
WA_BAPI2099CDATA_STR-USERSIGN2 sy-vline 
WA_BAPI2099CDATA_STR-USERSIGN2X sy-vline 
WA_BAPI2099CDATA_STR-USERTEXT1 sy-vline 
WA_BAPI2099CDATA_STR-USERTEXT1X sy-vline 
WA_BAPI2099CDATA_STR-SRV_INPUTSEQNO sy-vline 
WA_BAPI2099CDATA_STR-SRV_INPUTSEQNOX sy-vline 
WA_BAPI2099CDATA_STR-LOCALIS sy-vline 
WA_BAPI2099CDATA_STR-LOCALISX sy-vline 
WA_BAPI2099CDATA_STR-MEDICAL_IND sy-vline 
WA_BAPI2099CDATA_STR-MEDICAL_INDX sy-vline 
WA_BAPI2099CDATA_STR-MEDICATION_UNIT sy-vline 
WA_BAPI2099CDATA_STR-MEDICATION_UNITX sy-vline 
WA_BAPI2099CDATA_STR-MATERIAL_NO sy-vline 
WA_BAPI2099CDATA_STR-MATERIAL_NOX sy-vline 
WA_BAPI2099CDATA_STR-MATERIALCONS_NO sy-vline 
WA_BAPI2099CDATA_STR-MATERIALCONS_NOX sy-vline 
WA_BAPI2099CDATA_STR-ACTIVITY sy-vline 
WA_BAPI2099CDATA_STR-ACTIVITYX sy-vline 
WA_BAPI2099CDATA_STR-PHASE sy-vline 
WA_BAPI2099CDATA_STR-PHASEX sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE1 sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE1X sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE2 sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE2X sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE3 sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE3X sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE4 sy-vline 
WA_BAPI2099CDATA_STR-MOD_CODE4X sy-vline 
WA_BAPI2099CDATA_STR-REFUND_OF_SOC_INS sy-vline 
WA_BAPI2099CDATA_STR-REFUND_OF_SOC_INSX sy-vline 
WA_BAPI2099CDATA_STR-PRESCRIPT_DATE sy-vline 
WA_BAPI2099CDATA_STR-PRESCRIPT_DATEX sy-vline 
WA_BAPI2099CDATA_STR-ASSOC_CODE sy-vline 
WA_BAPI2099CDATA_STR-ASSOC_CODEX sy-vline 
WA_BAPI2099CDATA_STR-PUR_PR_LPP sy-vline 
WA_BAPI2099CDATA_STR-PUR_PR_LPPX sy-vline 
WA_BAPI2099CDATA_STR-SRV_EXON_FROM_COPAY sy-vline 
WA_BAPI2099CDATA_STR-SRV_EXON_FROM_COPAYX sy-vline 
WA_BAPI2099CDATA_STR-NABM_COEFF sy-vline 
WA_BAPI2099CDATA_STR-NABM_COEFFX sy-vline 
WA_BAPI2099CDATA_STR-FEE_ADD_PRICE sy-vline 
WA_BAPI2099CDATA_STR-FEE_ADD_PRICEX sy-vline 
WA_BAPI2099CDATA_STR-HIC_FREE sy-vline 
WA_BAPI2099CDATA_STR-HIC_FREEX sy-vline 
WA_BAPI2099CDATA_STR-ORDER_NUMBER_C20 sy-vline 
WA_BAPI2099CDATA_STR-ORDER_NUMBER_C20X sy-vline 
WA_BAPI2099CDATA_STR-COMP_EXT_ORDERER sy-vline 
WA_BAPI2099CDATA_STR-COMP_EXT_ORDERERX sy-vline 
WA_BAPI2099CDATA_STR-LAB_TYPE sy-vline 
WA_BAPI2099CDATA_STR-LAB_TYPEX sy-vline 
WA_BAPI2099CDATA_STR-DEVICE_NUMBER sy-vline 
WA_BAPI2099CDATA_STR-DEVICE_NUMBERX sy-vline 
WA_BAPI2099CDATA_STR-ORDER_NUMBER sy-vline 
WA_BAPI2099CDATA_STR-ORDER_NUMBERX sy-vline 
WA_BAPI2099CDATA_STR-PRESCRIPT_VALID sy-vline 
WA_BAPI2099CDATA_STR-PRESCRIPT_VALIDX sy-vline 
WA_BAPI2099CDATA_STR-DENTAL_CODE sy-vline 
WA_BAPI2099CDATA_STR-DENTAL_CODEX sy-vline 
WA_BAPI2099CDATA_STR-CONS_VA sy-vline 
WA_BAPI2099CDATA_STR-CONS_VAX sy-vline 
WA_BAPI2099CDATA_STR-SRVTYP_OUTP sy-vline 
WA_BAPI2099CDATA_STR-SRVTYP_OUTPX sy-vline 
WA_BAPI2099CDATA_STR-SRVKEY_OUTP sy-vline 
WA_BAPI2099CDATA_STR-SRVKEY_OUTPX sy-vline 
WA_BAPI2099CDATA_STR-SRV_BILL_REASON sy-vline 
WA_BAPI2099CDATA_STR-SRV_BILL_REASONX sy-vline 
WA_BAPI2099CDATA_STR-CHRGTYP_OUTP sy-vline 
WA_BAPI2099CDATA_STR-CHRGTYP_OUTPX sy-vline 
WA_BAPI2099CDATA_STR-GRP_SIZE sy-vline 
WA_BAPI2099CDATA_STR-GRP_SIZEX sy-vline      INTO ld_text SEPARATED BY SPACE.

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