ABAP Select data from SAP table DB2QGLOTIME 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 DB2QGLOTIME 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 DB2QGLOTIME. 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 DB2QGLOTIME 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_DB2QGLOTIME TYPE STANDARD TABLE OF DB2QGLOTIME,
      WA_DB2QGLOTIME TYPE DB2QGLOTIME,
      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: <DB2QGLOTIME> TYPE DB2QGLOTIME.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM DB2QGLOTIME
*  INTO TABLE @DATA(IT_DB2QGLOTIME2).
*--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_DB2QGLOTIME INDEX 1 INTO DATA(WA_DB2QGLOTIME2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<DB2QGLOTIME>-MEMBNM = 1.
<DB2QGLOTIME>-SNAPDATE = 1.
<DB2QGLOTIME>-SNAPTIME = 1.
<DB2QGLOTIME>-QW0369CN = 1.
<DB2QGLOTIME>-TIMEDELTA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_DB2QGLOTIME-QWACESC, sy-vline,
  WA_DB2QGLOTIME-QWACEJST, sy-vline,
  WA_DB2QGLOTIME-QWACCOMM, sy-vline,
  WA_DB2QGLOTIME-QWACABRT, sy-vline,
  WA_DB2QGLOTIME-QWACASC, sy-vline,
  WA_DB2QGLOTIME-QWACAJST, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_DB2QGLOTIME 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_DB2QGLOTIME 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_DB2QGLOTIME INTO WA_DB2QGLOTIME.


*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_DB2QGLOTIME_STR, 
MEMBNM TYPE STRING,
SNAPDATE TYPE STRING,
SNAPTIME TYPE STRING,
QW0369CN TYPE STRING,
TIMEDELTA TYPE STRING,
QWACESC TYPE STRING,
QWACEJST TYPE STRING,
QWACCOMM TYPE STRING,
QWACABRT TYPE STRING,
QWACASC TYPE STRING,
QWACAJST TYPE STRING,
QWACAWTI TYPE STRING,
QWACAWTL TYPE STRING,
QWACARNA TYPE STRING,
QWACARNE TYPE STRING,
QWACAWTR TYPE STRING,
QWACAWTW TYPE STRING,
QWACAWTE TYPE STRING,
QWACAWLH TYPE STRING,
QWACARNL TYPE STRING,
QWACARNR TYPE STRING,
QWACARNW TYPE STRING,
QWACARNS TYPE STRING,
QWACARLH TYPE STRING,
QWACARLG TYPE STRING,
QWACAWLG TYPE STRING,
QWACALBC TYPE STRING,
QWACALBW TYPE STRING,
QWACAWTP TYPE STRING,
QWACARNH TYPE STRING,
QWACAWTG TYPE STRING,
QWACAWTJ TYPE STRING,
QWACARNG TYPE STRING,
QWACARNJ TYPE STRING,
QWACSPCP TYPE STRING,
QWACSPTT TYPE STRING,
QWACSPNE TYPE STRING,
QWACCAST TYPE STRING,
QWACCANM TYPE STRING,
QWACPCNT TYPE STRING,
QWACSUCV TYPE STRING,
QWACLRN TYPE STRING,
QWACUDCP TYPE STRING,
QWACUDTT TYPE STRING,
QWACUDNE TYPE STRING,
QWACUDST TYPE STRING,
QWACUDEA TYPE STRING,
QWACUDEB TYPE STRING,
QWACTRTT TYPE STRING,
QWACTRET TYPE STRING,
QWACSPEA TYPE STRING,
QWACSPEB TYPE STRING,
QWACTRTE TYPE STRING,
QWACTREE TYPE STRING,
QWACSVPT TYPE STRING,
QWACRLSV TYPE STRING,
QWACRBSV TYPE STRING,
QWACAWTK TYPE STRING,
QWACAWTM TYPE STRING,
QWACAWTN TYPE STRING,
QWACAWTO TYPE STRING,
QWACAWTQ TYPE STRING,
QWACARNK TYPE STRING,
QWACARNM TYPE STRING,
QWACARNN TYPE STRING,
QWACARNO TYPE STRING,
QWACARNQ TYPE STRING,
QWACCLS1_ZIIP TYPE STRING,
QWACCLS2_ZIIP TYPE STRING,
QWACTRTT_ZIIP TYPE STRING,
QWACZIIP_ELIGIBLE TYPE STRING,
QWACSPNF_ZIIP TYPE STRING,
QWACSPNF_ELAP TYPE STRING,
QWACSPNF_CP TYPE STRING,
QWACSP_CLS1SE TYPE STRING,
QWACSP_CLS2SE TYPE STRING,
QWACUDF_CLS1SE TYPE STRING,
QWACUDF_CLS2SE TYPE STRING,
QWACTRTE_SE TYPE STRING,
QWAC_PT_COUNT TYPE STRING,
QWAXALOG TYPE STRING,
QWAXALCT TYPE STRING,
QWAXARND TYPE STRING,
QWAXAWDR TYPE STRING,
QWAXAWCL TYPE STRING,
QWAXARNC TYPE STRING,
QWAXAWAR TYPE STRING,
QWAXANAR TYPE STRING,
QWAXOCSE TYPE STRING,
QWAXSLSE TYPE STRING,
QWAXDSSE TYPE STRING,
QWAXOTSE TYPE STRING,
QWAXOCNS TYPE STRING,
QWAXSLNS TYPE STRING,
QWAXDSNS TYPE STRING,
QWAXOTNS TYPE STRING,
QWAXAWFC TYPE STRING,
QWAXFCCT TYPE STRING,
QWAXIXLE TYPE STRING,
QWAXIXLT TYPE STRING,
QWACLRAB TYPE STRING,
QWAC_AT_WAIT TYPE STRING,
QWAC_AT_COUNT TYPE STRING,
QWAC_PQS_WAIT TYPE STRING,
QWAC_PQS_COUNT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_DB2QGLOTIME_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_DB2QGLOTIME_STR-MEMBNM sy-vline 
WA_DB2QGLOTIME_STR-SNAPDATE sy-vline 
WA_DB2QGLOTIME_STR-SNAPTIME sy-vline 
WA_DB2QGLOTIME_STR-QW0369CN sy-vline 
WA_DB2QGLOTIME_STR-TIMEDELTA sy-vline 
WA_DB2QGLOTIME_STR-QWACESC sy-vline 
WA_DB2QGLOTIME_STR-QWACEJST sy-vline 
WA_DB2QGLOTIME_STR-QWACCOMM sy-vline 
WA_DB2QGLOTIME_STR-QWACABRT sy-vline 
WA_DB2QGLOTIME_STR-QWACASC sy-vline 
WA_DB2QGLOTIME_STR-QWACAJST sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTI sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTL sy-vline 
WA_DB2QGLOTIME_STR-QWACARNA sy-vline 
WA_DB2QGLOTIME_STR-QWACARNE sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTR sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTW sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTE sy-vline 
WA_DB2QGLOTIME_STR-QWACAWLH sy-vline 
WA_DB2QGLOTIME_STR-QWACARNL sy-vline 
WA_DB2QGLOTIME_STR-QWACARNR sy-vline 
WA_DB2QGLOTIME_STR-QWACARNW sy-vline 
WA_DB2QGLOTIME_STR-QWACARNS sy-vline 
WA_DB2QGLOTIME_STR-QWACARLH sy-vline 
WA_DB2QGLOTIME_STR-QWACARLG sy-vline 
WA_DB2QGLOTIME_STR-QWACAWLG sy-vline 
WA_DB2QGLOTIME_STR-QWACALBC sy-vline 
WA_DB2QGLOTIME_STR-QWACALBW sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTP sy-vline 
WA_DB2QGLOTIME_STR-QWACARNH sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTG sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTJ sy-vline 
WA_DB2QGLOTIME_STR-QWACARNG sy-vline 
WA_DB2QGLOTIME_STR-QWACARNJ sy-vline 
WA_DB2QGLOTIME_STR-QWACSPCP sy-vline 
WA_DB2QGLOTIME_STR-QWACSPTT sy-vline 
WA_DB2QGLOTIME_STR-QWACSPNE sy-vline 
WA_DB2QGLOTIME_STR-QWACCAST sy-vline 
WA_DB2QGLOTIME_STR-QWACCANM sy-vline 
WA_DB2QGLOTIME_STR-QWACPCNT sy-vline 
WA_DB2QGLOTIME_STR-QWACSUCV sy-vline 
WA_DB2QGLOTIME_STR-QWACLRN sy-vline 
WA_DB2QGLOTIME_STR-QWACUDCP sy-vline 
WA_DB2QGLOTIME_STR-QWACUDTT sy-vline 
WA_DB2QGLOTIME_STR-QWACUDNE sy-vline 
WA_DB2QGLOTIME_STR-QWACUDST sy-vline 
WA_DB2QGLOTIME_STR-QWACUDEA sy-vline 
WA_DB2QGLOTIME_STR-QWACUDEB sy-vline 
WA_DB2QGLOTIME_STR-QWACTRTT sy-vline 
WA_DB2QGLOTIME_STR-QWACTRET sy-vline 
WA_DB2QGLOTIME_STR-QWACSPEA sy-vline 
WA_DB2QGLOTIME_STR-QWACSPEB sy-vline 
WA_DB2QGLOTIME_STR-QWACTRTE sy-vline 
WA_DB2QGLOTIME_STR-QWACTREE sy-vline 
WA_DB2QGLOTIME_STR-QWACSVPT sy-vline 
WA_DB2QGLOTIME_STR-QWACRLSV sy-vline 
WA_DB2QGLOTIME_STR-QWACRBSV sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTK sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTM sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTN sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTO sy-vline 
WA_DB2QGLOTIME_STR-QWACAWTQ sy-vline 
WA_DB2QGLOTIME_STR-QWACARNK sy-vline 
WA_DB2QGLOTIME_STR-QWACARNM sy-vline 
WA_DB2QGLOTIME_STR-QWACARNN sy-vline 
WA_DB2QGLOTIME_STR-QWACARNO sy-vline 
WA_DB2QGLOTIME_STR-QWACARNQ sy-vline 
WA_DB2QGLOTIME_STR-QWACCLS1_ZIIP sy-vline 
WA_DB2QGLOTIME_STR-QWACCLS2_ZIIP sy-vline 
WA_DB2QGLOTIME_STR-QWACTRTT_ZIIP sy-vline 
WA_DB2QGLOTIME_STR-QWACZIIP_ELIGIBLE sy-vline 
WA_DB2QGLOTIME_STR-QWACSPNF_ZIIP sy-vline 
WA_DB2QGLOTIME_STR-QWACSPNF_ELAP sy-vline 
WA_DB2QGLOTIME_STR-QWACSPNF_CP sy-vline 
WA_DB2QGLOTIME_STR-QWACSP_CLS1SE sy-vline 
WA_DB2QGLOTIME_STR-QWACSP_CLS2SE sy-vline 
WA_DB2QGLOTIME_STR-QWACUDF_CLS1SE sy-vline 
WA_DB2QGLOTIME_STR-QWACUDF_CLS2SE sy-vline 
WA_DB2QGLOTIME_STR-QWACTRTE_SE sy-vline 
WA_DB2QGLOTIME_STR-QWAC_PT_COUNT sy-vline 
WA_DB2QGLOTIME_STR-QWAXALOG sy-vline 
WA_DB2QGLOTIME_STR-QWAXALCT sy-vline 
WA_DB2QGLOTIME_STR-QWAXARND sy-vline 
WA_DB2QGLOTIME_STR-QWAXAWDR sy-vline 
WA_DB2QGLOTIME_STR-QWAXAWCL sy-vline 
WA_DB2QGLOTIME_STR-QWAXARNC sy-vline 
WA_DB2QGLOTIME_STR-QWAXAWAR sy-vline 
WA_DB2QGLOTIME_STR-QWAXANAR sy-vline 
WA_DB2QGLOTIME_STR-QWAXOCSE sy-vline 
WA_DB2QGLOTIME_STR-QWAXSLSE sy-vline 
WA_DB2QGLOTIME_STR-QWAXDSSE sy-vline 
WA_DB2QGLOTIME_STR-QWAXOTSE sy-vline 
WA_DB2QGLOTIME_STR-QWAXOCNS sy-vline 
WA_DB2QGLOTIME_STR-QWAXSLNS sy-vline 
WA_DB2QGLOTIME_STR-QWAXDSNS sy-vline 
WA_DB2QGLOTIME_STR-QWAXOTNS sy-vline 
WA_DB2QGLOTIME_STR-QWAXAWFC sy-vline 
WA_DB2QGLOTIME_STR-QWAXFCCT sy-vline 
WA_DB2QGLOTIME_STR-QWAXIXLE sy-vline 
WA_DB2QGLOTIME_STR-QWAXIXLT sy-vline 
WA_DB2QGLOTIME_STR-QWACLRAB sy-vline 
WA_DB2QGLOTIME_STR-QWAC_AT_WAIT sy-vline 
WA_DB2QGLOTIME_STR-QWAC_AT_COUNT sy-vline 
WA_DB2QGLOTIME_STR-QWAC_PQS_WAIT sy-vline 
WA_DB2QGLOTIME_STR-QWAC_PQS_COUNT sy-vline      INTO ld_text SEPARATED BY SPACE.

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