ABAP Select data from SAP table TJHVA 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 TJHVA 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 TJHVA. 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 TJHVA 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_TJHVA TYPE STANDARD TABLE OF TJHVA,
      WA_TJHVA TYPE TJHVA,
      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: <TJHVA> TYPE TJHVA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TJHVA
*  INTO TABLE @DATA(IT_TJHVA2).
*--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_TJHVA INDEX 1 INTO DATA(WA_TJHVA2).


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

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

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TJHVA-XBEST_PR, sy-vline,
  WA_TJHVA-EINH1, sy-vline,
  WA_TJHVA-EINH2, sy-vline,
  WA_TJHVA-HITYP, sy-vline,
  WA_TJHVA-XINI_KONZ, sy-vline,
  WA_TJHVA-XVBONUS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TJHVA 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_TJHVA 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_TJHVA INTO WA_TJHVA.


*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 CUNIT, internal->external for field EINH1
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_TJHVA-EINH1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHVA-EINH1.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit CUNIT, internal->external for field EINH2_SI
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_TJHVA-EINH2_SI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHVA-EINH2_SI.
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_TJHVA_STR, 
MANDT TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
ABS_TYP1 TYPE STRING,
XBEST_PR TYPE STRING,
EINH1 TYPE STRING,
EINH2 TYPE STRING,
HITYP TYPE STRING,
XINI_KONZ TYPE STRING,
XVBONUS TYPE STRING,
PROZ_BEZ TYPE STRING,
XPAR_ABS TYPE STRING,
XQUASI TYPE STRING,
XST_GEGES TYPE STRING,
GTORE_COMP TYPE STRING,
XST_GTORE TYPE STRING,
XST_KFIND TYPE STRING,
KALSM TYPE STRING,
KALSM_KUBO TYPE STRING,
N_KALSM TYPE STRING,
N_KALSM_AB TYPE STRING,
ABS_KOLI TYPE STRING,
NUMKR_A TYPE STRING,
NUMKR_F TYPE STRING,
QABR TYPE STRING,
XAABRREG TYPE STRING,
XABETRNET TYPE STRING,
B_AUSR TYPE STRING,
E_AUSR TYPE STRING,
REG_DAU TYPE STRING,
EABR_NACHL TYPE STRING,
XTOL_FERN TYPE STRING,
AB_TOL TYPE STRING,
MIN_GUT TYPE STRING,
MIN_LAST TYPE STRING,
BAG_WAERS TYPE STRING,
XST_BAG TYPE STRING,
XMENGA TYPE STRING,
LFZ_VORL TYPE STRING,
XABE TYPE STRING,
ERN_VORL TYPE STRING,
MAX_UNT TYPE STRING,
MAX_RDAT TYPE STRING,
XERN_AGENT TYPE STRING,
XERN_HINW TYPE STRING,
XRABA TYPE STRING,
XRABA_ALL TYPE STRING,
XST_RFIND TYPE STRING,
XST_RKUMU TYPE STRING,
XZIELANP TYPE STRING,
XRANPASS TYPE STRING,
XRANPASSL TYPE STRING,
STAND_TYP TYPE STRING,
XSTAN_SUM TYPE STRING,
XSUMRAB TYPE STRING,
XSUMFR TYPE STRING,
XAUTO_BEST TYPE STRING,
XNB_ZUORD TYPE STRING,
XTO_BEST TYPE STRING,
XTO_WARN TYPE STRING,
XTO_HINW TYPE STRING,
XRABSPERR TYPE STRING,
XBEST_FIND TYPE STRING,
XFIND_HINW TYPE STRING,
XF_HINW_GE TYPE STRING,
KONFL_STEU TYPE STRING,
ZLSCHA TYPE STRING,
ZLSCHB TYPE STRING,
PARGR TYPE STRING,
FKART TYPE STRING,
FAKSA TYPE STRING,
FAKSP_B TYPE STRING,
FAKSP_G TYPE STRING,
FAKSP_L TYPE STRING,
TAGE_SP TYPE STRING,
BEZKD_DTI TYPE STRING,
XST_AVMACT TYPE STRING,
XNOVABR TYPE STRING,
XERRABSUBL TYPE STRING,
QUASI_VERH TYPE STRING,
KOQSI_VERH TYPE STRING,
ABS_TYP_SI TYPE STRING,
EINH1_SI TYPE STRING,
EINH2_SI TYPE STRING,
XERN_BEST TYPE STRING,
XERN_LEER TYPE STRING,
XARCH_OEABR TYPE STRING,
XWOENQ TYPE STRING,
KOZGF TYPE STRING,
KONFL TYPE STRING,
XNO_CHDK TYPE STRING,
XFAKTPRZUO TYPE STRING,
XSBC_OVL_CHK TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TJHVA_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_TJHVA_STR-MANDT sy-vline 
WA_TJHVA_STR-VKORG sy-vline 
WA_TJHVA_STR-VTWEG sy-vline 
WA_TJHVA_STR-SPART sy-vline 
WA_TJHVA_STR-ABS_TYP1 sy-vline 
WA_TJHVA_STR-XBEST_PR sy-vline 
WA_TJHVA_STR-EINH1 sy-vline 
WA_TJHVA_STR-EINH2 sy-vline 
WA_TJHVA_STR-HITYP sy-vline 
WA_TJHVA_STR-XINI_KONZ sy-vline 
WA_TJHVA_STR-XVBONUS sy-vline 
WA_TJHVA_STR-PROZ_BEZ sy-vline 
WA_TJHVA_STR-XPAR_ABS sy-vline 
WA_TJHVA_STR-XQUASI sy-vline 
WA_TJHVA_STR-XST_GEGES sy-vline 
WA_TJHVA_STR-GTORE_COMP sy-vline 
WA_TJHVA_STR-XST_GTORE sy-vline 
WA_TJHVA_STR-XST_KFIND sy-vline 
WA_TJHVA_STR-KALSM sy-vline 
WA_TJHVA_STR-KALSM_KUBO sy-vline 
WA_TJHVA_STR-N_KALSM sy-vline 
WA_TJHVA_STR-N_KALSM_AB sy-vline 
WA_TJHVA_STR-ABS_KOLI sy-vline 
WA_TJHVA_STR-NUMKR_A sy-vline 
WA_TJHVA_STR-NUMKR_F sy-vline 
WA_TJHVA_STR-QABR sy-vline 
WA_TJHVA_STR-XAABRREG sy-vline 
WA_TJHVA_STR-XABETRNET sy-vline 
WA_TJHVA_STR-B_AUSR sy-vline 
WA_TJHVA_STR-E_AUSR sy-vline 
WA_TJHVA_STR-REG_DAU sy-vline 
WA_TJHVA_STR-EABR_NACHL sy-vline 
WA_TJHVA_STR-XTOL_FERN sy-vline 
WA_TJHVA_STR-AB_TOL sy-vline 
WA_TJHVA_STR-MIN_GUT sy-vline 
WA_TJHVA_STR-MIN_LAST sy-vline 
WA_TJHVA_STR-BAG_WAERS sy-vline 
WA_TJHVA_STR-XST_BAG sy-vline 
WA_TJHVA_STR-XMENGA sy-vline 
WA_TJHVA_STR-LFZ_VORL sy-vline 
WA_TJHVA_STR-XABE sy-vline 
WA_TJHVA_STR-ERN_VORL sy-vline 
WA_TJHVA_STR-MAX_UNT sy-vline 
WA_TJHVA_STR-MAX_RDAT sy-vline 
WA_TJHVA_STR-XERN_AGENT sy-vline 
WA_TJHVA_STR-XERN_HINW sy-vline 
WA_TJHVA_STR-XRABA sy-vline 
WA_TJHVA_STR-XRABA_ALL sy-vline 
WA_TJHVA_STR-XST_RFIND sy-vline 
WA_TJHVA_STR-XST_RKUMU sy-vline 
WA_TJHVA_STR-XZIELANP sy-vline 
WA_TJHVA_STR-XRANPASS sy-vline 
WA_TJHVA_STR-XRANPASSL sy-vline 
WA_TJHVA_STR-STAND_TYP sy-vline 
WA_TJHVA_STR-XSTAN_SUM sy-vline 
WA_TJHVA_STR-XSUMRAB sy-vline 
WA_TJHVA_STR-XSUMFR sy-vline 
WA_TJHVA_STR-XAUTO_BEST sy-vline 
WA_TJHVA_STR-XNB_ZUORD sy-vline 
WA_TJHVA_STR-XTO_BEST sy-vline 
WA_TJHVA_STR-XTO_WARN sy-vline 
WA_TJHVA_STR-XTO_HINW sy-vline 
WA_TJHVA_STR-XRABSPERR sy-vline 
WA_TJHVA_STR-XBEST_FIND sy-vline 
WA_TJHVA_STR-XFIND_HINW sy-vline 
WA_TJHVA_STR-XF_HINW_GE sy-vline 
WA_TJHVA_STR-KONFL_STEU sy-vline 
WA_TJHVA_STR-ZLSCHA sy-vline 
WA_TJHVA_STR-ZLSCHB sy-vline 
WA_TJHVA_STR-PARGR sy-vline 
WA_TJHVA_STR-FKART sy-vline 
WA_TJHVA_STR-FAKSA sy-vline 
WA_TJHVA_STR-FAKSP_B sy-vline 
WA_TJHVA_STR-FAKSP_G sy-vline 
WA_TJHVA_STR-FAKSP_L sy-vline 
WA_TJHVA_STR-TAGE_SP sy-vline 
WA_TJHVA_STR-BEZKD_DTI sy-vline 
WA_TJHVA_STR-XST_AVMACT sy-vline 
WA_TJHVA_STR-XNOVABR sy-vline 
WA_TJHVA_STR-XERRABSUBL sy-vline 
WA_TJHVA_STR-QUASI_VERH sy-vline 
WA_TJHVA_STR-KOQSI_VERH sy-vline 
WA_TJHVA_STR-ABS_TYP_SI sy-vline 
WA_TJHVA_STR-EINH1_SI sy-vline 
WA_TJHVA_STR-EINH2_SI sy-vline 
WA_TJHVA_STR-XERN_BEST sy-vline 
WA_TJHVA_STR-XERN_LEER sy-vline 
WA_TJHVA_STR-XARCH_OEABR sy-vline 
WA_TJHVA_STR-XWOENQ sy-vline 
WA_TJHVA_STR-KOZGF sy-vline 
WA_TJHVA_STR-KONFL sy-vline 
WA_TJHVA_STR-XNO_CHDK sy-vline 
WA_TJHVA_STR-XFAKTPRZUO sy-vline 
WA_TJHVA_STR-XSBC_OVL_CHK sy-vline      INTO ld_text SEPARATED BY SPACE.

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