ABAP Select data from SAP table TXI_PTRV_HEAD 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 TXI_PTRV_HEAD 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 TXI_PTRV_HEAD. 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 TXI_PTRV_HEAD 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_TXI_PTRV_HEAD TYPE STANDARD TABLE OF TXI_PTRV_HEAD,
      WA_TXI_PTRV_HEAD TYPE TXI_PTRV_HEAD,
      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: <TXI_PTRV_HEAD> TYPE TXI_PTRV_HEAD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TXI_PTRV_HEAD
*  INTO TABLE @DATA(IT_TXI_PTRV_HEAD2).
*--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_TXI_PTRV_HEAD INDEX 1 INTO DATA(WA_TXI_PTRV_HEAD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TXI_PTRV_HEAD>-MANDT = 1.
<TXI_PTRV_HEAD>-PERNR = 1.
<TXI_PTRV_HEAD>-REINR = 1.
<TXI_PTRV_HEAD>-HDVRS = 1.
<TXI_PTRV_HEAD>-MOLGA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TXI_PTRV_HEAD-MOREI, sy-vline,
  WA_TXI_PTRV_HEAD-SCHEM, sy-vline,
  WA_TXI_PTRV_HEAD-KZREA, sy-vline,
  WA_TXI_PTRV_HEAD-BEREI, sy-vline,
  WA_TXI_PTRV_HEAD-KZTKT, sy-vline,
  WA_TXI_PTRV_HEAD-ZORT1, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TXI_PTRV_HEAD 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_TXI_PTRV_HEAD 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_TXI_PTRV_HEAD INTO WA_TXI_PTRV_HEAD.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_TXI_PTRV_HEAD_STR, 
MANDT TYPE STRING,
PERNR TYPE STRING,
REINR TYPE STRING,
HDVRS TYPE STRING,
MOLGA TYPE STRING,
MOREI TYPE STRING,
SCHEM TYPE STRING,
KZREA TYPE STRING,
BEREI TYPE STRING,
KZTKT TYPE STRING,
ZORT1 TYPE STRING,
ZLAND TYPE STRING,
HRGIO TYPE STRING,
NDNST TYPE STRING,
KUNDE TYPE STRING,
DATV1 TYPE STRING,
UHRV1 TYPE STRING,
DATB1 TYPE STRING,
UHRB1 TYPE STRING,
DATH1 TYPE STRING,
UHRH1 TYPE STRING,
DATR1 TYPE STRING,
UHRR1 TYPE STRING,
AGRZ1 TYPE STRING,
GRGIO TYPE STRING,
GRBER TYPE STRING,
UZKVG TYPE STRING,
ZUSAG TYPE STRING,
ENDRG TYPE STRING,
DEPAR TYPE STRING,
ARRVL TYPE STRING,
RETRN TYPE STRING,
DATES TYPE STRING,
TIMES TYPE STRING,
UNAME TYPE STRING,
REPID TYPE STRING,
DANTN TYPE STRING,
FINTN TYPE STRING,
REQUEST TYPE STRING,
TRAVEL_PLAN TYPE STRING,
EXPENSES TYPE STRING,
ST_TRGTG TYPE STRING,
ST_TRGALL TYPE STRING,
PERIODENART TYPE STRING,
DAT_REDUC1 TYPE STRING,
DAT_REDUC2 TYPE STRING,
DATV1_DIENST TYPE STRING,
UHRV1_DIENST TYPE STRING,
DATB1_DIENST TYPE STRING,
UHRB1_DIENST TYPE STRING,
ABORDNUNG TYPE STRING,
ST_TRG_TYP TYPE STRING,
ST_WOHN_TYP TYPE STRING,
KEIN_REISEGELD TYPE STRING,
TAX_PER_DIEM TYPE STRING,
TAX_PD_MAN TYPE STRING,
TAX_OV_MAN TYPE STRING,
EXCHANGE_DATE TYPE STRING,
ROUNDING TYPE STRING,
DZ_LIMIT_180 TYPE STRING,
CALID TYPE STRING,
DURATION_TRIP_BREAKS TYPE STRING,
ADDR_DEPAR TYPE STRING,
ADDR_ARRVL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TXI_PTRV_HEAD_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_TXI_PTRV_HEAD_STR-MANDT sy-vline 
WA_TXI_PTRV_HEAD_STR-PERNR sy-vline 
WA_TXI_PTRV_HEAD_STR-REINR sy-vline 
WA_TXI_PTRV_HEAD_STR-HDVRS sy-vline 
WA_TXI_PTRV_HEAD_STR-MOLGA sy-vline 
WA_TXI_PTRV_HEAD_STR-MOREI sy-vline 
WA_TXI_PTRV_HEAD_STR-SCHEM sy-vline 
WA_TXI_PTRV_HEAD_STR-KZREA sy-vline 
WA_TXI_PTRV_HEAD_STR-BEREI sy-vline 
WA_TXI_PTRV_HEAD_STR-KZTKT sy-vline 
WA_TXI_PTRV_HEAD_STR-ZORT1 sy-vline 
WA_TXI_PTRV_HEAD_STR-ZLAND sy-vline 
WA_TXI_PTRV_HEAD_STR-HRGIO sy-vline 
WA_TXI_PTRV_HEAD_STR-NDNST sy-vline 
WA_TXI_PTRV_HEAD_STR-KUNDE sy-vline 
WA_TXI_PTRV_HEAD_STR-DATV1 sy-vline 
WA_TXI_PTRV_HEAD_STR-UHRV1 sy-vline 
WA_TXI_PTRV_HEAD_STR-DATB1 sy-vline 
WA_TXI_PTRV_HEAD_STR-UHRB1 sy-vline 
WA_TXI_PTRV_HEAD_STR-DATH1 sy-vline 
WA_TXI_PTRV_HEAD_STR-UHRH1 sy-vline 
WA_TXI_PTRV_HEAD_STR-DATR1 sy-vline 
WA_TXI_PTRV_HEAD_STR-UHRR1 sy-vline 
WA_TXI_PTRV_HEAD_STR-AGRZ1 sy-vline 
WA_TXI_PTRV_HEAD_STR-GRGIO sy-vline 
WA_TXI_PTRV_HEAD_STR-GRBER sy-vline 
WA_TXI_PTRV_HEAD_STR-UZKVG sy-vline 
WA_TXI_PTRV_HEAD_STR-ZUSAG sy-vline 
WA_TXI_PTRV_HEAD_STR-ENDRG sy-vline 
WA_TXI_PTRV_HEAD_STR-DEPAR sy-vline 
WA_TXI_PTRV_HEAD_STR-ARRVL sy-vline 
WA_TXI_PTRV_HEAD_STR-RETRN sy-vline 
WA_TXI_PTRV_HEAD_STR-DATES sy-vline 
WA_TXI_PTRV_HEAD_STR-TIMES sy-vline 
WA_TXI_PTRV_HEAD_STR-UNAME sy-vline 
WA_TXI_PTRV_HEAD_STR-REPID sy-vline 
WA_TXI_PTRV_HEAD_STR-DANTN sy-vline 
WA_TXI_PTRV_HEAD_STR-FINTN sy-vline 
WA_TXI_PTRV_HEAD_STR-REQUEST sy-vline 
WA_TXI_PTRV_HEAD_STR-TRAVEL_PLAN sy-vline 
WA_TXI_PTRV_HEAD_STR-EXPENSES sy-vline 
WA_TXI_PTRV_HEAD_STR-ST_TRGTG sy-vline 
WA_TXI_PTRV_HEAD_STR-ST_TRGALL sy-vline 
WA_TXI_PTRV_HEAD_STR-PERIODENART sy-vline 
WA_TXI_PTRV_HEAD_STR-DAT_REDUC1 sy-vline 
WA_TXI_PTRV_HEAD_STR-DAT_REDUC2 sy-vline 
WA_TXI_PTRV_HEAD_STR-DATV1_DIENST sy-vline 
WA_TXI_PTRV_HEAD_STR-UHRV1_DIENST sy-vline 
WA_TXI_PTRV_HEAD_STR-DATB1_DIENST sy-vline 
WA_TXI_PTRV_HEAD_STR-UHRB1_DIENST sy-vline 
WA_TXI_PTRV_HEAD_STR-ABORDNUNG sy-vline 
WA_TXI_PTRV_HEAD_STR-ST_TRG_TYP sy-vline 
WA_TXI_PTRV_HEAD_STR-ST_WOHN_TYP sy-vline 
WA_TXI_PTRV_HEAD_STR-KEIN_REISEGELD sy-vline 
WA_TXI_PTRV_HEAD_STR-TAX_PER_DIEM sy-vline 
WA_TXI_PTRV_HEAD_STR-TAX_PD_MAN sy-vline 
WA_TXI_PTRV_HEAD_STR-TAX_OV_MAN sy-vline 
WA_TXI_PTRV_HEAD_STR-EXCHANGE_DATE sy-vline 
WA_TXI_PTRV_HEAD_STR-ROUNDING sy-vline 
WA_TXI_PTRV_HEAD_STR-DZ_LIMIT_180 sy-vline 
WA_TXI_PTRV_HEAD_STR-CALID sy-vline 
WA_TXI_PTRV_HEAD_STR-DURATION_TRIP_BREAKS sy-vline 
WA_TXI_PTRV_HEAD_STR-ADDR_DEPAR sy-vline 
WA_TXI_PTRV_HEAD_STR-ADDR_ARRVL sy-vline      INTO ld_text SEPARATED BY SPACE.

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