ABAP Select data from SAP table P0226 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 P0226 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 P0226. 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 P0226 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_P0226 TYPE STANDARD TABLE OF P0226,
      WA_P0226 TYPE P0226,
      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: <P0226> TYPE P0226.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P0226
*  INTO TABLE @DATA(IT_P02262).
*--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_P0226 INDEX 1 INTO DATA(WA_P02262).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P0226>-PERNR = 1.
<P0226>-INFTY = 1.
<P0226>-SUBTY = 1.
<P0226>-OBJPS = 1.
<P0226>-SPRPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P0226-ENDDA, sy-vline,
  WA_P0226-BEGDA, sy-vline,
  WA_P0226-SEQNR, sy-vline,
  WA_P0226-AEDTM, sy-vline,
  WA_P0226-UNAME, sy-vline,
  WA_P0226-HISTO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P0226 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_P0226 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_P0226 INTO WA_P0226.


*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_P0226_STR, 
PERNR TYPE STRING,
INFTY TYPE STRING,
SUBTY TYPE STRING,
OBJPS TYPE STRING,
SPRPS TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
SEQNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
HISTO TYPE STRING,
ITXEX TYPE STRING,
REFEX TYPE STRING,
ORDEX TYPE STRING,
ITBLD TYPE STRING,
PREAS TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
FLAG4 TYPE STRING,
RESE1 TYPE STRING,
RESE2 TYPE STRING,
GRPVL TYPE STRING,
PFTYP TYPE STRING,
PFSTY TYPE STRING,
PFLGA TYPE STRING,
WAERS TYPE STRING,
KORSU TYPE STRING,
RESSU TYPE STRING,
PFPRP TYPE STRING,
PPROZ TYPE STRING,
PMINS TYPE STRING,
PMOSU TYPE STRING,
PKONT TYPE STRING,
PFREG TYPE STRING,
EMFSL TYPE STRING,
EMFTX TYPE STRING,
BKPLZ TYPE STRING,
BKORT TYPE STRING,
STRAS TYPE STRING,
LOCAT TYPE STRING,
BANKS TYPE STRING,
BANKL TYPE STRING,
BANKN TYPE STRING,
ZWECK TYPE STRING,
ZLSCH TYPE STRING,
LGRT0 TYPE STRING,
LGRT1 TYPE STRING,
LGRT2 TYPE STRING,
LGRT3 TYPE STRING,
LGRT4 TYPE STRING,
LGRT5 TYPE STRING,
LGRT6 TYPE STRING,
LGRT7 TYPE STRING,
LGRT8 TYPE STRING,
LGRT9 TYPE STRING,
PROZ0 TYPE STRING,
PROZ1 TYPE STRING,
PROZ2 TYPE STRING,
PROZ3 TYPE STRING,
PROZ4 TYPE STRING,
PROZ5 TYPE STRING,
PROZ6 TYPE STRING,
PROZ7 TYPE STRING,
PROZ8 TYPE STRING,
PROZ9 TYPE STRING,
FLEG0 TYPE STRING,
FLEG1 TYPE STRING,
FLEG2 TYPE STRING,
FLEG3 TYPE STRING,
FLEG4 TYPE STRING,
FLEG5 TYPE STRING,
FLEG6 TYPE STRING,
FLEG7 TYPE STRING,
FLEG8 TYPE STRING,
FLEG9 TYPE STRING,
VEGRJ TYPE STRING,
LETJL TYPE STRING,
SPLIT TYPE STRING,
PRIOT TYPE STRING,
KAMAT TYPE STRING,
KORKM TYPE STRING,
KNRSU TYPE STRING,
VKORR TYPE STRING,
WKORR TYPE STRING,
IBAN TYPE STRING,
NOLET TYPE STRING,
MAXPF TYPE STRING,
PMAXS TYPE STRING,
KAMT2 TYPE STRING,
HATDT TYPE STRING,
VJPFB TYPE STRING,
PFPRL TYPE STRING,
FAIND TYPE STRING,
USZAM TYPE STRING,
ISZAM TYPE STRING,
LTIND TYPE STRING,
INDDA TYPE STRING,
MNOSZ TYPE STRING,
MEGEL TYPE STRING,
MEGJ1 TYPE STRING,
MEGJ2 TYPE STRING,
MODO1 TYPE STRING,
MODO2 TYPE STRING,
LTSTA TYPE STRING,
VHJRE TYPE STRING,
FOGK1 TYPE STRING,
FOGK2 TYPE STRING,
FOGK3 TYPE STRING,
FOGK4 TYPE STRING,
CELK1 TYPE STRING,
CELK2 TYPE STRING,
CELK3 TYPE STRING,
CELK4 TYPE STRING,
NMXPF TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P0226_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_P0226_STR-PERNR sy-vline 
WA_P0226_STR-INFTY sy-vline 
WA_P0226_STR-SUBTY sy-vline 
WA_P0226_STR-OBJPS sy-vline 
WA_P0226_STR-SPRPS sy-vline 
WA_P0226_STR-ENDDA sy-vline 
WA_P0226_STR-BEGDA sy-vline 
WA_P0226_STR-SEQNR sy-vline 
WA_P0226_STR-AEDTM sy-vline 
WA_P0226_STR-UNAME sy-vline 
WA_P0226_STR-HISTO sy-vline 
WA_P0226_STR-ITXEX sy-vline 
WA_P0226_STR-REFEX sy-vline 
WA_P0226_STR-ORDEX sy-vline 
WA_P0226_STR-ITBLD sy-vline 
WA_P0226_STR-PREAS sy-vline 
WA_P0226_STR-FLAG1 sy-vline 
WA_P0226_STR-FLAG2 sy-vline 
WA_P0226_STR-FLAG3 sy-vline 
WA_P0226_STR-FLAG4 sy-vline 
WA_P0226_STR-RESE1 sy-vline 
WA_P0226_STR-RESE2 sy-vline 
WA_P0226_STR-GRPVL sy-vline 
WA_P0226_STR-PFTYP sy-vline 
WA_P0226_STR-PFSTY sy-vline 
WA_P0226_STR-PFLGA sy-vline 
WA_P0226_STR-WAERS sy-vline 
WA_P0226_STR-KORSU sy-vline 
WA_P0226_STR-RESSU sy-vline 
WA_P0226_STR-PFPRP sy-vline 
WA_P0226_STR-PPROZ sy-vline 
WA_P0226_STR-PMINS sy-vline 
WA_P0226_STR-PMOSU sy-vline 
WA_P0226_STR-PKONT sy-vline 
WA_P0226_STR-PFREG sy-vline 
WA_P0226_STR-EMFSL sy-vline 
WA_P0226_STR-EMFTX sy-vline 
WA_P0226_STR-BKPLZ sy-vline 
WA_P0226_STR-BKORT sy-vline 
WA_P0226_STR-STRAS sy-vline 
WA_P0226_STR-LOCAT sy-vline 
WA_P0226_STR-BANKS sy-vline 
WA_P0226_STR-BANKL sy-vline 
WA_P0226_STR-BANKN sy-vline 
WA_P0226_STR-ZWECK sy-vline 
WA_P0226_STR-ZLSCH sy-vline 
WA_P0226_STR-LGRT0 sy-vline 
WA_P0226_STR-LGRT1 sy-vline 
WA_P0226_STR-LGRT2 sy-vline 
WA_P0226_STR-LGRT3 sy-vline 
WA_P0226_STR-LGRT4 sy-vline 
WA_P0226_STR-LGRT5 sy-vline 
WA_P0226_STR-LGRT6 sy-vline 
WA_P0226_STR-LGRT7 sy-vline 
WA_P0226_STR-LGRT8 sy-vline 
WA_P0226_STR-LGRT9 sy-vline 
WA_P0226_STR-PROZ0 sy-vline 
WA_P0226_STR-PROZ1 sy-vline 
WA_P0226_STR-PROZ2 sy-vline 
WA_P0226_STR-PROZ3 sy-vline 
WA_P0226_STR-PROZ4 sy-vline 
WA_P0226_STR-PROZ5 sy-vline 
WA_P0226_STR-PROZ6 sy-vline 
WA_P0226_STR-PROZ7 sy-vline 
WA_P0226_STR-PROZ8 sy-vline 
WA_P0226_STR-PROZ9 sy-vline 
WA_P0226_STR-FLEG0 sy-vline 
WA_P0226_STR-FLEG1 sy-vline 
WA_P0226_STR-FLEG2 sy-vline 
WA_P0226_STR-FLEG3 sy-vline 
WA_P0226_STR-FLEG4 sy-vline 
WA_P0226_STR-FLEG5 sy-vline 
WA_P0226_STR-FLEG6 sy-vline 
WA_P0226_STR-FLEG7 sy-vline 
WA_P0226_STR-FLEG8 sy-vline 
WA_P0226_STR-FLEG9 sy-vline 
WA_P0226_STR-VEGRJ sy-vline 
WA_P0226_STR-LETJL sy-vline 
WA_P0226_STR-SPLIT sy-vline 
WA_P0226_STR-PRIOT sy-vline 
WA_P0226_STR-KAMAT sy-vline 
WA_P0226_STR-KORKM sy-vline 
WA_P0226_STR-KNRSU sy-vline 
WA_P0226_STR-VKORR sy-vline 
WA_P0226_STR-WKORR sy-vline 
WA_P0226_STR-IBAN sy-vline 
WA_P0226_STR-NOLET sy-vline 
WA_P0226_STR-MAXPF sy-vline 
WA_P0226_STR-PMAXS sy-vline 
WA_P0226_STR-KAMT2 sy-vline 
WA_P0226_STR-HATDT sy-vline 
WA_P0226_STR-VJPFB sy-vline 
WA_P0226_STR-PFPRL sy-vline 
WA_P0226_STR-FAIND sy-vline 
WA_P0226_STR-USZAM sy-vline 
WA_P0226_STR-ISZAM sy-vline 
WA_P0226_STR-LTIND sy-vline 
WA_P0226_STR-INDDA sy-vline 
WA_P0226_STR-MNOSZ sy-vline 
WA_P0226_STR-MEGEL sy-vline 
WA_P0226_STR-MEGJ1 sy-vline 
WA_P0226_STR-MEGJ2 sy-vline 
WA_P0226_STR-MODO1 sy-vline 
WA_P0226_STR-MODO2 sy-vline 
WA_P0226_STR-LTSTA sy-vline 
WA_P0226_STR-VHJRE sy-vline 
WA_P0226_STR-FOGK1 sy-vline 
WA_P0226_STR-FOGK2 sy-vline 
WA_P0226_STR-FOGK3 sy-vline 
WA_P0226_STR-FOGK4 sy-vline 
WA_P0226_STR-CELK1 sy-vline 
WA_P0226_STR-CELK2 sy-vline 
WA_P0226_STR-CELK3 sy-vline 
WA_P0226_STR-CELK4 sy-vline 
WA_P0226_STR-NMXPF sy-vline      INTO ld_text SEPARATED BY SPACE.

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