ABAP Select data from SAP table PCAROEL 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 PCAROEL 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 PCAROEL. 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 PCAROEL 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_PCAROEL TYPE STANDARD TABLE OF PCAROEL,
      WA_PCAROEL TYPE PCAROEL,
      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: <PCAROEL> TYPE PCAROEL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PCAROEL
*  INTO TABLE @DATA(IT_PCAROEL2).
*--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_PCAROEL INDEX 1 INTO DATA(WA_PCAROEL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PCAROEL>-HEADER = 1.
<PCAROEL>-MAJVER = 1.
<PCAROEL>-MINVER = 1.
<PCAROEL>-SOFTREV = 1.
<PCAROEL>-PLANG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PCAROEL-ROESN, sy-vline,
  WA_PCAROEL-ORGSN, sy-vline,
  WA_PCAROEL-PERNR, sy-vline,
  WA_PCAROEL-ERNAME, sy-vline,
  WA_PCAROEL-ERADD01, sy-vline,
  WA_PCAROEL-ERADD02, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PCAROEL 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_PCAROEL 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_PCAROEL INTO WA_PCAROEL.


*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_PCAROEL_STR, 
HEADER TYPE STRING,
MAJVER TYPE STRING,
MINVER TYPE STRING,
SOFTREV TYPE STRING,
PLANG TYPE STRING,
ROESN TYPE STRING,
ORGSN TYPE STRING,
PERNR TYPE STRING,
ERNAME TYPE STRING,
ERADD01 TYPE STRING,
ERADD02 TYPE STRING,
BUSNM TYPE STRING,
PPTYP TYPE STRING,
ERPSTLZ TYPE STRING,
PERID TYPE STRING,
EEVORNA TYPE STRING,
EEMIDNM TYPE STRING,
EENACHN TYPE STRING,
EEADD01 TYPE STRING,
EEADD02 TYPE STRING,
EEADD03 TYPE STRING,
FSTDT TYPE STRING,
LSTDT TYPE STRING,
FNLDT TYPE STRING,
PLSTX TYPE STRING,
RCLDT TYPE STRING,
RCLCD TYPE STRING,
TLHRS TYPE STRING,
TLAMT TYPE STRING,
DEFLAG TYPE STRING,
EARN1 TYPE STRING,
EARN2 TYPE STRING,
EARN3 TYPE STRING,
EARN4 TYPE STRING,
EARN5 TYPE STRING,
EARN6 TYPE STRING,
EARN7 TYPE STRING,
EARN8 TYPE STRING,
EARN9 TYPE STRING,
EARN10 TYPE STRING,
EARN11 TYPE STRING,
EARN12 TYPE STRING,
EARN13 TYPE STRING,
EARN14 TYPE STRING,
EARN15 TYPE STRING,
EARN16 TYPE STRING,
EARN17 TYPE STRING,
EARN18 TYPE STRING,
EARN19 TYPE STRING,
EARN20 TYPE STRING,
EARN21 TYPE STRING,
EARN22 TYPE STRING,
EARN23 TYPE STRING,
EARN24 TYPE STRING,
EARN25 TYPE STRING,
EARN26 TYPE STRING,
EARN27 TYPE STRING,
REASN TYPE STRING,
CTNAME TYPE STRING,
CTAREA TYPE STRING,
CTPHONE TYPE STRING,
CTEXTN TYPE STRING,
MSFLAG TYPE STRING,
VPCODE TYPE STRING,
VPAMT TYPE STRING,
SPCODE1 TYPE STRING,
SPDATE1 TYPE STRING,
SPAMT1 TYPE STRING,
SPCODE2 TYPE STRING,
SPDATE2 TYPE STRING,
SPAMT2 TYPE STRING,
SPCODE3 TYPE STRING,
SPDATE3 TYPE STRING,
SPAMT3 TYPE STRING,
OMCODE1 TYPE STRING,
OMAMT1 TYPE STRING,
OMCODE2 TYPE STRING,
OMAMT2 TYPE STRING,
OMCODE3 TYPE STRING,
OMAMT3 TYPE STRING,
COMMENTS1 TYPE STRING,
COMMENTS2 TYPE STRING,
COMMENTS3 TYPE STRING,
COMMENTS4 TYPE STRING,
SKDATE TYPE STRING,
SKAMT TYPE STRING,
SKPRD TYPE STRING,
CLANG TYPE STRING,
ISAREA TYPE STRING,
ISPHONE TYPE STRING,
ISEXTN TYPE STRING,
ISNAME TYPE STRING,
ROEDT TYPE STRING,
AMEND TYPE STRING,
CRLF TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PCAROEL_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_PCAROEL_STR-HEADER sy-vline 
WA_PCAROEL_STR-MAJVER sy-vline 
WA_PCAROEL_STR-MINVER sy-vline 
WA_PCAROEL_STR-SOFTREV sy-vline 
WA_PCAROEL_STR-PLANG sy-vline 
WA_PCAROEL_STR-ROESN sy-vline 
WA_PCAROEL_STR-ORGSN sy-vline 
WA_PCAROEL_STR-PERNR sy-vline 
WA_PCAROEL_STR-ERNAME sy-vline 
WA_PCAROEL_STR-ERADD01 sy-vline 
WA_PCAROEL_STR-ERADD02 sy-vline 
WA_PCAROEL_STR-BUSNM sy-vline 
WA_PCAROEL_STR-PPTYP sy-vline 
WA_PCAROEL_STR-ERPSTLZ sy-vline 
WA_PCAROEL_STR-PERID sy-vline 
WA_PCAROEL_STR-EEVORNA sy-vline 
WA_PCAROEL_STR-EEMIDNM sy-vline 
WA_PCAROEL_STR-EENACHN sy-vline 
WA_PCAROEL_STR-EEADD01 sy-vline 
WA_PCAROEL_STR-EEADD02 sy-vline 
WA_PCAROEL_STR-EEADD03 sy-vline 
WA_PCAROEL_STR-FSTDT sy-vline 
WA_PCAROEL_STR-LSTDT sy-vline 
WA_PCAROEL_STR-FNLDT sy-vline 
WA_PCAROEL_STR-PLSTX sy-vline 
WA_PCAROEL_STR-RCLDT sy-vline 
WA_PCAROEL_STR-RCLCD sy-vline 
WA_PCAROEL_STR-TLHRS sy-vline 
WA_PCAROEL_STR-TLAMT sy-vline 
WA_PCAROEL_STR-DEFLAG sy-vline 
WA_PCAROEL_STR-EARN1 sy-vline 
WA_PCAROEL_STR-EARN2 sy-vline 
WA_PCAROEL_STR-EARN3 sy-vline 
WA_PCAROEL_STR-EARN4 sy-vline 
WA_PCAROEL_STR-EARN5 sy-vline 
WA_PCAROEL_STR-EARN6 sy-vline 
WA_PCAROEL_STR-EARN7 sy-vline 
WA_PCAROEL_STR-EARN8 sy-vline 
WA_PCAROEL_STR-EARN9 sy-vline 
WA_PCAROEL_STR-EARN10 sy-vline 
WA_PCAROEL_STR-EARN11 sy-vline 
WA_PCAROEL_STR-EARN12 sy-vline 
WA_PCAROEL_STR-EARN13 sy-vline 
WA_PCAROEL_STR-EARN14 sy-vline 
WA_PCAROEL_STR-EARN15 sy-vline 
WA_PCAROEL_STR-EARN16 sy-vline 
WA_PCAROEL_STR-EARN17 sy-vline 
WA_PCAROEL_STR-EARN18 sy-vline 
WA_PCAROEL_STR-EARN19 sy-vline 
WA_PCAROEL_STR-EARN20 sy-vline 
WA_PCAROEL_STR-EARN21 sy-vline 
WA_PCAROEL_STR-EARN22 sy-vline 
WA_PCAROEL_STR-EARN23 sy-vline 
WA_PCAROEL_STR-EARN24 sy-vline 
WA_PCAROEL_STR-EARN25 sy-vline 
WA_PCAROEL_STR-EARN26 sy-vline 
WA_PCAROEL_STR-EARN27 sy-vline 
WA_PCAROEL_STR-REASN sy-vline 
WA_PCAROEL_STR-CTNAME sy-vline 
WA_PCAROEL_STR-CTAREA sy-vline 
WA_PCAROEL_STR-CTPHONE sy-vline 
WA_PCAROEL_STR-CTEXTN sy-vline 
WA_PCAROEL_STR-MSFLAG sy-vline 
WA_PCAROEL_STR-VPCODE sy-vline 
WA_PCAROEL_STR-VPAMT sy-vline 
WA_PCAROEL_STR-SPCODE1 sy-vline 
WA_PCAROEL_STR-SPDATE1 sy-vline 
WA_PCAROEL_STR-SPAMT1 sy-vline 
WA_PCAROEL_STR-SPCODE2 sy-vline 
WA_PCAROEL_STR-SPDATE2 sy-vline 
WA_PCAROEL_STR-SPAMT2 sy-vline 
WA_PCAROEL_STR-SPCODE3 sy-vline 
WA_PCAROEL_STR-SPDATE3 sy-vline 
WA_PCAROEL_STR-SPAMT3 sy-vline 
WA_PCAROEL_STR-OMCODE1 sy-vline 
WA_PCAROEL_STR-OMAMT1 sy-vline 
WA_PCAROEL_STR-OMCODE2 sy-vline 
WA_PCAROEL_STR-OMAMT2 sy-vline 
WA_PCAROEL_STR-OMCODE3 sy-vline 
WA_PCAROEL_STR-OMAMT3 sy-vline 
WA_PCAROEL_STR-COMMENTS1 sy-vline 
WA_PCAROEL_STR-COMMENTS2 sy-vline 
WA_PCAROEL_STR-COMMENTS3 sy-vline 
WA_PCAROEL_STR-COMMENTS4 sy-vline 
WA_PCAROEL_STR-SKDATE sy-vline 
WA_PCAROEL_STR-SKAMT sy-vline 
WA_PCAROEL_STR-SKPRD sy-vline 
WA_PCAROEL_STR-CLANG sy-vline 
WA_PCAROEL_STR-ISAREA sy-vline 
WA_PCAROEL_STR-ISPHONE sy-vline 
WA_PCAROEL_STR-ISEXTN sy-vline 
WA_PCAROEL_STR-ISNAME sy-vline 
WA_PCAROEL_STR-ROEDT sy-vline 
WA_PCAROEL_STR-AMEND sy-vline 
WA_PCAROEL_STR-CRLF sy-vline      INTO ld_text SEPARATED BY SPACE.

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