ABAP Select data from SAP table BDCOM 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 BDCOM 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 BDCOM. 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 BDCOM 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_BDCOM TYPE STANDARD TABLE OF BDCOM,
      WA_BDCOM TYPE BDCOM,
      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: <BDCOM> TYPE BDCOM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BDCOM
*  INTO TABLE @DATA(IT_BDCOM2).
*--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_BDCOM INDEX 1 INTO DATA(WA_BDCOM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BDCOM>-KAPPL = 1.
<BDCOM>-KALSM = 1.
<BDCOM>-KNUMH = 1.
<BDCOM>-CUOBJ = 1.
<BDCOM>-CLNEW = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BDCOM-CUOBJ_CONF, sy-vline,
  WA_BDCOM-MENGE_ORIG, sy-vline,
  WA_BDCOM-ERFMG_ORIG, sy-vline,
  WA_BDCOM-MENGE, sy-vline,
  WA_BDCOM-MEINS, sy-vline,
  WA_BDCOM-ERFMG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BDCOM 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_BDCOM 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_BDCOM INTO WA_BDCOM.


*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 CUNIT, internal->external for field MEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_BDCOM-MEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BDCOM-MEINS.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit PERKZ, internal->external for field MRSL_IPRKZ
CALL FUNCTION 'CONVERSION_EXIT_PERKZ_OUTPUT'
  EXPORTING
    input =                      WA_BDCOM-MRSL_IPRKZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BDCOM-MRSL_IPRKZ.
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_BDCOM_STR, 
KAPPL TYPE STRING,
KALSM TYPE STRING,
KNUMH TYPE STRING,
CUOBJ TYPE STRING,
CLNEW TYPE STRING,
CUOBJ_CONF TYPE STRING,
MENGE_ORIG TYPE STRING,
ERFMG_ORIG TYPE STRING,
MENGE TYPE STRING,
MEINS TYPE STRING,
ERFMG TYPE STRING,
ERFME TYPE STRING,
UMREZ TYPE STRING,
UMREN TYPE STRING,
MBDAT TYPE STRING,
MBUHR TYPE STRING,
LFDAT TYPE STRING,
XCORM TYPE STRING,
KZVBP TYPE STRING,
MTVFP TYPE STRING,
PRREG TYPE STRING,
BEDAR TYPE STRING,
LBBSA TYPE STRING,
SOBKZ TYPE STRING,
SOTXT TYPE STRING,
NODEL TYPE STRING,
NOLCK TYPE STRING,
XRUEM TYPE STRING,
XRUEJ TYPE STRING,
INSMK TYPE STRING,
KZZUG TYPE STRING,
XMORE TYPE STRING,
XSHOW TYPE STRING,
NODIA TYPE STRING,
NOSIN TYPE STRING,
XNOAD TYPE STRING,
CHASP TYPE STRING,
CHMDG TYPE STRING,
OBJID TYPE STRING,
OBJEC TYPE STRING,
KLART TYPE STRING,
OBTXT TYPE STRING,
BDCHK TYPE STRING,
MAKTX TYPE STRING,
XALLR TYPE STRING,
KZWSO TYPE STRING,
DELNR TYPE STRING,
DELPS TYPE STRING,
DELKZ TYPE STRING,
VBTYP TYPE STRING,
DELNRPRE TYPE STRING,
DELPSPRE TYPE STRING,
DELKZPRE TYPE STRING,
ORDNUMPRE TYPE STRING,
DELKZORPRE TYPE STRING,
POSGUID TYPE STRING,
ATP_TRTYP TYPE STRING,
EPRIO TYPE STRING,
RULES TYPE STRING,
WMHDL TYPE STRING,
ATPCA_DELTAMD TYPE STRING,
NOSTK TYPE STRING,
STCHK TYPE STRING,
SHKZG_MIGO TYPE STRING,
XNCSG TYPE STRING,
VRFMG_FULL TYPE STRING,
KZAME TYPE STRING,
DISKZ_CHECK TYPE STRING,
BDCALL TYPE STRING,
BWART TYPE STRING,
BTEXT TYPE STRING,
KUNNR TYPE STRING,
KUND1 TYPE STRING,
NAME1 TYPE STRING,
ORT01 TYPE STRING,
LAND1 TYPE STRING,
PSTLZ TYPE STRING,
LGNUM TYPE STRING,
LNUMT TYPE STRING,
BWLVS TYPE STRING,
LBWAT TYPE STRING,
PMATN TYPE STRING,
PMATX TYPE STRING,
PWERK TYPE STRING,
PWERX TYPE STRING,
KDANR TYPE STRING,
KDPOS TYPE STRING,
KDUMMY TYPE STRING,
SEL_CRIT_ONLY TYPE STRING,
SIMULATION_MODE TYPE STRING,
MRSL_MHDRZ TYPE STRING,
MRSL_IPRKZ TYPE STRING,
MRSL_PLIFZ TYPE STRING,
MILL_BATCH_SEL_F TYPE STRING,
MILL_BATCH_SEL_F_OLD TYPE STRING,
MILL_UCDET TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BDCOM_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_BDCOM_STR-KAPPL sy-vline 
WA_BDCOM_STR-KALSM sy-vline 
WA_BDCOM_STR-KNUMH sy-vline 
WA_BDCOM_STR-CUOBJ sy-vline 
WA_BDCOM_STR-CLNEW sy-vline 
WA_BDCOM_STR-CUOBJ_CONF sy-vline 
WA_BDCOM_STR-MENGE_ORIG sy-vline 
WA_BDCOM_STR-ERFMG_ORIG sy-vline 
WA_BDCOM_STR-MENGE sy-vline 
WA_BDCOM_STR-MEINS sy-vline 
WA_BDCOM_STR-ERFMG sy-vline 
WA_BDCOM_STR-ERFME sy-vline 
WA_BDCOM_STR-UMREZ sy-vline 
WA_BDCOM_STR-UMREN sy-vline 
WA_BDCOM_STR-MBDAT sy-vline 
WA_BDCOM_STR-MBUHR sy-vline 
WA_BDCOM_STR-LFDAT sy-vline 
WA_BDCOM_STR-XCORM sy-vline 
WA_BDCOM_STR-KZVBP sy-vline 
WA_BDCOM_STR-MTVFP sy-vline 
WA_BDCOM_STR-PRREG sy-vline 
WA_BDCOM_STR-BEDAR sy-vline 
WA_BDCOM_STR-LBBSA sy-vline 
WA_BDCOM_STR-SOBKZ sy-vline 
WA_BDCOM_STR-SOTXT sy-vline 
WA_BDCOM_STR-NODEL sy-vline 
WA_BDCOM_STR-NOLCK sy-vline 
WA_BDCOM_STR-XRUEM sy-vline 
WA_BDCOM_STR-XRUEJ sy-vline 
WA_BDCOM_STR-INSMK sy-vline 
WA_BDCOM_STR-KZZUG sy-vline 
WA_BDCOM_STR-XMORE sy-vline 
WA_BDCOM_STR-XSHOW sy-vline 
WA_BDCOM_STR-NODIA sy-vline 
WA_BDCOM_STR-NOSIN sy-vline 
WA_BDCOM_STR-XNOAD sy-vline 
WA_BDCOM_STR-CHASP sy-vline 
WA_BDCOM_STR-CHMDG sy-vline 
WA_BDCOM_STR-OBJID sy-vline 
WA_BDCOM_STR-OBJEC sy-vline 
WA_BDCOM_STR-KLART sy-vline 
WA_BDCOM_STR-OBTXT sy-vline 
WA_BDCOM_STR-BDCHK sy-vline 
WA_BDCOM_STR-MAKTX sy-vline 
WA_BDCOM_STR-XALLR sy-vline 
WA_BDCOM_STR-KZWSO sy-vline 
WA_BDCOM_STR-DELNR sy-vline 
WA_BDCOM_STR-DELPS sy-vline 
WA_BDCOM_STR-DELKZ sy-vline 
WA_BDCOM_STR-VBTYP sy-vline 
WA_BDCOM_STR-DELNRPRE sy-vline 
WA_BDCOM_STR-DELPSPRE sy-vline 
WA_BDCOM_STR-DELKZPRE sy-vline 
WA_BDCOM_STR-ORDNUMPRE sy-vline 
WA_BDCOM_STR-DELKZORPRE sy-vline 
WA_BDCOM_STR-POSGUID sy-vline 
WA_BDCOM_STR-ATP_TRTYP sy-vline 
WA_BDCOM_STR-EPRIO sy-vline 
WA_BDCOM_STR-RULES sy-vline 
WA_BDCOM_STR-WMHDL sy-vline 
WA_BDCOM_STR-ATPCA_DELTAMD sy-vline 
WA_BDCOM_STR-NOSTK sy-vline 
WA_BDCOM_STR-STCHK sy-vline 
WA_BDCOM_STR-SHKZG_MIGO sy-vline 
WA_BDCOM_STR-XNCSG sy-vline 
WA_BDCOM_STR-VRFMG_FULL sy-vline 
WA_BDCOM_STR-KZAME sy-vline 
WA_BDCOM_STR-DISKZ_CHECK sy-vline 
WA_BDCOM_STR-BDCALL sy-vline 
WA_BDCOM_STR-BWART sy-vline 
WA_BDCOM_STR-BTEXT sy-vline 
WA_BDCOM_STR-KUNNR sy-vline 
WA_BDCOM_STR-KUND1 sy-vline 
WA_BDCOM_STR-NAME1 sy-vline 
WA_BDCOM_STR-ORT01 sy-vline 
WA_BDCOM_STR-LAND1 sy-vline 
WA_BDCOM_STR-PSTLZ sy-vline 
WA_BDCOM_STR-LGNUM sy-vline 
WA_BDCOM_STR-LNUMT sy-vline 
WA_BDCOM_STR-BWLVS sy-vline 
WA_BDCOM_STR-LBWAT sy-vline 
WA_BDCOM_STR-PMATN sy-vline 
WA_BDCOM_STR-PMATX sy-vline 
WA_BDCOM_STR-PWERK sy-vline 
WA_BDCOM_STR-PWERX sy-vline 
WA_BDCOM_STR-KDANR sy-vline 
WA_BDCOM_STR-KDPOS sy-vline 
WA_BDCOM_STR-KDUMMY sy-vline 
WA_BDCOM_STR-SEL_CRIT_ONLY sy-vline 
WA_BDCOM_STR-SIMULATION_MODE sy-vline 
WA_BDCOM_STR-MRSL_MHDRZ sy-vline 
WA_BDCOM_STR-MRSL_IPRKZ sy-vline 
WA_BDCOM_STR-MRSL_PLIFZ sy-vline 
WA_BDCOM_STR-MILL_BATCH_SEL_F sy-vline 
WA_BDCOM_STR-MILL_BATCH_SEL_F_OLD sy-vline 
WA_BDCOM_STR-MILL_UCDET sy-vline      INTO ld_text SEPARATED BY SPACE.

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