ABAP Select data from SAP table P0346 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 P0346 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 P0346. 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 P0346 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_P0346 TYPE STANDARD TABLE OF P0346,
      WA_P0346 TYPE P0346,
      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: <P0346> TYPE P0346.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P0346
*  INTO TABLE @DATA(IT_P03462).
*--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_P0346 INDEX 1 INTO DATA(WA_P03462).


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

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

ENDLOOP.

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

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


*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_P0346_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,
CONTP TYPE STRING,
MEMNO TYPE STRING,
OPNRM TYPE STRING,
EEFP1 TYPE STRING,
EEEP1 TYPE STRING,
EEFA1 TYPE STRING,
WAEF1 TYPE STRING,
EEEA1 TYPE STRING,
WAEE1 TYPE STRING,
ERFP1 TYPE STRING,
EREP1 TYPE STRING,
ERFA1 TYPE STRING,
WARF1 TYPE STRING,
EREA1 TYPE STRING,
WARE1 TYPE STRING,
OPMIN TYPE STRING,
EEFP2 TYPE STRING,
EEEP2 TYPE STRING,
EEFA2 TYPE STRING,
WAEF2 TYPE STRING,
EEEA2 TYPE STRING,
WAEE2 TYPE STRING,
ERFP2 TYPE STRING,
EREP2 TYPE STRING,
ERFA2 TYPE STRING,
WARF2 TYPE STRING,
EREA2 TYPE STRING,
WARE2 TYPE STRING,
OPMAX TYPE STRING,
EEFP3 TYPE STRING,
EEEP3 TYPE STRING,
EEFA3 TYPE STRING,
WAEF3 TYPE STRING,
EEEA3 TYPE STRING,
WAEE3 TYPE STRING,
ERFP3 TYPE STRING,
EREP3 TYPE STRING,
ERFA3 TYPE STRING,
WARF3 TYPE STRING,
EREA3 TYPE STRING,
WARE3 TYPE STRING,
PRVER TYPE STRING,
PRVCA TYPE STRING,
PREMP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P0346_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_P0346_STR-PERNR sy-vline 
WA_P0346_STR-INFTY sy-vline 
WA_P0346_STR-SUBTY sy-vline 
WA_P0346_STR-OBJPS sy-vline 
WA_P0346_STR-SPRPS sy-vline 
WA_P0346_STR-ENDDA sy-vline 
WA_P0346_STR-BEGDA sy-vline 
WA_P0346_STR-SEQNR sy-vline 
WA_P0346_STR-AEDTM sy-vline 
WA_P0346_STR-UNAME sy-vline 
WA_P0346_STR-HISTO sy-vline 
WA_P0346_STR-ITXEX sy-vline 
WA_P0346_STR-REFEX sy-vline 
WA_P0346_STR-ORDEX sy-vline 
WA_P0346_STR-ITBLD sy-vline 
WA_P0346_STR-PREAS sy-vline 
WA_P0346_STR-FLAG1 sy-vline 
WA_P0346_STR-FLAG2 sy-vline 
WA_P0346_STR-FLAG3 sy-vline 
WA_P0346_STR-FLAG4 sy-vline 
WA_P0346_STR-RESE1 sy-vline 
WA_P0346_STR-RESE2 sy-vline 
WA_P0346_STR-GRPVL sy-vline 
WA_P0346_STR-CONTP sy-vline 
WA_P0346_STR-MEMNO sy-vline 
WA_P0346_STR-OPNRM sy-vline 
WA_P0346_STR-EEFP1 sy-vline 
WA_P0346_STR-EEEP1 sy-vline 
WA_P0346_STR-EEFA1 sy-vline 
WA_P0346_STR-WAEF1 sy-vline 
WA_P0346_STR-EEEA1 sy-vline 
WA_P0346_STR-WAEE1 sy-vline 
WA_P0346_STR-ERFP1 sy-vline 
WA_P0346_STR-EREP1 sy-vline 
WA_P0346_STR-ERFA1 sy-vline 
WA_P0346_STR-WARF1 sy-vline 
WA_P0346_STR-EREA1 sy-vline 
WA_P0346_STR-WARE1 sy-vline 
WA_P0346_STR-OPMIN sy-vline 
WA_P0346_STR-EEFP2 sy-vline 
WA_P0346_STR-EEEP2 sy-vline 
WA_P0346_STR-EEFA2 sy-vline 
WA_P0346_STR-WAEF2 sy-vline 
WA_P0346_STR-EEEA2 sy-vline 
WA_P0346_STR-WAEE2 sy-vline 
WA_P0346_STR-ERFP2 sy-vline 
WA_P0346_STR-EREP2 sy-vline 
WA_P0346_STR-ERFA2 sy-vline 
WA_P0346_STR-WARF2 sy-vline 
WA_P0346_STR-EREA2 sy-vline 
WA_P0346_STR-WARE2 sy-vline 
WA_P0346_STR-OPMAX sy-vline 
WA_P0346_STR-EEFP3 sy-vline 
WA_P0346_STR-EEEP3 sy-vline 
WA_P0346_STR-EEFA3 sy-vline 
WA_P0346_STR-WAEF3 sy-vline 
WA_P0346_STR-EEEA3 sy-vline 
WA_P0346_STR-WAEE3 sy-vline 
WA_P0346_STR-ERFP3 sy-vline 
WA_P0346_STR-EREP3 sy-vline 
WA_P0346_STR-ERFA3 sy-vline 
WA_P0346_STR-WARF3 sy-vline 
WA_P0346_STR-EREA3 sy-vline 
WA_P0346_STR-WARE3 sy-vline 
WA_P0346_STR-PRVER sy-vline 
WA_P0346_STR-PRVCA sy-vline 
WA_P0346_STR-PREMP sy-vline      INTO ld_text SEPARATED BY SPACE.

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