ABAP Select data from SAP table TJHAP 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 TJHAP 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 TJHAP. 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 TJHAP 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_TJHAP TYPE STANDARD TABLE OF TJHAP,
      WA_TJHAP TYPE TJHAP,
      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: <TJHAP> TYPE TJHAP.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TJHAP
*  INTO TABLE @DATA(IT_TJHAP2).
*--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_TJHAP INDEX 1 INTO DATA(WA_TJHAP2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TJHAP>-MANDT = 1.
<TJHAP>-PSTYV = 1.
<TJHAP>-VBTYP = 1.
<TJHAP>-FK_REL = 1.
<TJHAP>-PR_REL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TJHAP-XABSCHLREL, sy-vline,
  WA_TJHAP-XGE_GESCH, sy-vline,
  WA_TJHAP-XERLOESREL, sy-vline,
  WA_TJHAP-XPROV_REL, sy-vline,
  WA_TJHAP-XVABEINTER, sy-vline,
  WA_TJHAP-VASPEINTER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TJHAP 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_TJHAP 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_TJHAP INTO WA_TJHAP.


*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 P_M_0, internal->external for field XSIDMNG_V
CALL FUNCTION 'CONVERSION_EXIT_P_M_0_OUTPUT'
  EXPORTING
    input =                      WA_TJHAP-XSIDMNG_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHAP-XSIDMNG_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit P_M_0, internal->external for field XVTDMNG_V
CALL FUNCTION 'CONVERSION_EXIT_P_M_0_OUTPUT'
  EXPORTING
    input =                      WA_TJHAP-XVTDMNG_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHAP-XVTDMNG_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit P_M_0, internal->external for field XMENGE_N
CALL FUNCTION 'CONVERSION_EXIT_P_M_0_OUTPUT'
  EXPORTING
    input =                      WA_TJHAP-XMENGE_N
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHAP-XMENGE_N.
WRITE:/ 'New Value:', ld_input.

*Conversion exit P_M_0, internal->external for field XMAL_N
CALL FUNCTION 'CONVERSION_EXIT_P_M_0_OUTPUT'
  EXPORTING
    input =                      WA_TJHAP-XMAL_N
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TJHAP-XMAL_N.
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_TJHAP_STR, 
MANDT TYPE STRING,
PSTYV TYPE STRING,
VBTYP TYPE STRING,
FK_REL TYPE STRING,
PR_REL TYPE STRING,
XABSCHLREL TYPE STRING,
XGE_GESCH TYPE STRING,
XERLOESREL TYPE STRING,
XPROV_REL TYPE STRING,
XVABEINTER TYPE STRING,
VASPEINTER TYPE STRING,
XNOFIND TYPE STRING,
XFORTSCHR TYPE STRING,
XPROD_REL TYPE STRING,
XPRODRELWS TYPE STRING,
XPRODRELSI TYPE STRING,
XPRODRELVT TYPE STRING,
XPRODRELOL TYPE STRING,
XDISPO_REL TYPE STRING,
XDSPREL_WS TYPE STRING,
XDSPREL_SI TYPE STRING,
XDSPREL_OL TYPE STRING,
XSIDMNG_V TYPE STRING,
XVTDMNG_V TYPE STRING,
XFAKEINTER TYPE STRING,
FASPEINTER TYPE STRING,
XMENGE_N TYPE STRING,
XBETRG_N TYPE STRING,
XMAL_N TYPE STRING,
XTEILGUTBE TYPE STRING,
PTYP_SEPAE TYPE STRING,
XUPOS_EDIT TYPE STRING,
FAKSP TYPE STRING,
SKTOF TYPE STRING,
XNOSIZE TYPE STRING,
KLIMP TYPE STRING,
CMGRA TYPE STRING,
CMPNT TYPE STRING,
XNOT_FOR_PTYP TYPE STRING,
RRREL TYPE STRING,
INS_SERIES_ACTIV TYPE STRING,
PK_PSTYV_DET TYPE STRING,
DEADLINE_RELV TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TJHAP_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_TJHAP_STR-MANDT sy-vline 
WA_TJHAP_STR-PSTYV sy-vline 
WA_TJHAP_STR-VBTYP sy-vline 
WA_TJHAP_STR-FK_REL sy-vline 
WA_TJHAP_STR-PR_REL sy-vline 
WA_TJHAP_STR-XABSCHLREL sy-vline 
WA_TJHAP_STR-XGE_GESCH sy-vline 
WA_TJHAP_STR-XERLOESREL sy-vline 
WA_TJHAP_STR-XPROV_REL sy-vline 
WA_TJHAP_STR-XVABEINTER sy-vline 
WA_TJHAP_STR-VASPEINTER sy-vline 
WA_TJHAP_STR-XNOFIND sy-vline 
WA_TJHAP_STR-XFORTSCHR sy-vline 
WA_TJHAP_STR-XPROD_REL sy-vline 
WA_TJHAP_STR-XPRODRELWS sy-vline 
WA_TJHAP_STR-XPRODRELSI sy-vline 
WA_TJHAP_STR-XPRODRELVT sy-vline 
WA_TJHAP_STR-XPRODRELOL sy-vline 
WA_TJHAP_STR-XDISPO_REL sy-vline 
WA_TJHAP_STR-XDSPREL_WS sy-vline 
WA_TJHAP_STR-XDSPREL_SI sy-vline 
WA_TJHAP_STR-XDSPREL_OL sy-vline 
WA_TJHAP_STR-XSIDMNG_V sy-vline 
WA_TJHAP_STR-XVTDMNG_V sy-vline 
WA_TJHAP_STR-XFAKEINTER sy-vline 
WA_TJHAP_STR-FASPEINTER sy-vline 
WA_TJHAP_STR-XMENGE_N sy-vline 
WA_TJHAP_STR-XBETRG_N sy-vline 
WA_TJHAP_STR-XMAL_N sy-vline 
WA_TJHAP_STR-XTEILGUTBE sy-vline 
WA_TJHAP_STR-PTYP_SEPAE sy-vline 
WA_TJHAP_STR-XUPOS_EDIT sy-vline 
WA_TJHAP_STR-FAKSP sy-vline 
WA_TJHAP_STR-SKTOF sy-vline 
WA_TJHAP_STR-XNOSIZE sy-vline 
WA_TJHAP_STR-KLIMP sy-vline 
WA_TJHAP_STR-CMGRA sy-vline 
WA_TJHAP_STR-CMPNT sy-vline 
WA_TJHAP_STR-XNOT_FOR_PTYP sy-vline 
WA_TJHAP_STR-RRREL sy-vline 
WA_TJHAP_STR-INS_SERIES_ACTIV sy-vline 
WA_TJHAP_STR-PK_PSTYV_DET sy-vline 
WA_TJHAP_STR-DEADLINE_RELV sy-vline      INTO ld_text SEPARATED BY SPACE.

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