ABAP Select data from SAP table BAPICM61M 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 BAPICM61M 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 BAPICM61M. 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 BAPICM61M 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_BAPICM61M TYPE STANDARD TABLE OF BAPICM61M,
      WA_BAPICM61M TYPE BAPICM61M,
      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: <BAPICM61M> TYPE BAPICM61M.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPICM61M
*  INTO TABLE @DATA(IT_BAPICM61M2).
*--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_BAPICM61M INDEX 1 INTO DATA(WA_BAPICM61M2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPICM61M>-BANER = 1.
<BAPICM61M>-LIFKZ = 1.
<BAPICM61M>-DISER = 1.
<BAPICM61M>-WERTU = 1.
<BAPICM61M>-MENGU = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPICM61M-ANDEC, sy-vline,
  WA_BAPICM61M-USEQU, sy-vline,
  WA_BAPICM61M-SBDIS, sy-vline,
  WA_BAPICM61M-ICBED, sy-vline,
  WA_BAPICM61M-FXART, sy-vline,
  WA_BAPICM61M-FXHOR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPICM61M 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_BAPICM61M 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_BAPICM61M INTO WA_BAPICM61M.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_BAPICM61M_STR, 
BANER TYPE STRING,
LIFKZ TYPE STRING,
DISER TYPE STRING,
WERTU TYPE STRING,
MENGU TYPE STRING,
ANDEC TYPE STRING,
USEQU TYPE STRING,
SBDIS TYPE STRING,
ICBED TYPE STRING,
FXART TYPE STRING,
FXHOR TYPE STRING,
FIXTR TYPE STRING,
RESPL TYPE STRING,
RESHZ TYPE STRING,
RSTER TYPE STRING,
UMTHZ TYPE STRING,
UMTER TYPE STRING,
VWVOR TYPE STRING,
VWVER TYPE STRING,
PLAHZ TYPE STRING,
PLTER TYPE STRING,
WZTER TYPE STRING,
VRMOD TYPE STRING,
VINT1 TYPE STRING,
VINT2 TYPE STRING,
VPLAN TYPE STRING,
VPLAV TYPE STRING,
RVPKZ TYPE STRING,
RESVP TYPE STRING,
RVPTR TYPE STRING,
EXSGT TYPE STRING,
BESAL TYPE STRING,
GTERM TYPE STRING,
KZDRB TYPE STRING,
SETYP TYPE STRING,
PLNKZ TYPE STRING,
OSELT TYPE STRING,
PRREG TYPE STRING,
SUMAU TYPE STRING,
RWFLG TYPE STRING,
RWPER TYPE STRING,
RWANZ TYPE STRING,
RWART TYPE STRING,
RWNTG TYPE STRING,
RW1TG TYPE STRING,
RW1DT TYPE STRING,
RW2TG TYPE STRING,
RW2DT TYPE STRING,
RW3TG TYPE STRING,
MIRW1 TYPE STRING,
MIRW2 TYPE STRING,
MIRW3 TYPE STRING,
MARW1 TYPE STRING,
MARW2 TYPE STRING,
MARW3 TYPE STRING,
KZREG TYPE STRING,
RHEND TYPE STRING,
XFAT1 TYPE STRING,
ANDIS TYPE STRING,
PLIFZ TYPE STRING,
KZBED TYPE STRING,
PLSEL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPICM61M_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_BAPICM61M_STR-BANER sy-vline 
WA_BAPICM61M_STR-LIFKZ sy-vline 
WA_BAPICM61M_STR-DISER sy-vline 
WA_BAPICM61M_STR-WERTU sy-vline 
WA_BAPICM61M_STR-MENGU sy-vline 
WA_BAPICM61M_STR-ANDEC sy-vline 
WA_BAPICM61M_STR-USEQU sy-vline 
WA_BAPICM61M_STR-SBDIS sy-vline 
WA_BAPICM61M_STR-ICBED sy-vline 
WA_BAPICM61M_STR-FXART sy-vline 
WA_BAPICM61M_STR-FXHOR sy-vline 
WA_BAPICM61M_STR-FIXTR sy-vline 
WA_BAPICM61M_STR-RESPL sy-vline 
WA_BAPICM61M_STR-RESHZ sy-vline 
WA_BAPICM61M_STR-RSTER sy-vline 
WA_BAPICM61M_STR-UMTHZ sy-vline 
WA_BAPICM61M_STR-UMTER sy-vline 
WA_BAPICM61M_STR-VWVOR sy-vline 
WA_BAPICM61M_STR-VWVER sy-vline 
WA_BAPICM61M_STR-PLAHZ sy-vline 
WA_BAPICM61M_STR-PLTER sy-vline 
WA_BAPICM61M_STR-WZTER sy-vline 
WA_BAPICM61M_STR-VRMOD sy-vline 
WA_BAPICM61M_STR-VINT1 sy-vline 
WA_BAPICM61M_STR-VINT2 sy-vline 
WA_BAPICM61M_STR-VPLAN sy-vline 
WA_BAPICM61M_STR-VPLAV sy-vline 
WA_BAPICM61M_STR-RVPKZ sy-vline 
WA_BAPICM61M_STR-RESVP sy-vline 
WA_BAPICM61M_STR-RVPTR sy-vline 
WA_BAPICM61M_STR-EXSGT sy-vline 
WA_BAPICM61M_STR-BESAL sy-vline 
WA_BAPICM61M_STR-GTERM sy-vline 
WA_BAPICM61M_STR-KZDRB sy-vline 
WA_BAPICM61M_STR-SETYP sy-vline 
WA_BAPICM61M_STR-PLNKZ sy-vline 
WA_BAPICM61M_STR-OSELT sy-vline 
WA_BAPICM61M_STR-PRREG sy-vline 
WA_BAPICM61M_STR-SUMAU sy-vline 
WA_BAPICM61M_STR-RWFLG sy-vline 
WA_BAPICM61M_STR-RWPER sy-vline 
WA_BAPICM61M_STR-RWANZ sy-vline 
WA_BAPICM61M_STR-RWART sy-vline 
WA_BAPICM61M_STR-RWNTG sy-vline 
WA_BAPICM61M_STR-RW1TG sy-vline 
WA_BAPICM61M_STR-RW1DT sy-vline 
WA_BAPICM61M_STR-RW2TG sy-vline 
WA_BAPICM61M_STR-RW2DT sy-vline 
WA_BAPICM61M_STR-RW3TG sy-vline 
WA_BAPICM61M_STR-MIRW1 sy-vline 
WA_BAPICM61M_STR-MIRW2 sy-vline 
WA_BAPICM61M_STR-MIRW3 sy-vline 
WA_BAPICM61M_STR-MARW1 sy-vline 
WA_BAPICM61M_STR-MARW2 sy-vline 
WA_BAPICM61M_STR-MARW3 sy-vline 
WA_BAPICM61M_STR-KZREG sy-vline 
WA_BAPICM61M_STR-RHEND sy-vline 
WA_BAPICM61M_STR-XFAT1 sy-vline 
WA_BAPICM61M_STR-ANDIS sy-vline 
WA_BAPICM61M_STR-PLIFZ sy-vline 
WA_BAPICM61M_STR-KZBED sy-vline 
WA_BAPICM61M_STR-PLSEL sy-vline      INTO ld_text SEPARATED BY SPACE.

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