ABAP Select data from SAP table DB2NETSTR 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 DB2NETSTR 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 DB2NETSTR. 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 DB2NETSTR 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_DB2NETSTR TYPE STANDARD TABLE OF DB2NETSTR,
      WA_DB2NETSTR TYPE DB2NETSTR,
      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: <DB2NETSTR> TYPE DB2NETSTR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM DB2NETSTR
*  INTO TABLE @DATA(IT_DB2NETSTR2).
*--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_DB2NETSTR INDEX 1 INTO DATA(WA_DB2NETSTR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<DB2NETSTR>-TRANSCARD = 1.
<DB2NETSTR>-TRANSMGRP = 1.
<DB2NETSTR>-SQLSTMTS = 1.
<DB2NETSTR>-SQLCHAINS = 1.
<DB2NETSTR>-BYTESSENT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_DB2NETSTR-BYTESREC, sy-vline,
  WA_DB2NETSTR-BYTESSMAX, sy-vline,
  WA_DB2NETSTR-BYTESRMAX, sy-vline,
  WA_DB2NETSTR-BYTESSMIN, sy-vline,
  WA_DB2NETSTR-BYTESRMIN, sy-vline,
  WA_DB2NETSTR-SENT128, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_DB2NETSTR 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_DB2NETSTR 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_DB2NETSTR INTO WA_DB2NETSTR.


*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_DB2NETSTR_STR, 
TRANSCARD TYPE STRING,
TRANSMGRP TYPE STRING,
SQLSTMTS TYPE STRING,
SQLCHAINS TYPE STRING,
BYTESSENT TYPE STRING,
BYTESREC TYPE STRING,
BYTESSMAX TYPE STRING,
BYTESRMAX TYPE STRING,
BYTESSMIN TYPE STRING,
BYTESRMIN TYPE STRING,
SENT128 TYPE STRING,
SENT256 TYPE STRING,
SENT512 TYPE STRING,
SENT1K TYPE STRING,
SENT2K TYPE STRING,
SENT4K TYPE STRING,
SENT8K TYPE STRING,
SENT16K TYPE STRING,
SENT32K TYPE STRING,
SENT64K TYPE STRING,
SENTGT64K TYPE STRING,
REC128 TYPE STRING,
REC256 TYPE STRING,
REC512 TYPE STRING,
REC1K TYPE STRING,
REC2K TYPE STRING,
REC4K TYPE STRING,
REC8K TYPE STRING,
REC16K TYPE STRING,
REC32K TYPE STRING,
REC64K TYPE STRING,
RECGT64K TYPE STRING,
TIME1MS TYPE STRING,
TIME4MS TYPE STRING,
TIME16MS TYPE STRING,
TIME01S TYPE STRING,
TIME05S TYPE STRING,
TIMEGT05 TYPE STRING,
TIMEMAX TYPE STRING,
TIMEMAXM TYPE STRING,
TIMEMIN TYPE STRING,
TIMEMINM TYPE STRING,
EXECTIME TYPE STRING,
EXECTIMEM TYPE STRING,
HOSTRESP TYPE STRING,
HOSTRESPM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_DB2NETSTR_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_DB2NETSTR_STR-TRANSCARD sy-vline 
WA_DB2NETSTR_STR-TRANSMGRP sy-vline 
WA_DB2NETSTR_STR-SQLSTMTS sy-vline 
WA_DB2NETSTR_STR-SQLCHAINS sy-vline 
WA_DB2NETSTR_STR-BYTESSENT sy-vline 
WA_DB2NETSTR_STR-BYTESREC sy-vline 
WA_DB2NETSTR_STR-BYTESSMAX sy-vline 
WA_DB2NETSTR_STR-BYTESRMAX sy-vline 
WA_DB2NETSTR_STR-BYTESSMIN sy-vline 
WA_DB2NETSTR_STR-BYTESRMIN sy-vline 
WA_DB2NETSTR_STR-SENT128 sy-vline 
WA_DB2NETSTR_STR-SENT256 sy-vline 
WA_DB2NETSTR_STR-SENT512 sy-vline 
WA_DB2NETSTR_STR-SENT1K sy-vline 
WA_DB2NETSTR_STR-SENT2K sy-vline 
WA_DB2NETSTR_STR-SENT4K sy-vline 
WA_DB2NETSTR_STR-SENT8K sy-vline 
WA_DB2NETSTR_STR-SENT16K sy-vline 
WA_DB2NETSTR_STR-SENT32K sy-vline 
WA_DB2NETSTR_STR-SENT64K sy-vline 
WA_DB2NETSTR_STR-SENTGT64K sy-vline 
WA_DB2NETSTR_STR-REC128 sy-vline 
WA_DB2NETSTR_STR-REC256 sy-vline 
WA_DB2NETSTR_STR-REC512 sy-vline 
WA_DB2NETSTR_STR-REC1K sy-vline 
WA_DB2NETSTR_STR-REC2K sy-vline 
WA_DB2NETSTR_STR-REC4K sy-vline 
WA_DB2NETSTR_STR-REC8K sy-vline 
WA_DB2NETSTR_STR-REC16K sy-vline 
WA_DB2NETSTR_STR-REC32K sy-vline 
WA_DB2NETSTR_STR-REC64K sy-vline 
WA_DB2NETSTR_STR-RECGT64K sy-vline 
WA_DB2NETSTR_STR-TIME1MS sy-vline 
WA_DB2NETSTR_STR-TIME4MS sy-vline 
WA_DB2NETSTR_STR-TIME16MS sy-vline 
WA_DB2NETSTR_STR-TIME01S sy-vline 
WA_DB2NETSTR_STR-TIME05S sy-vline 
WA_DB2NETSTR_STR-TIMEGT05 sy-vline 
WA_DB2NETSTR_STR-TIMEMAX sy-vline 
WA_DB2NETSTR_STR-TIMEMAXM sy-vline 
WA_DB2NETSTR_STR-TIMEMIN sy-vline 
WA_DB2NETSTR_STR-TIMEMINM sy-vline 
WA_DB2NETSTR_STR-EXECTIME sy-vline 
WA_DB2NETSTR_STR-EXECTIMEM sy-vline 
WA_DB2NETSTR_STR-HOSTRESP sy-vline 
WA_DB2NETSTR_STR-HOSTRESPM sy-vline      INTO ld_text SEPARATED BY SPACE.

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