ABAP Select data from SAP table UCM_S_DATABASIS_LP 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 UCM_S_DATABASIS_LP 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 UCM_S_DATABASIS_LP. 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 UCM_S_DATABASIS_LP 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_UCM_S_DATABASIS_LP TYPE STANDARD TABLE OF UCM_S_DATABASIS_LP,
      WA_UCM_S_DATABASIS_LP TYPE UCM_S_DATABASIS_LP,
      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: <UCM_S_DATABASIS_LP> TYPE UCM_S_DATABASIS_LP.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM UCM_S_DATABASIS_LP
*  INTO TABLE @DATA(IT_UCM_S_DATABASIS_LP2).
*--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_UCM_S_DATABASIS_LP INDEX 1 INTO DATA(WA_UCM_S_DATABASIS_LP2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<UCM_S_DATABASIS_LP>-SUMIND = 1.
<UCM_S_DATABASIS_LP>-SUBLIST1 = 1.
<UCM_S_DATABASIS_LP>-SUBLIST2 = 1.
<UCM_S_DATABASIS_LP>-SUBLIST3 = 1.
<UCM_S_DATABASIS_LP>-SEQNR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_UCM_S_DATABASIS_LP-DBS_DATABASIS, sy-vline,
  WA_UCM_S_DATABASIS_LP-DBS_TXTMI, sy-vline,
  WA_UCM_S_DATABASIS_LP-DBS_RFCDEST, sy-vline,
  WA_UCM_S_DATABASIS_LP-DBS_REPUNIT_CURR, sy-vline,
  WA_UCM_S_DATABASIS_LP-DBS_INFOP_REPU_ATTR, sy-vline,
  WA_UCM_S_DATABASIS_LP-DBS_ASSET_FLDTXT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_UCM_S_DATABASIS_LP 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_UCM_S_DATABASIS_LP 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_UCM_S_DATABASIS_LP INTO WA_UCM_S_DATABASIS_LP.


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

*Conversion exit ALPHA, internal->external for field MAP_SVERSION
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_UCM_S_DATABASIS_LP-MAP_SVERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_UCM_S_DATABASIS_LP-MAP_SVERSION.
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_UCM_S_DATABASIS_LP_STR, 
SUMIND TYPE STRING,
SUBLIST1 TYPE STRING,
SUBLIST2 TYPE STRING,
SUBLIST3 TYPE STRING,
SEQNR TYPE STRING,
DBS_DATABASIS TYPE STRING,
DBS_TXTMI TYPE STRING,
DBS_RFCDEST TYPE STRING,
DBS_REPUNIT_CURR TYPE STRING,
DBS_INFOP_REPU_ATTR TYPE STRING,
DBS_ASSET_FLDTXT TYPE STRING,
DBS_ASSET_FLD TYPE STRING,
DBS_ASSET_VALUE TYPE STRING,
DBS_ASSET_VALUETXT TYPE STRING,
FCI_FIELDTXT TYPE STRING,
FCI_VALUE TYPE STRING,
FCI_VALUE_TXT TYPE STRING,
DST_DATASTREAMTYPE TYPE STRING,
DST_TXTMI TYPE STRING,
DST_INFOPROVIDER TYPE STRING,
DST_GEN_INFOPROVIDER TYPE STRING,
DST_VIRTUALINFOPROV TYPE STRING,
DST_GEN_VIRTUALINFOPROV TYPE STRING,
DST_VIRTUALINFOPROV_MC TYPE STRING,
DST_GEN_VIRTUALINFOPROV_MC TYPE STRING,
DST_VIRTUALINFOPROV_DE TYPE STRING,
DST_GEN_VIRTUALINFOPROV_DE TYPE STRING,
ROL_FIELDNAME TYPE STRING,
ROL_FIELDTEXT TYPE STRING,
ROL_INFOOBJECT TYPE STRING,
ROL_ROLE TYPE STRING,
ROL_ROLETEXT TYPE STRING,
ROL_ALLOC_FLD TYPE STRING,
ROL_ALLOC_FLD_TEXT TYPE STRING,
ROL_ITGRPFIX TYPE STRING,
ROL_RESTAT TYPE STRING,
AUT_FIELDNAME TYPE STRING,
AUT_SCRTEXT_L TYPE STRING,
AUT_CHECK_VALUE TYPE STRING,
AUT_VAL_TYPE TYPE STRING,
REP_FIELDNAME TYPE STRING,
REP_SEQNR TYPE STRING,
REP_SCRTEXT_L TYPE STRING,
REP_OUTPUTLEN TYPE STRING,
REP_REPTEXT TYPE STRING,
ATT_SEQNR_FIELD TYPE STRING,
ATT_FIELDNAME TYPE STRING,
ATT_FNAM_TXTL TYPE STRING,
ATT_ATTRIBUTE TYPE STRING,
ATT_SEQNR_ATTR TYPE STRING,
ATT_SCRTEXT_L TYPE STRING,
ATT_INFOOBJECT TYPE STRING,
ATT_ATTR_TYPE TYPE STRING,
ATT_DISPLAY_ONLY TYPE STRING,
DST_INOBJCAT_TXT TYPE STRING,
DST_INFOOBJECTCAT TYPE STRING,
DST_SOURCE_DATABASIS TYPE STRING,
DST_SOURCE_DATABASIS_TXT TYPE STRING,
DST_SOURCE_RFCDEST TYPE STRING,
DST_SOURCE_LOGSYS TYPE STRING,
DST_SOURCE_INFOPROVIDER TYPE STRING,
DST_SOURCE_INFOPROVIDER_TXT TYPE STRING,
ADD_FIELDVALUE TYPE STRING,
ADD_FIELDNAME TYPE STRING,
ADD_INFOOBJECT TYPE STRING,
ADD_USED TYPE STRING,
MAP_FLD_SEQNR TYPE STRING,
MAP_FIELD_TXT TYPE STRING,
MAP_FIELDNAME TYPE STRING,
MAP_ATTR_SEQNR TYPE STRING,
MAP_ATTR_TXT TYPE STRING,
MAP_ATTRIBUTE TYPE STRING,
MAP_INFOOBJECT TYPE STRING,
MAP_LATTR_TXT TYPE STRING,
MAP_LATTRIBUTE TYPE STRING,
MAP_AREA TYPE STRING,
MAP_SVERSTYPE TYPE STRING,
MAP_SVERSION TYPE STRING,END OF T_EKKO_STR.
DATA: WA_UCM_S_DATABASIS_LP_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_UCM_S_DATABASIS_LP_STR-SUMIND sy-vline 
WA_UCM_S_DATABASIS_LP_STR-SUBLIST1 sy-vline 
WA_UCM_S_DATABASIS_LP_STR-SUBLIST2 sy-vline 
WA_UCM_S_DATABASIS_LP_STR-SUBLIST3 sy-vline 
WA_UCM_S_DATABASIS_LP_STR-SEQNR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_DATABASIS sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_TXTMI sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_RFCDEST sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_REPUNIT_CURR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_INFOP_REPU_ATTR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_ASSET_FLDTXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_ASSET_FLD sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_ASSET_VALUE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DBS_ASSET_VALUETXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-FCI_FIELDTXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-FCI_VALUE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-FCI_VALUE_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_DATASTREAMTYPE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_TXTMI sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_INFOPROVIDER sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_GEN_INFOPROVIDER sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_VIRTUALINFOPROV sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_GEN_VIRTUALINFOPROV sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_VIRTUALINFOPROV_MC sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_GEN_VIRTUALINFOPROV_MC sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_VIRTUALINFOPROV_DE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_GEN_VIRTUALINFOPROV_DE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_FIELDNAME sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_FIELDTEXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_INFOOBJECT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_ROLE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_ROLETEXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_ALLOC_FLD sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_ALLOC_FLD_TEXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_ITGRPFIX sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ROL_RESTAT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-AUT_FIELDNAME sy-vline 
WA_UCM_S_DATABASIS_LP_STR-AUT_SCRTEXT_L sy-vline 
WA_UCM_S_DATABASIS_LP_STR-AUT_CHECK_VALUE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-AUT_VAL_TYPE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-REP_FIELDNAME sy-vline 
WA_UCM_S_DATABASIS_LP_STR-REP_SEQNR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-REP_SCRTEXT_L sy-vline 
WA_UCM_S_DATABASIS_LP_STR-REP_OUTPUTLEN sy-vline 
WA_UCM_S_DATABASIS_LP_STR-REP_REPTEXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_SEQNR_FIELD sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_FIELDNAME sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_FNAM_TXTL sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_ATTRIBUTE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_SEQNR_ATTR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_SCRTEXT_L sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_INFOOBJECT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_ATTR_TYPE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ATT_DISPLAY_ONLY sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_INOBJCAT_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_INFOOBJECTCAT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_SOURCE_DATABASIS sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_SOURCE_DATABASIS_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_SOURCE_RFCDEST sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_SOURCE_LOGSYS sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_SOURCE_INFOPROVIDER sy-vline 
WA_UCM_S_DATABASIS_LP_STR-DST_SOURCE_INFOPROVIDER_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ADD_FIELDVALUE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ADD_FIELDNAME sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ADD_INFOOBJECT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-ADD_USED sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_FLD_SEQNR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_FIELD_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_FIELDNAME sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_ATTR_SEQNR sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_ATTR_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_ATTRIBUTE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_INFOOBJECT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_LATTR_TXT sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_LATTRIBUTE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_AREA sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_SVERSTYPE sy-vline 
WA_UCM_S_DATABASIS_LP_STR-MAP_SVERSION sy-vline      INTO ld_text SEPARATED BY SPACE.

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