ABAP Select data from SAP table RESCISSU2CN_X 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 RESCISSU2CN_X 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 RESCISSU2CN_X. 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 RESCISSU2CN_X 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_RESCISSU2CN_X TYPE STANDARD TABLE OF RESCISSU2CN_X,
      WA_RESCISSU2CN_X TYPE RESCISSU2CN_X,
      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: <RESCISSU2CN_X> TYPE RESCISSU2CN_X.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RESCISSU2CN_X
*  INTO TABLE @DATA(IT_RESCISSU2CN_X2).
*--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_RESCISSU2CN_X INDEX 1 INTO DATA(WA_RESCISSU2CN_X2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RESCISSU2CN_X>-SCS_SU_GUIDSU = 1.
<RESCISSU2CN_X>-BUKRSSU = 1.
<RESCISSU2CN_X>-SWENRSU = 1.
<RESCISSU2CN_X>-SNKSLSU = 1.
<RESCISSU2CN_X>-XSCKEYSU = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RESCISSU2CN_X-XSSCKEYSU, sy-vline,
  WA_RESCISSU2CN_X-SCKEYGRPSU, sy-vline,
  WA_RESCISSU2CN_X-XSCKEYGRPSU, sy-vline,
  WA_RESCISSU2CN_X-SEMPSLSU, sy-vline,
  WA_RESCISSU2CN_X-XSUSU, sy-vline,
  WA_RESCISSU2CN_X-SU_OBJNRSU, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RESCISSU2CN_X 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_RESCISSU2CN_X 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_RESCISSU2CN_X INTO WA_RESCISSU2CN_X.


*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 SWENR, internal->external for field SWENRSU
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_RESCISSU2CN_X-SWENRSU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RESCISSU2CN_X-SWENRSU.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field FIXFITCHARACTCN
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RESCISSU2CN_X-FIXFITCHARACTCN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RESCISSU2CN_X-FIXFITCHARACTCN.
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_RESCISSU2CN_X_STR, 
SCS_SU_GUIDSU TYPE STRING,
BUKRSSU TYPE STRING,
SWENRSU TYPE STRING,
SNKSLSU TYPE STRING,
XSCKEYSU TYPE STRING,
XSSCKEYSU TYPE STRING,
SCKEYGRPSU TYPE STRING,
XSCKEYGRPSU TYPE STRING,
SEMPSLSU TYPE STRING,
XSUSU TYPE STRING,
SU_OBJNRSU TYPE STRING,
SU_OBJIDSU TYPE STRING,
PFROMSU TYPE STRING,
PTOSU TYPE STRING,
PLENGTHSU TYPE STRING,
PROCESSIDSU TYPE STRING,
SCS_SU_GUIDCN TYPE STRING,
MANDTCN TYPE STRING,
SCS_ROCN_GUIDCN TYPE STRING,
RO_OBJNRCN TYPE STRING,
RO_OBJINFOCN TYPE STRING,
RO_OBJIDCN TYPE STRING,
CN_OBJNRCN TYPE STRING,
CN_OBJINFOCN TYPE STRING,
CN_OBJIDCN TYPE STRING,
PFROMCN TYPE STRING,
PTOCN TYPE STRING,
PLENGTHCN TYPE STRING,
PROCESSIDCN TYPE STRING,
PURPOSECN TYPE STRING,
MEASCN TYPE STRING,
XMMEASCN TYPE STRING,
XSMEASCN TYPE STRING,
XPURPOSECN TYPE STRING,
PARTTYPECN TYPE STRING,
TENANT_SHARECN TYPE STRING,
OWNER_SHARECN TYPE STRING,
PARTTYPE_CURRCN TYPE STRING,
MAXCOSTSUCN TYPE STRING,
BASECN TYPE STRING,
BASEAMOUNTCN TYPE STRING,
BASEDATECN TYPE STRING,
XPARTTYPECN TYPE STRING,
XBASECN TYPE STRING,
PTYPE_SHORTCUTCN TYPE STRING,
XPTYPECN TYPE STRING,
CONDTYPECN TYPE STRING,
XTEXTCONDLCN TYPE STRING,
XTEXTCONDMCN TYPE STRING,
CURRENCYCN TYPE STRING,
NET_AMOUNTCN TYPE STRING,
DEDUCT_TAXCN TYPE STRING,
NONDEDUCT_TAXCN TYPE STRING,
GROSSAMOUNT_INFOCN TYPE STRING,
NET_AMOUNT_OBJCN TYPE STRING,
DEDUCT_TAX_OBJCN TYPE STRING,
NONDEDUCT_TAX_OBJCN TYPE STRING,
APPORTVALUECN TYPE STRING,
APPORTVALUEROCN TYPE STRING,
SCS_PERIOD_GUIDCN TYPE STRING,
PARTNERCN TYPE STRING,
PARTNEROBJNRCN TYPE STRING,
XNAMECN TYPE STRING,
XPARTNERCN TYPE STRING,
FIRSTNAMECN TYPE STRING,
LASTNAMECN TYPE STRING,
FULLNAMECN TYPE STRING,
ROLECN TYPE STRING,
XROLECN TYPE STRING,
CHRGPERCCN TYPE STRING,
CHRGDETLEVELCN TYPE STRING,
XCHRGDETLEVELCN TYPE STRING,
FIXFITCHARACTCN TYPE STRING,
CHRGNETAMOUNTCN TYPE STRING,
XFIXFITCHARACTCN TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RESCISSU2CN_X_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_RESCISSU2CN_X_STR-SCS_SU_GUIDSU sy-vline 
WA_RESCISSU2CN_X_STR-BUKRSSU sy-vline 
WA_RESCISSU2CN_X_STR-SWENRSU sy-vline 
WA_RESCISSU2CN_X_STR-SNKSLSU sy-vline 
WA_RESCISSU2CN_X_STR-XSCKEYSU sy-vline 
WA_RESCISSU2CN_X_STR-XSSCKEYSU sy-vline 
WA_RESCISSU2CN_X_STR-SCKEYGRPSU sy-vline 
WA_RESCISSU2CN_X_STR-XSCKEYGRPSU sy-vline 
WA_RESCISSU2CN_X_STR-SEMPSLSU sy-vline 
WA_RESCISSU2CN_X_STR-XSUSU sy-vline 
WA_RESCISSU2CN_X_STR-SU_OBJNRSU sy-vline 
WA_RESCISSU2CN_X_STR-SU_OBJIDSU sy-vline 
WA_RESCISSU2CN_X_STR-PFROMSU sy-vline 
WA_RESCISSU2CN_X_STR-PTOSU sy-vline 
WA_RESCISSU2CN_X_STR-PLENGTHSU sy-vline 
WA_RESCISSU2CN_X_STR-PROCESSIDSU sy-vline 
WA_RESCISSU2CN_X_STR-SCS_SU_GUIDCN sy-vline 
WA_RESCISSU2CN_X_STR-MANDTCN sy-vline 
WA_RESCISSU2CN_X_STR-SCS_ROCN_GUIDCN sy-vline 
WA_RESCISSU2CN_X_STR-RO_OBJNRCN sy-vline 
WA_RESCISSU2CN_X_STR-RO_OBJINFOCN sy-vline 
WA_RESCISSU2CN_X_STR-RO_OBJIDCN sy-vline 
WA_RESCISSU2CN_X_STR-CN_OBJNRCN sy-vline 
WA_RESCISSU2CN_X_STR-CN_OBJINFOCN sy-vline 
WA_RESCISSU2CN_X_STR-CN_OBJIDCN sy-vline 
WA_RESCISSU2CN_X_STR-PFROMCN sy-vline 
WA_RESCISSU2CN_X_STR-PTOCN sy-vline 
WA_RESCISSU2CN_X_STR-PLENGTHCN sy-vline 
WA_RESCISSU2CN_X_STR-PROCESSIDCN sy-vline 
WA_RESCISSU2CN_X_STR-PURPOSECN sy-vline 
WA_RESCISSU2CN_X_STR-MEASCN sy-vline 
WA_RESCISSU2CN_X_STR-XMMEASCN sy-vline 
WA_RESCISSU2CN_X_STR-XSMEASCN sy-vline 
WA_RESCISSU2CN_X_STR-XPURPOSECN sy-vline 
WA_RESCISSU2CN_X_STR-PARTTYPECN sy-vline 
WA_RESCISSU2CN_X_STR-TENANT_SHARECN sy-vline 
WA_RESCISSU2CN_X_STR-OWNER_SHARECN sy-vline 
WA_RESCISSU2CN_X_STR-PARTTYPE_CURRCN sy-vline 
WA_RESCISSU2CN_X_STR-MAXCOSTSUCN sy-vline 
WA_RESCISSU2CN_X_STR-BASECN sy-vline 
WA_RESCISSU2CN_X_STR-BASEAMOUNTCN sy-vline 
WA_RESCISSU2CN_X_STR-BASEDATECN sy-vline 
WA_RESCISSU2CN_X_STR-XPARTTYPECN sy-vline 
WA_RESCISSU2CN_X_STR-XBASECN sy-vline 
WA_RESCISSU2CN_X_STR-PTYPE_SHORTCUTCN sy-vline 
WA_RESCISSU2CN_X_STR-XPTYPECN sy-vline 
WA_RESCISSU2CN_X_STR-CONDTYPECN sy-vline 
WA_RESCISSU2CN_X_STR-XTEXTCONDLCN sy-vline 
WA_RESCISSU2CN_X_STR-XTEXTCONDMCN sy-vline 
WA_RESCISSU2CN_X_STR-CURRENCYCN sy-vline 
WA_RESCISSU2CN_X_STR-NET_AMOUNTCN sy-vline 
WA_RESCISSU2CN_X_STR-DEDUCT_TAXCN sy-vline 
WA_RESCISSU2CN_X_STR-NONDEDUCT_TAXCN sy-vline 
WA_RESCISSU2CN_X_STR-GROSSAMOUNT_INFOCN sy-vline 
WA_RESCISSU2CN_X_STR-NET_AMOUNT_OBJCN sy-vline 
WA_RESCISSU2CN_X_STR-DEDUCT_TAX_OBJCN sy-vline 
WA_RESCISSU2CN_X_STR-NONDEDUCT_TAX_OBJCN sy-vline 
WA_RESCISSU2CN_X_STR-APPORTVALUECN sy-vline 
WA_RESCISSU2CN_X_STR-APPORTVALUEROCN sy-vline 
WA_RESCISSU2CN_X_STR-SCS_PERIOD_GUIDCN sy-vline 
WA_RESCISSU2CN_X_STR-PARTNERCN sy-vline 
WA_RESCISSU2CN_X_STR-PARTNEROBJNRCN sy-vline 
WA_RESCISSU2CN_X_STR-XNAMECN sy-vline 
WA_RESCISSU2CN_X_STR-XPARTNERCN sy-vline 
WA_RESCISSU2CN_X_STR-FIRSTNAMECN sy-vline 
WA_RESCISSU2CN_X_STR-LASTNAMECN sy-vline 
WA_RESCISSU2CN_X_STR-FULLNAMECN sy-vline 
WA_RESCISSU2CN_X_STR-ROLECN sy-vline 
WA_RESCISSU2CN_X_STR-XROLECN sy-vline 
WA_RESCISSU2CN_X_STR-CHRGPERCCN sy-vline 
WA_RESCISSU2CN_X_STR-CHRGDETLEVELCN sy-vline 
WA_RESCISSU2CN_X_STR-XCHRGDETLEVELCN sy-vline 
WA_RESCISSU2CN_X_STR-FIXFITCHARACTCN sy-vline 
WA_RESCISSU2CN_X_STR-CHRGNETAMOUNTCN sy-vline 
WA_RESCISSU2CN_X_STR-XFIXFITCHARACTCN sy-vline      INTO ld_text SEPARATED BY SPACE.

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