ABAP Select data from SAP table P0573 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 P0573 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 P0573. 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 P0573 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_P0573 TYPE STANDARD TABLE OF P0573,
      WA_P0573 TYPE P0573,
      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: <P0573> TYPE P0573.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P0573
*  INTO TABLE @DATA(IT_P05732).
*--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_P0573 INDEX 1 INTO DATA(WA_P05732).


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

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

ENDLOOP.

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

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


*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_P0573_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,
BEGUZ TYPE STRING,
ENDUZ TYPE STRING,
VTKEN TYPE STRING,
LCODE TYPE STRING,
FFLAG TYPE STRING,
FHPAY TYPE STRING,
DEDFP TYPE STRING,
CONFH TYPE STRING,
NTCAS TYPE STRING,
SPLIT TYPE STRING,
SUPER TYPE STRING,
APDAT TYPE STRING,
ADVNC TYPE STRING,
AFLAG TYPE STRING,
PFLAG TYPE STRING,
QUOT1 TYPE STRING,
QUOT2 TYPE STRING,
QUAMT TYPE STRING,
SLAMT TYPE STRING,
LVE01 TYPE STRING,
BEG01 TYPE STRING,
END01 TYPE STRING,
BONU1 TYPE STRING,
LOAD1 TYPE STRING,
LVE02 TYPE STRING,
BEG02 TYPE STRING,
END02 TYPE STRING,
BONU2 TYPE STRING,
LOAD2 TYPE STRING,
LVE03 TYPE STRING,
BEG03 TYPE STRING,
END03 TYPE STRING,
BONU3 TYPE STRING,
LOAD3 TYPE STRING,
LVE04 TYPE STRING,
BEG04 TYPE STRING,
END04 TYPE STRING,
BONU4 TYPE STRING,
LOAD4 TYPE STRING,
LVE05 TYPE STRING,
BEG05 TYPE STRING,
END05 TYPE STRING,
BONU5 TYPE STRING,
LOAD5 TYPE STRING,
LVE06 TYPE STRING,
BEG06 TYPE STRING,
END06 TYPE STRING,
BONU6 TYPE STRING,
LOAD6 TYPE STRING,
BTM01 TYPE STRING,
ETM01 TYPE STRING,
BTM02 TYPE STRING,
ETM02 TYPE STRING,
BTM03 TYPE STRING,
ETM03 TYPE STRING,
BTM04 TYPE STRING,
ETM04 TYPE STRING,
BTM05 TYPE STRING,
ETM05 TYPE STRING,
BTM06 TYPE STRING,
ETM06 TYPE STRING,
LVE07 TYPE STRING,
BEG07 TYPE STRING,
END07 TYPE STRING,
BTM07 TYPE STRING,
ETM07 TYPE STRING,
LVE08 TYPE STRING,
BEG08 TYPE STRING,
END08 TYPE STRING,
BTM08 TYPE STRING,
ETM08 TYPE STRING,
LVE09 TYPE STRING,
BEG09 TYPE STRING,
END09 TYPE STRING,
BTM09 TYPE STRING,
ETM09 TYPE STRING,
LVE10 TYPE STRING,
BEG10 TYPE STRING,
END10 TYPE STRING,
BTM10 TYPE STRING,
ETM10 TYPE STRING,
LVE11 TYPE STRING,
BEG11 TYPE STRING,
END11 TYPE STRING,
BTM11 TYPE STRING,
ETM11 TYPE STRING,
LVE12 TYPE STRING,
BEG12 TYPE STRING,
END12 TYPE STRING,
BTM12 TYPE STRING,
ETM12 TYPE STRING,
LVE13 TYPE STRING,
BEG13 TYPE STRING,
END13 TYPE STRING,
BTM13 TYPE STRING,
ETM13 TYPE STRING,
LVE14 TYPE STRING,
BEG14 TYPE STRING,
END14 TYPE STRING,
BTM14 TYPE STRING,
ETM14 TYPE STRING,
LVE15 TYPE STRING,
BEG15 TYPE STRING,
END15 TYPE STRING,
BTM15 TYPE STRING,
ETM15 TYPE STRING,
LVE16 TYPE STRING,
BEG16 TYPE STRING,
END16 TYPE STRING,
BTM16 TYPE STRING,
ETM16 TYPE STRING,
LVE17 TYPE STRING,
BEG17 TYPE STRING,
END17 TYPE STRING,
BTM17 TYPE STRING,
ETM17 TYPE STRING,
LVE18 TYPE STRING,
BEG18 TYPE STRING,
END18 TYPE STRING,
BTM18 TYPE STRING,
ETM18 TYPE STRING,
LVE19 TYPE STRING,
BEG19 TYPE STRING,
END19 TYPE STRING,
BTM19 TYPE STRING,
ETM19 TYPE STRING,
LVE20 TYPE STRING,
BEG20 TYPE STRING,
END20 TYPE STRING,
BTM20 TYPE STRING,
ETM20 TYPE STRING,
LVE21 TYPE STRING,
BEG21 TYPE STRING,
END21 TYPE STRING,
BTM21 TYPE STRING,
ETM21 TYPE STRING,
LVE22 TYPE STRING,
BEG22 TYPE STRING,
END22 TYPE STRING,
BTM22 TYPE STRING,
ETM22 TYPE STRING,
AIN01 TYPE STRING,
LCD01 TYPE STRING,
AIN02 TYPE STRING,
LCD02 TYPE STRING,
AIN03 TYPE STRING,
LCD03 TYPE STRING,
AIN04 TYPE STRING,
LCD04 TYPE STRING,
AIN05 TYPE STRING,
LCD05 TYPE STRING,
TRSDT TYPE STRING,
ENTIL TYPE STRING,
QUT01 TYPE STRING,
ENT01 TYPE STRING,
QUT02 TYPE STRING,
ENT02 TYPE STRING,
PQUOT TYPE STRING,
FUTUR TYPE STRING,
PDIND TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P0573_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_P0573_STR-PERNR sy-vline 
WA_P0573_STR-INFTY sy-vline 
WA_P0573_STR-SUBTY sy-vline 
WA_P0573_STR-OBJPS sy-vline 
WA_P0573_STR-SPRPS sy-vline 
WA_P0573_STR-ENDDA sy-vline 
WA_P0573_STR-BEGDA sy-vline 
WA_P0573_STR-SEQNR sy-vline 
WA_P0573_STR-AEDTM sy-vline 
WA_P0573_STR-UNAME sy-vline 
WA_P0573_STR-HISTO sy-vline 
WA_P0573_STR-ITXEX sy-vline 
WA_P0573_STR-REFEX sy-vline 
WA_P0573_STR-ORDEX sy-vline 
WA_P0573_STR-ITBLD sy-vline 
WA_P0573_STR-PREAS sy-vline 
WA_P0573_STR-FLAG1 sy-vline 
WA_P0573_STR-FLAG2 sy-vline 
WA_P0573_STR-FLAG3 sy-vline 
WA_P0573_STR-FLAG4 sy-vline 
WA_P0573_STR-RESE1 sy-vline 
WA_P0573_STR-RESE2 sy-vline 
WA_P0573_STR-GRPVL sy-vline 
WA_P0573_STR-BEGUZ sy-vline 
WA_P0573_STR-ENDUZ sy-vline 
WA_P0573_STR-VTKEN sy-vline 
WA_P0573_STR-LCODE sy-vline 
WA_P0573_STR-FFLAG sy-vline 
WA_P0573_STR-FHPAY sy-vline 
WA_P0573_STR-DEDFP sy-vline 
WA_P0573_STR-CONFH sy-vline 
WA_P0573_STR-NTCAS sy-vline 
WA_P0573_STR-SPLIT sy-vline 
WA_P0573_STR-SUPER sy-vline 
WA_P0573_STR-APDAT sy-vline 
WA_P0573_STR-ADVNC sy-vline 
WA_P0573_STR-AFLAG sy-vline 
WA_P0573_STR-PFLAG sy-vline 
WA_P0573_STR-QUOT1 sy-vline 
WA_P0573_STR-QUOT2 sy-vline 
WA_P0573_STR-QUAMT sy-vline 
WA_P0573_STR-SLAMT sy-vline 
WA_P0573_STR-LVE01 sy-vline 
WA_P0573_STR-BEG01 sy-vline 
WA_P0573_STR-END01 sy-vline 
WA_P0573_STR-BONU1 sy-vline 
WA_P0573_STR-LOAD1 sy-vline 
WA_P0573_STR-LVE02 sy-vline 
WA_P0573_STR-BEG02 sy-vline 
WA_P0573_STR-END02 sy-vline 
WA_P0573_STR-BONU2 sy-vline 
WA_P0573_STR-LOAD2 sy-vline 
WA_P0573_STR-LVE03 sy-vline 
WA_P0573_STR-BEG03 sy-vline 
WA_P0573_STR-END03 sy-vline 
WA_P0573_STR-BONU3 sy-vline 
WA_P0573_STR-LOAD3 sy-vline 
WA_P0573_STR-LVE04 sy-vline 
WA_P0573_STR-BEG04 sy-vline 
WA_P0573_STR-END04 sy-vline 
WA_P0573_STR-BONU4 sy-vline 
WA_P0573_STR-LOAD4 sy-vline 
WA_P0573_STR-LVE05 sy-vline 
WA_P0573_STR-BEG05 sy-vline 
WA_P0573_STR-END05 sy-vline 
WA_P0573_STR-BONU5 sy-vline 
WA_P0573_STR-LOAD5 sy-vline 
WA_P0573_STR-LVE06 sy-vline 
WA_P0573_STR-BEG06 sy-vline 
WA_P0573_STR-END06 sy-vline 
WA_P0573_STR-BONU6 sy-vline 
WA_P0573_STR-LOAD6 sy-vline 
WA_P0573_STR-BTM01 sy-vline 
WA_P0573_STR-ETM01 sy-vline 
WA_P0573_STR-BTM02 sy-vline 
WA_P0573_STR-ETM02 sy-vline 
WA_P0573_STR-BTM03 sy-vline 
WA_P0573_STR-ETM03 sy-vline 
WA_P0573_STR-BTM04 sy-vline 
WA_P0573_STR-ETM04 sy-vline 
WA_P0573_STR-BTM05 sy-vline 
WA_P0573_STR-ETM05 sy-vline 
WA_P0573_STR-BTM06 sy-vline 
WA_P0573_STR-ETM06 sy-vline 
WA_P0573_STR-LVE07 sy-vline 
WA_P0573_STR-BEG07 sy-vline 
WA_P0573_STR-END07 sy-vline 
WA_P0573_STR-BTM07 sy-vline 
WA_P0573_STR-ETM07 sy-vline 
WA_P0573_STR-LVE08 sy-vline 
WA_P0573_STR-BEG08 sy-vline 
WA_P0573_STR-END08 sy-vline 
WA_P0573_STR-BTM08 sy-vline 
WA_P0573_STR-ETM08 sy-vline 
WA_P0573_STR-LVE09 sy-vline 
WA_P0573_STR-BEG09 sy-vline 
WA_P0573_STR-END09 sy-vline 
WA_P0573_STR-BTM09 sy-vline 
WA_P0573_STR-ETM09 sy-vline 
WA_P0573_STR-LVE10 sy-vline 
WA_P0573_STR-BEG10 sy-vline 
WA_P0573_STR-END10 sy-vline 
WA_P0573_STR-BTM10 sy-vline 
WA_P0573_STR-ETM10 sy-vline 
WA_P0573_STR-LVE11 sy-vline 
WA_P0573_STR-BEG11 sy-vline 
WA_P0573_STR-END11 sy-vline 
WA_P0573_STR-BTM11 sy-vline 
WA_P0573_STR-ETM11 sy-vline 
WA_P0573_STR-LVE12 sy-vline 
WA_P0573_STR-BEG12 sy-vline 
WA_P0573_STR-END12 sy-vline 
WA_P0573_STR-BTM12 sy-vline 
WA_P0573_STR-ETM12 sy-vline 
WA_P0573_STR-LVE13 sy-vline 
WA_P0573_STR-BEG13 sy-vline 
WA_P0573_STR-END13 sy-vline 
WA_P0573_STR-BTM13 sy-vline 
WA_P0573_STR-ETM13 sy-vline 
WA_P0573_STR-LVE14 sy-vline 
WA_P0573_STR-BEG14 sy-vline 
WA_P0573_STR-END14 sy-vline 
WA_P0573_STR-BTM14 sy-vline 
WA_P0573_STR-ETM14 sy-vline 
WA_P0573_STR-LVE15 sy-vline 
WA_P0573_STR-BEG15 sy-vline 
WA_P0573_STR-END15 sy-vline 
WA_P0573_STR-BTM15 sy-vline 
WA_P0573_STR-ETM15 sy-vline 
WA_P0573_STR-LVE16 sy-vline 
WA_P0573_STR-BEG16 sy-vline 
WA_P0573_STR-END16 sy-vline 
WA_P0573_STR-BTM16 sy-vline 
WA_P0573_STR-ETM16 sy-vline 
WA_P0573_STR-LVE17 sy-vline 
WA_P0573_STR-BEG17 sy-vline 
WA_P0573_STR-END17 sy-vline 
WA_P0573_STR-BTM17 sy-vline 
WA_P0573_STR-ETM17 sy-vline 
WA_P0573_STR-LVE18 sy-vline 
WA_P0573_STR-BEG18 sy-vline 
WA_P0573_STR-END18 sy-vline 
WA_P0573_STR-BTM18 sy-vline 
WA_P0573_STR-ETM18 sy-vline 
WA_P0573_STR-LVE19 sy-vline 
WA_P0573_STR-BEG19 sy-vline 
WA_P0573_STR-END19 sy-vline 
WA_P0573_STR-BTM19 sy-vline 
WA_P0573_STR-ETM19 sy-vline 
WA_P0573_STR-LVE20 sy-vline 
WA_P0573_STR-BEG20 sy-vline 
WA_P0573_STR-END20 sy-vline 
WA_P0573_STR-BTM20 sy-vline 
WA_P0573_STR-ETM20 sy-vline 
WA_P0573_STR-LVE21 sy-vline 
WA_P0573_STR-BEG21 sy-vline 
WA_P0573_STR-END21 sy-vline 
WA_P0573_STR-BTM21 sy-vline 
WA_P0573_STR-ETM21 sy-vline 
WA_P0573_STR-LVE22 sy-vline 
WA_P0573_STR-BEG22 sy-vline 
WA_P0573_STR-END22 sy-vline 
WA_P0573_STR-BTM22 sy-vline 
WA_P0573_STR-ETM22 sy-vline 
WA_P0573_STR-AIN01 sy-vline 
WA_P0573_STR-LCD01 sy-vline 
WA_P0573_STR-AIN02 sy-vline 
WA_P0573_STR-LCD02 sy-vline 
WA_P0573_STR-AIN03 sy-vline 
WA_P0573_STR-LCD03 sy-vline 
WA_P0573_STR-AIN04 sy-vline 
WA_P0573_STR-LCD04 sy-vline 
WA_P0573_STR-AIN05 sy-vline 
WA_P0573_STR-LCD05 sy-vline 
WA_P0573_STR-TRSDT sy-vline 
WA_P0573_STR-ENTIL sy-vline 
WA_P0573_STR-QUT01 sy-vline 
WA_P0573_STR-ENT01 sy-vline 
WA_P0573_STR-QUT02 sy-vline 
WA_P0573_STR-ENT02 sy-vline 
WA_P0573_STR-PQUOT sy-vline 
WA_P0573_STR-FUTUR sy-vline 
WA_P0573_STR-PDIND sy-vline      INTO ld_text SEPARATED BY SPACE.

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