ABAP Select data from SAP table BKK_STR_ACCT_DATA 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 BKK_STR_ACCT_DATA 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 BKK_STR_ACCT_DATA. 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 BKK_STR_ACCT_DATA 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_BKK_STR_ACCT_DATA TYPE STANDARD TABLE OF BKK_STR_ACCT_DATA,
      WA_BKK_STR_ACCT_DATA TYPE BKK_STR_ACCT_DATA,
      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: <BKK_STR_ACCT_DATA> TYPE BKK_STR_ACCT_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BKK_STR_ACCT_DATA
*  INTO TABLE @DATA(IT_BKK_STR_ACCT_DATA2).
*--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_BKK_STR_ACCT_DATA INDEX 1 INTO DATA(WA_BKK_STR_ACCT_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BKK_STR_ACCT_DATA>-WA_ACCT_DATA = 1.
<BKK_STR_ACCT_DATA>-MANDT = 1.
<BKK_STR_ACCT_DATA>-COTYP = 1.
<BKK_STR_ACCT_DATA>-COKEY = 1.
<BKK_STR_ACCT_DATA>-UNAME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BKK_STR_ACCT_DATA-CDATE, sy-vline,
  WA_BKK_STR_ACCT_DATA-CTIME, sy-vline,
  WA_BKK_STR_ACCT_DATA-GPART, sy-vline,
  WA_BKK_STR_ACCT_DATA-GPART_GUID, sy-vline,
  WA_BKK_STR_ACCT_DATA-GPART_ADR_KIND, sy-vline,
  WA_BKK_STR_ACCT_DATA-ORG_GPART, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BKK_STR_ACCT_DATA 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_BKK_STR_ACCT_DATA 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_BKK_STR_ACCT_DATA INTO WA_BKK_STR_ACCT_DATA.


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

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

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

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

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_BKK_STR_ACCT_DATA-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BKK_STR_ACCT_DATA-SPRAS.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field ACNUM_INT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BKK_STR_ACCT_DATA-ACNUM_INT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BKK_STR_ACCT_DATA-ACNUM_INT.
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_BKK_STR_ACCT_DATA_STR, 
WA_ACCT_DATA TYPE STRING,
MANDT TYPE STRING,
COTYP TYPE STRING,
COKEY TYPE STRING,
UNAME TYPE STRING,
CDATE TYPE STRING,
CTIME TYPE STRING,
GPART TYPE STRING,
GPART_GUID TYPE STRING,
GPART_ADR_KIND TYPE STRING,
ORG_GPART TYPE STRING,
ORG_GPART_GUID TYPE STRING,
ADD_GPART TYPE STRING,
ADD_GPART_GUID TYPE STRING,
ADD_GPART_CAT TYPE STRING,
VKONT TYPE STRING,
VTREF TYPE STRING,
ADR_VALID_ON TYPE STRING,
ADRNR TYPE STRING,
ADR_GUID TYPE STRING,
ADRNR_INDEP_COMM TYPE STRING,
AGPART TYPE STRING,
AGPART_GUID TYPE STRING,
AGPART_ADR_KIND TYPE STRING,
AADRNR TYPE STRING,
AADR_GUID TYPE STRING,
FORMKEY TYPE STRING,
FORMKEY_RDI TYPE STRING,
ENTID1 TYPE STRING,
DATA1 TYPE STRING,
ENTID2 TYPE STRING,
DATA2 TYPE STRING,
ENTID3 TYPE STRING,
DATA3 TYPE STRING,
ENTID4 TYPE STRING,
DATA4 TYPE STRING,
CSORT TYPE STRING,
XCODT TYPE STRING,
XCODT_CLUST TYPE STRING,
LAUFD TYPE STRING,
LAUFI TYPE STRING,
XTEST TYPE STRING,
COPRI TYPE STRING,
COIDT TYPE STRING,
COITM TYPE STRING,
SPRAS TYPE STRING,
SALWA TYPE STRING,
SALBE TYPE STRING,
SENDCONTROL TYPE STRING,
PERSNUMBER TYPE STRING,
APERSNUMBER TYPE STRING,
BUKRS TYPE STRING,
CORR_ROLE TYPE STRING,
COPRI_LAUFD TYPE STRING,
COPRI_LAUFI TYPE STRING,
PROCESS_ID_ TYPE STRING,
NO_DOCPARTS TYPE STRING,
DOCPART_ROLE TYPE STRING,
XTRIAL TYPE STRING,
XREPRINT TYPE STRING,
SUBAP TYPE STRING,
XDELETE TYPE STRING,
PRINT_MODE TYPE STRING,
X_NO_ARC TYPE STRING,
X_DOCPART_LIST TYPE STRING,
LOCK_STATUS TYPE STRING,
/PF1/CLEARING_AREA TYPE STRING,
/PF1/TYPE TYPE STRING,
/PF1/REFERENCE_NO TYPE STRING,
/PF1/FAX_NUMBER TYPE STRING,
/PF1/ORDER_DATE TYPE STRING,
/PF1/ERROR_TEXT TYPE STRING,
BKKRS TYPE STRING,
ACNUM_INT TYPE STRING,
OBJECT_IDCMS TYPE STRING,
FLG_ORIGINALCMS TYPE STRING,
SENDCONTROLCMS TYPE STRING,
INT_ACCNT_IDPF1 TYPE STRING,
AM_AREAPF1 TYPE STRING,
PRODUCT_IDPF1 TYPE STRING,
BP_AREAPF1 TYPE STRING,
PRODUCTTYPEFVD TYPE STRING,
BP_ROLEFVD TYPE STRING,
BP_ROLETYPEFVD TYPE STRING,
SOBJECTFVD TYPE STRING,
CORR_ACTIVITYFVD TYPE STRING,
REFERENCEDATEFVD TYPE STRING,
T_MAST_DAT_C TYPE STRING,
T_CURCHGVR_C TYPE STRING,
T_CUST_APP_C TYPE STRING,
T_AMT_NTC_C TYPE STRING,
T_TRM_MAST_C TYPE STRING,
T_MAST_DAT_O TYPE STRING,
T_CURCHGVR_O TYPE STRING,
T_CUST_APP_O TYPE STRING,
T_AMT_NTC_O TYPE STRING,
T_TRM_MAST_O TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BKK_STR_ACCT_DATA_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_BKK_STR_ACCT_DATA_STR-WA_ACCT_DATA sy-vline 
WA_BKK_STR_ACCT_DATA_STR-MANDT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COTYP sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COKEY sy-vline 
WA_BKK_STR_ACCT_DATA_STR-UNAME sy-vline 
WA_BKK_STR_ACCT_DATA_STR-CDATE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-CTIME sy-vline 
WA_BKK_STR_ACCT_DATA_STR-GPART sy-vline 
WA_BKK_STR_ACCT_DATA_STR-GPART_GUID sy-vline 
WA_BKK_STR_ACCT_DATA_STR-GPART_ADR_KIND sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ORG_GPART sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ORG_GPART_GUID sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADD_GPART sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADD_GPART_GUID sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADD_GPART_CAT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-VKONT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-VTREF sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADR_VALID_ON sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADRNR sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADR_GUID sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ADRNR_INDEP_COMM sy-vline 
WA_BKK_STR_ACCT_DATA_STR-AGPART sy-vline 
WA_BKK_STR_ACCT_DATA_STR-AGPART_GUID sy-vline 
WA_BKK_STR_ACCT_DATA_STR-AGPART_ADR_KIND sy-vline 
WA_BKK_STR_ACCT_DATA_STR-AADRNR sy-vline 
WA_BKK_STR_ACCT_DATA_STR-AADR_GUID sy-vline 
WA_BKK_STR_ACCT_DATA_STR-FORMKEY sy-vline 
WA_BKK_STR_ACCT_DATA_STR-FORMKEY_RDI sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ENTID1 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-DATA1 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ENTID2 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-DATA2 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ENTID3 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-DATA3 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ENTID4 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-DATA4 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-CSORT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-XCODT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-XCODT_CLUST sy-vline 
WA_BKK_STR_ACCT_DATA_STR-LAUFD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-LAUFI sy-vline 
WA_BKK_STR_ACCT_DATA_STR-XTEST sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COPRI sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COIDT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COITM sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SPRAS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SALWA sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SALBE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SENDCONTROL sy-vline 
WA_BKK_STR_ACCT_DATA_STR-PERSNUMBER sy-vline 
WA_BKK_STR_ACCT_DATA_STR-APERSNUMBER sy-vline 
WA_BKK_STR_ACCT_DATA_STR-BUKRS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-CORR_ROLE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COPRI_LAUFD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-COPRI_LAUFI sy-vline 
WA_BKK_STR_ACCT_DATA_STR-PROCESS_ID_ sy-vline 
WA_BKK_STR_ACCT_DATA_STR-NO_DOCPARTS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-DOCPART_ROLE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-XTRIAL sy-vline 
WA_BKK_STR_ACCT_DATA_STR-XREPRINT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SUBAP sy-vline 
WA_BKK_STR_ACCT_DATA_STR-XDELETE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-PRINT_MODE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-X_NO_ARC sy-vline 
WA_BKK_STR_ACCT_DATA_STR-X_DOCPART_LIST sy-vline 
WA_BKK_STR_ACCT_DATA_STR-LOCK_STATUS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-/PF1/CLEARING_AREA sy-vline 
WA_BKK_STR_ACCT_DATA_STR-/PF1/TYPE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-/PF1/REFERENCE_NO sy-vline 
WA_BKK_STR_ACCT_DATA_STR-/PF1/FAX_NUMBER sy-vline 
WA_BKK_STR_ACCT_DATA_STR-/PF1/ORDER_DATE sy-vline 
WA_BKK_STR_ACCT_DATA_STR-/PF1/ERROR_TEXT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-BKKRS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-ACNUM_INT sy-vline 
WA_BKK_STR_ACCT_DATA_STR-OBJECT_IDCMS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-FLG_ORIGINALCMS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SENDCONTROLCMS sy-vline 
WA_BKK_STR_ACCT_DATA_STR-INT_ACCNT_IDPF1 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-AM_AREAPF1 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-PRODUCT_IDPF1 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-BP_AREAPF1 sy-vline 
WA_BKK_STR_ACCT_DATA_STR-PRODUCTTYPEFVD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-BP_ROLEFVD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-BP_ROLETYPEFVD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-SOBJECTFVD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-CORR_ACTIVITYFVD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-REFERENCEDATEFVD sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_MAST_DAT_C sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_CURCHGVR_C sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_CUST_APP_C sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_AMT_NTC_C sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_TRM_MAST_C sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_MAST_DAT_O sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_CURCHGVR_O sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_CUST_APP_O sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_AMT_NTC_O sy-vline 
WA_BKK_STR_ACCT_DATA_STR-T_TRM_MAST_O sy-vline      INTO ld_text SEPARATED BY SPACE.

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