ABAP Select data from SAP table MPOS_ADDITION 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 MPOS_ADDITION 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 MPOS_ADDITION. 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 MPOS_ADDITION 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_MPOS_ADDITION TYPE STANDARD TABLE OF MPOS_ADDITION,
      WA_MPOS_ADDITION TYPE MPOS_ADDITION,
      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: <MPOS_ADDITION> TYPE MPOS_ADDITION.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MPOS_ADDITION
*  INTO TABLE @DATA(IT_MPOS_ADDITION2).
*--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_MPOS_ADDITION INDEX 1 INTO DATA(WA_MPOS_ADDITION2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MPOS_ADDITION>-MPOS_UPD = 1.
<MPOS_ADDITION>-DBKNZ = 1.
<MPOS_ADDITION>-IND_STATUS_UPD = 1.
<MPOS_ADDITION>-IND_TASK_LIST_DEL = 1.
<MPOS_ADDITION>-IND_LTEXT_UPD = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MPOS_ADDITION-IND_SETTLE_RULE_UPD, sy-vline,
  WA_MPOS_ADDITION-IND_ILOA_UPD, sy-vline,
  WA_MPOS_ADDITION-IND_OBJK_UPD, sy-vline,
  WA_MPOS_ADDITION-IND_SERV_PACK, sy-vline,
  WA_MPOS_ADDITION-IND_NEW_TASK_LST, sy-vline,
  WA_MPOS_ADDITION-IND_NO_CALL_OBJECT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MPOS_ADDITION 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_MPOS_ADDITION 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_MPOS_ADDITION INTO WA_MPOS_ADDITION.


*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 MATN1, internal->external for field MATSV
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_MPOS_ADDITION-MATSV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MPOS_ADDITION-MATSV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TPLNR, internal->external for field TPLNR
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_MPOS_ADDITION-TPLNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MPOS_ADDITION-TPLNR.
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_MPOS_ADDITION_STR, 
MPOS_UPD TYPE STRING,
DBKNZ TYPE STRING,
IND_STATUS_UPD TYPE STRING,
IND_TASK_LIST_DEL TYPE STRING,
IND_LTEXT_UPD TYPE STRING,
IND_SETTLE_RULE_UPD TYPE STRING,
IND_ILOA_UPD TYPE STRING,
IND_OBJK_UPD TYPE STRING,
IND_SERV_PACK TYPE STRING,
IND_NEW_TASK_LST TYPE STRING,
IND_NO_CALL_OBJECT TYPE STRING,
GSBER_DUTY TYPE STRING,
KDAUF_OK TYPE STRING,
BUKRS TYPE STRING,
KOKRS TYPE STRING,
POSNR TYPE STRING,
MATSV TYPE STRING,
CUOBJ TYPE STRING,
TPLNR TYPE STRING,
PLTXT TYPE STRING,
EQKTX TYPE STRING,
BAUTX TYPE STRING,
ILOA_OBJNR TYPE STRING,
ILOA_SINIT TYPE STRING,
CALC_START TYPE STRING,
CALC_END TYPE STRING,
IND_OBJ_CHANGED TYPE STRING,
IND_WPGRP_INPUT TYPE STRING,
IND_GEWRK_INPUT TYPE STRING,
IND_IWERK_INPUT TYPE STRING,
LTKNZ_ACT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MPOS_ADDITION_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_MPOS_ADDITION_STR-MPOS_UPD sy-vline 
WA_MPOS_ADDITION_STR-DBKNZ sy-vline 
WA_MPOS_ADDITION_STR-IND_STATUS_UPD sy-vline 
WA_MPOS_ADDITION_STR-IND_TASK_LIST_DEL sy-vline 
WA_MPOS_ADDITION_STR-IND_LTEXT_UPD sy-vline 
WA_MPOS_ADDITION_STR-IND_SETTLE_RULE_UPD sy-vline 
WA_MPOS_ADDITION_STR-IND_ILOA_UPD sy-vline 
WA_MPOS_ADDITION_STR-IND_OBJK_UPD sy-vline 
WA_MPOS_ADDITION_STR-IND_SERV_PACK sy-vline 
WA_MPOS_ADDITION_STR-IND_NEW_TASK_LST sy-vline 
WA_MPOS_ADDITION_STR-IND_NO_CALL_OBJECT sy-vline 
WA_MPOS_ADDITION_STR-GSBER_DUTY sy-vline 
WA_MPOS_ADDITION_STR-KDAUF_OK sy-vline 
WA_MPOS_ADDITION_STR-BUKRS sy-vline 
WA_MPOS_ADDITION_STR-KOKRS sy-vline 
WA_MPOS_ADDITION_STR-POSNR sy-vline 
WA_MPOS_ADDITION_STR-MATSV sy-vline 
WA_MPOS_ADDITION_STR-CUOBJ sy-vline 
WA_MPOS_ADDITION_STR-TPLNR sy-vline 
WA_MPOS_ADDITION_STR-PLTXT sy-vline 
WA_MPOS_ADDITION_STR-EQKTX sy-vline 
WA_MPOS_ADDITION_STR-BAUTX sy-vline 
WA_MPOS_ADDITION_STR-ILOA_OBJNR sy-vline 
WA_MPOS_ADDITION_STR-ILOA_SINIT sy-vline 
WA_MPOS_ADDITION_STR-CALC_START sy-vline 
WA_MPOS_ADDITION_STR-CALC_END sy-vline 
WA_MPOS_ADDITION_STR-IND_OBJ_CHANGED sy-vline 
WA_MPOS_ADDITION_STR-IND_WPGRP_INPUT sy-vline 
WA_MPOS_ADDITION_STR-IND_GEWRK_INPUT sy-vline 
WA_MPOS_ADDITION_STR-IND_IWERK_INPUT sy-vline 
WA_MPOS_ADDITION_STR-LTKNZ_ACT sy-vline      INTO ld_text SEPARATED BY SPACE.

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