ABAP Select data from SAP table RPUBVTA0L 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 RPUBVTA0L 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 RPUBVTA0L. 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 RPUBVTA0L 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_RPUBVTA0L TYPE STANDARD TABLE OF RPUBVTA0L,
      WA_RPUBVTA0L TYPE RPUBVTA0L,
      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: <RPUBVTA0L> TYPE RPUBVTA0L.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RPUBVTA0L
*  INTO TABLE @DATA(IT_RPUBVTA0L2).
*--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_RPUBVTA0L INDEX 1 INTO DATA(WA_RPUBVTA0L2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RPUBVTA0L>-SAART = 1.
<RPUBVTA0L>-PERNR = 1.
<RPUBVTA0L>-AUSVL = 1.
<RPUBVTA0L>-WDV = 1.
<RPUBVTA0L>-GBDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RPUBVTA0L-NACHN, sy-vline,
  WA_RPUBVTA0L-DSTNR, sy-vline,
  WA_RPUBVTA0L-VJAHR, sy-vline,
  WA_RPUBVTA0L-ALL01, sy-vline,
  WA_RPUBVTA0L-SON01, sy-vline,
  WA_RPUBVTA0L-UVB01, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RPUBVTA0L 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_RPUBVTA0L 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_RPUBVTA0L INTO WA_RPUBVTA0L.


*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 GJAHR, internal->external for field VJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RPUBVTA0L-VJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RPUBVTA0L-VJAHR.
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_RPUBVTA0L_STR, 
SAART TYPE STRING,
PERNR TYPE STRING,
AUSVL TYPE STRING,
WDV TYPE STRING,
GBDAT TYPE STRING,
NACHN TYPE STRING,
DSTNR TYPE STRING,
VJAHR TYPE STRING,
ALL01 TYPE STRING,
SON01 TYPE STRING,
UVB01 TYPE STRING,
TAG01 TYPE STRING,
ALL02 TYPE STRING,
SON02 TYPE STRING,
UVB02 TYPE STRING,
TAG02 TYPE STRING,
ALL03 TYPE STRING,
SON03 TYPE STRING,
UVB03 TYPE STRING,
TAG03 TYPE STRING,
ALL04 TYPE STRING,
SON04 TYPE STRING,
UVB04 TYPE STRING,
TAG04 TYPE STRING,
ALL05 TYPE STRING,
SON05 TYPE STRING,
UVB05 TYPE STRING,
TAG05 TYPE STRING,
ALL06 TYPE STRING,
SON06 TYPE STRING,
UVB06 TYPE STRING,
TAG06 TYPE STRING,
ALL07 TYPE STRING,
SON07 TYPE STRING,
UVB07 TYPE STRING,
TAG07 TYPE STRING,
ALL08 TYPE STRING,
SON08 TYPE STRING,
UVB08 TYPE STRING,
TAG08 TYPE STRING,
ALL09 TYPE STRING,
SON09 TYPE STRING,
UVB09 TYPE STRING,
TAG09 TYPE STRING,
ALL10 TYPE STRING,
SON10 TYPE STRING,
UVB10 TYPE STRING,
TAG10 TYPE STRING,
ALL11 TYPE STRING,
SON11 TYPE STRING,
UVB11 TYPE STRING,
TAG11 TYPE STRING,
ALL12 TYPE STRING,
SON12 TYPE STRING,
UVB12 TYPE STRING,
TAG12 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RPUBVTA0L_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_RPUBVTA0L_STR-SAART sy-vline 
WA_RPUBVTA0L_STR-PERNR sy-vline 
WA_RPUBVTA0L_STR-AUSVL sy-vline 
WA_RPUBVTA0L_STR-WDV sy-vline 
WA_RPUBVTA0L_STR-GBDAT sy-vline 
WA_RPUBVTA0L_STR-NACHN sy-vline 
WA_RPUBVTA0L_STR-DSTNR sy-vline 
WA_RPUBVTA0L_STR-VJAHR sy-vline 
WA_RPUBVTA0L_STR-ALL01 sy-vline 
WA_RPUBVTA0L_STR-SON01 sy-vline 
WA_RPUBVTA0L_STR-UVB01 sy-vline 
WA_RPUBVTA0L_STR-TAG01 sy-vline 
WA_RPUBVTA0L_STR-ALL02 sy-vline 
WA_RPUBVTA0L_STR-SON02 sy-vline 
WA_RPUBVTA0L_STR-UVB02 sy-vline 
WA_RPUBVTA0L_STR-TAG02 sy-vline 
WA_RPUBVTA0L_STR-ALL03 sy-vline 
WA_RPUBVTA0L_STR-SON03 sy-vline 
WA_RPUBVTA0L_STR-UVB03 sy-vline 
WA_RPUBVTA0L_STR-TAG03 sy-vline 
WA_RPUBVTA0L_STR-ALL04 sy-vline 
WA_RPUBVTA0L_STR-SON04 sy-vline 
WA_RPUBVTA0L_STR-UVB04 sy-vline 
WA_RPUBVTA0L_STR-TAG04 sy-vline 
WA_RPUBVTA0L_STR-ALL05 sy-vline 
WA_RPUBVTA0L_STR-SON05 sy-vline 
WA_RPUBVTA0L_STR-UVB05 sy-vline 
WA_RPUBVTA0L_STR-TAG05 sy-vline 
WA_RPUBVTA0L_STR-ALL06 sy-vline 
WA_RPUBVTA0L_STR-SON06 sy-vline 
WA_RPUBVTA0L_STR-UVB06 sy-vline 
WA_RPUBVTA0L_STR-TAG06 sy-vline 
WA_RPUBVTA0L_STR-ALL07 sy-vline 
WA_RPUBVTA0L_STR-SON07 sy-vline 
WA_RPUBVTA0L_STR-UVB07 sy-vline 
WA_RPUBVTA0L_STR-TAG07 sy-vline 
WA_RPUBVTA0L_STR-ALL08 sy-vline 
WA_RPUBVTA0L_STR-SON08 sy-vline 
WA_RPUBVTA0L_STR-UVB08 sy-vline 
WA_RPUBVTA0L_STR-TAG08 sy-vline 
WA_RPUBVTA0L_STR-ALL09 sy-vline 
WA_RPUBVTA0L_STR-SON09 sy-vline 
WA_RPUBVTA0L_STR-UVB09 sy-vline 
WA_RPUBVTA0L_STR-TAG09 sy-vline 
WA_RPUBVTA0L_STR-ALL10 sy-vline 
WA_RPUBVTA0L_STR-SON10 sy-vline 
WA_RPUBVTA0L_STR-UVB10 sy-vline 
WA_RPUBVTA0L_STR-TAG10 sy-vline 
WA_RPUBVTA0L_STR-ALL11 sy-vline 
WA_RPUBVTA0L_STR-SON11 sy-vline 
WA_RPUBVTA0L_STR-UVB11 sy-vline 
WA_RPUBVTA0L_STR-TAG11 sy-vline 
WA_RPUBVTA0L_STR-ALL12 sy-vline 
WA_RPUBVTA0L_STR-SON12 sy-vline 
WA_RPUBVTA0L_STR-UVB12 sy-vline 
WA_RPUBVTA0L_STR-TAG12 sy-vline      INTO ld_text SEPARATED BY SPACE.

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