ABAP Select data from SAP table EHPRCS_EP_EPREC 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 EHPRCS_EP_EPREC 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 EHPRCS_EP_EPREC. 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 EHPRCS_EP_EPREC 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_EHPRCS_EP_EPREC TYPE STANDARD TABLE OF EHPRCS_EP_EPREC,
      WA_EHPRCS_EP_EPREC TYPE EHPRCS_EP_EPREC,
      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: <EHPRCS_EP_EPREC> TYPE EHPRCS_EP_EPREC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM EHPRCS_EP_EPREC
*  INTO TABLE @DATA(IT_EHPRCS_EP_EPREC2).
*--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_EHPRCS_EP_EPREC INDEX 1 INTO DATA(WA_EHPRCS_EP_EPREC2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<EHPRCS_EP_EPREC>-MANDT = 1.
<EHPRCS_EP_EPREC>-GUID = 1.
<EHPRCS_EP_EPREC>-CRDAT = 1.
<EHPRCS_EP_EPREC>-CRNAM = 1.
<EHPRCS_EP_EPREC>-CRTSTMP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_EHPRCS_EP_EPREC-UPDDAT, sy-vline,
  WA_EHPRCS_EP_EPREC-UPDNAM, sy-vline,
  WA_EHPRCS_EP_EPREC-UPDTSTMP, sy-vline,
  WA_EHPRCS_EP_EPREC-DELFLG, sy-vline,
  WA_EHPRCS_EP_EPREC-EPTYPE, sy-vline,
  WA_EHPRCS_EP_EPREC-CHAPTER_CODE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_EHPRCS_EP_EPREC 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_EHPRCS_EP_EPREC 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_EHPRCS_EP_EPREC INTO WA_EHPRCS_EP_EPREC.


*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.

*Conversion exit ALPHA, internal->external for field RECNROOT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_EHPRCS_EP_EPREC-RECNROOT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EHPRCS_EP_EPREC-RECNROOT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field DOKNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_EHPRCS_EP_EPREC-DOKNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EHPRCS_EP_EPREC-DOKNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EXT_OWNER_BP
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_EHPRCS_EP_EPREC-EXT_OWNER_BP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EHPRCS_EP_EPREC-EXT_OWNER_BP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EXT_OWNER_S
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_EHPRCS_EP_EPREC-EXT_OWNER_S
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EHPRCS_EP_EPREC-EXT_OWNER_S.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_EHPRCS_EP_EPREC_STR, 
MANDT TYPE STRING,
GUID TYPE STRING,
CRDAT TYPE STRING,
CRNAM TYPE STRING,
CRTSTMP TYPE STRING,
UPDDAT TYPE STRING,
UPDNAM TYPE STRING,
UPDTSTMP TYPE STRING,
DELFLG TYPE STRING,
EPTYPE TYPE STRING,
CHAPTER_CODE TYPE STRING,
RECNROOT TYPE STRING,
EPNAM TYPE STRING,
IUCLID_UUID TYPE STRING,
IUCLID_DOC_NAME TYPE STRING,
PURPOSE TYPE STRING,
COVERAGE_REL TYPE STRING,
IUCLID_DOC TYPE STRING,
DOKNR TYPE STRING,
DOKAR TYPE STRING,
DOKVR TYPE STRING,
DOKTL TYPE STRING,
DOKTX TYPE STRING,
GUIDELINE TYPE STRING,
RELIABILITY TYPE STRING,
GLP TYPE STRING,
CONFIDENTIALITY TYPE STRING,
STATUS TYPE STRING,
EPREC_DATE TYPE STRING,
OWNING_LE TYPE STRING,
ENTRPRS_IS_OWNER TYPE STRING,
ACCEPTED_DATE TYPE STRING,
RELASD_FOR_SALE TYPE STRING,
PRICE TYPE STRING,
PRICE_CURRENCY TYPE STRING,
VALUE TYPE STRING,
VALUE_CURRENCY TYPE STRING,
EXT_OWNER_BP TYPE STRING,
EXT_OWNER_S TYPE STRING,
REMARK TYPE STRING,
SYNC_STATUS TYPE STRING,
LST_MDDAT_IUCLID TYPE STRING,
ROBUST_SUMMARY TYPE STRING,
INC_EPM_EPREC_D TYPE STRING,END OF T_EKKO_STR.
DATA: WA_EHPRCS_EP_EPREC_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_EHPRCS_EP_EPREC_STR-MANDT sy-vline 
WA_EHPRCS_EP_EPREC_STR-GUID sy-vline 
WA_EHPRCS_EP_EPREC_STR-CRDAT sy-vline 
WA_EHPRCS_EP_EPREC_STR-CRNAM sy-vline 
WA_EHPRCS_EP_EPREC_STR-CRTSTMP sy-vline 
WA_EHPRCS_EP_EPREC_STR-UPDDAT sy-vline 
WA_EHPRCS_EP_EPREC_STR-UPDNAM sy-vline 
WA_EHPRCS_EP_EPREC_STR-UPDTSTMP sy-vline 
WA_EHPRCS_EP_EPREC_STR-DELFLG sy-vline 
WA_EHPRCS_EP_EPREC_STR-EPTYPE sy-vline 
WA_EHPRCS_EP_EPREC_STR-CHAPTER_CODE sy-vline 
WA_EHPRCS_EP_EPREC_STR-RECNROOT sy-vline 
WA_EHPRCS_EP_EPREC_STR-EPNAM sy-vline 
WA_EHPRCS_EP_EPREC_STR-IUCLID_UUID sy-vline 
WA_EHPRCS_EP_EPREC_STR-IUCLID_DOC_NAME sy-vline 
WA_EHPRCS_EP_EPREC_STR-PURPOSE sy-vline 
WA_EHPRCS_EP_EPREC_STR-COVERAGE_REL sy-vline 
WA_EHPRCS_EP_EPREC_STR-IUCLID_DOC sy-vline 
WA_EHPRCS_EP_EPREC_STR-DOKNR sy-vline 
WA_EHPRCS_EP_EPREC_STR-DOKAR sy-vline 
WA_EHPRCS_EP_EPREC_STR-DOKVR sy-vline 
WA_EHPRCS_EP_EPREC_STR-DOKTL sy-vline 
WA_EHPRCS_EP_EPREC_STR-DOKTX sy-vline 
WA_EHPRCS_EP_EPREC_STR-GUIDELINE sy-vline 
WA_EHPRCS_EP_EPREC_STR-RELIABILITY sy-vline 
WA_EHPRCS_EP_EPREC_STR-GLP sy-vline 
WA_EHPRCS_EP_EPREC_STR-CONFIDENTIALITY sy-vline 
WA_EHPRCS_EP_EPREC_STR-STATUS sy-vline 
WA_EHPRCS_EP_EPREC_STR-EPREC_DATE sy-vline 
WA_EHPRCS_EP_EPREC_STR-OWNING_LE sy-vline 
WA_EHPRCS_EP_EPREC_STR-ENTRPRS_IS_OWNER sy-vline 
WA_EHPRCS_EP_EPREC_STR-ACCEPTED_DATE sy-vline 
WA_EHPRCS_EP_EPREC_STR-RELASD_FOR_SALE sy-vline 
WA_EHPRCS_EP_EPREC_STR-PRICE sy-vline 
WA_EHPRCS_EP_EPREC_STR-PRICE_CURRENCY sy-vline 
WA_EHPRCS_EP_EPREC_STR-VALUE sy-vline 
WA_EHPRCS_EP_EPREC_STR-VALUE_CURRENCY sy-vline 
WA_EHPRCS_EP_EPREC_STR-EXT_OWNER_BP sy-vline 
WA_EHPRCS_EP_EPREC_STR-EXT_OWNER_S sy-vline 
WA_EHPRCS_EP_EPREC_STR-REMARK sy-vline 
WA_EHPRCS_EP_EPREC_STR-SYNC_STATUS sy-vline 
WA_EHPRCS_EP_EPREC_STR-LST_MDDAT_IUCLID sy-vline 
WA_EHPRCS_EP_EPREC_STR-ROBUST_SUMMARY sy-vline 
WA_EHPRCS_EP_EPREC_STR-INC_EPM_EPREC_D sy-vline      INTO ld_text SEPARATED BY SPACE.

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