ABAP Select data from SAP table HRESS_S_CLMS_BDATA 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 HRESS_S_CLMS_BDATA 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 HRESS_S_CLMS_BDATA. 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 HRESS_S_CLMS_BDATA 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_HRESS_S_CLMS_BDATA TYPE STANDARD TABLE OF HRESS_S_CLMS_BDATA,
      WA_HRESS_S_CLMS_BDATA TYPE HRESS_S_CLMS_BDATA,
      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: <HRESS_S_CLMS_BDATA> TYPE HRESS_S_CLMS_BDATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HRESS_S_CLMS_BDATA
*  INTO TABLE @DATA(IT_HRESS_S_CLMS_BDATA2).
*--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_HRESS_S_CLMS_BDATA INDEX 1 INTO DATA(WA_HRESS_S_CLMS_BDATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HRESS_S_CLMS_BDATA>-RETYP = 1.
<HRESS_S_CLMS_BDATA>-RQTYP = 1.
<HRESS_S_CLMS_BDATA>-SCMCD = 1.
<HRESS_S_CLMS_BDATA>-REFNR = 1.
<HRESS_S_CLMS_BDATA>-LTCBL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HRESS_S_CLMS_BDATA-ASREF, sy-vline,
  WA_HRESS_S_CLMS_BDATA-TSR01, sy-vline,
  WA_HRESS_S_CLMS_BDATA-TSR02, sy-vline,
  WA_HRESS_S_CLMS_BDATA-BEGDA, sy-vline,
  WA_HRESS_S_CLMS_BDATA-ENDDA, sy-vline,
  WA_HRESS_S_CLMS_BDATA-REVIS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HRESS_S_CLMS_BDATA 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_HRESS_S_CLMS_BDATA 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_HRESS_S_CLMS_BDATA INTO WA_HRESS_S_CLMS_BDATA.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_HRESS_S_CLMS_BDATA_STR, 
RETYP TYPE STRING,
RQTYP TYPE STRING,
SCMCD TYPE STRING,
REFNR TYPE STRING,
LTCBL TYPE STRING,
ASREF TYPE STRING,
TSR01 TYPE STRING,
TSR02 TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
REVIS TYPE STRING,
REENA TYPE STRING,
RERED TYPE STRING,
RELBL TYPE STRING,
RETIP TYPE STRING,
RQVIS TYPE STRING,
RQRED TYPE STRING,
RQENA TYPE STRING,
RQTIP TYPE STRING,
RQLBL TYPE STRING,
SCVIS TYPE STRING,
SCENA TYPE STRING,
SCLBL TYPE STRING,
SCTIP TYPE STRING,
SCRED TYPE STRING,
LTVIS TYPE STRING,
LTENA TYPE STRING,
LTLBL TYPE STRING,
LTTIP TYPE STRING,
LTRED TYPE STRING,
ASVIS TYPE STRING,
ASENA TYPE STRING,
ASLBL TYPE STRING,
ASTIP TYPE STRING,
ASRED TYPE STRING,
T1VIS TYPE STRING,
T1ENA TYPE STRING,
T1LBL TYPE STRING,
T1TIP TYPE STRING,
T1RED TYPE STRING,
T2TIP TYPE STRING,
T2RED TYPE STRING,
T2VIS TYPE STRING,
T2ENA TYPE STRING,
T2LBL TYPE STRING,
RNTIP TYPE STRING,
RNRED TYPE STRING,
RNVIS TYPE STRING,
RNENA TYPE STRING,
RNLBL TYPE STRING,
BDTIP TYPE STRING,
BDRED TYPE STRING,
BDVIS TYPE STRING,
BDENA TYPE STRING,
BDLBL TYPE STRING,
EDTIP TYPE STRING,
EDRED TYPE STRING,
EDVIS TYPE STRING,
EDENA TYPE STRING,
EDLBL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HRESS_S_CLMS_BDATA_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_HRESS_S_CLMS_BDATA_STR-RETYP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RQTYP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-SCMCD sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-REFNR sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-LTCBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ASREF sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-TSR01 sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-TSR02 sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-BEGDA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ENDDA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-REVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-REENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RERED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RELBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RETIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RQVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RQRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RQENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RQTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RQLBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-SCVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-SCENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-SCLBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-SCTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-SCRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-LTVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-LTENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-LTLBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-LTTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-LTRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ASVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ASENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ASLBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ASTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-ASRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T1VIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T1ENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T1LBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T1TIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T1RED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T2TIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T2RED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T2VIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T2ENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-T2LBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RNTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RNRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RNVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RNENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-RNLBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-BDTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-BDRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-BDVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-BDENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-BDLBL sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-EDTIP sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-EDRED sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-EDVIS sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-EDENA sy-vline 
WA_HRESS_S_CLMS_BDATA_STR-EDLBL sy-vline      INTO ld_text SEPARATED BY SPACE.

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