ABAP Select data from SAP table VBAPF_ORDER into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP VBAPF_ORDER 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_ORDER. 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_ORDER 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_ORDER TYPE STANDARD TABLE OF VBAPF_ORDER,
      WA_VBAPF_ORDER TYPE VBAPF_ORDER,
      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_ORDER> TYPE VBAPF_ORDER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VBAPF_ORDER
*  INTO TABLE @DATA(IT_VBAPF_ORDER2).
*--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_ORDER INDEX 1 INTO DATA(WA_VBAPF_ORDER2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_VBAPF_ORDER ASSIGNING <VBAPF_ORDER>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<VBAPF_ORDER>-VBELN_REF = 1.
<VBAPF_ORDER>-VBELN = 1.
<VBAPF_ORDER>-POSNR = 1.
<VBAPF_ORDER>-DUMMY = 1.
<VBAPF_ORDER>-VBTYP = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VBAPF_ORDER-REFKZ, sy-vline,
WA_VBAPF_ORDER-ERLMENGE, sy-vline,
WA_VBAPF_ORDER-ERLWERT, sy-vline,
WA_VBAPF_ORDER-ERLWERT_WA, sy-vline,
WA_VBAPF_ORDER-ERLMENGE_L, sy-vline,
WA_VBAPF_ORDER-ERLMENGE_P, sy-vline.
ENDLOOP. *Add any further fields from structure WA_VBAPF_ORDER 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_ORDER 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_ORDER INTO WA_VBAPF_ORDER. *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_REF CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VBAPF_ORDER-VBELN_REF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VBAPF_ORDER-VBELN_REF.
WRITE:/ 'New Value:', ld_input.

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