ABAP Select data from SAP table FINS_CFIN_S_DFV_ACC_SUM_CMP_L 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 FINS_CFIN_S_DFV_ACC_SUM_CMP_L 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 FINS_CFIN_S_DFV_ACC_SUM_CMP_L. 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 FINS_CFIN_S_DFV_ACC_SUM_CMP_L 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_FINS_CFIN_S_DFV_ACC_SUM_CMP_L TYPE STANDARD TABLE OF FINS_CFIN_S_DFV_ACC_SUM_CMP_L,
      WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L TYPE FINS_CFIN_S_DFV_ACC_SUM_CMP_L,
      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: <FINS_CFIN_S_DFV_ACC_SUM_CMP_L> TYPE FINS_CFIN_S_DFV_ACC_SUM_CMP_L.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FINS_CFIN_S_DFV_ACC_SUM_CMP_L
*  INTO TABLE @DATA(IT_FINS_CFIN_S_DFV_ACC_SUM_CMP_L2).
*--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_FINS_CFIN_S_DFV_ACC_SUM_CMP_L INDEX 1 INTO DATA(WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FINS_CFIN_S_DFV_ACC_SUM_CMP_L ASSIGNING <FINS_CFIN_S_DFV_ACC_SUM_CMP_L>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<FINS_CFIN_S_DFV_ACC_SUM_CMP_L>-RLDNRSRC = 1.
<FINS_CFIN_S_DFV_ACC_SUM_CMP_L>-BUKRSSRC = 1.
<FINS_CFIN_S_DFV_ACC_SUM_CMP_L>-RACCTSRC = 1.
<FINS_CFIN_S_DFV_ACC_SUM_CMP_L>-GJAHRSRC = 1.
<FINS_CFIN_S_DFV_ACC_SUM_CMP_L>-POPERSRC = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-FIRST_DAYSRC, sy-vline,
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-LAST_DAYSRC, sy-vline,
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-WAERSSRC, sy-vline,
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-CURRTYPESRC, sy-vline,
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-DEBITSRC, sy-vline,
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-CREDITSRC, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L 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_FINS_CFIN_S_DFV_ACC_SUM_CMP_L 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_FINS_CFIN_S_DFV_ACC_SUM_CMP_L INTO WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L. *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 RLDNRSRC CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-RLDNRSRC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-RLDNRSRC.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field GJAHRSRC CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-GJAHRSRC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-GJAHRSRC.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit GJAHR, internal->external for field GJAHRTRG CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-GJAHRTRG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L-GJAHRTRG.
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_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR,
RLDNRSRC TYPE STRING,
BUKRSSRC TYPE STRING,
RACCTSRC TYPE STRING,
GJAHRSRC TYPE STRING,
POPERSRC TYPE STRING,
FIRST_DAYSRC TYPE STRING,
LAST_DAYSRC TYPE STRING,
WAERSSRC TYPE STRING,
CURRTYPESRC TYPE STRING,
DEBITSRC TYPE STRING,
CREDITSRC TYPE STRING,
BALANCESRC TYPE STRING,
BAPI_DEBITSRC TYPE STRING,
BAPI_CREDITSRC TYPE STRING,
BAPI_BALANCESRC TYPE STRING,
IS_CLEARING_ACCOUNTSRC TYPE STRING,
RLDNRTRG TYPE STRING,
BUKRSTRG TYPE STRING,
RACCTTRG TYPE STRING,
GJAHRTRG TYPE STRING,
POPERTRG TYPE STRING,
FIRST_DAYTRG TYPE STRING,
LAST_DAYTRG TYPE STRING,
WAERSTRG TYPE STRING,
CURRTYPETRG TYPE STRING,
DEBITTRG TYPE STRING,
CREDITTRG TYPE STRING,
BALANCETRG TYPE STRING,
BAPI_DEBITTRG TYPE STRING,
BAPI_CREDITTRG TYPE STRING,
BAPI_BALANCETRG TYPE STRING,
IS_CLEARING_ACCOUNTTRG TYPE STRING,
DIFFERENCEIND TYPE STRING,
XDIFFERENCEIND TYPE STRING,
FIELDS_WITH_DIFF TYPE STRING,
VARIANCE TYPE STRING,
T_COLOR TYPE STRING,
T_CELLTYPE TYPE STRING,END OF T_EKKO_STR. DATA: WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_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_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-RLDNRSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BUKRSSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-RACCTSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-GJAHRSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-POPERSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-FIRST_DAYSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-LAST_DAYSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-WAERSSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-CURRTYPESRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-DEBITSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-CREDITSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BALANCESRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BAPI_DEBITSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BAPI_CREDITSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BAPI_BALANCESRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-IS_CLEARING_ACCOUNTSRC sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-RLDNRTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BUKRSTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-RACCTTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-GJAHRTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-POPERTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-FIRST_DAYTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-LAST_DAYTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-WAERSTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-CURRTYPETRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-DEBITTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-CREDITTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BALANCETRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BAPI_DEBITTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BAPI_CREDITTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-BAPI_BALANCETRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-IS_CLEARING_ACCOUNTTRG sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-DIFFERENCEIND sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-XDIFFERENCEIND sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-FIELDS_WITH_DIFF sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-VARIANCE sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-T_COLOR sy-vline
WA_FINS_CFIN_S_DFV_ACC_SUM_CMP_L_STR-T_CELLTYPE sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.