ABAP Select data from SAP table AT10 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 AT10 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 AT10. 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 AT10 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_AT10 TYPE STANDARD TABLE OF AT10,
      WA_AT10 TYPE AT10,
      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: <AT10> TYPE AT10.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM AT10
*  INTO TABLE @DATA(IT_AT102).
*--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_AT10 INDEX 1 INTO DATA(WA_AT102).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<AT10>-MANDT = 1.
<AT10>-SGSART = 1.
<AT10>-SFHAART = 1.
<AT10>-SFGTYP = 1.
<AT10>-NUMKR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_AT10-NUMKRANG, sy-vline,
  WA_AT10-NUMKRSIM, sy-vline,
  WA_AT10-ABWTYP, sy-vline,
  WA_AT10-SAUTOBUCH, sy-vline,
  WA_AT10-UNUMKR, sy-vline,
  WA_AT10-SLPG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_AT10 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_AT10 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_AT10 INTO WA_AT10.


*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_AT10_STR, 
MANDT TYPE STRING,
SGSART TYPE STRING,
SFHAART TYPE STRING,
SFGTYP TYPE STRING,
NUMKR TYPE STRING,
NUMKRANG TYPE STRING,
NUMKRSIM TYPE STRING,
ABWTYP TYPE STRING,
SAUTOBUCH TYPE STRING,
UNUMKR TYPE STRING,
SLPG TYPE STRING,
SROUND TYPE STRING,
RROUND TYPE STRING,
SBSTDCP TYPE STRING,
SCOMPCP TYPE STRING,
AHJFA TYPE STRING,
SREALGE TYPE STRING,
SREALVE TYPE STRING,
SBESTABT TYPE STRING,
SBESTZUT TYPE STRING,
SBESTAB TYPE STRING,
SBESTZU TYPE STRING,
SRUEBIL TYPE STRING,
SRUEAUF TYPE STRING,
SGEWBIL TYPE STRING,
SGEWAUF TYPE STRING,
SSWAPERT TYPE STRING,
SSWAPERAUF TYPE STRING,
SSWAPAUF TYPE STRING,
SSWAPAUAUF TYPE STRING,
SRUESWP TYPE STRING,
SRUEAUFSWP TYPE STRING,
SGEWSWP TYPE STRING,
SGEWAUFSWP TYPE STRING,
SSWPUMBAUF TYPE STRING,
SSWPUMBERT TYPE STRING,
RANTYP TYPE STRING,
STSMA TYPE STRING,
DATE_RULE TYPE STRING,
SREALGET TYPE STRING,
SREALVET TYPE STRING,
FLAG_FLAT TYPE STRING,
SNOMPAY TYPE STRING,
FLG_INIT_MARGIN TYPE STRING,
POS_LOCK_CAT TYPE STRING,
USGSART TYPE STRING,
USFHAART TYPE STRING,
LOCK_REASON TYPE STRING,
AUTOSETTLE TYPE STRING,
PHYSICALDEL TYPE STRING,
USENETTING TYPE STRING,
LOC_CURR_RULE TYPE STRING,
SIDE_CAT_IN TYPE STRING,
SIDE_CAT_OUT TYPE STRING,
SWAP_SYMMETRY TYPE STRING,
SWAP_CAPTURE_BEH TYPE STRING,
COM_PRICE_DETERM TYPE STRING,
COM_AVG_CAPT_CAT TYPE STRING,
AUTOEXECUTE TYPE STRING,
SPOT_INDICATOR TYPE STRING,
SPOT_MATYPE TYPE STRING,
SPOT_RATE_STRATEGY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_AT10_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_AT10_STR-MANDT sy-vline 
WA_AT10_STR-SGSART sy-vline 
WA_AT10_STR-SFHAART sy-vline 
WA_AT10_STR-SFGTYP sy-vline 
WA_AT10_STR-NUMKR sy-vline 
WA_AT10_STR-NUMKRANG sy-vline 
WA_AT10_STR-NUMKRSIM sy-vline 
WA_AT10_STR-ABWTYP sy-vline 
WA_AT10_STR-SAUTOBUCH sy-vline 
WA_AT10_STR-UNUMKR sy-vline 
WA_AT10_STR-SLPG sy-vline 
WA_AT10_STR-SROUND sy-vline 
WA_AT10_STR-RROUND sy-vline 
WA_AT10_STR-SBSTDCP sy-vline 
WA_AT10_STR-SCOMPCP sy-vline 
WA_AT10_STR-AHJFA sy-vline 
WA_AT10_STR-SREALGE sy-vline 
WA_AT10_STR-SREALVE sy-vline 
WA_AT10_STR-SBESTABT sy-vline 
WA_AT10_STR-SBESTZUT sy-vline 
WA_AT10_STR-SBESTAB sy-vline 
WA_AT10_STR-SBESTZU sy-vline 
WA_AT10_STR-SRUEBIL sy-vline 
WA_AT10_STR-SRUEAUF sy-vline 
WA_AT10_STR-SGEWBIL sy-vline 
WA_AT10_STR-SGEWAUF sy-vline 
WA_AT10_STR-SSWAPERT sy-vline 
WA_AT10_STR-SSWAPERAUF sy-vline 
WA_AT10_STR-SSWAPAUF sy-vline 
WA_AT10_STR-SSWAPAUAUF sy-vline 
WA_AT10_STR-SRUESWP sy-vline 
WA_AT10_STR-SRUEAUFSWP sy-vline 
WA_AT10_STR-SGEWSWP sy-vline 
WA_AT10_STR-SGEWAUFSWP sy-vline 
WA_AT10_STR-SSWPUMBAUF sy-vline 
WA_AT10_STR-SSWPUMBERT sy-vline 
WA_AT10_STR-RANTYP sy-vline 
WA_AT10_STR-STSMA sy-vline 
WA_AT10_STR-DATE_RULE sy-vline 
WA_AT10_STR-SREALGET sy-vline 
WA_AT10_STR-SREALVET sy-vline 
WA_AT10_STR-FLAG_FLAT sy-vline 
WA_AT10_STR-SNOMPAY sy-vline 
WA_AT10_STR-FLG_INIT_MARGIN sy-vline 
WA_AT10_STR-POS_LOCK_CAT sy-vline 
WA_AT10_STR-USGSART sy-vline 
WA_AT10_STR-USFHAART sy-vline 
WA_AT10_STR-LOCK_REASON sy-vline 
WA_AT10_STR-AUTOSETTLE sy-vline 
WA_AT10_STR-PHYSICALDEL sy-vline 
WA_AT10_STR-USENETTING sy-vline 
WA_AT10_STR-LOC_CURR_RULE sy-vline 
WA_AT10_STR-SIDE_CAT_IN sy-vline 
WA_AT10_STR-SIDE_CAT_OUT sy-vline 
WA_AT10_STR-SWAP_SYMMETRY sy-vline 
WA_AT10_STR-SWAP_CAPTURE_BEH sy-vline 
WA_AT10_STR-COM_PRICE_DETERM sy-vline 
WA_AT10_STR-COM_AVG_CAPT_CAT sy-vline 
WA_AT10_STR-AUTOEXECUTE sy-vline 
WA_AT10_STR-SPOT_INDICATOR sy-vline 
WA_AT10_STR-SPOT_MATYPE sy-vline 
WA_AT10_STR-SPOT_RATE_STRATEGY sy-vline      INTO ld_text SEPARATED BY SPACE.

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