ABAP Select data from SAP table TJHVBER 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 TJHVBER 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 TJHVBER. 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 TJHVBER 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_TJHVBER TYPE STANDARD TABLE OF TJHVBER,
      WA_TJHVBER TYPE TJHVBER,
      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: <TJHVBER> TYPE TJHVBER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TJHVBER
*  INTO TABLE @DATA(IT_TJHVBER2).
*--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_TJHVBER INDEX 1 INTO DATA(WA_TJHVBER2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TJHVBER>-MANDT = 1.
<TJHVBER>-VKORG = 1.
<TJHVBER>-VTWEG = 1.
<TJHVBER>-SPART = 1.
<TJHVBER>-XGP_ZAHLW = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TJHVBER-TERM_TYP, sy-vline,
  WA_TJHVBER-PERFK_DEF, sy-vline,
  WA_TJHVBER-OFFSET_DEF, sy-vline,
  WA_TJHVBER-ISPEINH_PR, sy-vline,
  WA_TJHVBER-HOEHE_DEH, sy-vline,
  WA_TJHVBER-AZART_RECH, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TJHVBER 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_TJHVBER 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_TJHVBER INTO WA_TJHVBER.


*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 TERMT, internal->external for field TERM_TYP
CALL FUNCTION 'CONVERSION_EXIT_TERMT_OUTPUT'
  EXPORTING
    input =                      WA_TJHVBER-TERM_TYP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHVBER-TERM_TYP.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field HOEHE_DEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_TJHVBER-HOEHE_DEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHVBER-HOEHE_DEH.
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_TJHVBER_STR, 
MANDT TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
XGP_ZAHLW TYPE STRING,
TERM_TYP TYPE STRING,
PERFK_DEF TYPE STRING,
OFFSET_DEF TYPE STRING,
ISPEINH_PR TYPE STRING,
HOEHE_DEH TYPE STRING,
AZART_RECH TYPE STRING,
XIKOHI_EXP TYPE STRING,
XHIDE_SVO TYPE STRING,
XALLIKO_SV TYPE STRING,
XNOFLTR_BE TYPE STRING,
XDELCOL_GB TYPE STRING,
SI_ABRMNGE TYPE STRING,
SI_SHIPP_CHECK TYPE STRING,
VT_ABRMNGE TYPE STRING,
VT_SHIPP_CHECK TYPE STRING,
XKONKAUSAZ TYPE STRING,
XKONKAUSDI TYPE STRING,
XKONKAUSSI TYPE STRING,
XKONKAUSWS TYPE STRING,
XKONKAUSVT TYPE STRING,
XVZ_GLEICH TYPE STRING,
XVZ_PBAS TYPE STRING,
XVZ_BETRAG TYPE STRING,
BE_POPUP TYPE STRING,
CHTYPE_AVM TYPE STRING,
OFF_WVL TYPE STRING,
XAAZUL_OUT TYPE STRING,
XPRDIAL_AZ TYPE STRING,
XVALUE_CHK TYPE STRING,
BB_LADEN TYPE STRING,
XVFND_FAKT_EE TYPE STRING,
KOVAR_BLGHNW TYPE STRING,
WKTYP_BLGHNW TYPE STRING,
KOVAR_TRGANZ TYPE STRING,
WKTYP_TRGANZ TYPE STRING,
AVM_MOTHLP TYPE STRING,
BRANCHE_POPUP TYPE STRING,
BRANCHE_GRPFKT TYPE STRING,
XREKLBEARB_USR TYPE STRING,
ERSTER_WOCHENTAG TYPE STRING,
SPLIT_MSG_TYPE TYPE STRING,
XPRGRP_ADV TYPE STRING,
XSRTWD_ADSP_LEV TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TJHVBER_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_TJHVBER_STR-MANDT sy-vline 
WA_TJHVBER_STR-VKORG sy-vline 
WA_TJHVBER_STR-VTWEG sy-vline 
WA_TJHVBER_STR-SPART sy-vline 
WA_TJHVBER_STR-XGP_ZAHLW sy-vline 
WA_TJHVBER_STR-TERM_TYP sy-vline 
WA_TJHVBER_STR-PERFK_DEF sy-vline 
WA_TJHVBER_STR-OFFSET_DEF sy-vline 
WA_TJHVBER_STR-ISPEINH_PR sy-vline 
WA_TJHVBER_STR-HOEHE_DEH sy-vline 
WA_TJHVBER_STR-AZART_RECH sy-vline 
WA_TJHVBER_STR-XIKOHI_EXP sy-vline 
WA_TJHVBER_STR-XHIDE_SVO sy-vline 
WA_TJHVBER_STR-XALLIKO_SV sy-vline 
WA_TJHVBER_STR-XNOFLTR_BE sy-vline 
WA_TJHVBER_STR-XDELCOL_GB sy-vline 
WA_TJHVBER_STR-SI_ABRMNGE sy-vline 
WA_TJHVBER_STR-SI_SHIPP_CHECK sy-vline 
WA_TJHVBER_STR-VT_ABRMNGE sy-vline 
WA_TJHVBER_STR-VT_SHIPP_CHECK sy-vline 
WA_TJHVBER_STR-XKONKAUSAZ sy-vline 
WA_TJHVBER_STR-XKONKAUSDI sy-vline 
WA_TJHVBER_STR-XKONKAUSSI sy-vline 
WA_TJHVBER_STR-XKONKAUSWS sy-vline 
WA_TJHVBER_STR-XKONKAUSVT sy-vline 
WA_TJHVBER_STR-XVZ_GLEICH sy-vline 
WA_TJHVBER_STR-XVZ_PBAS sy-vline 
WA_TJHVBER_STR-XVZ_BETRAG sy-vline 
WA_TJHVBER_STR-BE_POPUP sy-vline 
WA_TJHVBER_STR-CHTYPE_AVM sy-vline 
WA_TJHVBER_STR-OFF_WVL sy-vline 
WA_TJHVBER_STR-XAAZUL_OUT sy-vline 
WA_TJHVBER_STR-XPRDIAL_AZ sy-vline 
WA_TJHVBER_STR-XVALUE_CHK sy-vline 
WA_TJHVBER_STR-BB_LADEN sy-vline 
WA_TJHVBER_STR-XVFND_FAKT_EE sy-vline 
WA_TJHVBER_STR-KOVAR_BLGHNW sy-vline 
WA_TJHVBER_STR-WKTYP_BLGHNW sy-vline 
WA_TJHVBER_STR-KOVAR_TRGANZ sy-vline 
WA_TJHVBER_STR-WKTYP_TRGANZ sy-vline 
WA_TJHVBER_STR-AVM_MOTHLP sy-vline 
WA_TJHVBER_STR-BRANCHE_POPUP sy-vline 
WA_TJHVBER_STR-BRANCHE_GRPFKT sy-vline 
WA_TJHVBER_STR-XREKLBEARB_USR sy-vline 
WA_TJHVBER_STR-ERSTER_WOCHENTAG sy-vline 
WA_TJHVBER_STR-SPLIT_MSG_TYPE sy-vline 
WA_TJHVBER_STR-XPRGRP_ADV sy-vline 
WA_TJHVBER_STR-XSRTWD_ADSP_LEV sy-vline      INTO ld_text SEPARATED BY SPACE.

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