ABAP Select data from SAP table REMOB_BROKER_MEAS_OR 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 REMOB_BROKER_MEAS_OR 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 REMOB_BROKER_MEAS_OR. 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 REMOB_BROKER_MEAS_OR 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_REMOB_BROKER_MEAS_OR TYPE STANDARD TABLE OF REMOB_BROKER_MEAS_OR,
      WA_REMOB_BROKER_MEAS_OR TYPE REMOB_BROKER_MEAS_OR,
      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: <REMOB_BROKER_MEAS_OR> TYPE REMOB_BROKER_MEAS_OR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM REMOB_BROKER_MEAS_OR
*  INTO TABLE @DATA(IT_REMOB_BROKER_MEAS_OR2).
*--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_REMOB_BROKER_MEAS_OR INDEX 1 INTO DATA(WA_REMOB_BROKER_MEAS_OR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<REMOB_BROKER_MEAS_OR>-MANDT = 1.
<REMOB_BROKER_MEAS_OR>-RRTYPE = 1.
<REMOB_BROKER_MEAS_OR>-ACQUISTYPE = 1.
<REMOB_BROKER_MEAS_OR>-MS01 = 1.
<REMOB_BROKER_MEAS_OR>-MSTOLHIGH01 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_REMOB_BROKER_MEAS_OR-MSTOLLOW01, sy-vline,
  WA_REMOB_BROKER_MEAS_OR-MSAPPARENT01, sy-vline,
  WA_REMOB_BROKER_MEAS_OR-MSLINKNEXT01, sy-vline,
  WA_REMOB_BROKER_MEAS_OR-MS02, sy-vline,
  WA_REMOB_BROKER_MEAS_OR-MSTOLHIGH02, sy-vline,
  WA_REMOB_BROKER_MEAS_OR-MSTOLLOW02, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_REMOB_BROKER_MEAS_OR 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_REMOB_BROKER_MEAS_OR 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_REMOB_BROKER_MEAS_OR INTO WA_REMOB_BROKER_MEAS_OR.


*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 MS01
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_REMOB_BROKER_MEAS_OR-MS01
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REMOB_BROKER_MEAS_OR-MS01.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field MEASUNITDEF04
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_REMOB_BROKER_MEAS_OR-MEASUNITDEF04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REMOB_BROKER_MEAS_OR-MEASUNITDEF04.
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_REMOB_BROKER_MEAS_OR_STR, 
MANDT TYPE STRING,
RRTYPE TYPE STRING,
ACQUISTYPE TYPE STRING,
MS01 TYPE STRING,
MSTOLHIGH01 TYPE STRING,
MSTOLLOW01 TYPE STRING,
MSAPPARENT01 TYPE STRING,
MSLINKNEXT01 TYPE STRING,
MS02 TYPE STRING,
MSTOLHIGH02 TYPE STRING,
MSTOLLOW02 TYPE STRING,
MSAPPARENT02 TYPE STRING,
MSLINKNEXT02 TYPE STRING,
MS03 TYPE STRING,
MSTOLHIGH03 TYPE STRING,
MSTOLLOW03 TYPE STRING,
MSAPPARENT03 TYPE STRING,
MSLINKNEXT03 TYPE STRING,
MS04 TYPE STRING,
MSTOLHIGH04 TYPE STRING,
MSTOLLOW04 TYPE STRING,
MSAPPARENT04 TYPE STRING,
MSLINKNEXT04 TYPE STRING,
XMMEAS01 TYPE STRING,
XSMEAS01 TYPE STRING,
ISSUMMEAS01 TYPE STRING,
MEASUNITDEF01 TYPE STRING,
XMMEAS02 TYPE STRING,
XSMEAS02 TYPE STRING,
ISSUMMEAS02 TYPE STRING,
MEASUNITDEF02 TYPE STRING,
XMMEAS03 TYPE STRING,
XSMEAS03 TYPE STRING,
ISSUMMEAS03 TYPE STRING,
MEASUNITDEF03 TYPE STRING,
XMMEAS04 TYPE STRING,
XSMEAS04 TYPE STRING,
ISSUMMEAS04 TYPE STRING,
MEASUNITDEF04 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_REMOB_BROKER_MEAS_OR_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_REMOB_BROKER_MEAS_OR_STR-MANDT sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-RRTYPE sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-ACQUISTYPE sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MS01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLHIGH01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLLOW01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSAPPARENT01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSLINKNEXT01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MS02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLHIGH02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLLOW02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSAPPARENT02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSLINKNEXT02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MS03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLHIGH03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLLOW03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSAPPARENT03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSLINKNEXT03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MS04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLHIGH04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSTOLLOW04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSAPPARENT04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MSLINKNEXT04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XMMEAS01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XSMEAS01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-ISSUMMEAS01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MEASUNITDEF01 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XMMEAS02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XSMEAS02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-ISSUMMEAS02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MEASUNITDEF02 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XMMEAS03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XSMEAS03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-ISSUMMEAS03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MEASUNITDEF03 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XMMEAS04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-XSMEAS04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-ISSUMMEAS04 sy-vline 
WA_REMOB_BROKER_MEAS_OR_STR-MEASUNITDEF04 sy-vline      INTO ld_text SEPARATED BY SPACE.

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