ABAP Select data from SAP table PA3350 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 PA3350 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 PA3350. 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 PA3350 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_PA3350 TYPE STANDARD TABLE OF PA3350,
      WA_PA3350 TYPE PA3350,
      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: <PA3350> TYPE PA3350.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PA3350
*  INTO TABLE @DATA(IT_PA33502).
*--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_PA3350 INDEX 1 INTO DATA(WA_PA33502).


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

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

ENDLOOP.

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

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


*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_PA3350_STR, 
MANDT TYPE STRING,
PERNR 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,
PNALT TYPE STRING,
WAUSW TYPE STRING,
FCARD TYPE STRING,
PKWRG TYPE STRING,
PKWWR TYPE STRING,
KFZKZ TYPE STRING,
WAERS TYPE STRING,
ANLNR TYPE STRING,
GEBNR TYPE STRING,
ZIMNR TYPE STRING,
TEL01 TYPE STRING,
TEL02 TYPE STRING,
COM01 TYPE STRING,
NUM01 TYPE STRING,
COM02 TYPE STRING,
NUM02 TYPE STRING,
COM03 TYPE STRING,
NUM03 TYPE STRING,
COM04 TYPE STRING,
NUM04 TYPE STRING,
COM05 TYPE STRING,
NUM05 TYPE STRING,
COM06 TYPE STRING,
NUM06 TYPE STRING,
DAT01 TYPE STRING,
TYP01 TYPE STRING,
BTG01 TYPE STRING,
WRS01 TYPE STRING,
DAT02 TYPE STRING,
TYP02 TYPE STRING,
BTG02 TYPE STRING,
WRS02 TYPE STRING,
DAT03 TYPE STRING,
TYP03 TYPE STRING,
BTG03 TYPE STRING,
WRS03 TYPE STRING,
DAT04 TYPE STRING,
TYP04 TYPE STRING,
BTG04 TYPE STRING,
WRS04 TYPE STRING,
DAT05 TYPE STRING,
TYP05 TYPE STRING,
BTG05 TYPE STRING,
WRS05 TYPE STRING,
DAT06 TYPE STRING,
TYP06 TYPE STRING,
BTG06 TYPE STRING,
WRS06 TYPE STRING,
DAT07 TYPE STRING,
TYP07 TYPE STRING,
BTG07 TYPE STRING,
WRS07 TYPE STRING,
DAT08 TYPE STRING,
TYP08 TYPE STRING,
BTG08 TYPE STRING,
WRS08 TYPE STRING,
DAT09 TYPE STRING,
TYP09 TYPE STRING,
BTG09 TYPE STRING,
WRS09 TYPE STRING,
DAT10 TYPE STRING,
TYP10 TYPE STRING,
BTG10 TYPE STRING,
WRS10 TYPE STRING,
DAT11 TYPE STRING,
TYP11 TYPE STRING,
BTG11 TYPE STRING,
WRS11 TYPE STRING,
DAT12 TYPE STRING,
TYP12 TYPE STRING,
BTG12 TYPE STRING,
WRS12 TYPE STRING,
DAT13 TYPE STRING,
TYP13 TYPE STRING,
BTG13 TYPE STRING,
WRS13 TYPE STRING,
DAT14 TYPE STRING,
TYP14 TYPE STRING,
BTG14 TYPE STRING,
WRS14 TYPE STRING,
DAT15 TYPE STRING,
TYP15 TYPE STRING,
BTG15 TYPE STRING,
WRS15 TYPE STRING,
DAT16 TYPE STRING,
TYP16 TYPE STRING,
BTG16 TYPE STRING,
WRS16 TYPE STRING,
DAT17 TYPE STRING,
TYP17 TYPE STRING,
BTG17 TYPE STRING,
WRS17 TYPE STRING,
DAT18 TYPE STRING,
TYP18 TYPE STRING,
BTG18 TYPE STRING,
WRS18 TYPE STRING,
DAT19 TYPE STRING,
TYP19 TYPE STRING,
BTG19 TYPE STRING,
WRS19 TYPE STRING,
DAT20 TYPE STRING,
TYP20 TYPE STRING,
BTG20 TYPE STRING,
WRS20 TYPE STRING,
DAT21 TYPE STRING,
TYP21 TYPE STRING,
BTG21 TYPE STRING,
WRS21 TYPE STRING,
DAT22 TYPE STRING,
TYP22 TYPE STRING,
BTG22 TYPE STRING,
WRS22 TYPE STRING,
DAT23 TYPE STRING,
TYP23 TYPE STRING,
BTG23 TYPE STRING,
WRS23 TYPE STRING,
DAT24 TYPE STRING,
TYP24 TYPE STRING,
BTG24 TYPE STRING,
WRS24 TYPE STRING,
DAT25 TYPE STRING,
TYP25 TYPE STRING,
BTG25 TYPE STRING,
WRS25 TYPE STRING,
DAT26 TYPE STRING,
TYP26 TYPE STRING,
BTG26 TYPE STRING,
WRS26 TYPE STRING,
DAT27 TYPE STRING,
TYP27 TYPE STRING,
BTG27 TYPE STRING,
WRS27 TYPE STRING,
DAT28 TYPE STRING,
TYP28 TYPE STRING,
BTG28 TYPE STRING,
WRS28 TYPE STRING,
DAT29 TYPE STRING,
TYP29 TYPE STRING,
BTG29 TYPE STRING,
WRS29 TYPE STRING,
DAT30 TYPE STRING,
TYP30 TYPE STRING,
BTG30 TYPE STRING,
WRS30 TYPE STRING,
DAT31 TYPE STRING,
TYP31 TYPE STRING,
BTG31 TYPE STRING,
WRS31 TYPE STRING,
DAT32 TYPE STRING,
TYP32 TYPE STRING,
BTG32 TYPE STRING,
WRS32 TYPE STRING,
DAT33 TYPE STRING,
TYP33 TYPE STRING,
BTG33 TYPE STRING,
WRS33 TYPE STRING,
DAT34 TYPE STRING,
TYP34 TYPE STRING,
BTG34 TYPE STRING,
WRS34 TYPE STRING,
DAT35 TYPE STRING,
TYP35 TYPE STRING,
BTG35 TYPE STRING,
WRS35 TYPE STRING,
DAT36 TYPE STRING,
TYP36 TYPE STRING,
BTG36 TYPE STRING,
WRS36 TYPE STRING,
DAT37 TYPE STRING,
TYP37 TYPE STRING,
BTG37 TYPE STRING,
WRS37 TYPE STRING,
DAT38 TYPE STRING,
TYP38 TYPE STRING,
BTG38 TYPE STRING,
WRS38 TYPE STRING,
DAT39 TYPE STRING,
TYP39 TYPE STRING,
BTG39 TYPE STRING,
WRS39 TYPE STRING,
DAT40 TYPE STRING,
TYP40 TYPE STRING,
BTG40 TYPE STRING,
WRS40 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PA3350_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_PA3350_STR-MANDT sy-vline 
WA_PA3350_STR-PERNR sy-vline 
WA_PA3350_STR-SUBTY sy-vline 
WA_PA3350_STR-OBJPS sy-vline 
WA_PA3350_STR-SPRPS sy-vline 
WA_PA3350_STR-ENDDA sy-vline 
WA_PA3350_STR-BEGDA sy-vline 
WA_PA3350_STR-SEQNR sy-vline 
WA_PA3350_STR-AEDTM sy-vline 
WA_PA3350_STR-UNAME sy-vline 
WA_PA3350_STR-HISTO sy-vline 
WA_PA3350_STR-ITXEX sy-vline 
WA_PA3350_STR-REFEX sy-vline 
WA_PA3350_STR-ORDEX sy-vline 
WA_PA3350_STR-ITBLD sy-vline 
WA_PA3350_STR-PREAS sy-vline 
WA_PA3350_STR-FLAG1 sy-vline 
WA_PA3350_STR-FLAG2 sy-vline 
WA_PA3350_STR-FLAG3 sy-vline 
WA_PA3350_STR-FLAG4 sy-vline 
WA_PA3350_STR-RESE1 sy-vline 
WA_PA3350_STR-RESE2 sy-vline 
WA_PA3350_STR-GRPVL sy-vline 
WA_PA3350_STR-PNALT sy-vline 
WA_PA3350_STR-WAUSW sy-vline 
WA_PA3350_STR-FCARD sy-vline 
WA_PA3350_STR-PKWRG sy-vline 
WA_PA3350_STR-PKWWR sy-vline 
WA_PA3350_STR-KFZKZ sy-vline 
WA_PA3350_STR-WAERS sy-vline 
WA_PA3350_STR-ANLNR sy-vline 
WA_PA3350_STR-GEBNR sy-vline 
WA_PA3350_STR-ZIMNR sy-vline 
WA_PA3350_STR-TEL01 sy-vline 
WA_PA3350_STR-TEL02 sy-vline 
WA_PA3350_STR-COM01 sy-vline 
WA_PA3350_STR-NUM01 sy-vline 
WA_PA3350_STR-COM02 sy-vline 
WA_PA3350_STR-NUM02 sy-vline 
WA_PA3350_STR-COM03 sy-vline 
WA_PA3350_STR-NUM03 sy-vline 
WA_PA3350_STR-COM04 sy-vline 
WA_PA3350_STR-NUM04 sy-vline 
WA_PA3350_STR-COM05 sy-vline 
WA_PA3350_STR-NUM05 sy-vline 
WA_PA3350_STR-COM06 sy-vline 
WA_PA3350_STR-NUM06 sy-vline 
WA_PA3350_STR-DAT01 sy-vline 
WA_PA3350_STR-TYP01 sy-vline 
WA_PA3350_STR-BTG01 sy-vline 
WA_PA3350_STR-WRS01 sy-vline 
WA_PA3350_STR-DAT02 sy-vline 
WA_PA3350_STR-TYP02 sy-vline 
WA_PA3350_STR-BTG02 sy-vline 
WA_PA3350_STR-WRS02 sy-vline 
WA_PA3350_STR-DAT03 sy-vline 
WA_PA3350_STR-TYP03 sy-vline 
WA_PA3350_STR-BTG03 sy-vline 
WA_PA3350_STR-WRS03 sy-vline 
WA_PA3350_STR-DAT04 sy-vline 
WA_PA3350_STR-TYP04 sy-vline 
WA_PA3350_STR-BTG04 sy-vline 
WA_PA3350_STR-WRS04 sy-vline 
WA_PA3350_STR-DAT05 sy-vline 
WA_PA3350_STR-TYP05 sy-vline 
WA_PA3350_STR-BTG05 sy-vline 
WA_PA3350_STR-WRS05 sy-vline 
WA_PA3350_STR-DAT06 sy-vline 
WA_PA3350_STR-TYP06 sy-vline 
WA_PA3350_STR-BTG06 sy-vline 
WA_PA3350_STR-WRS06 sy-vline 
WA_PA3350_STR-DAT07 sy-vline 
WA_PA3350_STR-TYP07 sy-vline 
WA_PA3350_STR-BTG07 sy-vline 
WA_PA3350_STR-WRS07 sy-vline 
WA_PA3350_STR-DAT08 sy-vline 
WA_PA3350_STR-TYP08 sy-vline 
WA_PA3350_STR-BTG08 sy-vline 
WA_PA3350_STR-WRS08 sy-vline 
WA_PA3350_STR-DAT09 sy-vline 
WA_PA3350_STR-TYP09 sy-vline 
WA_PA3350_STR-BTG09 sy-vline 
WA_PA3350_STR-WRS09 sy-vline 
WA_PA3350_STR-DAT10 sy-vline 
WA_PA3350_STR-TYP10 sy-vline 
WA_PA3350_STR-BTG10 sy-vline 
WA_PA3350_STR-WRS10 sy-vline 
WA_PA3350_STR-DAT11 sy-vline 
WA_PA3350_STR-TYP11 sy-vline 
WA_PA3350_STR-BTG11 sy-vline 
WA_PA3350_STR-WRS11 sy-vline 
WA_PA3350_STR-DAT12 sy-vline 
WA_PA3350_STR-TYP12 sy-vline 
WA_PA3350_STR-BTG12 sy-vline 
WA_PA3350_STR-WRS12 sy-vline 
WA_PA3350_STR-DAT13 sy-vline 
WA_PA3350_STR-TYP13 sy-vline 
WA_PA3350_STR-BTG13 sy-vline 
WA_PA3350_STR-WRS13 sy-vline 
WA_PA3350_STR-DAT14 sy-vline 
WA_PA3350_STR-TYP14 sy-vline 
WA_PA3350_STR-BTG14 sy-vline 
WA_PA3350_STR-WRS14 sy-vline 
WA_PA3350_STR-DAT15 sy-vline 
WA_PA3350_STR-TYP15 sy-vline 
WA_PA3350_STR-BTG15 sy-vline 
WA_PA3350_STR-WRS15 sy-vline 
WA_PA3350_STR-DAT16 sy-vline 
WA_PA3350_STR-TYP16 sy-vline 
WA_PA3350_STR-BTG16 sy-vline 
WA_PA3350_STR-WRS16 sy-vline 
WA_PA3350_STR-DAT17 sy-vline 
WA_PA3350_STR-TYP17 sy-vline 
WA_PA3350_STR-BTG17 sy-vline 
WA_PA3350_STR-WRS17 sy-vline 
WA_PA3350_STR-DAT18 sy-vline 
WA_PA3350_STR-TYP18 sy-vline 
WA_PA3350_STR-BTG18 sy-vline 
WA_PA3350_STR-WRS18 sy-vline 
WA_PA3350_STR-DAT19 sy-vline 
WA_PA3350_STR-TYP19 sy-vline 
WA_PA3350_STR-BTG19 sy-vline 
WA_PA3350_STR-WRS19 sy-vline 
WA_PA3350_STR-DAT20 sy-vline 
WA_PA3350_STR-TYP20 sy-vline 
WA_PA3350_STR-BTG20 sy-vline 
WA_PA3350_STR-WRS20 sy-vline 
WA_PA3350_STR-DAT21 sy-vline 
WA_PA3350_STR-TYP21 sy-vline 
WA_PA3350_STR-BTG21 sy-vline 
WA_PA3350_STR-WRS21 sy-vline 
WA_PA3350_STR-DAT22 sy-vline 
WA_PA3350_STR-TYP22 sy-vline 
WA_PA3350_STR-BTG22 sy-vline 
WA_PA3350_STR-WRS22 sy-vline 
WA_PA3350_STR-DAT23 sy-vline 
WA_PA3350_STR-TYP23 sy-vline 
WA_PA3350_STR-BTG23 sy-vline 
WA_PA3350_STR-WRS23 sy-vline 
WA_PA3350_STR-DAT24 sy-vline 
WA_PA3350_STR-TYP24 sy-vline 
WA_PA3350_STR-BTG24 sy-vline 
WA_PA3350_STR-WRS24 sy-vline 
WA_PA3350_STR-DAT25 sy-vline 
WA_PA3350_STR-TYP25 sy-vline 
WA_PA3350_STR-BTG25 sy-vline 
WA_PA3350_STR-WRS25 sy-vline 
WA_PA3350_STR-DAT26 sy-vline 
WA_PA3350_STR-TYP26 sy-vline 
WA_PA3350_STR-BTG26 sy-vline 
WA_PA3350_STR-WRS26 sy-vline 
WA_PA3350_STR-DAT27 sy-vline 
WA_PA3350_STR-TYP27 sy-vline 
WA_PA3350_STR-BTG27 sy-vline 
WA_PA3350_STR-WRS27 sy-vline 
WA_PA3350_STR-DAT28 sy-vline 
WA_PA3350_STR-TYP28 sy-vline 
WA_PA3350_STR-BTG28 sy-vline 
WA_PA3350_STR-WRS28 sy-vline 
WA_PA3350_STR-DAT29 sy-vline 
WA_PA3350_STR-TYP29 sy-vline 
WA_PA3350_STR-BTG29 sy-vline 
WA_PA3350_STR-WRS29 sy-vline 
WA_PA3350_STR-DAT30 sy-vline 
WA_PA3350_STR-TYP30 sy-vline 
WA_PA3350_STR-BTG30 sy-vline 
WA_PA3350_STR-WRS30 sy-vline 
WA_PA3350_STR-DAT31 sy-vline 
WA_PA3350_STR-TYP31 sy-vline 
WA_PA3350_STR-BTG31 sy-vline 
WA_PA3350_STR-WRS31 sy-vline 
WA_PA3350_STR-DAT32 sy-vline 
WA_PA3350_STR-TYP32 sy-vline 
WA_PA3350_STR-BTG32 sy-vline 
WA_PA3350_STR-WRS32 sy-vline 
WA_PA3350_STR-DAT33 sy-vline 
WA_PA3350_STR-TYP33 sy-vline 
WA_PA3350_STR-BTG33 sy-vline 
WA_PA3350_STR-WRS33 sy-vline 
WA_PA3350_STR-DAT34 sy-vline 
WA_PA3350_STR-TYP34 sy-vline 
WA_PA3350_STR-BTG34 sy-vline 
WA_PA3350_STR-WRS34 sy-vline 
WA_PA3350_STR-DAT35 sy-vline 
WA_PA3350_STR-TYP35 sy-vline 
WA_PA3350_STR-BTG35 sy-vline 
WA_PA3350_STR-WRS35 sy-vline 
WA_PA3350_STR-DAT36 sy-vline 
WA_PA3350_STR-TYP36 sy-vline 
WA_PA3350_STR-BTG36 sy-vline 
WA_PA3350_STR-WRS36 sy-vline 
WA_PA3350_STR-DAT37 sy-vline 
WA_PA3350_STR-TYP37 sy-vline 
WA_PA3350_STR-BTG37 sy-vline 
WA_PA3350_STR-WRS37 sy-vline 
WA_PA3350_STR-DAT38 sy-vline 
WA_PA3350_STR-TYP38 sy-vline 
WA_PA3350_STR-BTG38 sy-vline 
WA_PA3350_STR-WRS38 sy-vline 
WA_PA3350_STR-DAT39 sy-vline 
WA_PA3350_STR-TYP39 sy-vline 
WA_PA3350_STR-BTG39 sy-vline 
WA_PA3350_STR-WRS39 sy-vline 
WA_PA3350_STR-DAT40 sy-vline 
WA_PA3350_STR-TYP40 sy-vline 
WA_PA3350_STR-BTG40 sy-vline 
WA_PA3350_STR-WRS40 sy-vline      INTO ld_text SEPARATED BY SPACE.

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