ABAP Select data from SAP table ISU_BI_BILL_S_DATA_XDF into internal table

Get Example source ABAP code based on a different SAP table
  

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

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ISU_BI_BILL_S_DATA_XDF
*  INTO TABLE @DATA(IT_ISU_BI_BILL_S_DATA_XDF2).
*--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_ISU_BI_BILL_S_DATA_XDF INDEX 1 INTO DATA(WA_ISU_BI_BILL_S_DATA_XDF2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_ISU_BI_BILL_S_DATA_XDF ASSIGNING <ISU_BI_BILL_S_DATA_XDF>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<ISU_BI_BILL_S_DATA_XDF>-OPBEL = 1.
<ISU_BI_BILL_S_DATA_XDF>-FAEDN = 1.
<ISU_BI_BILL_S_DATA_XDF>-FAEDS = 1.
<ISU_BI_BILL_S_DATA_XDF>-SKTPZ = 1.
<ISU_BI_BILL_S_DATA_XDF>-BUDAT = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ISU_BI_BILL_S_DATA_XDF-BLDAT, sy-vline,
WA_ISU_BI_BILL_S_DATA_XDF-STOKZ, sy-vline,
WA_ISU_BI_BILL_S_DATA_XDF-INTOPBEL, sy-vline,
WA_ISU_BI_BILL_S_DATA_XDF-TOTAL_AMNT, sy-vline,
WA_ISU_BI_BILL_S_DATA_XDF-TOTAL_WAER, sy-vline,
WA_ISU_BI_BILL_S_DATA_XDF-PYMET, sy-vline.
ENDLOOP. *Add any further fields from structure WA_ISU_BI_BILL_S_DATA_XDF 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_ISU_BI_BILL_S_DATA_XDF 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_ISU_BI_BILL_S_DATA_XDF INTO WA_ISU_BI_BILL_S_DATA_XDF. *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 OPBEL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ISU_BI_BILL_S_DATA_XDF-OPBEL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ISU_BI_BILL_S_DATA_XDF-OPBEL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field STO_OPBEL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_ISU_BI_BILL_S_DATA_XDF-STO_OPBEL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_ISU_BI_BILL_S_DATA_XDF-STO_OPBEL.
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_ISU_BI_BILL_S_DATA_XDF_STR,
OPBEL TYPE STRING,
FAEDN TYPE STRING,
FAEDS TYPE STRING,
SKTPZ TYPE STRING,
BUDAT TYPE STRING,
BLDAT TYPE STRING,
STOKZ TYPE STRING,
INTOPBEL TYPE STRING,
TOTAL_AMNT TYPE STRING,
TOTAL_WAER TYPE STRING,
PYMET TYPE STRING,
ZLSCH TYPE STRING,
NRZAS TYPE STRING,
PARTNER TYPE STRING,
VKONT TYPE STRING,
PORTION TYPE STRING,
ABRVORG TYPE STRING,
FORMKEY TYPE STRING,
FIKEY TYPE STRING,
TOBRELEASD TYPE STRING,
SIMULATED TYPE STRING,
INVOICED TYPE STRING,
ABWVK TYPE STRING,
ABWBL TYPE STRING,
ERGRD TYPE STRING,
LANGU TYPE STRING,
INVOICING_PARTY TYPE STRING,
VERART TYPE STRING,
STO_BUDAT TYPE STRING,
STO_OPBEL TYPE STRING,
ICREASON TYPE STRING,
BILLING_PERIOD TYPE STRING,
TYPE TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME_TXT TYPE STRING,
POST_CODE1 TYPE STRING,
PO_BOX_LOC TYPE STRING,
TITLE_MEDI TYPE STRING,
STREET TYPE STRING,
HOUSE_NUM1 TYPE STRING,
CITY1 TYPE STRING,
PO_BOX TYPE STRING,
CITY2 TYPE STRING,
COUNTRY TYPE STRING,
T_DOC_LOCKS TYPE STRING,
T_IDE_TEXT_H TYPE STRING,
T_DOC_ITEM TYPE STRING,
T_BBP_HEADER TYPE STRING,
AB TYPE STRING,
BIS TYPE STRING,
PRINT_LOWER_ITEMS_INFO TYPE STRING,
PRINT_BILL_INFO_ITEMS TYPE STRING,END OF T_EKKO_STR. DATA: WA_ISU_BI_BILL_S_DATA_XDF_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_ISU_BI_BILL_S_DATA_XDF_STR-OPBEL sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-FAEDN sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-FAEDS sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-SKTPZ sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-BUDAT sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-BLDAT sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-STOKZ sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-INTOPBEL sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-TOTAL_AMNT sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-TOTAL_WAER sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PYMET sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-ZLSCH sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-NRZAS sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PARTNER sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-VKONT sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PORTION sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-ABRVORG sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-FORMKEY sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-FIKEY sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-TOBRELEASD sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-SIMULATED sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-INVOICED sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-ABWVK sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-ABWBL sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-ERGRD sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-LANGU sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-INVOICING_PARTY sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-VERART sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-STO_BUDAT sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-STO_OPBEL sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-ICREASON sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-BILLING_PERIOD sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-TYPE sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-NAME1 sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-NAME2 sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-NAME_TXT sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-POST_CODE1 sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PO_BOX_LOC sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-TITLE_MEDI sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-STREET sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-HOUSE_NUM1 sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-CITY1 sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PO_BOX sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-CITY2 sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-COUNTRY sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-T_DOC_LOCKS sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-T_IDE_TEXT_H sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-T_DOC_ITEM sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-T_BBP_HEADER sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-AB sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-BIS sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PRINT_LOWER_ITEMS_INFO sy-vline
WA_ISU_BI_BILL_S_DATA_XDF_STR-PRINT_BILL_INFO_ITEMS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.