ABAP Select data from SAP table /TDAG/RCSA_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 /TDAG/RCSA_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 /TDAG/RCSA_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 /TDAG/RCSA_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_/TDAG/RCSA_EPREC TYPE STANDARD TABLE OF /TDAG/RCSA_EPREC,
      WA_/TDAG/RCSA_EPREC TYPE /TDAG/RCSA_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: </TDAG/RCSA_EPREC> TYPE /TDAG/RCSA_EPREC.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /TDAG/RCSA_EPREC
  INTO TABLE IT_/TDAG/RCSA_EPREC.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /TDAG/RCSA_EPREC
*  INTO TABLE @DATA(IT_/TDAG/RCSA_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_/TDAG/RCSA_EPREC INDEX 1 INTO DATA(WA_/TDAG/RCSA_EPREC2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/TDAG/RCSA_EPREC ASSIGNING </TDAG/RCSA_EPREC>.

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

ENDLOOP.

LOOP AT IT_/TDAG/RCSA_EPREC INTO WA_/TDAG/RCSA_EPREC.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/TDAG/RCSA_EPREC-UPDDAT, sy-vline,
  WA_/TDAG/RCSA_EPREC-UPDNAM, sy-vline,
  WA_/TDAG/RCSA_EPREC-UPDTSTMP, sy-vline,
  WA_/TDAG/RCSA_EPREC-DELFLG, sy-vline,
  WA_/TDAG/RCSA_EPREC-EPTYPE, sy-vline,
  WA_/TDAG/RCSA_EPREC-CHAPTER_CODE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/TDAG/RCSA_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_/TDAG/RCSA_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_/TDAG/RCSA_EPREC INTO WA_/TDAG/RCSA_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_/TDAG/RCSA_EPREC-RECNROOT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/TDAG/RCSA_EPREC-RECNROOT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field DOKNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/TDAG/RCSA_EPREC-DOKNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/TDAG/RCSA_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_/TDAG/RCSA_EPREC-EXT_OWNER_BP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/TDAG/RCSA_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_/TDAG/RCSA_EPREC-EXT_OWNER_S
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/TDAG/RCSA_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_/TDAG/RCSA_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,END OF T_EKKO_STR.
DATA: WA_/TDAG/RCSA_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_/TDAG/RCSA_EPREC_STR-MANDT sy-vline 
WA_/TDAG/RCSA_EPREC_STR-GUID sy-vline 
WA_/TDAG/RCSA_EPREC_STR-CRDAT sy-vline 
WA_/TDAG/RCSA_EPREC_STR-CRNAM sy-vline 
WA_/TDAG/RCSA_EPREC_STR-CRTSTMP sy-vline 
WA_/TDAG/RCSA_EPREC_STR-UPDDAT sy-vline 
WA_/TDAG/RCSA_EPREC_STR-UPDNAM sy-vline 
WA_/TDAG/RCSA_EPREC_STR-UPDTSTMP sy-vline 
WA_/TDAG/RCSA_EPREC_STR-DELFLG sy-vline 
WA_/TDAG/RCSA_EPREC_STR-EPTYPE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-CHAPTER_CODE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-RECNROOT sy-vline 
WA_/TDAG/RCSA_EPREC_STR-EPNAM sy-vline 
WA_/TDAG/RCSA_EPREC_STR-IUCLID_UUID sy-vline 
WA_/TDAG/RCSA_EPREC_STR-IUCLID_DOC_NAME sy-vline 
WA_/TDAG/RCSA_EPREC_STR-PURPOSE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-COVERAGE_REL sy-vline 
WA_/TDAG/RCSA_EPREC_STR-IUCLID_DOC sy-vline 
WA_/TDAG/RCSA_EPREC_STR-DOKNR sy-vline 
WA_/TDAG/RCSA_EPREC_STR-DOKAR sy-vline 
WA_/TDAG/RCSA_EPREC_STR-DOKVR sy-vline 
WA_/TDAG/RCSA_EPREC_STR-DOKTL sy-vline 
WA_/TDAG/RCSA_EPREC_STR-DOKTX sy-vline 
WA_/TDAG/RCSA_EPREC_STR-GUIDELINE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-RELIABILITY sy-vline 
WA_/TDAG/RCSA_EPREC_STR-GLP sy-vline 
WA_/TDAG/RCSA_EPREC_STR-CONFIDENTIALITY sy-vline 
WA_/TDAG/RCSA_EPREC_STR-STATUS sy-vline 
WA_/TDAG/RCSA_EPREC_STR-EPREC_DATE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-OWNING_LE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-ENTRPRS_IS_OWNER sy-vline 
WA_/TDAG/RCSA_EPREC_STR-ACCEPTED_DATE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-RELASD_FOR_SALE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-PRICE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-PRICE_CURRENCY sy-vline 
WA_/TDAG/RCSA_EPREC_STR-VALUE sy-vline 
WA_/TDAG/RCSA_EPREC_STR-VALUE_CURRENCY sy-vline 
WA_/TDAG/RCSA_EPREC_STR-EXT_OWNER_BP sy-vline 
WA_/TDAG/RCSA_EPREC_STR-EXT_OWNER_S sy-vline 
WA_/TDAG/RCSA_EPREC_STR-REMARK sy-vline 
WA_/TDAG/RCSA_EPREC_STR-SYNC_STATUS sy-vline 
WA_/TDAG/RCSA_EPREC_STR-LST_MDDAT_IUCLID sy-vline 
WA_/TDAG/RCSA_EPREC_STR-ROBUST_SUMMARY sy-vline      INTO ld_text SEPARATED BY SPACE.

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