ABAP Select data from SAP table P0348 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 P0348 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 P0348. 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 P0348 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_P0348 TYPE STANDARD TABLE OF P0348,
      WA_P0348 TYPE P0348,
      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: <P0348> TYPE P0348.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P0348
*  INTO TABLE @DATA(IT_P03482).
*--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_P0348 INDEX 1 INTO DATA(WA_P03482).


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

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

ENDLOOP.

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

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


*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_P0348_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,
APLTY TYPE STRING,
LWKJN TYPE STRING,
KENJN TYPE STRING,
GRPNR TYPE STRING,
APRTY TYPE STRING,
PERNO TYPE STRING,
APRKY TYPE STRING,
EVDAT TYPE STRING,
APRPT TYPE STRING,
MC00A TYPE STRING,
MCP0A TYPE STRING,
MCC0A TYPE STRING,
MC00B TYPE STRING,
MCP0B TYPE STRING,
MCC0B TYPE STRING,
MC00C TYPE STRING,
MCP0C TYPE STRING,
MCC0C TYPE STRING,
MC00D TYPE STRING,
MCP0D TYPE STRING,
MCC0D TYPE STRING,
MC00E TYPE STRING,
MCP0E TYPE STRING,
MCC0E TYPE STRING,
MC00F TYPE STRING,
MCP0F TYPE STRING,
MCC0F TYPE STRING,
DC00A TYPE STRING,
DCP0A TYPE STRING,
DC01A TYPE STRING,
DCP1A TYPE STRING,
DC02A TYPE STRING,
DCP2A TYPE STRING,
DC03A TYPE STRING,
DCP3A TYPE STRING,
DC04A TYPE STRING,
DCP4A TYPE STRING,
DC05A TYPE STRING,
DCP5A TYPE STRING,
DC06A TYPE STRING,
DCP6A TYPE STRING,
DC07A TYPE STRING,
DCP7A TYPE STRING,
DC08A TYPE STRING,
DCP8A TYPE STRING,
DC09A TYPE STRING,
DCP9A TYPE STRING,
DC00B TYPE STRING,
DCP0B TYPE STRING,
DC01B TYPE STRING,
DCP1B TYPE STRING,
DC02B TYPE STRING,
DCP2B TYPE STRING,
DC03B TYPE STRING,
DCP3B TYPE STRING,
DC04B TYPE STRING,
DCP4B TYPE STRING,
DC05B TYPE STRING,
DCP5B TYPE STRING,
DC06B TYPE STRING,
DCP6B TYPE STRING,
DC07B TYPE STRING,
DCP7B TYPE STRING,
DC08B TYPE STRING,
DCP8B TYPE STRING,
DC09B TYPE STRING,
DCP9B TYPE STRING,
DC00C TYPE STRING,
DCP0C TYPE STRING,
DC01C TYPE STRING,
DCP1C TYPE STRING,
DC02C TYPE STRING,
DCP2C TYPE STRING,
DC03C TYPE STRING,
DCP3C TYPE STRING,
DC04C TYPE STRING,
DCP4C TYPE STRING,
DC05C TYPE STRING,
DCP5C TYPE STRING,
DC06C TYPE STRING,
DCP6C TYPE STRING,
DC07C TYPE STRING,
DCP7C TYPE STRING,
DC08C TYPE STRING,
DCP8C TYPE STRING,
DC09C TYPE STRING,
DCP9C TYPE STRING,
DC00D TYPE STRING,
DCP0D TYPE STRING,
DC01D TYPE STRING,
DCP1D TYPE STRING,
DC02D TYPE STRING,
DCP2D TYPE STRING,
DC03D TYPE STRING,
DCP3D TYPE STRING,
DC04D TYPE STRING,
DCP4D TYPE STRING,
DC05D TYPE STRING,
DCP5D TYPE STRING,
DC06D TYPE STRING,
DCP6D TYPE STRING,
DC07D TYPE STRING,
DCP7D TYPE STRING,
DC08D TYPE STRING,
DCP8D TYPE STRING,
DC09D TYPE STRING,
DCP9D TYPE STRING,
DC00E TYPE STRING,
DCP0E TYPE STRING,
DC01E TYPE STRING,
DCP1E TYPE STRING,
DC02E TYPE STRING,
DCP2E TYPE STRING,
DC03E TYPE STRING,
DCP3E TYPE STRING,
DC04E TYPE STRING,
DCP4E TYPE STRING,
DC05E TYPE STRING,
DCP5E TYPE STRING,
DC06E TYPE STRING,
DCP6E TYPE STRING,
DC07E TYPE STRING,
DCP7E TYPE STRING,
DC08E TYPE STRING,
DCP8E TYPE STRING,
DC09E TYPE STRING,
DCP9E TYPE STRING,
DC00F TYPE STRING,
DCP0F TYPE STRING,
DC01F TYPE STRING,
DCP1F TYPE STRING,
DC02F TYPE STRING,
DCP2F TYPE STRING,
DC03F TYPE STRING,
DCP3F TYPE STRING,
DC04F TYPE STRING,
DCP4F TYPE STRING,
DC05F TYPE STRING,
DCP5F TYPE STRING,
DC06F TYPE STRING,
DCP6F TYPE STRING,
DC07F TYPE STRING,
DCP7F TYPE STRING,
DC08F TYPE STRING,
DCP8F TYPE STRING,
DC09F TYPE STRING,
DCP9F TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P0348_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_P0348_STR-PERNR sy-vline 
WA_P0348_STR-INFTY sy-vline 
WA_P0348_STR-SUBTY sy-vline 
WA_P0348_STR-OBJPS sy-vline 
WA_P0348_STR-SPRPS sy-vline 
WA_P0348_STR-ENDDA sy-vline 
WA_P0348_STR-BEGDA sy-vline 
WA_P0348_STR-SEQNR sy-vline 
WA_P0348_STR-AEDTM sy-vline 
WA_P0348_STR-UNAME sy-vline 
WA_P0348_STR-HISTO sy-vline 
WA_P0348_STR-ITXEX sy-vline 
WA_P0348_STR-REFEX sy-vline 
WA_P0348_STR-ORDEX sy-vline 
WA_P0348_STR-ITBLD sy-vline 
WA_P0348_STR-PREAS sy-vline 
WA_P0348_STR-FLAG1 sy-vline 
WA_P0348_STR-FLAG2 sy-vline 
WA_P0348_STR-FLAG3 sy-vline 
WA_P0348_STR-FLAG4 sy-vline 
WA_P0348_STR-RESE1 sy-vline 
WA_P0348_STR-RESE2 sy-vline 
WA_P0348_STR-GRPVL sy-vline 
WA_P0348_STR-APLTY sy-vline 
WA_P0348_STR-LWKJN sy-vline 
WA_P0348_STR-KENJN sy-vline 
WA_P0348_STR-GRPNR sy-vline 
WA_P0348_STR-APRTY sy-vline 
WA_P0348_STR-PERNO sy-vline 
WA_P0348_STR-APRKY sy-vline 
WA_P0348_STR-EVDAT sy-vline 
WA_P0348_STR-APRPT sy-vline 
WA_P0348_STR-MC00A sy-vline 
WA_P0348_STR-MCP0A sy-vline 
WA_P0348_STR-MCC0A sy-vline 
WA_P0348_STR-MC00B sy-vline 
WA_P0348_STR-MCP0B sy-vline 
WA_P0348_STR-MCC0B sy-vline 
WA_P0348_STR-MC00C sy-vline 
WA_P0348_STR-MCP0C sy-vline 
WA_P0348_STR-MCC0C sy-vline 
WA_P0348_STR-MC00D sy-vline 
WA_P0348_STR-MCP0D sy-vline 
WA_P0348_STR-MCC0D sy-vline 
WA_P0348_STR-MC00E sy-vline 
WA_P0348_STR-MCP0E sy-vline 
WA_P0348_STR-MCC0E sy-vline 
WA_P0348_STR-MC00F sy-vline 
WA_P0348_STR-MCP0F sy-vline 
WA_P0348_STR-MCC0F sy-vline 
WA_P0348_STR-DC00A sy-vline 
WA_P0348_STR-DCP0A sy-vline 
WA_P0348_STR-DC01A sy-vline 
WA_P0348_STR-DCP1A sy-vline 
WA_P0348_STR-DC02A sy-vline 
WA_P0348_STR-DCP2A sy-vline 
WA_P0348_STR-DC03A sy-vline 
WA_P0348_STR-DCP3A sy-vline 
WA_P0348_STR-DC04A sy-vline 
WA_P0348_STR-DCP4A sy-vline 
WA_P0348_STR-DC05A sy-vline 
WA_P0348_STR-DCP5A sy-vline 
WA_P0348_STR-DC06A sy-vline 
WA_P0348_STR-DCP6A sy-vline 
WA_P0348_STR-DC07A sy-vline 
WA_P0348_STR-DCP7A sy-vline 
WA_P0348_STR-DC08A sy-vline 
WA_P0348_STR-DCP8A sy-vline 
WA_P0348_STR-DC09A sy-vline 
WA_P0348_STR-DCP9A sy-vline 
WA_P0348_STR-DC00B sy-vline 
WA_P0348_STR-DCP0B sy-vline 
WA_P0348_STR-DC01B sy-vline 
WA_P0348_STR-DCP1B sy-vline 
WA_P0348_STR-DC02B sy-vline 
WA_P0348_STR-DCP2B sy-vline 
WA_P0348_STR-DC03B sy-vline 
WA_P0348_STR-DCP3B sy-vline 
WA_P0348_STR-DC04B sy-vline 
WA_P0348_STR-DCP4B sy-vline 
WA_P0348_STR-DC05B sy-vline 
WA_P0348_STR-DCP5B sy-vline 
WA_P0348_STR-DC06B sy-vline 
WA_P0348_STR-DCP6B sy-vline 
WA_P0348_STR-DC07B sy-vline 
WA_P0348_STR-DCP7B sy-vline 
WA_P0348_STR-DC08B sy-vline 
WA_P0348_STR-DCP8B sy-vline 
WA_P0348_STR-DC09B sy-vline 
WA_P0348_STR-DCP9B sy-vline 
WA_P0348_STR-DC00C sy-vline 
WA_P0348_STR-DCP0C sy-vline 
WA_P0348_STR-DC01C sy-vline 
WA_P0348_STR-DCP1C sy-vline 
WA_P0348_STR-DC02C sy-vline 
WA_P0348_STR-DCP2C sy-vline 
WA_P0348_STR-DC03C sy-vline 
WA_P0348_STR-DCP3C sy-vline 
WA_P0348_STR-DC04C sy-vline 
WA_P0348_STR-DCP4C sy-vline 
WA_P0348_STR-DC05C sy-vline 
WA_P0348_STR-DCP5C sy-vline 
WA_P0348_STR-DC06C sy-vline 
WA_P0348_STR-DCP6C sy-vline 
WA_P0348_STR-DC07C sy-vline 
WA_P0348_STR-DCP7C sy-vline 
WA_P0348_STR-DC08C sy-vline 
WA_P0348_STR-DCP8C sy-vline 
WA_P0348_STR-DC09C sy-vline 
WA_P0348_STR-DCP9C sy-vline 
WA_P0348_STR-DC00D sy-vline 
WA_P0348_STR-DCP0D sy-vline 
WA_P0348_STR-DC01D sy-vline 
WA_P0348_STR-DCP1D sy-vline 
WA_P0348_STR-DC02D sy-vline 
WA_P0348_STR-DCP2D sy-vline 
WA_P0348_STR-DC03D sy-vline 
WA_P0348_STR-DCP3D sy-vline 
WA_P0348_STR-DC04D sy-vline 
WA_P0348_STR-DCP4D sy-vline 
WA_P0348_STR-DC05D sy-vline 
WA_P0348_STR-DCP5D sy-vline 
WA_P0348_STR-DC06D sy-vline 
WA_P0348_STR-DCP6D sy-vline 
WA_P0348_STR-DC07D sy-vline 
WA_P0348_STR-DCP7D sy-vline 
WA_P0348_STR-DC08D sy-vline 
WA_P0348_STR-DCP8D sy-vline 
WA_P0348_STR-DC09D sy-vline 
WA_P0348_STR-DCP9D sy-vline 
WA_P0348_STR-DC00E sy-vline 
WA_P0348_STR-DCP0E sy-vline 
WA_P0348_STR-DC01E sy-vline 
WA_P0348_STR-DCP1E sy-vline 
WA_P0348_STR-DC02E sy-vline 
WA_P0348_STR-DCP2E sy-vline 
WA_P0348_STR-DC03E sy-vline 
WA_P0348_STR-DCP3E sy-vline 
WA_P0348_STR-DC04E sy-vline 
WA_P0348_STR-DCP4E sy-vline 
WA_P0348_STR-DC05E sy-vline 
WA_P0348_STR-DCP5E sy-vline 
WA_P0348_STR-DC06E sy-vline 
WA_P0348_STR-DCP6E sy-vline 
WA_P0348_STR-DC07E sy-vline 
WA_P0348_STR-DCP7E sy-vline 
WA_P0348_STR-DC08E sy-vline 
WA_P0348_STR-DCP8E sy-vline 
WA_P0348_STR-DC09E sy-vline 
WA_P0348_STR-DCP9E sy-vline 
WA_P0348_STR-DC00F sy-vline 
WA_P0348_STR-DCP0F sy-vline 
WA_P0348_STR-DC01F sy-vline 
WA_P0348_STR-DCP1F sy-vline 
WA_P0348_STR-DC02F sy-vline 
WA_P0348_STR-DCP2F sy-vline 
WA_P0348_STR-DC03F sy-vline 
WA_P0348_STR-DCP3F sy-vline 
WA_P0348_STR-DC04F sy-vline 
WA_P0348_STR-DCP4F sy-vline 
WA_P0348_STR-DC05F sy-vline 
WA_P0348_STR-DCP5F sy-vline 
WA_P0348_STR-DC06F sy-vline 
WA_P0348_STR-DCP6F sy-vline 
WA_P0348_STR-DC07F sy-vline 
WA_P0348_STR-DCP7F sy-vline 
WA_P0348_STR-DC08F sy-vline 
WA_P0348_STR-DCP8F sy-vline 
WA_P0348_STR-DC09F sy-vline 
WA_P0348_STR-DCP9F sy-vline      INTO ld_text SEPARATED BY SPACE.

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