ABAP Select data from SAP table T5TSTLTSF 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 T5TSTLTSF 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 T5TSTLTSF. 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 T5TSTLTSF 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_T5TSTLTSF TYPE STANDARD TABLE OF T5TSTLTSF,
      WA_T5TSTLTSF TYPE T5TSTLTSF,
      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: <T5TSTLTSF> TYPE T5TSTLTSF.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM T5TSTLTSF
*  INTO TABLE @DATA(IT_T5TSTLTSF2).
*--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_T5TSTLTSF INDEX 1 INTO DATA(WA_T5TSTLTSF2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<T5TSTLTSF>-ID = 1.
<T5TSTLTSF>-PERNR = 1.
<T5TSTLTSF>-EDIT_NAME = 1.
<T5TSTLTSF>-PERID = 1.
<T5TSTLTSF>-ADRESA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_T5TSTLTSF-PSTLZ, sy-vline,
  WA_T5TSTLTSF-ROK, sy-vline,
  WA_T5TSTLTSF-ROK1, sy-vline,
  WA_T5TSTLTSF-MESICE_UPL, sy-vline,
  WA_T5TSTLTSF-ZMZDA, sy-vline,
  WA_T5TSTLTSF-VYPMZDA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_T5TSTLTSF 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_T5TSTLTSF 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_T5TSTLTSF INTO WA_T5TSTLTSF.


*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_T5TSTLTSF_STR, 
ID TYPE STRING,
PERNR TYPE STRING,
EDIT_NAME TYPE STRING,
PERID TYPE STRING,
ADRESA TYPE STRING,
PSTLZ TYPE STRING,
ROK TYPE STRING,
ROK1 TYPE STRING,
MESICE_UPL TYPE STRING,
ZMZDA TYPE STRING,
VYPMZDA TYPE STRING,
VYPMZDA_14 TYPE STRING,
VYPMZDA_5 TYPE STRING,
MESICE_ZUC TYPE STRING,
MESICE_ZUC_SD TYPE STRING,
POJIS TYPE STRING,
VYPPOJIS TYPE STRING,
VYPPOJIS_14 TYPE STRING,
VYPPOJIS_5 TYPE STRING,
DILCZ TYPE STRING,
DILCZ_14 TYPE STRING,
ZALOH TYPE STRING,
VYPZALOH TYPE STRING,
VYPZALOH_14 TYPE STRING,
VYPZALOH_5 TYPE STRING,
VYPZALOH_SUM TYPE STRING,
TAXADV TYPE STRING,
BONUS TYPE STRING,
OBD10_1 TYPE STRING,
NAME10_1 TYPE STRING,
OBD10_2 TYPE STRING,
NAME10_2 TYPE STRING,
OBD10_3 TYPE STRING,
NAME10_3 TYPE STRING,
OBD10_4 TYPE STRING,
NAME10_4 TYPE STRING,
OBD10_5 TYPE STRING,
NAME10_5 TYPE STRING,
OBD11_1 TYPE STRING,
INV11_1 TYPE STRING,
OBD11_2 TYPE STRING,
INV11_2 TYPE STRING,
OBD11_3 TYPE STRING,
INV11_3 TYPE STRING,
OBD12_1 TYPE STRING,
SCHOOL12_1 TYPE STRING,
OBD12_2 TYPE STRING,
SCHOOL12_2 TYPE STRING,
OBD13_1 TYPE STRING,
UROKY TYPE STRING,
TEXT1 TYPE STRING,
PREP TYPE STRING,
DANPREP TYPE STRING,
DATUMPREP TYPE STRING,
DOPL TYPE STRING,
DOPL_14 TYPE STRING,
DATUMBON TYPE STRING,
ADR1 TYPE STRING,
ADR12 TYPE STRING,
ADR3 TYPE STRING,
ADR4 TYPE STRING,
ADR_ALL TYPE STRING,
DICO TYPE STRING,
USNAME TYPE STRING,
P_TEL TYPE STRING,
DATZUCT TYPE STRING,
OBDBEG TYPE STRING,
OBDEND TYPE STRING,
POJ_NEREZ TYPE STRING,
PRINT_PERNR TYPE STRING,
MES_SOLDAN TYPE STRING,
MES_DANSLZ TYPE STRING,
DATNAHR TYPE STRING,
VYPMZDA_SD TYPE STRING,
VYPMZDA_14_SD TYPE STRING,
POJ_SD_18 TYPE STRING,
VYPDAN_SD TYPE STRING,
NACHN TYPE STRING,
VORNA TYPE STRING,
OBDBEGSD TYPE STRING,
OBDENDSD TYPE STRING,
DAN_REZ TYPE STRING,
DAN_NEREZ TYPE STRING,
ZAPZLZIVP TYPE STRING,
NAME16_1 TYPE STRING,
RC16_1 TYPE STRING,
OBD_FRST16_1 TYPE STRING,
OBD_SCND16_1 TYPE STRING,
OBD_THRD16_1 TYPE STRING,
NAME16_2 TYPE STRING,
RC16_2 TYPE STRING,
OBD_FRST16_2 TYPE STRING,
OBD_SCND16_2 TYPE STRING,
OBD_THRD16_2 TYPE STRING,
NAME16_3 TYPE STRING,
RC16_3 TYPE STRING,
OBD_FRST16_3 TYPE STRING,
OBD_SCND16_3 TYPE STRING,
OBD_THRD16_3 TYPE STRING,
NAME16_4 TYPE STRING,
RC16_4 TYPE STRING,
OBD_FRST16_4 TYPE STRING,
OBD_SCND16_4 TYPE STRING,
OBD_THRD16_4 TYPE STRING,
OBD12_3 TYPE STRING,
SCHOOL12_3 TYPE STRING,
PENZPRIPOJ TYPE STRING,
ZP_SOUKROME TYPE STRING,
OBD_ZTP16_1 TYPE STRING,
OBD_ZTP16_2 TYPE STRING,
OBD_ZTP16_3 TYPE STRING,
OBD_ZTP16_4 TYPE STRING,
STAMP TYPE STRING,
UCINIL TYPE STRING,
ODBORY TYPE STRING,
NODBORY TYPE STRING,
STAMP_LU TYPE STRING,END OF T_EKKO_STR.
DATA: WA_T5TSTLTSF_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_T5TSTLTSF_STR-ID sy-vline 
WA_T5TSTLTSF_STR-PERNR sy-vline 
WA_T5TSTLTSF_STR-EDIT_NAME sy-vline 
WA_T5TSTLTSF_STR-PERID sy-vline 
WA_T5TSTLTSF_STR-ADRESA sy-vline 
WA_T5TSTLTSF_STR-PSTLZ sy-vline 
WA_T5TSTLTSF_STR-ROK sy-vline 
WA_T5TSTLTSF_STR-ROK1 sy-vline 
WA_T5TSTLTSF_STR-MESICE_UPL sy-vline 
WA_T5TSTLTSF_STR-ZMZDA sy-vline 
WA_T5TSTLTSF_STR-VYPMZDA sy-vline 
WA_T5TSTLTSF_STR-VYPMZDA_14 sy-vline 
WA_T5TSTLTSF_STR-VYPMZDA_5 sy-vline 
WA_T5TSTLTSF_STR-MESICE_ZUC sy-vline 
WA_T5TSTLTSF_STR-MESICE_ZUC_SD sy-vline 
WA_T5TSTLTSF_STR-POJIS sy-vline 
WA_T5TSTLTSF_STR-VYPPOJIS sy-vline 
WA_T5TSTLTSF_STR-VYPPOJIS_14 sy-vline 
WA_T5TSTLTSF_STR-VYPPOJIS_5 sy-vline 
WA_T5TSTLTSF_STR-DILCZ sy-vline 
WA_T5TSTLTSF_STR-DILCZ_14 sy-vline 
WA_T5TSTLTSF_STR-ZALOH sy-vline 
WA_T5TSTLTSF_STR-VYPZALOH sy-vline 
WA_T5TSTLTSF_STR-VYPZALOH_14 sy-vline 
WA_T5TSTLTSF_STR-VYPZALOH_5 sy-vline 
WA_T5TSTLTSF_STR-VYPZALOH_SUM sy-vline 
WA_T5TSTLTSF_STR-TAXADV sy-vline 
WA_T5TSTLTSF_STR-BONUS sy-vline 
WA_T5TSTLTSF_STR-OBD10_1 sy-vline 
WA_T5TSTLTSF_STR-NAME10_1 sy-vline 
WA_T5TSTLTSF_STR-OBD10_2 sy-vline 
WA_T5TSTLTSF_STR-NAME10_2 sy-vline 
WA_T5TSTLTSF_STR-OBD10_3 sy-vline 
WA_T5TSTLTSF_STR-NAME10_3 sy-vline 
WA_T5TSTLTSF_STR-OBD10_4 sy-vline 
WA_T5TSTLTSF_STR-NAME10_4 sy-vline 
WA_T5TSTLTSF_STR-OBD10_5 sy-vline 
WA_T5TSTLTSF_STR-NAME10_5 sy-vline 
WA_T5TSTLTSF_STR-OBD11_1 sy-vline 
WA_T5TSTLTSF_STR-INV11_1 sy-vline 
WA_T5TSTLTSF_STR-OBD11_2 sy-vline 
WA_T5TSTLTSF_STR-INV11_2 sy-vline 
WA_T5TSTLTSF_STR-OBD11_3 sy-vline 
WA_T5TSTLTSF_STR-INV11_3 sy-vline 
WA_T5TSTLTSF_STR-OBD12_1 sy-vline 
WA_T5TSTLTSF_STR-SCHOOL12_1 sy-vline 
WA_T5TSTLTSF_STR-OBD12_2 sy-vline 
WA_T5TSTLTSF_STR-SCHOOL12_2 sy-vline 
WA_T5TSTLTSF_STR-OBD13_1 sy-vline 
WA_T5TSTLTSF_STR-UROKY sy-vline 
WA_T5TSTLTSF_STR-TEXT1 sy-vline 
WA_T5TSTLTSF_STR-PREP sy-vline 
WA_T5TSTLTSF_STR-DANPREP sy-vline 
WA_T5TSTLTSF_STR-DATUMPREP sy-vline 
WA_T5TSTLTSF_STR-DOPL sy-vline 
WA_T5TSTLTSF_STR-DOPL_14 sy-vline 
WA_T5TSTLTSF_STR-DATUMBON sy-vline 
WA_T5TSTLTSF_STR-ADR1 sy-vline 
WA_T5TSTLTSF_STR-ADR12 sy-vline 
WA_T5TSTLTSF_STR-ADR3 sy-vline 
WA_T5TSTLTSF_STR-ADR4 sy-vline 
WA_T5TSTLTSF_STR-ADR_ALL sy-vline 
WA_T5TSTLTSF_STR-DICO sy-vline 
WA_T5TSTLTSF_STR-USNAME sy-vline 
WA_T5TSTLTSF_STR-P_TEL sy-vline 
WA_T5TSTLTSF_STR-DATZUCT sy-vline 
WA_T5TSTLTSF_STR-OBDBEG sy-vline 
WA_T5TSTLTSF_STR-OBDEND sy-vline 
WA_T5TSTLTSF_STR-POJ_NEREZ sy-vline 
WA_T5TSTLTSF_STR-PRINT_PERNR sy-vline 
WA_T5TSTLTSF_STR-MES_SOLDAN sy-vline 
WA_T5TSTLTSF_STR-MES_DANSLZ sy-vline 
WA_T5TSTLTSF_STR-DATNAHR sy-vline 
WA_T5TSTLTSF_STR-VYPMZDA_SD sy-vline 
WA_T5TSTLTSF_STR-VYPMZDA_14_SD sy-vline 
WA_T5TSTLTSF_STR-POJ_SD_18 sy-vline 
WA_T5TSTLTSF_STR-VYPDAN_SD sy-vline 
WA_T5TSTLTSF_STR-NACHN sy-vline 
WA_T5TSTLTSF_STR-VORNA sy-vline 
WA_T5TSTLTSF_STR-OBDBEGSD sy-vline 
WA_T5TSTLTSF_STR-OBDENDSD sy-vline 
WA_T5TSTLTSF_STR-DAN_REZ sy-vline 
WA_T5TSTLTSF_STR-DAN_NEREZ sy-vline 
WA_T5TSTLTSF_STR-ZAPZLZIVP sy-vline 
WA_T5TSTLTSF_STR-NAME16_1 sy-vline 
WA_T5TSTLTSF_STR-RC16_1 sy-vline 
WA_T5TSTLTSF_STR-OBD_FRST16_1 sy-vline 
WA_T5TSTLTSF_STR-OBD_SCND16_1 sy-vline 
WA_T5TSTLTSF_STR-OBD_THRD16_1 sy-vline 
WA_T5TSTLTSF_STR-NAME16_2 sy-vline 
WA_T5TSTLTSF_STR-RC16_2 sy-vline 
WA_T5TSTLTSF_STR-OBD_FRST16_2 sy-vline 
WA_T5TSTLTSF_STR-OBD_SCND16_2 sy-vline 
WA_T5TSTLTSF_STR-OBD_THRD16_2 sy-vline 
WA_T5TSTLTSF_STR-NAME16_3 sy-vline 
WA_T5TSTLTSF_STR-RC16_3 sy-vline 
WA_T5TSTLTSF_STR-OBD_FRST16_3 sy-vline 
WA_T5TSTLTSF_STR-OBD_SCND16_3 sy-vline 
WA_T5TSTLTSF_STR-OBD_THRD16_3 sy-vline 
WA_T5TSTLTSF_STR-NAME16_4 sy-vline 
WA_T5TSTLTSF_STR-RC16_4 sy-vline 
WA_T5TSTLTSF_STR-OBD_FRST16_4 sy-vline 
WA_T5TSTLTSF_STR-OBD_SCND16_4 sy-vline 
WA_T5TSTLTSF_STR-OBD_THRD16_4 sy-vline 
WA_T5TSTLTSF_STR-OBD12_3 sy-vline 
WA_T5TSTLTSF_STR-SCHOOL12_3 sy-vline 
WA_T5TSTLTSF_STR-PENZPRIPOJ sy-vline 
WA_T5TSTLTSF_STR-ZP_SOUKROME sy-vline 
WA_T5TSTLTSF_STR-OBD_ZTP16_1 sy-vline 
WA_T5TSTLTSF_STR-OBD_ZTP16_2 sy-vline 
WA_T5TSTLTSF_STR-OBD_ZTP16_3 sy-vline 
WA_T5TSTLTSF_STR-OBD_ZTP16_4 sy-vline 
WA_T5TSTLTSF_STR-STAMP sy-vline 
WA_T5TSTLTSF_STR-UCINIL sy-vline 
WA_T5TSTLTSF_STR-ODBORY sy-vline 
WA_T5TSTLTSF_STR-NODBORY sy-vline 
WA_T5TSTLTSF_STR-STAMP_LU sy-vline      INTO ld_text SEPARATED BY SPACE.

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