ABAP Select data from SAP table HBRDF2_2008_2 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 HBRDF2_2008_2 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 HBRDF2_2008_2. 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 HBRDF2_2008_2 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_HBRDF2_2008_2 TYPE STANDARD TABLE OF HBRDF2_2008_2,
      WA_HBRDF2_2008_2 TYPE HBRDF2_2008_2,
      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: <HBRDF2_2008_2> TYPE HBRDF2_2008_2.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HBRDF2_2008_2
*  INTO TABLE @DATA(IT_HBRDF2_2008_22).
*--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_HBRDF2_2008_2 INDEX 1 INTO DATA(WA_HBRDF2_2008_22).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HBRDF2_2008_2>-SEQU2 = 1.
<HBRDF2_2008_2>-CODE2 = 1.
<HBRDF2_2008_2>-CGCD = 1.
<HBRDF2_2008_2>-CODRT = 1.
<HBRDF2_2008_2>-IDBEN = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HBRDF2_2008_2-CPFNO, sy-vline,
  WA_HBRDF2_2008_2-NOMED, sy-vline,
  WA_HBRDF2_2008_2-PRE01, sy-vline,
  WA_HBRDF2_2008_2-Z0101, sy-vline,
  WA_HBRDF2_2008_2-Z0201, sy-vline,
  WA_HBRDF2_2008_2-PRE02, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HBRDF2_2008_2 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_HBRDF2_2008_2 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_HBRDF2_2008_2 INTO WA_HBRDF2_2008_2.


*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_HBRDF2_2008_2_STR, 
SEQU2 TYPE STRING,
CODE2 TYPE STRING,
CGCD TYPE STRING,
CODRT TYPE STRING,
IDBEN TYPE STRING,
CPFNO TYPE STRING,
NOMED TYPE STRING,
PRE01 TYPE STRING,
Z0101 TYPE STRING,
Z0201 TYPE STRING,
PRE02 TYPE STRING,
Z0102 TYPE STRING,
Z0202 TYPE STRING,
PRE03 TYPE STRING,
Z0103 TYPE STRING,
Z0203 TYPE STRING,
PRE04 TYPE STRING,
Z0104 TYPE STRING,
Z0204 TYPE STRING,
PRE05 TYPE STRING,
Z0105 TYPE STRING,
Z0205 TYPE STRING,
PRE06 TYPE STRING,
Z0106 TYPE STRING,
Z0206 TYPE STRING,
PRE07 TYPE STRING,
Z0107 TYPE STRING,
Z0207 TYPE STRING,
PRE08 TYPE STRING,
Z0108 TYPE STRING,
Z0208 TYPE STRING,
PRE09 TYPE STRING,
Z0109 TYPE STRING,
Z0209 TYPE STRING,
PRE10 TYPE STRING,
Z0110 TYPE STRING,
Z0210 TYPE STRING,
PRE11 TYPE STRING,
Z0111 TYPE STRING,
Z0211 TYPE STRING,
PRE12 TYPE STRING,
Z0112 TYPE STRING,
Z0212 TYPE STRING,
PRE13 TYPE STRING,
Z0113 TYPE STRING,
Z0213 TYPE STRING,
IDTAX TYPE STRING,
DEDES TYPE STRING,
FILL8 TYPE STRING,
USOE2 TYPE STRING,
USODE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HBRDF2_2008_2_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_HBRDF2_2008_2_STR-SEQU2 sy-vline 
WA_HBRDF2_2008_2_STR-CODE2 sy-vline 
WA_HBRDF2_2008_2_STR-CGCD sy-vline 
WA_HBRDF2_2008_2_STR-CODRT sy-vline 
WA_HBRDF2_2008_2_STR-IDBEN sy-vline 
WA_HBRDF2_2008_2_STR-CPFNO sy-vline 
WA_HBRDF2_2008_2_STR-NOMED sy-vline 
WA_HBRDF2_2008_2_STR-PRE01 sy-vline 
WA_HBRDF2_2008_2_STR-Z0101 sy-vline 
WA_HBRDF2_2008_2_STR-Z0201 sy-vline 
WA_HBRDF2_2008_2_STR-PRE02 sy-vline 
WA_HBRDF2_2008_2_STR-Z0102 sy-vline 
WA_HBRDF2_2008_2_STR-Z0202 sy-vline 
WA_HBRDF2_2008_2_STR-PRE03 sy-vline 
WA_HBRDF2_2008_2_STR-Z0103 sy-vline 
WA_HBRDF2_2008_2_STR-Z0203 sy-vline 
WA_HBRDF2_2008_2_STR-PRE04 sy-vline 
WA_HBRDF2_2008_2_STR-Z0104 sy-vline 
WA_HBRDF2_2008_2_STR-Z0204 sy-vline 
WA_HBRDF2_2008_2_STR-PRE05 sy-vline 
WA_HBRDF2_2008_2_STR-Z0105 sy-vline 
WA_HBRDF2_2008_2_STR-Z0205 sy-vline 
WA_HBRDF2_2008_2_STR-PRE06 sy-vline 
WA_HBRDF2_2008_2_STR-Z0106 sy-vline 
WA_HBRDF2_2008_2_STR-Z0206 sy-vline 
WA_HBRDF2_2008_2_STR-PRE07 sy-vline 
WA_HBRDF2_2008_2_STR-Z0107 sy-vline 
WA_HBRDF2_2008_2_STR-Z0207 sy-vline 
WA_HBRDF2_2008_2_STR-PRE08 sy-vline 
WA_HBRDF2_2008_2_STR-Z0108 sy-vline 
WA_HBRDF2_2008_2_STR-Z0208 sy-vline 
WA_HBRDF2_2008_2_STR-PRE09 sy-vline 
WA_HBRDF2_2008_2_STR-Z0109 sy-vline 
WA_HBRDF2_2008_2_STR-Z0209 sy-vline 
WA_HBRDF2_2008_2_STR-PRE10 sy-vline 
WA_HBRDF2_2008_2_STR-Z0110 sy-vline 
WA_HBRDF2_2008_2_STR-Z0210 sy-vline 
WA_HBRDF2_2008_2_STR-PRE11 sy-vline 
WA_HBRDF2_2008_2_STR-Z0111 sy-vline 
WA_HBRDF2_2008_2_STR-Z0211 sy-vline 
WA_HBRDF2_2008_2_STR-PRE12 sy-vline 
WA_HBRDF2_2008_2_STR-Z0112 sy-vline 
WA_HBRDF2_2008_2_STR-Z0212 sy-vline 
WA_HBRDF2_2008_2_STR-PRE13 sy-vline 
WA_HBRDF2_2008_2_STR-Z0113 sy-vline 
WA_HBRDF2_2008_2_STR-Z0213 sy-vline 
WA_HBRDF2_2008_2_STR-IDTAX sy-vline 
WA_HBRDF2_2008_2_STR-DEDES sy-vline 
WA_HBRDF2_2008_2_STR-FILL8 sy-vline 
WA_HBRDF2_2008_2_STR-USOE2 sy-vline 
WA_HBRDF2_2008_2_STR-USODE sy-vline      INTO ld_text SEPARATED BY SPACE.

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