ABAP Select data from SAP table PTR10 into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP PTR10 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 PTR10. 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 PTR10 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_PTR10 TYPE STANDARD TABLE OF PTR10,
      WA_PTR10 TYPE PTR10,
      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: <PTR10> TYPE PTR10.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PTR10
*  INTO TABLE @DATA(IT_PTR102).
*--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_PTR10 INDEX 1 INTO DATA(WA_PTR102).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_PTR10 ASSIGNING <PTR10>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<PTR10>-PERNR = 1.
<PTR10>-WERKS = 1.
<PTR10>-BTRTL = 1.
<PTR10>-ENAME = 1.
<PTR10>-BEGDA = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PTR10-ENDDA, sy-vline,
WA_PTR10-PERSG, sy-vline,
WA_PTR10-HIRE, sy-vline,
WA_PTR10-FIRE, sy-vline,
WA_PTR10-PERSK, sy-vline,
WA_PTR10-VORNA, sy-vline.
ENDLOOP. *Add any further fields from structure WA_PTR10 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_PTR10 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_PTR10 INTO WA_PTR10. *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 PDATE, internal->external for field GBDAT CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT' EXPORTING input = WA_PTR10-GBDAT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PTR10-GBDAT.
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_PTR10_STR,
PERNR TYPE STRING,
WERKS TYPE STRING,
BTRTL TYPE STRING,
ENAME TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
PERSG TYPE STRING,
HIRE TYPE STRING,
FIRE TYPE STRING,
PERSK TYPE STRING,
VORNA TYPE STRING,
NACHN TYPE STRING,
GBDAT TYPE STRING,
GBORT TYPE STRING,
ANRED TYPE STRING,
GESCH TYPE STRING,
NATIO TYPE STRING,
FAMST TYPE STRING,
SSKNO TYPE STRING,
AGE TYPE STRING,
KAZAT TYPE STRING,
KZTAR TYPE STRING,
KZSAT TYPE STRING,
ISTDN TYPE STRING,
KZEIS TYPE STRING,
KZBLM TYPE STRING,
KZIBS TYPE STRING,
SAHT1 TYPE STRING,
SAHT2 TYPE STRING,
SAHAD TYPE STRING,
OFKMT TYPE STRING,
HASAR TYPE STRING,
WAERS TYPE STRING,
TANM1 TYPE STRING,
TANM2 TYPE STRING,
TANM3 TYPE STRING,
TANM4 TYPE STRING,
GOREV TYPE STRING,
BAYAD TYPE STRING,
ADRES TYPE STRING,
KYUZV TYPE STRING,
YRSK1 TYPE STRING,
MSTUR TYPE STRING,
TSTRH TYPE STRING,
SPTSK TYPE STRING,
TMYKA TYPE STRING,
TMYIL TYPE STRING,
TMYIC TYPE STRING,
TMYYE TYPE STRING,
TMYTR TYPE STRING,
TMYSA TYPE STRING,
TMBIT TYPE STRING,
TMBIS TYPE STRING,
TMYAP TYPE STRING,
KGIBT TYPE STRING,
KSIYD TYPE STRING,
YAKTC TYPE STRING,
MEGTA TYPE STRING,
ISGEA TYPE STRING,
KZSDR TYPE STRING,
ISBRT TYPE STRING,
ISBRS TYPE STRING,
KDISK TYPE STRING,
KZYER TYPE STRING,
KZORT TYPE STRING,
BHZTC TYPE STRING,
BHZAD TYPE STRING,
BHZSY TYPE STRING,
BHZTL TYPE STRING,
BHZFX TYPE STRING,
BHZEP TYPE STRING,
KZILI TYPE STRING,
KZILC TYPE STRING,
KZADR TYPE STRING,
MSETK TYPE STRING,
MSETS TYPE STRING,
MSIGS TYPE STRING,
MSBLT TYPE STRING,
MSBLS TYPE STRING,
ADRIC TYPE STRING,END OF T_EKKO_STR. DATA: WA_PTR10_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_PTR10_STR-PERNR sy-vline
WA_PTR10_STR-WERKS sy-vline
WA_PTR10_STR-BTRTL sy-vline
WA_PTR10_STR-ENAME sy-vline
WA_PTR10_STR-BEGDA sy-vline
WA_PTR10_STR-ENDDA sy-vline
WA_PTR10_STR-PERSG sy-vline
WA_PTR10_STR-HIRE sy-vline
WA_PTR10_STR-FIRE sy-vline
WA_PTR10_STR-PERSK sy-vline
WA_PTR10_STR-VORNA sy-vline
WA_PTR10_STR-NACHN sy-vline
WA_PTR10_STR-GBDAT sy-vline
WA_PTR10_STR-GBORT sy-vline
WA_PTR10_STR-ANRED sy-vline
WA_PTR10_STR-GESCH sy-vline
WA_PTR10_STR-NATIO sy-vline
WA_PTR10_STR-FAMST sy-vline
WA_PTR10_STR-SSKNO sy-vline
WA_PTR10_STR-AGE sy-vline
WA_PTR10_STR-KAZAT sy-vline
WA_PTR10_STR-KZTAR sy-vline
WA_PTR10_STR-KZSAT sy-vline
WA_PTR10_STR-ISTDN sy-vline
WA_PTR10_STR-KZEIS sy-vline
WA_PTR10_STR-KZBLM sy-vline
WA_PTR10_STR-KZIBS sy-vline
WA_PTR10_STR-SAHT1 sy-vline
WA_PTR10_STR-SAHT2 sy-vline
WA_PTR10_STR-SAHAD sy-vline
WA_PTR10_STR-OFKMT sy-vline
WA_PTR10_STR-HASAR sy-vline
WA_PTR10_STR-WAERS sy-vline
WA_PTR10_STR-TANM1 sy-vline
WA_PTR10_STR-TANM2 sy-vline
WA_PTR10_STR-TANM3 sy-vline
WA_PTR10_STR-TANM4 sy-vline
WA_PTR10_STR-GOREV sy-vline
WA_PTR10_STR-BAYAD sy-vline
WA_PTR10_STR-ADRES sy-vline
WA_PTR10_STR-KYUZV sy-vline
WA_PTR10_STR-YRSK1 sy-vline
WA_PTR10_STR-MSTUR sy-vline
WA_PTR10_STR-TSTRH sy-vline
WA_PTR10_STR-SPTSK sy-vline
WA_PTR10_STR-TMYKA sy-vline
WA_PTR10_STR-TMYIL sy-vline
WA_PTR10_STR-TMYIC sy-vline
WA_PTR10_STR-TMYYE sy-vline
WA_PTR10_STR-TMYTR sy-vline
WA_PTR10_STR-TMYSA sy-vline
WA_PTR10_STR-TMBIT sy-vline
WA_PTR10_STR-TMBIS sy-vline
WA_PTR10_STR-TMYAP sy-vline
WA_PTR10_STR-KGIBT sy-vline
WA_PTR10_STR-KSIYD sy-vline
WA_PTR10_STR-YAKTC sy-vline
WA_PTR10_STR-MEGTA sy-vline
WA_PTR10_STR-ISGEA sy-vline
WA_PTR10_STR-KZSDR sy-vline
WA_PTR10_STR-ISBRT sy-vline
WA_PTR10_STR-ISBRS sy-vline
WA_PTR10_STR-KDISK sy-vline
WA_PTR10_STR-KZYER sy-vline
WA_PTR10_STR-KZORT sy-vline
WA_PTR10_STR-BHZTC sy-vline
WA_PTR10_STR-BHZAD sy-vline
WA_PTR10_STR-BHZSY sy-vline
WA_PTR10_STR-BHZTL sy-vline
WA_PTR10_STR-BHZFX sy-vline
WA_PTR10_STR-BHZEP sy-vline
WA_PTR10_STR-KZILI sy-vline
WA_PTR10_STR-KZILC sy-vline
WA_PTR10_STR-KZADR sy-vline
WA_PTR10_STR-MSETK sy-vline
WA_PTR10_STR-MSETS sy-vline
WA_PTR10_STR-MSIGS sy-vline
WA_PTR10_STR-MSBLT sy-vline
WA_PTR10_STR-MSBLS sy-vline
WA_PTR10_STR-ADRIC sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.