ABAP Select data from SAP table V_TN22Q 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 V_TN22Q 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 V_TN22Q. 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 V_TN22Q 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_V_TN22Q TYPE STANDARD TABLE OF V_TN22Q,
      WA_V_TN22Q TYPE V_TN22Q,
      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: <V_TN22Q> TYPE V_TN22Q.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM V_TN22Q
*  INTO TABLE @DATA(IT_V_TN22Q2).
*--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_V_TN22Q INDEX 1 INTO DATA(WA_V_TN22Q2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<V_TN22Q>-MANDT = 1.
<V_TN22Q>-EINRI = 1.
<V_TN22Q>-SHBKZ = 1.
<V_TN22Q>-SHBKL = 1.
<V_TN22Q>-MANSP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_V_TN22Q-MSCHL, sy-vline,
  WA_V_TN22Q-MABER, sy-vline,
  WA_V_TN22Q-BLART, sy-vline,
  WA_V_TN22Q-WAERS, sy-vline,
  WA_V_TN22Q-FKDAT, sy-vline,
  WA_V_TN22Q-BLDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_V_TN22Q 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_V_TN22Q 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_V_TN22Q INTO WA_V_TN22Q.


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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field FBLAR_STOV
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_V_TN22Q-FBLAR_STOV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_V_TN22Q-FBLAR_STOV.
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_V_TN22Q_STR, 
MANDT TYPE STRING,
EINRI TYPE STRING,
SHBKZ TYPE STRING,
SHBKL TYPE STRING,
MANSP TYPE STRING,
MSCHL TYPE STRING,
MABER TYPE STRING,
BLART TYPE STRING,
WAERS TYPE STRING,
FKDAT TYPE STRING,
BLDAT TYPE STRING,
BUDAT TYPE STRING,
TXTZK TYPE STRING,
TXTZP TYPE STRING,
BSLSO TYPE STRING,
BSLHA TYPE STRING,
BSSOF TYPE STRING,
BSHAF TYPE STRING,
FBLAR TYPE STRING,
MAFRI TYPE STRING,
TAXKZ TYPE STRING,
EINKB TYPE STRING,
BSUMS TYPE STRING,
BSUMH TYPE STRING,
MAHNA TYPE STRING,
MANSPF TYPE STRING,
MAHNF TYPE STRING,
ENTB TYPE STRING,
TOD TYPE STRING,
F24ST TYPE STRING,
ABWE TYPE STRING,
ENTL TYPE STRING,
AGE18 TYPE STRING,
STGRD_AUS TYPE STRING,
STGRD_GEN TYPE STRING,
STGRD_ANF TYPE STRING,
MABER_F TYPE STRING,
MSCHL_F TYPE STRING,
ZTERM_F TYPE STRING,
FBLAR_STOV TYPE STRING,
BSHAF_STOV TYPE STRING,
BSSOF_STOV TYPE STRING,
ZLSPR_STOV TYPE STRING,
STGRD_RET TYPE STRING,END OF T_EKKO_STR.
DATA: WA_V_TN22Q_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_V_TN22Q_STR-MANDT sy-vline 
WA_V_TN22Q_STR-EINRI sy-vline 
WA_V_TN22Q_STR-SHBKZ sy-vline 
WA_V_TN22Q_STR-SHBKL sy-vline 
WA_V_TN22Q_STR-MANSP sy-vline 
WA_V_TN22Q_STR-MSCHL sy-vline 
WA_V_TN22Q_STR-MABER sy-vline 
WA_V_TN22Q_STR-BLART sy-vline 
WA_V_TN22Q_STR-WAERS sy-vline 
WA_V_TN22Q_STR-FKDAT sy-vline 
WA_V_TN22Q_STR-BLDAT sy-vline 
WA_V_TN22Q_STR-BUDAT sy-vline 
WA_V_TN22Q_STR-TXTZK sy-vline 
WA_V_TN22Q_STR-TXTZP sy-vline 
WA_V_TN22Q_STR-BSLSO sy-vline 
WA_V_TN22Q_STR-BSLHA sy-vline 
WA_V_TN22Q_STR-BSSOF sy-vline 
WA_V_TN22Q_STR-BSHAF sy-vline 
WA_V_TN22Q_STR-FBLAR sy-vline 
WA_V_TN22Q_STR-MAFRI sy-vline 
WA_V_TN22Q_STR-TAXKZ sy-vline 
WA_V_TN22Q_STR-EINKB sy-vline 
WA_V_TN22Q_STR-BSUMS sy-vline 
WA_V_TN22Q_STR-BSUMH sy-vline 
WA_V_TN22Q_STR-MAHNA sy-vline 
WA_V_TN22Q_STR-MANSPF sy-vline 
WA_V_TN22Q_STR-MAHNF sy-vline 
WA_V_TN22Q_STR-ENTB sy-vline 
WA_V_TN22Q_STR-TOD sy-vline 
WA_V_TN22Q_STR-F24ST sy-vline 
WA_V_TN22Q_STR-ABWE sy-vline 
WA_V_TN22Q_STR-ENTL sy-vline 
WA_V_TN22Q_STR-AGE18 sy-vline 
WA_V_TN22Q_STR-STGRD_AUS sy-vline 
WA_V_TN22Q_STR-STGRD_GEN sy-vline 
WA_V_TN22Q_STR-STGRD_ANF sy-vline 
WA_V_TN22Q_STR-MABER_F sy-vline 
WA_V_TN22Q_STR-MSCHL_F sy-vline 
WA_V_TN22Q_STR-ZTERM_F sy-vline 
WA_V_TN22Q_STR-FBLAR_STOV sy-vline 
WA_V_TN22Q_STR-BSHAF_STOV sy-vline 
WA_V_TN22Q_STR-BSSOF_STOV sy-vline 
WA_V_TN22Q_STR-ZLSPR_STOV sy-vline 
WA_V_TN22Q_STR-STGRD_RET sy-vline      INTO ld_text SEPARATED BY SPACE.

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