ABAP Select data from SAP table IDCFM_BST_CFMAV 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 IDCFM_BST_CFMAV 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 IDCFM_BST_CFMAV. 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 IDCFM_BST_CFMAV 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_IDCFM_BST_CFMAV TYPE STANDARD TABLE OF IDCFM_BST_CFMAV,
      WA_IDCFM_BST_CFMAV TYPE IDCFM_BST_CFMAV,
      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: <IDCFM_BST_CFMAV> TYPE IDCFM_BST_CFMAV.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IDCFM_BST_CFMAV
*  INTO TABLE @DATA(IT_IDCFM_BST_CFMAV2).
*--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_IDCFM_BST_CFMAV INDEX 1 INTO DATA(WA_IDCFM_BST_CFMAV2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_IDCFM_BST_CFMAV ASSIGNING <IDCFM_BST_CFMAV>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<IDCFM_BST_CFMAV>-MANDT = 1.
<IDCFM_BST_CFMAV>-BUKRS = 1.
<IDCFM_BST_CFMAV>-VALUATION_AREA = 1.
<IDCFM_BST_CFMAV>-GSART = 1.
<IDCFM_BST_CFMAV>-RANTYP = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IDCFM_BST_CFMAV-PARTNER, sy-vline,
WA_IDCFM_BST_CFMAV-RREFKONT, sy-vline,
WA_IDCFM_BST_CFMAV-TRAN_CAT, sy-vline,
WA_IDCFM_BST_CFMAV-POST_TYPE, sy-vline,
WA_IDCFM_BST_CFMAV-DIRECTION, sy-vline,
WA_IDCFM_BST_CFMAV-TOLONG, sy-vline.
ENDLOOP. *Add any further fields from structure WA_IDCFM_BST_CFMAV 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_IDCFM_BST_CFMAV 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_IDCFM_BST_CFMAV INTO WA_IDCFM_BST_CFMAV. *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 PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IDCFM_BST_CFMAV-PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDCFM_BST_CFMAV-PARTNER.
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_IDCFM_BST_CFMAV_STR,
MANDT TYPE STRING,
BUKRS TYPE STRING,
VALUATION_AREA TYPE STRING,
GSART TYPE STRING,
RANTYP TYPE STRING,
PARTNER TYPE STRING,
RREFKONT TYPE STRING,
TRAN_CAT TYPE STRING,
POST_TYPE TYPE STRING,
DIRECTION TYPE STRING,
TOLONG TYPE STRING,
TOMEDIUM TYPE STRING,
TOSHORT TYPE STRING,
L2S TYPE STRING,
M2S TYPE STRING,
L2M TYPE STRING,
S2M TYPE STRING,
M2L TYPE STRING,
S2L TYPE STRING,
EXCLG TYPE STRING,END OF T_EKKO_STR. DATA: WA_IDCFM_BST_CFMAV_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_IDCFM_BST_CFMAV_STR-MANDT sy-vline
WA_IDCFM_BST_CFMAV_STR-BUKRS sy-vline
WA_IDCFM_BST_CFMAV_STR-VALUATION_AREA sy-vline
WA_IDCFM_BST_CFMAV_STR-GSART sy-vline
WA_IDCFM_BST_CFMAV_STR-RANTYP sy-vline
WA_IDCFM_BST_CFMAV_STR-PARTNER sy-vline
WA_IDCFM_BST_CFMAV_STR-RREFKONT sy-vline
WA_IDCFM_BST_CFMAV_STR-TRAN_CAT sy-vline
WA_IDCFM_BST_CFMAV_STR-POST_TYPE sy-vline
WA_IDCFM_BST_CFMAV_STR-DIRECTION sy-vline
WA_IDCFM_BST_CFMAV_STR-TOLONG sy-vline
WA_IDCFM_BST_CFMAV_STR-TOMEDIUM sy-vline
WA_IDCFM_BST_CFMAV_STR-TOSHORT sy-vline
WA_IDCFM_BST_CFMAV_STR-L2S sy-vline
WA_IDCFM_BST_CFMAV_STR-M2S sy-vline
WA_IDCFM_BST_CFMAV_STR-L2M sy-vline
WA_IDCFM_BST_CFMAV_STR-S2M sy-vline
WA_IDCFM_BST_CFMAV_STR-M2L sy-vline
WA_IDCFM_BST_CFMAV_STR-S2L sy-vline
WA_IDCFM_BST_CFMAV_STR-EXCLG sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.