ABAP Select data from SAP table VIRPS406 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 VIRPS406 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 VIRPS406. 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 VIRPS406 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_VIRPS406 TYPE STANDARD TABLE OF VIRPS406,
      WA_VIRPS406 TYPE VIRPS406,
      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: <VIRPS406> TYPE VIRPS406.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VIRPS406
*  INTO TABLE @DATA(IT_VIRPS4062).
*--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_VIRPS406 INDEX 1 INTO DATA(WA_VIRPS4062).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<VIRPS406>-MANDT = 1.
<VIRPS406>-SSOUR = 1.
<VIRPS406>-VRSIO = 1.
<VIRPS406>-SPMON = 1.
<VIRPS406>-SPTAG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VIRPS406-SPWOC, sy-vline,
  WA_VIRPS406-SPBUP, sy-vline,
  WA_VIRPS406-BUKRS_01, sy-vline,
  WA_VIRPS406-GSBER_02, sy-vline,
  WA_VIRPS406-SWENR_03, sy-vline,
  WA_VIRPS406-SGRNR_04, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_VIRPS406 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_VIRPS406 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_VIRPS406 INTO WA_VIRPS406.


*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 PERI, internal->external for field SPMON
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SPMON
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SPMON.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field SPWOC
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SPWOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SPWOC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field SPBUP
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SPBUP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SPBUP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SWENR, internal->external for field SWENR_03
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SWENR_03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SWENR_03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field SGRNR_04
CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SGRNR_04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SGRNR_04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGENR, internal->external for field SGENR_05
CALL FUNCTION 'CONVERSION_EXIT_SGENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SGENR_05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SGENR_05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SMENR, internal->external for field SMENR_06
CALL FUNCTION 'CONVERSION_EXIT_SMENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SMENR_06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SMENR_06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SWENR, internal->external for field SWENR
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SWENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SWENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field SGRNR
CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SGRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SGRNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGENR, internal->external for field SGENR
CALL FUNCTION 'CONVERSION_EXIT_SGENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SGENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SGENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SMENR, internal->external for field SMENR
CALL FUNCTION 'CONVERSION_EXIT_SMENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-SMENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-SMENR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field XSTANDNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS406-XSTANDNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS406-XSTANDNR.
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_VIRPS406_STR, 
MANDT TYPE STRING,
SSOUR TYPE STRING,
VRSIO TYPE STRING,
SPMON TYPE STRING,
SPTAG TYPE STRING,
SPWOC TYPE STRING,
SPBUP TYPE STRING,
BUKRS_01 TYPE STRING,
GSBER_02 TYPE STRING,
SWENR_03 TYPE STRING,
SGRNR_04 TYPE STRING,
SGENR_05 TYPE STRING,
SMENR_06 TYPE STRING,
BUKRS TYPE STRING,
GSBER TYPE STRING,
SWENR TYPE STRING,
SGRNR TYPE STRING,
SGENR TYPE STRING,
SMENR TYPE STRING,
PERIV TYPE STRING,
VWDAT TYPE STRING,
USRUNIT1 TYPE STRING,
USRUNIT2 TYPE STRING,
USRCUKY1 TYPE STRING,
USRCUKY2 TYPE STRING,
WAERS TYPE STRING,
MEINS TYPE STRING,
FEINS TYPE STRING,
REINS TYPE STRING,
XORT TYPE STRING,
XPLZ TYPE STRING,
XSTRASSE TYPE STRING,
ANZME TYPE STRING,
USR02 TYPE STRING,
USR03 TYPE STRING,
USR00 TYPE STRING,
USR01 TYPE STRING,
USR08 TYPE STRING,
USR09 TYPE STRING,
USR10 TYPE STRING,
USR11 TYPE STRING,
USR04 TYPE STRING,
USR05 TYPE STRING,
USR06 TYPE STRING,
USR07 TYPE STRING,
FBEZUG TYPE STRING,
FQMFLART TYPE STRING,
DSFLART TYPE STRING,
SFLART TYPE STRING,
KOSTL TYPE STRING,
DATAB TYPE STRING,
ADRNR TYPE STRING,
OBJNR TYPE STRING,
INTRENO TYPE STRING,
PRCTR TYPE STRING,
STTXT_EXT TYPE STRING,
STTXT_INT TYPE STRING,
XMETXT TYPE STRING,
SKOART TYPE STRING,
BKOND TYPE STRING,
DGULTAB TYPE STRING,
SNUNR TYPE STRING,
XNUNR TYPE STRING,
SALTNR TYPE STRING,
SRAART TYPE STRING,
BRAART TYPE STRING,
SMERKMA TYPE STRING,
XMERKMA TYPE STRING,
SSTOCKW TYPE STRING,
XSTOCKW TYPE STRING,
RLGESCH TYPE STRING,
XLGESCH TYPE STRING,
DBEZU TYPE STRING,
SABRG TYPE STRING,
DGAB TYPE STRING,
BABRE TYPE STRING,
TXT04 TYPE STRING,
TXT30 TYPE STRING,
BELEAB TYPE STRING,
BELEBIS TYPE STRING,
DBEGEH TYPE STRING,
XBEGEH TYPE STRING,
PERHOE TYPE STRING,
RPROZGRD TYPE STRING,
XPROZGRD TYPE STRING,
SMOEBL TYPE STRING,
AZIMM TYPE STRING,
AHALBZI TYPE STRING,
XSTANDNR TYPE STRING,
JEIGWOHN TYPE STRING,
ABNNR TYPE STRING,
STECHEM TYPE STRING,
SSTCKBIS TYPE STRING,
JVORSTEIG TYPE STRING,
RFAKT TYPE STRING,
JKONDMV TYPE STRING,
PKONDMV TYPE STRING,
DFSTRBIS TYPE STRING,
JRMSCHPR TYPE STRING,
DHPZSAKT TYPE STRING,
DUTBKAKT TYPE STRING,
DTEURAKT TYPE STRING,
SMIETSP TYPE STRING,
XMIETSP TYPE STRING,
PZUABSP TYPE STRING,
SLAGK TYPE STRING,
XLAGK TYPE STRING,
SAUSTKL TYPE STRING,
XAUSTKL TYPE STRING,
DWTVERM TYPE STRING,
RBELBIND TYPE STRING,
XBELBIND TYPE STRING,
DBINDBIS TYPE STRING,
SBWNR TYPE STRING,
SPARTNR TYPE STRING,
XPARTNR TYPE STRING,
XNNPART TYPE STRING,
DRESAB TYPE STRING,
DRESBIS TYPE STRING,
UMBRAUM TYPE STRING,
SGEBT TYPE STRING,
XGEBT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_VIRPS406_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_VIRPS406_STR-MANDT sy-vline 
WA_VIRPS406_STR-SSOUR sy-vline 
WA_VIRPS406_STR-VRSIO sy-vline 
WA_VIRPS406_STR-SPMON sy-vline 
WA_VIRPS406_STR-SPTAG sy-vline 
WA_VIRPS406_STR-SPWOC sy-vline 
WA_VIRPS406_STR-SPBUP sy-vline 
WA_VIRPS406_STR-BUKRS_01 sy-vline 
WA_VIRPS406_STR-GSBER_02 sy-vline 
WA_VIRPS406_STR-SWENR_03 sy-vline 
WA_VIRPS406_STR-SGRNR_04 sy-vline 
WA_VIRPS406_STR-SGENR_05 sy-vline 
WA_VIRPS406_STR-SMENR_06 sy-vline 
WA_VIRPS406_STR-BUKRS sy-vline 
WA_VIRPS406_STR-GSBER sy-vline 
WA_VIRPS406_STR-SWENR sy-vline 
WA_VIRPS406_STR-SGRNR sy-vline 
WA_VIRPS406_STR-SGENR sy-vline 
WA_VIRPS406_STR-SMENR sy-vline 
WA_VIRPS406_STR-PERIV sy-vline 
WA_VIRPS406_STR-VWDAT sy-vline 
WA_VIRPS406_STR-USRUNIT1 sy-vline 
WA_VIRPS406_STR-USRUNIT2 sy-vline 
WA_VIRPS406_STR-USRCUKY1 sy-vline 
WA_VIRPS406_STR-USRCUKY2 sy-vline 
WA_VIRPS406_STR-WAERS sy-vline 
WA_VIRPS406_STR-MEINS sy-vline 
WA_VIRPS406_STR-FEINS sy-vline 
WA_VIRPS406_STR-REINS sy-vline 
WA_VIRPS406_STR-XORT sy-vline 
WA_VIRPS406_STR-XPLZ sy-vline 
WA_VIRPS406_STR-XSTRASSE sy-vline 
WA_VIRPS406_STR-ANZME sy-vline 
WA_VIRPS406_STR-USR02 sy-vline 
WA_VIRPS406_STR-USR03 sy-vline 
WA_VIRPS406_STR-USR00 sy-vline 
WA_VIRPS406_STR-USR01 sy-vline 
WA_VIRPS406_STR-USR08 sy-vline 
WA_VIRPS406_STR-USR09 sy-vline 
WA_VIRPS406_STR-USR10 sy-vline 
WA_VIRPS406_STR-USR11 sy-vline 
WA_VIRPS406_STR-USR04 sy-vline 
WA_VIRPS406_STR-USR05 sy-vline 
WA_VIRPS406_STR-USR06 sy-vline 
WA_VIRPS406_STR-USR07 sy-vline 
WA_VIRPS406_STR-FBEZUG sy-vline 
WA_VIRPS406_STR-FQMFLART sy-vline 
WA_VIRPS406_STR-DSFLART sy-vline 
WA_VIRPS406_STR-SFLART sy-vline 
WA_VIRPS406_STR-KOSTL sy-vline 
WA_VIRPS406_STR-DATAB sy-vline 
WA_VIRPS406_STR-ADRNR sy-vline 
WA_VIRPS406_STR-OBJNR sy-vline 
WA_VIRPS406_STR-INTRENO sy-vline 
WA_VIRPS406_STR-PRCTR sy-vline 
WA_VIRPS406_STR-STTXT_EXT sy-vline 
WA_VIRPS406_STR-STTXT_INT sy-vline 
WA_VIRPS406_STR-XMETXT sy-vline 
WA_VIRPS406_STR-SKOART sy-vline 
WA_VIRPS406_STR-BKOND sy-vline 
WA_VIRPS406_STR-DGULTAB sy-vline 
WA_VIRPS406_STR-SNUNR sy-vline 
WA_VIRPS406_STR-XNUNR sy-vline 
WA_VIRPS406_STR-SALTNR sy-vline 
WA_VIRPS406_STR-SRAART sy-vline 
WA_VIRPS406_STR-BRAART sy-vline 
WA_VIRPS406_STR-SMERKMA sy-vline 
WA_VIRPS406_STR-XMERKMA sy-vline 
WA_VIRPS406_STR-SSTOCKW sy-vline 
WA_VIRPS406_STR-XSTOCKW sy-vline 
WA_VIRPS406_STR-RLGESCH sy-vline 
WA_VIRPS406_STR-XLGESCH sy-vline 
WA_VIRPS406_STR-DBEZU sy-vline 
WA_VIRPS406_STR-SABRG sy-vline 
WA_VIRPS406_STR-DGAB sy-vline 
WA_VIRPS406_STR-BABRE sy-vline 
WA_VIRPS406_STR-TXT04 sy-vline 
WA_VIRPS406_STR-TXT30 sy-vline 
WA_VIRPS406_STR-BELEAB sy-vline 
WA_VIRPS406_STR-BELEBIS sy-vline 
WA_VIRPS406_STR-DBEGEH sy-vline 
WA_VIRPS406_STR-XBEGEH sy-vline 
WA_VIRPS406_STR-PERHOE sy-vline 
WA_VIRPS406_STR-RPROZGRD sy-vline 
WA_VIRPS406_STR-XPROZGRD sy-vline 
WA_VIRPS406_STR-SMOEBL sy-vline 
WA_VIRPS406_STR-AZIMM sy-vline 
WA_VIRPS406_STR-AHALBZI sy-vline 
WA_VIRPS406_STR-XSTANDNR sy-vline 
WA_VIRPS406_STR-JEIGWOHN sy-vline 
WA_VIRPS406_STR-ABNNR sy-vline 
WA_VIRPS406_STR-STECHEM sy-vline 
WA_VIRPS406_STR-SSTCKBIS sy-vline 
WA_VIRPS406_STR-JVORSTEIG sy-vline 
WA_VIRPS406_STR-RFAKT sy-vline 
WA_VIRPS406_STR-JKONDMV sy-vline 
WA_VIRPS406_STR-PKONDMV sy-vline 
WA_VIRPS406_STR-DFSTRBIS sy-vline 
WA_VIRPS406_STR-JRMSCHPR sy-vline 
WA_VIRPS406_STR-DHPZSAKT sy-vline 
WA_VIRPS406_STR-DUTBKAKT sy-vline 
WA_VIRPS406_STR-DTEURAKT sy-vline 
WA_VIRPS406_STR-SMIETSP sy-vline 
WA_VIRPS406_STR-XMIETSP sy-vline 
WA_VIRPS406_STR-PZUABSP sy-vline 
WA_VIRPS406_STR-SLAGK sy-vline 
WA_VIRPS406_STR-XLAGK sy-vline 
WA_VIRPS406_STR-SAUSTKL sy-vline 
WA_VIRPS406_STR-XAUSTKL sy-vline 
WA_VIRPS406_STR-DWTVERM sy-vline 
WA_VIRPS406_STR-RBELBIND sy-vline 
WA_VIRPS406_STR-XBELBIND sy-vline 
WA_VIRPS406_STR-DBINDBIS sy-vline 
WA_VIRPS406_STR-SBWNR sy-vline 
WA_VIRPS406_STR-SPARTNR sy-vline 
WA_VIRPS406_STR-XPARTNR sy-vline 
WA_VIRPS406_STR-XNNPART sy-vline 
WA_VIRPS406_STR-DRESAB sy-vline 
WA_VIRPS406_STR-DRESBIS sy-vline 
WA_VIRPS406_STR-UMBRAUM sy-vline 
WA_VIRPS406_STR-SGEBT sy-vline 
WA_VIRPS406_STR-XGEBT sy-vline      INTO ld_text SEPARATED BY SPACE.

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