ABAP Select data from SAP table VBAPF 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 VBAPF 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 VBAPF. 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 VBAPF 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_VBAPF TYPE STANDARD TABLE OF VBAPF,
      WA_VBAPF TYPE VBAPF,
      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: <VBAPF> TYPE VBAPF.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VBAPF
*  INTO TABLE @DATA(IT_VBAPF2).
*--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_VBAPF INDEX 1 INTO DATA(WA_VBAPF2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<VBAPF>-VBELN = 1.
<VBAPF>-POSNR = 1.
<VBAPF>-DUMMY = 1.
<VBAPF>-VBTYP = 1.
<VBAPF>-REFKZ = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VBAPF-ERLMENGE, sy-vline,
  WA_VBAPF-ERLWERT, sy-vline,
  WA_VBAPF-ERLWERT_WA, sy-vline,
  WA_VBAPF-ERLMENGE_L, sy-vline,
  WA_VBAPF-ERLMENGE_P, sy-vline,
  WA_VBAPF-ERLMENGE_F, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_VBAPF 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_VBAPF 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_VBAPF INTO WA_VBAPF.


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

*Conversion exit CUNIT, internal->external for field /CWM/REMNG_BPRME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_VBAPF-/CWM/REMNG_BPRME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VBAPF-/CWM/REMNG_BPRME.
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_VBAPF_STR, 
VBELN TYPE STRING,
POSNR TYPE STRING,
DUMMY TYPE STRING,
VBTYP TYPE STRING,
REFKZ TYPE STRING,
ERLMENGE TYPE STRING,
ERLWERT TYPE STRING,
ERLWERT_WA TYPE STRING,
ERLMENGE_L TYPE STRING,
ERLMENGE_P TYPE STRING,
ERLMENGE_F TYPE STRING,
FAKLMENG TYPE STRING,
AMENGE TYPE STRING,
BMENGE TYPE STRING,
CMENGE TYPE STRING,
DMENGE TYPE STRING,
EMENGE TYPE STRING,
FMENGE TYPE STRING,
GMENGE TYPE STRING,
HMENGE TYPE STRING,
IMENGE TYPE STRING,
JMENGE TYPE STRING,
KMENGE TYPE STRING,
LMENGE TYPE STRING,
MMENGE TYPE STRING,
NMENGE TYPE STRING,
OMENGE TYPE STRING,
PMENGE TYPE STRING,
QMENGE TYPE STRING,
RMENGE TYPE STRING,
RMENGE_P TYPE STRING,
RMENGE_NV_P TYPE STRING,
SMENGE TYPE STRING,
TMENGE TYPE STRING,
UMENGE TYPE STRING,
VMENGE TYPE STRING,
WMENGE TYPE STRING,
XMENGE TYPE STRING,
YMENGE TYPE STRING,
ANZTAP TYPE STRING,
ANZQTAP TYPE STRING,
ANZLFP TYPE STRING,
ANZFKP TYPE STRING,
ANZFKP_IV TYPE STRING,
ANZWAP TYPE STRING,
WEMNG TYPE STRING,
REMNG TYPE STRING,
ANZLRP TYPE STRING,
ANZLGP TYPE STRING,
REWRT TYPE STRING,
WEWRT TYPE STRING,
BEWRT TYPE STRING,
ERLMENGEV TYPE STRING,
ERLMENGELV TYPE STRING,
ERLMENGEPV TYPE STRING,
ERLMENGEFV TYPE STRING,
FAKLMENGV TYPE STRING,
AMENGEV TYPE STRING,
BMENGEV TYPE STRING,
CMENGEV TYPE STRING,
DMENGEV TYPE STRING,
EMENGEV TYPE STRING,
FMENGEV TYPE STRING,
GMENGEV TYPE STRING,
HMENGEV TYPE STRING,
IMENGEV TYPE STRING,
JMENGEV TYPE STRING,
KMENGEV TYPE STRING,
LMENGEV TYPE STRING,
MMENGEV TYPE STRING,
NMENGEV TYPE STRING,
OMENGEV TYPE STRING,
PMENGEV TYPE STRING,
QMENGEV TYPE STRING,
RMENGEV TYPE STRING,
RMENGE_PV TYPE STRING,
RMENGE_NV_PV TYPE STRING,
SMENGEV TYPE STRING,
TMENGEV TYPE STRING,
UMENGEV TYPE STRING,
VMENGEV TYPE STRING,
WMENGEV TYPE STRING,
XMENGEV TYPE STRING,
YMENGEV TYPE STRING,
WEMNGV TYPE STRING,
REMNGV TYPE STRING,
PZMNG_SAV TYPE STRING,
ERLMENGEFV_IV TYPE STRING,
NOQUANTITY TYPE STRING,
ANZWAP_EX TYPE STRING,
ANZWAP_EX_QGT0 TYPE STRING,
ANZWAP_EX_MAIN TYPE STRING,
QMENGE_F TYPE STRING,
PZMNG_SA TYPE STRING,
ERLMENGE_F_IV TYPE STRING,
ANZFKP_NE TYPE STRING,
ANZFKP_IV_NE TYPE STRING,
/CWM/REMNG_BPRME TYPE STRING,
/CWM/BPREM TYPE STRING,
/CWM/BPMNG TYPE STRING,
ERLMENGE_S TYPE STRING,END OF T_EKKO_STR.
DATA: WA_VBAPF_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_VBAPF_STR-VBELN sy-vline 
WA_VBAPF_STR-POSNR sy-vline 
WA_VBAPF_STR-DUMMY sy-vline 
WA_VBAPF_STR-VBTYP sy-vline 
WA_VBAPF_STR-REFKZ sy-vline 
WA_VBAPF_STR-ERLMENGE sy-vline 
WA_VBAPF_STR-ERLWERT sy-vline 
WA_VBAPF_STR-ERLWERT_WA sy-vline 
WA_VBAPF_STR-ERLMENGE_L sy-vline 
WA_VBAPF_STR-ERLMENGE_P sy-vline 
WA_VBAPF_STR-ERLMENGE_F sy-vline 
WA_VBAPF_STR-FAKLMENG sy-vline 
WA_VBAPF_STR-AMENGE sy-vline 
WA_VBAPF_STR-BMENGE sy-vline 
WA_VBAPF_STR-CMENGE sy-vline 
WA_VBAPF_STR-DMENGE sy-vline 
WA_VBAPF_STR-EMENGE sy-vline 
WA_VBAPF_STR-FMENGE sy-vline 
WA_VBAPF_STR-GMENGE sy-vline 
WA_VBAPF_STR-HMENGE sy-vline 
WA_VBAPF_STR-IMENGE sy-vline 
WA_VBAPF_STR-JMENGE sy-vline 
WA_VBAPF_STR-KMENGE sy-vline 
WA_VBAPF_STR-LMENGE sy-vline 
WA_VBAPF_STR-MMENGE sy-vline 
WA_VBAPF_STR-NMENGE sy-vline 
WA_VBAPF_STR-OMENGE sy-vline 
WA_VBAPF_STR-PMENGE sy-vline 
WA_VBAPF_STR-QMENGE sy-vline 
WA_VBAPF_STR-RMENGE sy-vline 
WA_VBAPF_STR-RMENGE_P sy-vline 
WA_VBAPF_STR-RMENGE_NV_P sy-vline 
WA_VBAPF_STR-SMENGE sy-vline 
WA_VBAPF_STR-TMENGE sy-vline 
WA_VBAPF_STR-UMENGE sy-vline 
WA_VBAPF_STR-VMENGE sy-vline 
WA_VBAPF_STR-WMENGE sy-vline 
WA_VBAPF_STR-XMENGE sy-vline 
WA_VBAPF_STR-YMENGE sy-vline 
WA_VBAPF_STR-ANZTAP sy-vline 
WA_VBAPF_STR-ANZQTAP sy-vline 
WA_VBAPF_STR-ANZLFP sy-vline 
WA_VBAPF_STR-ANZFKP sy-vline 
WA_VBAPF_STR-ANZFKP_IV sy-vline 
WA_VBAPF_STR-ANZWAP sy-vline 
WA_VBAPF_STR-WEMNG sy-vline 
WA_VBAPF_STR-REMNG sy-vline 
WA_VBAPF_STR-ANZLRP sy-vline 
WA_VBAPF_STR-ANZLGP sy-vline 
WA_VBAPF_STR-REWRT sy-vline 
WA_VBAPF_STR-WEWRT sy-vline 
WA_VBAPF_STR-BEWRT sy-vline 
WA_VBAPF_STR-ERLMENGEV sy-vline 
WA_VBAPF_STR-ERLMENGELV sy-vline 
WA_VBAPF_STR-ERLMENGEPV sy-vline 
WA_VBAPF_STR-ERLMENGEFV sy-vline 
WA_VBAPF_STR-FAKLMENGV sy-vline 
WA_VBAPF_STR-AMENGEV sy-vline 
WA_VBAPF_STR-BMENGEV sy-vline 
WA_VBAPF_STR-CMENGEV sy-vline 
WA_VBAPF_STR-DMENGEV sy-vline 
WA_VBAPF_STR-EMENGEV sy-vline 
WA_VBAPF_STR-FMENGEV sy-vline 
WA_VBAPF_STR-GMENGEV sy-vline 
WA_VBAPF_STR-HMENGEV sy-vline 
WA_VBAPF_STR-IMENGEV sy-vline 
WA_VBAPF_STR-JMENGEV sy-vline 
WA_VBAPF_STR-KMENGEV sy-vline 
WA_VBAPF_STR-LMENGEV sy-vline 
WA_VBAPF_STR-MMENGEV sy-vline 
WA_VBAPF_STR-NMENGEV sy-vline 
WA_VBAPF_STR-OMENGEV sy-vline 
WA_VBAPF_STR-PMENGEV sy-vline 
WA_VBAPF_STR-QMENGEV sy-vline 
WA_VBAPF_STR-RMENGEV sy-vline 
WA_VBAPF_STR-RMENGE_PV sy-vline 
WA_VBAPF_STR-RMENGE_NV_PV sy-vline 
WA_VBAPF_STR-SMENGEV sy-vline 
WA_VBAPF_STR-TMENGEV sy-vline 
WA_VBAPF_STR-UMENGEV sy-vline 
WA_VBAPF_STR-VMENGEV sy-vline 
WA_VBAPF_STR-WMENGEV sy-vline 
WA_VBAPF_STR-XMENGEV sy-vline 
WA_VBAPF_STR-YMENGEV sy-vline 
WA_VBAPF_STR-WEMNGV sy-vline 
WA_VBAPF_STR-REMNGV sy-vline 
WA_VBAPF_STR-PZMNG_SAV sy-vline 
WA_VBAPF_STR-ERLMENGEFV_IV sy-vline 
WA_VBAPF_STR-NOQUANTITY sy-vline 
WA_VBAPF_STR-ANZWAP_EX sy-vline 
WA_VBAPF_STR-ANZWAP_EX_QGT0 sy-vline 
WA_VBAPF_STR-ANZWAP_EX_MAIN sy-vline 
WA_VBAPF_STR-QMENGE_F sy-vline 
WA_VBAPF_STR-PZMNG_SA sy-vline 
WA_VBAPF_STR-ERLMENGE_F_IV sy-vline 
WA_VBAPF_STR-ANZFKP_NE sy-vline 
WA_VBAPF_STR-ANZFKP_IV_NE sy-vline 
WA_VBAPF_STR-/CWM/REMNG_BPRME sy-vline 
WA_VBAPF_STR-/CWM/BPREM sy-vline 
WA_VBAPF_STR-/CWM/BPMNG sy-vline 
WA_VBAPF_STR-ERLMENGE_S sy-vline      INTO ld_text SEPARATED BY SPACE.

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