ABAP Select data from SAP table RJGEUWV_POS 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 RJGEUWV_POS 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 RJGEUWV_POS. 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 RJGEUWV_POS 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_RJGEUWV_POS TYPE STANDARD TABLE OF RJGEUWV_POS,
      WA_RJGEUWV_POS TYPE RJGEUWV_POS,
      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: <RJGEUWV_POS> TYPE RJGEUWV_POS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RJGEUWV_POS
*  INTO TABLE @DATA(IT_RJGEUWV_POS2).
*--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_RJGEUWV_POS INDEX 1 INTO DATA(WA_RJGEUWV_POS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RJGEUWV_POS>-EVKSTART = 1.
<RJGEUWV_POS>-EVKSTBEZ = 1.
<RJGEUWV_POS>-SEASON = 1.
<RJGEUWV_POS>-CHAINCODE = 1.
<RJGEUWV_POS>-CHAINCHANNEL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RJGEUWV_POS-CHAINID, sy-vline,
  WA_RJGEUWV_POS-SHOPINSHOP, sy-vline,
  WA_RJGEUWV_POS-SHOPINSHOP_AREA, sy-vline,
  WA_RJGEUWV_POS-SHOP_CATEGORY, sy-vline,
  WA_RJGEUWV_POS-EVKFLAECHE, sy-vline,
  WA_RJGEUWV_POS-ISMGEOKATEGORIE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RJGEUWV_POS 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_RJGEUWV_POS 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_RJGEUWV_POS INTO WA_RJGEUWV_POS.


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

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

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

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

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

*Conversion exit ALPHA, internal->external for field EUMSEINFL3
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJGEUWV_POS-EUMSEINFL3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJGEUWV_POS-EUMSEINFL3.
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_RJGEUWV_POS_STR, 
EVKSTART TYPE STRING,
EVKSTBEZ TYPE STRING,
SEASON TYPE STRING,
CHAINCODE TYPE STRING,
CHAINCHANNEL TYPE STRING,
CHAINID TYPE STRING,
SHOPINSHOP TYPE STRING,
SHOPINSHOP_AREA TYPE STRING,
SHOP_CATEGORY TYPE STRING,
EVKFLAECHE TYPE STRING,
ISMGEOKATEGORIE TYPE STRING,
NO_OF_POS TYPE STRING,
NO_OF_SUPPLIERS TYPE STRING,
PRESS_SALESCAT TYPE STRING,
PRESS_SALESVOL TYPE STRING,
IUMSEINFL TYPE STRING,
IUMSEINFL2 TYPE STRING,
IUMSEINFL3 TYPE STRING,
EUMSEINFL TYPE STRING,
EUMSEINFL2 TYPE STRING,
EUMSEINFL3 TYPE STRING,
EFREQUENZ TYPE STRING,
EFREQUENCE_ORIG TYPE STRING,
CASH_SCANNER TYPE STRING,
SALES_COUNTER TYPE STRING,
EBEDIENART TYPE STRING,
ISMNUMBERPOSTERS TYPE STRING,
ISMPLANCALENDER TYPE STRING,
BUSINESSHOURS_ID TYPE STRING,
OPEN_MOR_MO TYPE STRING,
CLOSE_MOR_MO TYPE STRING,
OPEN_AFT_MO TYPE STRING,
CLOSE_AFT_MO TYPE STRING,
OPEN_MOR_TU TYPE STRING,
CLOSE_MOR_TU TYPE STRING,
OPEN_AFT_TU TYPE STRING,
CLOSE_AFT_TU TYPE STRING,
OPEN_MOR_WE TYPE STRING,
CLOSE_MOR_WE TYPE STRING,
OPEN_AFT_WE TYPE STRING,
CLOSE_AFT_WE TYPE STRING,
OPEN_MOR_TH TYPE STRING,
CLOSE_MOR_TH TYPE STRING,
OPEN_AFT_TH TYPE STRING,
CLOSE_AFT_TH TYPE STRING,
OPEN_MOR_FR TYPE STRING,
CLOSE_MOR_FR TYPE STRING,
OPEN_AFT_FR TYPE STRING,
CLOSE_AFT_FR TYPE STRING,
OPEN_MOR_SA TYPE STRING,
CLOSE_MOR_SA TYPE STRING,
OPEN_AFT_SA TYPE STRING,
CLOSE_AFT_SA TYPE STRING,
OPEN_MOR_SU TYPE STRING,
CLOSE_MOR_SU TYPE STRING,
OPEN_AFT_SU TYPE STRING,
CLOSE_AFT_SU TYPE STRING,
OEFFZT TYPE STRING,
SCHLZT TYPE STRING,
OEFFMO TYPE STRING,
OEFFDI TYPE STRING,
OEFFMI TYPE STRING,
OEFFDO TYPE STRING,
OEFFFR TYPE STRING,
OEFFSA TYPE STRING,
OEFFSO TYPE STRING,
XLOTTO TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RJGEUWV_POS_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_RJGEUWV_POS_STR-EVKSTART sy-vline 
WA_RJGEUWV_POS_STR-EVKSTBEZ sy-vline 
WA_RJGEUWV_POS_STR-SEASON sy-vline 
WA_RJGEUWV_POS_STR-CHAINCODE sy-vline 
WA_RJGEUWV_POS_STR-CHAINCHANNEL sy-vline 
WA_RJGEUWV_POS_STR-CHAINID sy-vline 
WA_RJGEUWV_POS_STR-SHOPINSHOP sy-vline 
WA_RJGEUWV_POS_STR-SHOPINSHOP_AREA sy-vline 
WA_RJGEUWV_POS_STR-SHOP_CATEGORY sy-vline 
WA_RJGEUWV_POS_STR-EVKFLAECHE sy-vline 
WA_RJGEUWV_POS_STR-ISMGEOKATEGORIE sy-vline 
WA_RJGEUWV_POS_STR-NO_OF_POS sy-vline 
WA_RJGEUWV_POS_STR-NO_OF_SUPPLIERS sy-vline 
WA_RJGEUWV_POS_STR-PRESS_SALESCAT sy-vline 
WA_RJGEUWV_POS_STR-PRESS_SALESVOL sy-vline 
WA_RJGEUWV_POS_STR-IUMSEINFL sy-vline 
WA_RJGEUWV_POS_STR-IUMSEINFL2 sy-vline 
WA_RJGEUWV_POS_STR-IUMSEINFL3 sy-vline 
WA_RJGEUWV_POS_STR-EUMSEINFL sy-vline 
WA_RJGEUWV_POS_STR-EUMSEINFL2 sy-vline 
WA_RJGEUWV_POS_STR-EUMSEINFL3 sy-vline 
WA_RJGEUWV_POS_STR-EFREQUENZ sy-vline 
WA_RJGEUWV_POS_STR-EFREQUENCE_ORIG sy-vline 
WA_RJGEUWV_POS_STR-CASH_SCANNER sy-vline 
WA_RJGEUWV_POS_STR-SALES_COUNTER sy-vline 
WA_RJGEUWV_POS_STR-EBEDIENART sy-vline 
WA_RJGEUWV_POS_STR-ISMNUMBERPOSTERS sy-vline 
WA_RJGEUWV_POS_STR-ISMPLANCALENDER sy-vline 
WA_RJGEUWV_POS_STR-BUSINESSHOURS_ID sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_MO sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_MO sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_MO sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_MO sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_TU sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_TU sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_TU sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_TU sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_WE sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_WE sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_WE sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_WE sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_TH sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_TH sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_TH sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_TH sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_FR sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_FR sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_FR sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_FR sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_SA sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_SA sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_SA sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_SA sy-vline 
WA_RJGEUWV_POS_STR-OPEN_MOR_SU sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_MOR_SU sy-vline 
WA_RJGEUWV_POS_STR-OPEN_AFT_SU sy-vline 
WA_RJGEUWV_POS_STR-CLOSE_AFT_SU sy-vline 
WA_RJGEUWV_POS_STR-OEFFZT sy-vline 
WA_RJGEUWV_POS_STR-SCHLZT sy-vline 
WA_RJGEUWV_POS_STR-OEFFMO sy-vline 
WA_RJGEUWV_POS_STR-OEFFDI sy-vline 
WA_RJGEUWV_POS_STR-OEFFMI sy-vline 
WA_RJGEUWV_POS_STR-OEFFDO sy-vline 
WA_RJGEUWV_POS_STR-OEFFFR sy-vline 
WA_RJGEUWV_POS_STR-OEFFSA sy-vline 
WA_RJGEUWV_POS_STR-OEFFSO sy-vline 
WA_RJGEUWV_POS_STR-XLOTTO sy-vline      INTO ld_text SEPARATED BY SPACE.

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