ABAP Select data from SAP table E3MKALM 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 E3MKALM 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 E3MKALM. 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 E3MKALM 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_E3MKALM TYPE STANDARD TABLE OF E3MKALM,
WA_E3MKALM TYPE E3MKALM,
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: <E3MKALM> TYPE E3MKALM.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_E3MKALM.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM E3MKALM
INTO TABLE IT_E3MKALM.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM E3MKALM
* INTO TABLE @DATA(IT_E3MKALM2).
*--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_E3MKALM INDEX 1 INTO DATA(WA_E3MKALM2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_E3MKALM ASSIGNING <E3MKALM>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<E3MKALM>-MSGFN = 1.
<E3MKALM>-VERID = 1.
<E3MKALM>-BDATU = 1.
<E3MKALM>-ADATU = 1.
<E3MKALM>-STLAL = 1.
ENDLOOP. LOOP AT IT_E3MKALM INTO WA_E3MKALM. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_E3MKALM-STLAN, sy-vline,
WA_E3MKALM-PLNTY, sy-vline,
WA_E3MKALM-PLNNR, sy-vline,
WA_E3MKALM-ALNAL, sy-vline,
WA_E3MKALM-BESKZ, sy-vline,
WA_E3MKALM-SOBSL, sy-vline.
ENDLOOP. *Add any further fields from structure WA_E3MKALM 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_E3MKALM 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_E3MKALM INTO WA_E3MKALM. *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 STLAL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-STLAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-STLAL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PLNNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-PLNNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-PLNNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ALNAL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-ALNAL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-ALNAL.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PLNNG CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-PLNNG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-PLNNG.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ALNAG CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-ALNAG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-ALNAG.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PLNNM CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-PLNNM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-PLNNM.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ALNAM CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_E3MKALM-ALNAM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-ALNAM.
WRITE:/ 'New Value:', ld_input.
*Conversion exit MATN1, internal->external for field MATKO CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_E3MKALM-MATKO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_E3MKALM-MATKO.
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_E3MKALM_STR,
MSGFN TYPE STRING,
VERID TYPE STRING,
BDATU TYPE STRING,
ADATU TYPE STRING,
STLAL TYPE STRING,
STLAN TYPE STRING,
PLNTY TYPE STRING,
PLNNR TYPE STRING,
ALNAL TYPE STRING,
BESKZ TYPE STRING,
SOBSL TYPE STRING,
LOSGR TYPE STRING,
MDV01 TYPE STRING,
MDV02 TYPE STRING,
TEXT1 TYPE STRING,
EWAHR TYPE STRING,
VERTO TYPE STRING,
SERKZ TYPE STRING,
BSTMI TYPE STRING,
BSTMA TYPE STRING,
RGEKZ TYPE STRING,
ALORT TYPE STRING,
PLTYG TYPE STRING,
PLNNG TYPE STRING,
ALNAG TYPE STRING,
PLTYM TYPE STRING,
PLNNM TYPE STRING,
ALNAM TYPE STRING,
CSPLT TYPE STRING,
MATKO TYPE STRING,
ELPRO TYPE STRING,
PRVBE TYPE STRING,END OF T_EKKO_STR. DATA: WA_E3MKALM_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_E3MKALM_STR-MSGFN sy-vline
WA_E3MKALM_STR-VERID sy-vline
WA_E3MKALM_STR-BDATU sy-vline
WA_E3MKALM_STR-ADATU sy-vline
WA_E3MKALM_STR-STLAL sy-vline
WA_E3MKALM_STR-STLAN sy-vline
WA_E3MKALM_STR-PLNTY sy-vline
WA_E3MKALM_STR-PLNNR sy-vline
WA_E3MKALM_STR-ALNAL sy-vline
WA_E3MKALM_STR-BESKZ sy-vline
WA_E3MKALM_STR-SOBSL sy-vline
WA_E3MKALM_STR-LOSGR sy-vline
WA_E3MKALM_STR-MDV01 sy-vline
WA_E3MKALM_STR-MDV02 sy-vline
WA_E3MKALM_STR-TEXT1 sy-vline
WA_E3MKALM_STR-EWAHR sy-vline
WA_E3MKALM_STR-VERTO sy-vline
WA_E3MKALM_STR-SERKZ sy-vline
WA_E3MKALM_STR-BSTMI sy-vline
WA_E3MKALM_STR-BSTMA sy-vline
WA_E3MKALM_STR-RGEKZ sy-vline
WA_E3MKALM_STR-ALORT sy-vline
WA_E3MKALM_STR-PLTYG sy-vline
WA_E3MKALM_STR-PLNNG sy-vline
WA_E3MKALM_STR-ALNAG sy-vline
WA_E3MKALM_STR-PLTYM sy-vline
WA_E3MKALM_STR-PLNNM sy-vline
WA_E3MKALM_STR-ALNAM sy-vline
WA_E3MKALM_STR-CSPLT sy-vline
WA_E3MKALM_STR-MATKO sy-vline
WA_E3MKALM_STR-ELPRO sy-vline
WA_E3MKALM_STR-PRVBE sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
