ABAP Select data from SAP table REXCITIRE_CNDATA into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP REXCITIRE_CNDATA 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 REXCITIRE_CNDATA. 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 REXCITIRE_CNDATA 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_REXCITIRE_CNDATA TYPE STANDARD TABLE OF REXCITIRE_CNDATA,
      WA_REXCITIRE_CNDATA TYPE REXCITIRE_CNDATA,
      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: <REXCITIRE_CNDATA> TYPE REXCITIRE_CNDATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM REXCITIRE_CNDATA
*  INTO TABLE @DATA(IT_REXCITIRE_CNDATA2).
*--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_REXCITIRE_CNDATA INDEX 1 INTO DATA(WA_REXCITIRE_CNDATA2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_REXCITIRE_CNDATA ASSIGNING <REXCITIRE_CNDATA>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<REXCITIRE_CNDATA>-MS_DETAIL = 1.
<REXCITIRE_CNDATA>-MANDT = 1.
<REXCITIRE_CNDATA>-INTRENO = 1.
<REXCITIRE_CNDATA>-BUKRS = 1.
<REXCITIRE_CNDATA>-RECNNR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_REXCITIRE_CNDATA-OBJNR, sy-vline,
WA_REXCITIRE_CNDATA-IMKEY, sy-vline,
WA_REXCITIRE_CNDATA-CREATIONTYPE, sy-vline,
WA_REXCITIRE_CNDATA-RERF, sy-vline,
WA_REXCITIRE_CNDATA-DERF, sy-vline,
WA_REXCITIRE_CNDATA-TERF, sy-vline.
ENDLOOP. *Add any further fields from structure WA_REXCITIRE_CNDATA 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_REXCITIRE_CNDATA 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_REXCITIRE_CNDATA INTO WA_REXCITIRE_CNDATA. *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 RECNNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_REXCITIRE_CNDATA-RECNNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REXCITIRE_CNDATA-RECNNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit IMKEY, internal->external for field IMKEY CALL FUNCTION 'CONVERSION_EXIT_IMKEY_OUTPUT' EXPORTING input = WA_REXCITIRE_CNDATA-IMKEY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REXCITIRE_CNDATA-IMKEY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field RECNENDABS CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT' EXPORTING input = WA_REXCITIRE_CNDATA-RECNENDABS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REXCITIRE_CNDATA-RECNENDABS.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SWENR, internal->external for field BENOCN CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT' EXPORTING input = WA_REXCITIRE_CNDATA-BENOCN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REXCITIRE_CNDATA-BENOCN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field TRANSPOSSTO CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT' EXPORTING input = WA_REXCITIRE_CNDATA-TRANSPOSSTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REXCITIRE_CNDATA-TRANSPOSSTO.
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_REXCITIRE_CNDATA_STR,
MS_DETAIL TYPE STRING,
MANDT TYPE STRING,
INTRENO TYPE STRING,
BUKRS TYPE STRING,
RECNNR TYPE STRING,
OBJNR TYPE STRING,
IMKEY TYPE STRING,
CREATIONTYPE TYPE STRING,
RERF TYPE STRING,
DERF TYPE STRING,
TERF TYPE STRING,
REHER TYPE STRING,
RBEAR TYPE STRING,
DBEAR TYPE STRING,
TBEAR TYPE STRING,
RBHER TYPE STRING,
RESPONSIBLE TYPE STRING,
USEREXCLUSIVE TYPE STRING,
AUTHGRP TYPE STRING,
RECNTYPE TYPE STRING,
RECNBEG TYPE STRING,
RECNENDABS TYPE STRING,
RECNTXT TYPE STRING,
RECNDACTIV TYPE STRING,
RECNTLAW TYPE STRING,
RECNTXTOLD TYPE STRING,
RECNBUKRSCOLLECT TYPE STRING,
RECNNRCOLLECT TYPE STRING,
RECNCNCURR TYPE STRING,
INDUSTRY TYPE STRING,
SRRELEVANT TYPE STRING,
DPTARGETTYPE TYPE STRING,
RECNDAT TYPE STRING,
RECN2DAT TYPE STRING,
RECNDPO TYPE STRING,
RECNEND1ST TYPE STRING,
RECNNOTPER TYPE STRING,
RECNNOTRECEIPT TYPE STRING,
RECNNOTREASON TYPE STRING,
RECNDAKTKU TYPE STRING,
CFARCHIVEDTO TYPE STRING,
CFLOCKEDTO TYPE STRING,
CFPOSTINGFROM TYPE STRING,
BENOCN TYPE STRING,
TRANSPOSSFROM TYPE STRING,
TRANSPOSSTO TYPE STRING,
HASMULTIASSIGN TYPE STRING,
POSSDATEFROM TYPE STRING,
POSSDATETO TYPE STRING,
RELEVANTEVAL TYPE STRING,
DUMMY_REC_PS TYPE STRING,
SECDEPRELEVANT TYPE STRING,
NOTADJSDCN TYPE STRING,
CONDITIONS TYPE STRING,
RENEWALS TYPE STRING,
PARTNERS TYPE STRING,END OF T_EKKO_STR. DATA: WA_REXCITIRE_CNDATA_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_REXCITIRE_CNDATA_STR-MS_DETAIL sy-vline
WA_REXCITIRE_CNDATA_STR-MANDT sy-vline
WA_REXCITIRE_CNDATA_STR-INTRENO sy-vline
WA_REXCITIRE_CNDATA_STR-BUKRS sy-vline
WA_REXCITIRE_CNDATA_STR-RECNNR sy-vline
WA_REXCITIRE_CNDATA_STR-OBJNR sy-vline
WA_REXCITIRE_CNDATA_STR-IMKEY sy-vline
WA_REXCITIRE_CNDATA_STR-CREATIONTYPE sy-vline
WA_REXCITIRE_CNDATA_STR-RERF sy-vline
WA_REXCITIRE_CNDATA_STR-DERF sy-vline
WA_REXCITIRE_CNDATA_STR-TERF sy-vline
WA_REXCITIRE_CNDATA_STR-REHER sy-vline
WA_REXCITIRE_CNDATA_STR-RBEAR sy-vline
WA_REXCITIRE_CNDATA_STR-DBEAR sy-vline
WA_REXCITIRE_CNDATA_STR-TBEAR sy-vline
WA_REXCITIRE_CNDATA_STR-RBHER sy-vline
WA_REXCITIRE_CNDATA_STR-RESPONSIBLE sy-vline
WA_REXCITIRE_CNDATA_STR-USEREXCLUSIVE sy-vline
WA_REXCITIRE_CNDATA_STR-AUTHGRP sy-vline
WA_REXCITIRE_CNDATA_STR-RECNTYPE sy-vline
WA_REXCITIRE_CNDATA_STR-RECNBEG sy-vline
WA_REXCITIRE_CNDATA_STR-RECNENDABS sy-vline
WA_REXCITIRE_CNDATA_STR-RECNTXT sy-vline
WA_REXCITIRE_CNDATA_STR-RECNDACTIV sy-vline
WA_REXCITIRE_CNDATA_STR-RECNTLAW sy-vline
WA_REXCITIRE_CNDATA_STR-RECNTXTOLD sy-vline
WA_REXCITIRE_CNDATA_STR-RECNBUKRSCOLLECT sy-vline
WA_REXCITIRE_CNDATA_STR-RECNNRCOLLECT sy-vline
WA_REXCITIRE_CNDATA_STR-RECNCNCURR sy-vline
WA_REXCITIRE_CNDATA_STR-INDUSTRY sy-vline
WA_REXCITIRE_CNDATA_STR-SRRELEVANT sy-vline
WA_REXCITIRE_CNDATA_STR-DPTARGETTYPE sy-vline
WA_REXCITIRE_CNDATA_STR-RECNDAT sy-vline
WA_REXCITIRE_CNDATA_STR-RECN2DAT sy-vline
WA_REXCITIRE_CNDATA_STR-RECNDPO sy-vline
WA_REXCITIRE_CNDATA_STR-RECNEND1ST sy-vline
WA_REXCITIRE_CNDATA_STR-RECNNOTPER sy-vline
WA_REXCITIRE_CNDATA_STR-RECNNOTRECEIPT sy-vline
WA_REXCITIRE_CNDATA_STR-RECNNOTREASON sy-vline
WA_REXCITIRE_CNDATA_STR-RECNDAKTKU sy-vline
WA_REXCITIRE_CNDATA_STR-CFARCHIVEDTO sy-vline
WA_REXCITIRE_CNDATA_STR-CFLOCKEDTO sy-vline
WA_REXCITIRE_CNDATA_STR-CFPOSTINGFROM sy-vline
WA_REXCITIRE_CNDATA_STR-BENOCN sy-vline
WA_REXCITIRE_CNDATA_STR-TRANSPOSSFROM sy-vline
WA_REXCITIRE_CNDATA_STR-TRANSPOSSTO sy-vline
WA_REXCITIRE_CNDATA_STR-HASMULTIASSIGN sy-vline
WA_REXCITIRE_CNDATA_STR-POSSDATEFROM sy-vline
WA_REXCITIRE_CNDATA_STR-POSSDATETO sy-vline
WA_REXCITIRE_CNDATA_STR-RELEVANTEVAL sy-vline
WA_REXCITIRE_CNDATA_STR-DUMMY_REC_PS sy-vline
WA_REXCITIRE_CNDATA_STR-SECDEPRELEVANT sy-vline
WA_REXCITIRE_CNDATA_STR-NOTADJSDCN sy-vline
WA_REXCITIRE_CNDATA_STR-CONDITIONS sy-vline
WA_REXCITIRE_CNDATA_STR-RENEWALS sy-vline
WA_REXCITIRE_CNDATA_STR-PARTNERS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.