ABAP Select data from SAP table RDEFERRAL_API 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 RDEFERRAL_API 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 RDEFERRAL_API. 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 RDEFERRAL_API 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_RDEFERRAL_API TYPE STANDARD TABLE OF RDEFERRAL_API,
      WA_RDEFERRAL_API TYPE RDEFERRAL_API,
      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: <RDEFERRAL_API> TYPE RDEFERRAL_API.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RDEFERRAL_API
*  INTO TABLE @DATA(IT_RDEFERRAL_API2).
*--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_RDEFERRAL_API INDEX 1 INTO DATA(WA_RDEFERRAL_API2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RDEFERRAL_API>-BUKRS = 1.
<RDEFERRAL_API>-SARCHIV = 1.
<RDEFERRAL_API>-RANL = 1.
<RDEFERRAL_API>-SBO_STATUS = 1.
<RDEFERRAL_API>-SBO_STATUS_OLD = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RDEFERRAL_API-XBO_TEXT, sy-vline,
  WA_RDEFERRAL_API-SRELSTAT, sy-vline,
  WA_RDEFERRAL_API-SFGKZ, sy-vline,
  WA_RDEFERRAL_API-UCURR, sy-vline,
  WA_RDEFERRAL_API-AARRBAL, sy-vline,
  WA_RDEFERRAL_API-AFUDUPAY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RDEFERRAL_API 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_RDEFERRAL_API 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_RDEFERRAL_API INTO WA_RDEFERRAL_API.


*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 RANL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RDEFERRAL_API-RANL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RDEFERRAL_API-RANL.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field MPARTNER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RDEFERRAL_API-MPARTNER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RDEFERRAL_API-MPARTNER.
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_RDEFERRAL_API_STR, 
BUKRS TYPE STRING,
SARCHIV TYPE STRING,
RANL TYPE STRING,
SBO_STATUS TYPE STRING,
SBO_STATUS_OLD TYPE STRING,
XBO_TEXT TYPE STRING,
SRELSTAT TYPE STRING,
SFGKZ TYPE STRING,
UCURR TYPE STRING,
AARRBAL TYPE STRING,
AFUDUPAY TYPE STRING,
ACAPRECS TYPE STRING,
ACREBAL TYPE STRING,
ABALNUIT TYPE STRING,
ABALNCPRECS TYPE STRING,
IINCL_KYDTE TYPE STRING,
IULTI_KYDTE TYPE STRING,
DPAYM_TO TYPE STRING,
INOTE_ASSIGNED TYPE STRING,
APRCCHRGE TYPE STRING,
ICAPITAL TYPE STRING,
IDEVIATE_PAYM TYPE STRING,
MNORISKMS TYPE STRING,
IOA_AMOUNT TYPE STRING,
MPOSTTYPE TYPE STRING,
IDUNNBLCK TYPE STRING,
IIOABLCK TYPE STRING,
IDUBLDEFI TYPE STRING,
IIOABLDEFI TYPE STRING,
IPAYBLCK TYPE STRING,
DOFFER_FR TYPE STRING,
DOFFER_TO TYPE STRING,
DACCEPT TYPE STRING,
IDEFMANUPROC TYPE STRING,
MDEFREASON TYPE STRING,
ADEFERR TYPE STRING,
DDEFKYDTE TYPE STRING,
PDEFINTRT TYPE STRING,
MINTDYMT TYPE STRING,
DFRSTDUDTE TYPE STRING,
IULTIDUDTE TYPE STRING,
IINCLDUDTE TYPE STRING,
MNUMRTS TYPE STRING,
MRHYTHM TYPE STRING,
MWRKDYRL TYPE STRING,
MPUHOLCAL TYPE STRING,
IFREEPAYM TYPE STRING,
MPARTKUNNR TYPE STRING,
MPARTNER TYPE STRING,
MBANKTYPE TYPE STRING,
MPAYMTHD TYPE STRING,
PEFFINTRT TYPE STRING,
MEFFINTMT TYPE STRING,
MNDID TYPE STRING,
MCONF_STAT TYPE STRING,
TXTNOTICE TYPE STRING,
MDC_PAY_MODE TYPE STRING,
MDEF_DATA TYPE STRING,
MDEF_OVVIEW TYPE STRING,
MCAP_DATA TYPE STRING,
FCAMDEF_INST TYPE STRING,
MCAP_OVVIEW TYPE STRING,
MCAP_MODELCAL TYPE STRING,
AEINSTPROPO TYPE STRING,
MDEFPOSTTYPET TYPE STRING,
MCAPPOSTTYPET TYPE STRING,
DEFREASONT TYPE STRING,
CAPREASONT TYPE STRING,
MXPARTNER TYPE STRING,
MPOSTTYPET TYPE STRING,
RERF TYPE STRING,
DERF TYPE STRING,
TERF TYPE STRING,
RBEAR TYPE STRING,
DBEAR TYPE STRING,
TBEAR TYPE STRING,
IEXPMODE TYPE STRING,
IDUNNBLCKT TYPE STRING,
IIOABLCKT TYPE STRING,
IDUBLDEFIT TYPE STRING,
IIOABLDEFIT TYPE STRING,
IPAYBLCKT TYPE STRING,
BUF_ACREBAL TYPE STRING,
BUF_ABALNCPRECS TYPE STRING,
DVALUE_DATE_NEW TYPE STRING,
RBO TYPE STRING,
SBO_CAT TYPE STRING,
IMODE TYPE STRING,
IFRINSTPLALL TYPE STRING,
ISELALLARR TYPE STRING,
ISELALLPAY TYPE STRING,
ISETULTKYD TYPE STRING,
ISETULTDUD TYPE STRING,
ICLCEOTNEW TYPE STRING,
ICLCINSNEW TYPE STRING,
ISIM TYPE STRING,
ICONF_ACTIVE TYPE STRING,
GCALL_APPL TYPE STRING,
IBO_CHANGED TYPE STRING,
LOGHANDLE TYPE STRING,
ADDFLOW_LOGHANDLE TYPE STRING,
GACT_ALLOWED TYPE STRING,
GSWORKID TYPE STRING,
MMAXNORISKMS TYPE STRING,
ICONF_RELEVANT TYPE STRING,
AMMRHY TYPE STRING,
NMAXDEFPAYM TYPE STRING,
NMAXCAPPAYM TYPE STRING,
NMAXDEFMONTHS TYPE STRING,
PERIOD_4_CREATION TYPE STRING,
PERIOD_4_DISPLAY TYPE STRING,
LOCK_PERIOD TYPE STRING,
FROM_DATE_4_RISK_COUNT_CREA TYPE STRING,
TO_DATE_4_RISK_COUNT_CREA TYPE STRING,
FROM_DATE_4_RISK_COUNT_DISP TYPE STRING,
TO_DATE_4_RISK_COUNT_DISP TYPE STRING,
FROM_DATE_4_LOCKING TYPE STRING,
TO_DATE_4_LOCKING TYPE STRING,
RISK_COUNT_CREATION TYPE STRING,
RISK_COUNT_DISPLAY TYPE STRING,
RISK_COUNT_TOTAL TYPE STRING,
REL_LOGHANDLE TYPE STRING,
SRELEASE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RDEFERRAL_API_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_RDEFERRAL_API_STR-BUKRS sy-vline 
WA_RDEFERRAL_API_STR-SARCHIV sy-vline 
WA_RDEFERRAL_API_STR-RANL sy-vline 
WA_RDEFERRAL_API_STR-SBO_STATUS sy-vline 
WA_RDEFERRAL_API_STR-SBO_STATUS_OLD sy-vline 
WA_RDEFERRAL_API_STR-XBO_TEXT sy-vline 
WA_RDEFERRAL_API_STR-SRELSTAT sy-vline 
WA_RDEFERRAL_API_STR-SFGKZ sy-vline 
WA_RDEFERRAL_API_STR-UCURR sy-vline 
WA_RDEFERRAL_API_STR-AARRBAL sy-vline 
WA_RDEFERRAL_API_STR-AFUDUPAY sy-vline 
WA_RDEFERRAL_API_STR-ACAPRECS sy-vline 
WA_RDEFERRAL_API_STR-ACREBAL sy-vline 
WA_RDEFERRAL_API_STR-ABALNUIT sy-vline 
WA_RDEFERRAL_API_STR-ABALNCPRECS sy-vline 
WA_RDEFERRAL_API_STR-IINCL_KYDTE sy-vline 
WA_RDEFERRAL_API_STR-IULTI_KYDTE sy-vline 
WA_RDEFERRAL_API_STR-DPAYM_TO sy-vline 
WA_RDEFERRAL_API_STR-INOTE_ASSIGNED sy-vline 
WA_RDEFERRAL_API_STR-APRCCHRGE sy-vline 
WA_RDEFERRAL_API_STR-ICAPITAL sy-vline 
WA_RDEFERRAL_API_STR-IDEVIATE_PAYM sy-vline 
WA_RDEFERRAL_API_STR-MNORISKMS sy-vline 
WA_RDEFERRAL_API_STR-IOA_AMOUNT sy-vline 
WA_RDEFERRAL_API_STR-MPOSTTYPE sy-vline 
WA_RDEFERRAL_API_STR-IDUNNBLCK sy-vline 
WA_RDEFERRAL_API_STR-IIOABLCK sy-vline 
WA_RDEFERRAL_API_STR-IDUBLDEFI sy-vline 
WA_RDEFERRAL_API_STR-IIOABLDEFI sy-vline 
WA_RDEFERRAL_API_STR-IPAYBLCK sy-vline 
WA_RDEFERRAL_API_STR-DOFFER_FR sy-vline 
WA_RDEFERRAL_API_STR-DOFFER_TO sy-vline 
WA_RDEFERRAL_API_STR-DACCEPT sy-vline 
WA_RDEFERRAL_API_STR-IDEFMANUPROC sy-vline 
WA_RDEFERRAL_API_STR-MDEFREASON sy-vline 
WA_RDEFERRAL_API_STR-ADEFERR sy-vline 
WA_RDEFERRAL_API_STR-DDEFKYDTE sy-vline 
WA_RDEFERRAL_API_STR-PDEFINTRT sy-vline 
WA_RDEFERRAL_API_STR-MINTDYMT sy-vline 
WA_RDEFERRAL_API_STR-DFRSTDUDTE sy-vline 
WA_RDEFERRAL_API_STR-IULTIDUDTE sy-vline 
WA_RDEFERRAL_API_STR-IINCLDUDTE sy-vline 
WA_RDEFERRAL_API_STR-MNUMRTS sy-vline 
WA_RDEFERRAL_API_STR-MRHYTHM sy-vline 
WA_RDEFERRAL_API_STR-MWRKDYRL sy-vline 
WA_RDEFERRAL_API_STR-MPUHOLCAL sy-vline 
WA_RDEFERRAL_API_STR-IFREEPAYM sy-vline 
WA_RDEFERRAL_API_STR-MPARTKUNNR sy-vline 
WA_RDEFERRAL_API_STR-MPARTNER sy-vline 
WA_RDEFERRAL_API_STR-MBANKTYPE sy-vline 
WA_RDEFERRAL_API_STR-MPAYMTHD sy-vline 
WA_RDEFERRAL_API_STR-PEFFINTRT sy-vline 
WA_RDEFERRAL_API_STR-MEFFINTMT sy-vline 
WA_RDEFERRAL_API_STR-MNDID sy-vline 
WA_RDEFERRAL_API_STR-MCONF_STAT sy-vline 
WA_RDEFERRAL_API_STR-TXTNOTICE sy-vline 
WA_RDEFERRAL_API_STR-MDC_PAY_MODE sy-vline 
WA_RDEFERRAL_API_STR-MDEF_DATA sy-vline 
WA_RDEFERRAL_API_STR-MDEF_OVVIEW sy-vline 
WA_RDEFERRAL_API_STR-MCAP_DATA sy-vline 
WA_RDEFERRAL_API_STR-FCAMDEF_INST sy-vline 
WA_RDEFERRAL_API_STR-MCAP_OVVIEW sy-vline 
WA_RDEFERRAL_API_STR-MCAP_MODELCAL sy-vline 
WA_RDEFERRAL_API_STR-AEINSTPROPO sy-vline 
WA_RDEFERRAL_API_STR-MDEFPOSTTYPET sy-vline 
WA_RDEFERRAL_API_STR-MCAPPOSTTYPET sy-vline 
WA_RDEFERRAL_API_STR-DEFREASONT sy-vline 
WA_RDEFERRAL_API_STR-CAPREASONT sy-vline 
WA_RDEFERRAL_API_STR-MXPARTNER sy-vline 
WA_RDEFERRAL_API_STR-MPOSTTYPET sy-vline 
WA_RDEFERRAL_API_STR-RERF sy-vline 
WA_RDEFERRAL_API_STR-DERF sy-vline 
WA_RDEFERRAL_API_STR-TERF sy-vline 
WA_RDEFERRAL_API_STR-RBEAR sy-vline 
WA_RDEFERRAL_API_STR-DBEAR sy-vline 
WA_RDEFERRAL_API_STR-TBEAR sy-vline 
WA_RDEFERRAL_API_STR-IEXPMODE sy-vline 
WA_RDEFERRAL_API_STR-IDUNNBLCKT sy-vline 
WA_RDEFERRAL_API_STR-IIOABLCKT sy-vline 
WA_RDEFERRAL_API_STR-IDUBLDEFIT sy-vline 
WA_RDEFERRAL_API_STR-IIOABLDEFIT sy-vline 
WA_RDEFERRAL_API_STR-IPAYBLCKT sy-vline 
WA_RDEFERRAL_API_STR-BUF_ACREBAL sy-vline 
WA_RDEFERRAL_API_STR-BUF_ABALNCPRECS sy-vline 
WA_RDEFERRAL_API_STR-DVALUE_DATE_NEW sy-vline 
WA_RDEFERRAL_API_STR-RBO sy-vline 
WA_RDEFERRAL_API_STR-SBO_CAT sy-vline 
WA_RDEFERRAL_API_STR-IMODE sy-vline 
WA_RDEFERRAL_API_STR-IFRINSTPLALL sy-vline 
WA_RDEFERRAL_API_STR-ISELALLARR sy-vline 
WA_RDEFERRAL_API_STR-ISELALLPAY sy-vline 
WA_RDEFERRAL_API_STR-ISETULTKYD sy-vline 
WA_RDEFERRAL_API_STR-ISETULTDUD sy-vline 
WA_RDEFERRAL_API_STR-ICLCEOTNEW sy-vline 
WA_RDEFERRAL_API_STR-ICLCINSNEW sy-vline 
WA_RDEFERRAL_API_STR-ISIM sy-vline 
WA_RDEFERRAL_API_STR-ICONF_ACTIVE sy-vline 
WA_RDEFERRAL_API_STR-GCALL_APPL sy-vline 
WA_RDEFERRAL_API_STR-IBO_CHANGED sy-vline 
WA_RDEFERRAL_API_STR-LOGHANDLE sy-vline 
WA_RDEFERRAL_API_STR-ADDFLOW_LOGHANDLE sy-vline 
WA_RDEFERRAL_API_STR-GACT_ALLOWED sy-vline 
WA_RDEFERRAL_API_STR-GSWORKID sy-vline 
WA_RDEFERRAL_API_STR-MMAXNORISKMS sy-vline 
WA_RDEFERRAL_API_STR-ICONF_RELEVANT sy-vline 
WA_RDEFERRAL_API_STR-AMMRHY sy-vline 
WA_RDEFERRAL_API_STR-NMAXDEFPAYM sy-vline 
WA_RDEFERRAL_API_STR-NMAXCAPPAYM sy-vline 
WA_RDEFERRAL_API_STR-NMAXDEFMONTHS sy-vline 
WA_RDEFERRAL_API_STR-PERIOD_4_CREATION sy-vline 
WA_RDEFERRAL_API_STR-PERIOD_4_DISPLAY sy-vline 
WA_RDEFERRAL_API_STR-LOCK_PERIOD sy-vline 
WA_RDEFERRAL_API_STR-FROM_DATE_4_RISK_COUNT_CREA sy-vline 
WA_RDEFERRAL_API_STR-TO_DATE_4_RISK_COUNT_CREA sy-vline 
WA_RDEFERRAL_API_STR-FROM_DATE_4_RISK_COUNT_DISP sy-vline 
WA_RDEFERRAL_API_STR-TO_DATE_4_RISK_COUNT_DISP sy-vline 
WA_RDEFERRAL_API_STR-FROM_DATE_4_LOCKING sy-vline 
WA_RDEFERRAL_API_STR-TO_DATE_4_LOCKING sy-vline 
WA_RDEFERRAL_API_STR-RISK_COUNT_CREATION sy-vline 
WA_RDEFERRAL_API_STR-RISK_COUNT_DISPLAY sy-vline 
WA_RDEFERRAL_API_STR-RISK_COUNT_TOTAL sy-vline 
WA_RDEFERRAL_API_STR-REL_LOGHANDLE sy-vline 
WA_RDEFERRAL_API_STR-SRELEASE sy-vline      INTO ld_text SEPARATED BY SPACE.

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