ABAP Select data from SAP table RFVIMAPARA 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 RFVIMAPARA 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 RFVIMAPARA. 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 RFVIMAPARA 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_RFVIMAPARA TYPE STANDARD TABLE OF RFVIMAPARA,
      WA_RFVIMAPARA TYPE RFVIMAPARA,
      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: <RFVIMAPARA> TYPE RFVIMAPARA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RFVIMAPARA
*  INTO TABLE @DATA(IT_RFVIMAPARA2).
*--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_RFVIMAPARA INDEX 1 INTO DATA(WA_RFVIMAPARA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RFVIMAPARA>-BUKRS = 1.
<RFVIMAPARA>-SIHMA = 1.
<RFVIMAPARA>-SGUTA = 1.
<RFVIMAPARA>-WBSWENR = 1.
<RFVIMAPARA>-WBDATUM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RFVIMAPARA-SWBNR, sy-vline,
  WA_RFVIMAPARA-SWBIND, sy-vline,
  WA_RFVIMAPARA-DWBBIS, sy-vline,
  WA_RFVIMAPARA-DGUELAB, sy-vline,
  WA_RFVIMAPARA-XIDENT, sy-vline,
  WA_RFVIMAPARA-SKOART, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RFVIMAPARA 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_RFVIMAPARA 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_RFVIMAPARA INTO WA_RFVIMAPARA.


*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 SWENR, internal->external for field WBSWENR
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_RFVIMAPARA-WBSWENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RFVIMAPARA-WBSWENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field AREAKEY
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RFVIMAPARA-AREAKEY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RFVIMAPARA-AREAKEY.
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_RFVIMAPARA_STR, 
BUKRS TYPE STRING,
SIHMA TYPE STRING,
SGUTA TYPE STRING,
WBSWENR TYPE STRING,
WBDATUM TYPE STRING,
SWBNR TYPE STRING,
SWBIND TYPE STRING,
DWBBIS TYPE STRING,
DGUELAB TYPE STRING,
XIDENT TYPE STRING,
SKOART TYPE STRING,
SANPME TYPE STRING,
DZUBIS TYPE STRING,
SADJRSN TYPE STRING,
JFUTANP TYPE STRING,
JINCWZ TYPE STRING,
AMDLFZ TYPE STRING,
ACTIVCODE TYPE STRING,
AGREECODE TYPE STRING,
ACCPTCODE TYPE STRING,
REJCTCODE TYPE STRING,
ANPSKCODE TYPE STRING,
MRKVGCODE TYPE STRING,
JADJSRCMV TYPE STRING,
JADJSRCME TYPE STRING,
JADJSRCAL TYPE STRING,
JCUTMEVAL TYPE STRING,
JNEWCONMV TYPE STRING,
JNEWCONME TYPE STRING,
JADJME_NE TYPE STRING,
JADJME_NA TYPE STRING,
JADJME_LK TYPE STRING,
JADJME_EL TYPE STRING,
JADJNACMV TYPE STRING,
JADJVACME TYPE STRING,
JUSURY TYPE STRING,
PUSURY TYPE STRING,
JMEPRZ TYPE STRING,
JANPOB TYPE STRING,
JSNKMZR TYPE STRING,
NLFDMD TYPE STRING,
NLFDOU TYPE STRING,
JSNKRULE TYPE STRING,
JANPMZR TYPE STRING,
JANPOU TYPE STRING,
DKUENEXT TYPE STRING,
JKUENEXT TYPE STRING,
JBASHZ TYPE STRING,
JBASTI TYPE STRING,
JBASUB TYPE STRING,
JBASBR TYPE STRING,
JBASOU TYPE STRING,
DHPZS TYPE STRING,
DTEUR TYPE STRING,
DUTBK TYPE STRING,
XUSEBM TYPE STRING,
PUSEBM TYPE STRING,
XAUFLMR TYPE STRING,
PAUFLMR TYPE STRING,
PMAXRL TYPE STRING,
BMAXAG TYPE STRING,
BMAXAF TYPE STRING,
JCPMVTOME TYPE STRING,
JCPMETOMV TYPE STRING,
SKOTYPBK TYPE STRING,
SKOTYPAO TYPE STRING,
PRTLEVEL TYPE STRING,
JKOPOALL TYPE STRING,
JEXTLIST TYPE STRING,
JDIRECT TYPE STRING,
JNOSAVE TYPE STRING,
PERH_RL TYPE STRING,
BERH_GS TYPE STRING,
BERH_FE TYPE STRING,
BNEU_GS TYPE STRING,
BNEU_FE TYPE STRING,
CURR_GS TYPE STRING,
AREA_GS TYPE STRING,
PERH_RX TYPE STRING,
CURRKEY TYPE STRING,
AREAKEY TYPE STRING,
JFOLLOWMV TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RFVIMAPARA_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_RFVIMAPARA_STR-BUKRS sy-vline 
WA_RFVIMAPARA_STR-SIHMA sy-vline 
WA_RFVIMAPARA_STR-SGUTA sy-vline 
WA_RFVIMAPARA_STR-WBSWENR sy-vline 
WA_RFVIMAPARA_STR-WBDATUM sy-vline 
WA_RFVIMAPARA_STR-SWBNR sy-vline 
WA_RFVIMAPARA_STR-SWBIND sy-vline 
WA_RFVIMAPARA_STR-DWBBIS sy-vline 
WA_RFVIMAPARA_STR-DGUELAB sy-vline 
WA_RFVIMAPARA_STR-XIDENT sy-vline 
WA_RFVIMAPARA_STR-SKOART sy-vline 
WA_RFVIMAPARA_STR-SANPME sy-vline 
WA_RFVIMAPARA_STR-DZUBIS sy-vline 
WA_RFVIMAPARA_STR-SADJRSN sy-vline 
WA_RFVIMAPARA_STR-JFUTANP sy-vline 
WA_RFVIMAPARA_STR-JINCWZ sy-vline 
WA_RFVIMAPARA_STR-AMDLFZ sy-vline 
WA_RFVIMAPARA_STR-ACTIVCODE sy-vline 
WA_RFVIMAPARA_STR-AGREECODE sy-vline 
WA_RFVIMAPARA_STR-ACCPTCODE sy-vline 
WA_RFVIMAPARA_STR-REJCTCODE sy-vline 
WA_RFVIMAPARA_STR-ANPSKCODE sy-vline 
WA_RFVIMAPARA_STR-MRKVGCODE sy-vline 
WA_RFVIMAPARA_STR-JADJSRCMV sy-vline 
WA_RFVIMAPARA_STR-JADJSRCME sy-vline 
WA_RFVIMAPARA_STR-JADJSRCAL sy-vline 
WA_RFVIMAPARA_STR-JCUTMEVAL sy-vline 
WA_RFVIMAPARA_STR-JNEWCONMV sy-vline 
WA_RFVIMAPARA_STR-JNEWCONME sy-vline 
WA_RFVIMAPARA_STR-JADJME_NE sy-vline 
WA_RFVIMAPARA_STR-JADJME_NA sy-vline 
WA_RFVIMAPARA_STR-JADJME_LK sy-vline 
WA_RFVIMAPARA_STR-JADJME_EL sy-vline 
WA_RFVIMAPARA_STR-JADJNACMV sy-vline 
WA_RFVIMAPARA_STR-JADJVACME sy-vline 
WA_RFVIMAPARA_STR-JUSURY sy-vline 
WA_RFVIMAPARA_STR-PUSURY sy-vline 
WA_RFVIMAPARA_STR-JMEPRZ sy-vline 
WA_RFVIMAPARA_STR-JANPOB sy-vline 
WA_RFVIMAPARA_STR-JSNKMZR sy-vline 
WA_RFVIMAPARA_STR-NLFDMD sy-vline 
WA_RFVIMAPARA_STR-NLFDOU sy-vline 
WA_RFVIMAPARA_STR-JSNKRULE sy-vline 
WA_RFVIMAPARA_STR-JANPMZR sy-vline 
WA_RFVIMAPARA_STR-JANPOU sy-vline 
WA_RFVIMAPARA_STR-DKUENEXT sy-vline 
WA_RFVIMAPARA_STR-JKUENEXT sy-vline 
WA_RFVIMAPARA_STR-JBASHZ sy-vline 
WA_RFVIMAPARA_STR-JBASTI sy-vline 
WA_RFVIMAPARA_STR-JBASUB sy-vline 
WA_RFVIMAPARA_STR-JBASBR sy-vline 
WA_RFVIMAPARA_STR-JBASOU sy-vline 
WA_RFVIMAPARA_STR-DHPZS sy-vline 
WA_RFVIMAPARA_STR-DTEUR sy-vline 
WA_RFVIMAPARA_STR-DUTBK sy-vline 
WA_RFVIMAPARA_STR-XUSEBM sy-vline 
WA_RFVIMAPARA_STR-PUSEBM sy-vline 
WA_RFVIMAPARA_STR-XAUFLMR sy-vline 
WA_RFVIMAPARA_STR-PAUFLMR sy-vline 
WA_RFVIMAPARA_STR-PMAXRL sy-vline 
WA_RFVIMAPARA_STR-BMAXAG sy-vline 
WA_RFVIMAPARA_STR-BMAXAF sy-vline 
WA_RFVIMAPARA_STR-JCPMVTOME sy-vline 
WA_RFVIMAPARA_STR-JCPMETOMV sy-vline 
WA_RFVIMAPARA_STR-SKOTYPBK sy-vline 
WA_RFVIMAPARA_STR-SKOTYPAO sy-vline 
WA_RFVIMAPARA_STR-PRTLEVEL sy-vline 
WA_RFVIMAPARA_STR-JKOPOALL sy-vline 
WA_RFVIMAPARA_STR-JEXTLIST sy-vline 
WA_RFVIMAPARA_STR-JDIRECT sy-vline 
WA_RFVIMAPARA_STR-JNOSAVE sy-vline 
WA_RFVIMAPARA_STR-PERH_RL sy-vline 
WA_RFVIMAPARA_STR-BERH_GS sy-vline 
WA_RFVIMAPARA_STR-BERH_FE sy-vline 
WA_RFVIMAPARA_STR-BNEU_GS sy-vline 
WA_RFVIMAPARA_STR-BNEU_FE sy-vline 
WA_RFVIMAPARA_STR-CURR_GS sy-vline 
WA_RFVIMAPARA_STR-AREA_GS sy-vline 
WA_RFVIMAPARA_STR-PERH_RX sy-vline 
WA_RFVIMAPARA_STR-CURRKEY sy-vline 
WA_RFVIMAPARA_STR-AREAKEY sy-vline 
WA_RFVIMAPARA_STR-JFOLLOWMV sy-vline      INTO ld_text SEPARATED BY SPACE.

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