ABAP Select data from SAP table IR8A_APPDX8A 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 IR8A_APPDX8A 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 IR8A_APPDX8A. 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 IR8A_APPDX8A 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_IR8A_APPDX8A TYPE STANDARD TABLE OF IR8A_APPDX8A,
      WA_IR8A_APPDX8A TYPE IR8A_APPDX8A,
      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: <IR8A_APPDX8A> TYPE IR8A_APPDX8A.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IR8A_APPDX8A
*  INTO TABLE @DATA(IT_IR8A_APPDX8A2).
*--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_IR8A_APPDX8A INDEX 1 INTO DATA(WA_IR8A_APPDX8A2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IR8A_APPDX8A>-APDX_ADRES = 1.
<IR8A_APPDX8A>-APDX_ADR_PERIOD = 1.
<IR8A_APPDX8A>-APDX_NO_OF_DAYS = 1.
<IR8A_APPDX8A>-APDX_BETRAGA0 = 1.
<IR8A_APPDX8A>-APDX_BETRAGA1 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IR8A_APPDX8A-APDX_BETRAGA2, sy-vline,
  WA_IR8A_APPDX8A-APDX_BETNUMA2, sy-vline,
  WA_IR8A_APPDX8A-APDX_BETRAGS1, sy-vline,
  WA_IR8A_APPDX8A-APDX_BETRAGA3, sy-vline,
  WA_IR8A_APPDX8A-APDX_BETNUMA3, sy-vline,
  WA_IR8A_APPDX8A-APDX_BETRAGA4, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IR8A_APPDX8A 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_IR8A_APPDX8A 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_IR8A_APPDX8A INTO WA_IR8A_APPDX8A.


*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 ISOLA, internal->external for field LANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_IR8A_APPDX8A-LANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IR8A_APPDX8A-LANGUAGE.
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_IR8A_APPDX8A_STR, 
APDX_ADRES TYPE STRING,
APDX_ADR_PERIOD TYPE STRING,
APDX_NO_OF_DAYS TYPE STRING,
APDX_BETRAGA0 TYPE STRING,
APDX_BETRAGA1 TYPE STRING,
APDX_BETRAGA2 TYPE STRING,
APDX_BETNUMA2 TYPE STRING,
APDX_BETRAGS1 TYPE STRING,
APDX_BETRAGA3 TYPE STRING,
APDX_BETNUMA3 TYPE STRING,
APDX_BETRAGA4 TYPE STRING,
APDX_BETNUMA4 TYPE STRING,
APDX_BETRAGS2 TYPE STRING,
APDX_BETRAGA5 TYPE STRING,
APDX_BETNUMA5 TYPE STRING,
APDX_BETRAGA6 TYPE STRING,
APDX_BETNUMA6 TYPE STRING,
APDX_BETRAGA7 TYPE STRING,
APDX_BETNUMA7 TYPE STRING,
APDX_BETRAGS3 TYPE STRING,
APDX_BETRAGA8 TYPE STRING,
APDX_BETNUMA8 TYPE STRING,
APDX_BETRAGA9 TYPE STRING,
APDX_BETNUMA9 TYPE STRING,
APDX_BETRAGB0 TYPE STRING,
APDX_BETNUMB0 TYPE STRING,
APDX_BETRAGB1 TYPE STRING,
APDX_BETNUMB1 TYPE STRING,
APDX_BETRAGS4 TYPE STRING,
APDX_BETRAGB2 TYPE STRING,
APDX_BETNUMB2 TYPE STRING,
APDX_BETRAGB3 TYPE STRING,
APDX_BETNUMB3 TYPE STRING,
APDX_BETRAGB4 TYPE STRING,
APDX_BETNUMB4 TYPE STRING,
APDX_BETRAGB5 TYPE STRING,
APDX_BETNUMB5 TYPE STRING,
APDX_BETRAGBA TYPE STRING,
APDX_BETNUMBA TYPE STRING,
APDX_BETRAGS5 TYPE STRING,
APDX_BETRAGB6 TYPE STRING,
APDX_BETNUMB6 TYPE STRING,
APDX_BETRAGB7 TYPE STRING,
APDX_BETNUMB7 TYPE STRING,
APDX_BETRAGS6 TYPE STRING,
APDX_BETRAGB8 TYPE STRING,
APDX_BETNUMB8 TYPE STRING,
APDX_BETRAGS7 TYPE STRING,
APDX_BETRAGB9 TYPE STRING,
APDX_BETRAGC0 TYPE STRING,
APDX_BETRAGC1 TYPE STRING,
APDX_BETRAGCA TYPE STRING,
APDX_BETRAGCB TYPE STRING,
APDX_BETRAGCC TYPE STRING,
APDX_BETRAGC2 TYPE STRING,
APDX_BETRAGS8 TYPE STRING,
APDX_BETRAGC3 TYPE STRING,
APDX_BETRAGS9 TYPE STRING,
APDX_BETRAGC4 TYPE STRING,
APDX_BETRAGS10 TYPE STRING,
APDX_BETRAGC5 TYPE STRING,
APDX_BETRAGS11 TYPE STRING,
APDX_BETRAGC6 TYPE STRING,
APDX_BETNUMC6 TYPE STRING,
APDX_BETRAGC7 TYPE STRING,
APDX_BETNUMC7 TYPE STRING,
APDX_BETRAGC8 TYPE STRING,
APDX_OHQ_YES TYPE STRING,
APDX_OHQ_NO TYPE STRING,
APDX_BETNUMC8 TYPE STRING,
APDX_BETRAGS12 TYPE STRING,
APDX_BETRAGC9 TYPE STRING,
APDX_BETRAGD0 TYPE STRING,
APDX_BETRAGD1 TYPE STRING,
APDX_BETRAGD2 TYPE STRING,
APDX_BETRAGD3 TYPE STRING,
APDX_BETRAGD4 TYPE STRING,
APDX_BETRAGD5 TYPE STRING,
APDX_BETRAGD6 TYPE STRING,
APDX_BETRAGD7 TYPE STRING,
APDX_BETRAGD8 TYPE STRING,
APDX_BETRAGD9 TYPE STRING,
APDX_BETRAGST TYPE STRING,
APDX_BETRAGTT TYPE STRING,
LANGUAGE TYPE STRING,
NO_OF_PER_AMT TYPE STRING,
APDX_BETRAGAA TYPE STRING,
APDX_BETNUMAA TYPE STRING,
APDX_BETRAGBB TYPE STRING,
APDX_BETNUMBB TYPE STRING,
ITEM_NAME TYPE STRING,
ITEM_AMT TYPE STRING,
APDX_BETRAGAP TYPE STRING,
APDX_BETRAGCK TYPE STRING,
APDX_BETNUMCK TYPE STRING,
APDX_BETNUMCL TYPE STRING,
APDX_BETRAGCQ TYPE STRING,
APDX_BETNUMCQ TYPE STRING,
APDX_BETNUMCR TYPE STRING,
APDX_BETRAGCO TYPE STRING,
APDX_BETNUMCO TYPE STRING,
APDX_BETNUMCP TYPE STRING,
APDX_BETRAGCM TYPE STRING,
APDX_BETNUMCM TYPE STRING,
APDX_BETNUMCN TYPE STRING,
APDX_BETRAGCS TYPE STRING,
APDX_BETRAGHT TYPE STRING,
APDX_BETRAGC TYPE STRING,
APDX_CHECKCQ TYPE STRING,
APDX_CHECKCO TYPE STRING,
APDX_CHECKCM TYPE STRING,
FLAG_APPDX8A TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IR8A_APPDX8A_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_IR8A_APPDX8A_STR-APDX_ADRES sy-vline 
WA_IR8A_APPDX8A_STR-APDX_ADR_PERIOD sy-vline 
WA_IR8A_APPDX8A_STR-APDX_NO_OF_DAYS sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA0 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA1 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS1 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGA9 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMA9 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB0 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB0 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB1 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB1 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGBA sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMBA sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMB8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGB9 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC0 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC1 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCA sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCB sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCC sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS9 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS10 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS11 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMC6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMC7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_OHQ_YES sy-vline 
WA_IR8A_APPDX8A_STR-APDX_OHQ_NO sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMC8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGS12 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC9 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD0 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD1 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD2 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD3 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD4 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD5 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD6 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD7 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD8 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGD9 sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGST sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGTT sy-vline 
WA_IR8A_APPDX8A_STR-LANGUAGE sy-vline 
WA_IR8A_APPDX8A_STR-NO_OF_PER_AMT sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGAA sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMAA sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGBB sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMBB sy-vline 
WA_IR8A_APPDX8A_STR-ITEM_NAME sy-vline 
WA_IR8A_APPDX8A_STR-ITEM_AMT sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGAP sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCK sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCK sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCL sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCQ sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCQ sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCR sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCO sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCO sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCP sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCM sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCM sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETNUMCN sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGCS sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGHT sy-vline 
WA_IR8A_APPDX8A_STR-APDX_BETRAGC sy-vline 
WA_IR8A_APPDX8A_STR-APDX_CHECKCQ sy-vline 
WA_IR8A_APPDX8A_STR-APDX_CHECKCO sy-vline 
WA_IR8A_APPDX8A_STR-APDX_CHECKCM sy-vline 
WA_IR8A_APPDX8A_STR-FLAG_APPDX8A sy-vline      INTO ld_text SEPARATED BY SPACE.

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