ABAP Select data from SAP table DB2_JOBPROFILE_DATA 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 DB2_JOBPROFILE_DATA 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 DB2_JOBPROFILE_DATA. 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 DB2_JOBPROFILE_DATA 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_DB2_JOBPROFILE_DATA TYPE STANDARD TABLE OF DB2_JOBPROFILE_DATA,
      WA_DB2_JOBPROFILE_DATA TYPE DB2_JOBPROFILE_DATA,
      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: <DB2_JOBPROFILE_DATA> TYPE DB2_JOBPROFILE_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM DB2_JOBPROFILE_DATA
*  INTO TABLE @DATA(IT_DB2_JOBPROFILE_DATA2).
*--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_DB2_JOBPROFILE_DATA INDEX 1 INTO DATA(WA_DB2_JOBPROFILE_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<DB2_JOBPROFILE_DATA>-DB2_LOAD_LIB = 1.
<DB2_JOBPROFILE_DATA>-DB2_RUN_LIB = 1.
<DB2_JOBPROFILE_DATA>-PLANTIAD = 1.
<DB2_JOBPROFILE_DATA>-KEEP_DAYS = 1.
<DB2_JOBPROFILE_DATA>-HLQ = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_DB2_JOBPROFILE_DATA-HIGHLQ_WORK, sy-vline,
  WA_DB2_JOBPROFILE_DATA-JOB_RESULTS, sy-vline,
  WA_DB2_JOBPROFILE_DATA-MGMTCLAS, sy-vline,
  WA_DB2_JOBPROFILE_DATA-STORCLAS, sy-vline,
  WA_DB2_JOBPROFILE_DATA-DATACLAS, sy-vline,
  WA_DB2_JOBPROFILE_DATA-VOLCNT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_DB2_JOBPROFILE_DATA 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_DB2_JOBPROFILE_DATA 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_DB2_JOBPROFILE_DATA INTO WA_DB2_JOBPROFILE_DATA.


*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_DB2_JOBPROFILE_DATA_STR, 
DB2_LOAD_LIB TYPE STRING,
DB2_RUN_LIB TYPE STRING,
PLANTIAD TYPE STRING,
KEEP_DAYS TYPE STRING,
HLQ TYPE STRING,
HIGHLQ_WORK TYPE STRING,
JOB_RESULTS TYPE STRING,
MGMTCLAS TYPE STRING,
STORCLAS TYPE STRING,
DATACLAS TYPE STRING,
VOLCNT TYPE STRING,
PDEG TYPE STRING,
SLOW TYPE STRING,
SMED TYPE STRING,
SHIGH TYPE STRING,
SAMP TYPE STRING,
SAMPLE_TYPE TYPE STRING,
CLIM TYPE STRING,
CPDEG TYPE STRING,
O TYPE STRING,
RDEG TYPE STRING,
WD TYPE STRING,
PDSU TYPE STRING,
PLAN_ACT TYPE STRING,
HASP TYPE STRING,
CONS TYPE STRING,
EXT_HIGH TYPE STRING,
EXT_LOW TYPE STRING,
RUNST_UPD TYPE STRING,
CARDFS TYPE STRING,
NPAG_W TYPE STRING,
CARDS TYPE STRING,
NACT_S TYPE STRING,
NACT_W TYPE STRING,
RUNSTALLID TYPE STRING,
RUNALLMEMN TYPE STRING,
RUNSTONEID TYPE STRING,
RUNONEMEMN TYPE STRING,
RUNSTALRID TYPE STRING,
RUNALRMEMN TYPE STRING,
RECOVIXID TYPE STRING,
RECIXMEMN TYPE STRING,
RECOVTSID TYPE STRING,
RECTSMEMN TYPE STRING,
REBUIIXID TYPE STRING,
REBIXMEMN TYPE STRING,
REOALLIXID TYPE STRING,
REOALLIXMEMN TYPE STRING,
REORGIXID TYPE STRING,
REOIXMEMN TYPE STRING,
REOALLTSID TYPE STRING,
REOALLTSMEMN TYPE STRING,
REOALLTSLOB TYPE STRING,
REOALLTSCOPY TYPE STRING,
REORGTSID TYPE STRING,
REOTSMEMN TYPE STRING,
FICOPYID TYPE STRING,
FICOPYMEMN TYPE STRING,
IICPYSYSMEMN TYPE STRING,
IICOPYID TYPE STRING,
IICOPYMEMN TYPE STRING,
FICPYSYSMEMN TYPE STRING,
UPDCATALID TYPE STRING,
UPDCATALMEMN TYPE STRING,
STOPROC TYPE STRING,
GDG_GENERATIONS TYPE STRING,
MOD_REC_AGE TYPE STRING,
MOD_STAT_AGE TYPE STRING,
RESTART_OPT TYPE STRING,
DB20_DATA TYPE STRING,
RUNSTATS_CATALOG TYPE STRING,
SP_USER TYPE STRING,
COPY_ALL TYPE STRING,
COPY_PART TYPE STRING,
BW_REO_RST TYPE STRING,
REORG_OTHERS TYPE STRING,
RUNST_OTHERS TYPE STRING,
DEFAULT_PRIQTY TYPE STRING,
DEFAULT_SECQTY TYPE STRING,
MAXPRIME TYPE STRING,
BSDS TYPE STRING,
USE_ADMIN_SP TYPE STRING,
NPAGES TYPE STRING,
COL_DEST TYPE STRING,
ACCOR_CALLER TYPE STRING,
CONVTOOL_OBJECTS TYPE STRING,
HSM_JOBNAME TYPE STRING,
CONVTOOL_BP4K TYPE STRING,
CONVTOOL_BP8K TYPE STRING,
CONVTOOL_BP16K TYPE STRING,
CONVTOOL_BP32K TYPE STRING,
REORG_USE_DEADLINE TYPE STRING,
REORG_DEADLINE_TIME TYPE STRING,END OF T_EKKO_STR.
DATA: WA_DB2_JOBPROFILE_DATA_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_DB2_JOBPROFILE_DATA_STR-DB2_LOAD_LIB sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-DB2_RUN_LIB sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-PLANTIAD sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-KEEP_DAYS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-HLQ sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-HIGHLQ_WORK sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-JOB_RESULTS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-MGMTCLAS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-STORCLAS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-DATACLAS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-VOLCNT sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-PDEG sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-SLOW sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-SMED sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-SHIGH sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-SAMP sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-SAMPLE_TYPE sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CLIM sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CPDEG sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-O sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RDEG sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-WD sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-PDSU sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-PLAN_ACT sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-HASP sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CONS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-EXT_HIGH sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-EXT_LOW sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNST_UPD sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CARDFS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-NPAG_W sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CARDS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-NACT_S sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-NACT_W sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNSTALLID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNALLMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNSTONEID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNONEMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNSTALRID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNALRMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RECOVIXID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RECIXMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RECOVTSID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RECTSMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REBUIIXID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REBIXMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOALLIXID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOALLIXMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REORGIXID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOIXMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOALLTSID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOALLTSMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOALLTSLOB sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOALLTSCOPY sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REORGTSID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REOTSMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-FICOPYID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-FICOPYMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-IICPYSYSMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-IICOPYID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-IICOPYMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-FICPYSYSMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-UPDCATALID sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-UPDCATALMEMN sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-STOPROC sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-GDG_GENERATIONS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-MOD_REC_AGE sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-MOD_STAT_AGE sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RESTART_OPT sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-DB20_DATA sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNSTATS_CATALOG sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-SP_USER sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-COPY_ALL sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-COPY_PART sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-BW_REO_RST sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REORG_OTHERS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-RUNST_OTHERS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-DEFAULT_PRIQTY sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-DEFAULT_SECQTY sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-MAXPRIME sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-BSDS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-USE_ADMIN_SP sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-NPAGES sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-COL_DEST sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-ACCOR_CALLER sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CONVTOOL_OBJECTS sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-HSM_JOBNAME sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CONVTOOL_BP4K sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CONVTOOL_BP8K sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CONVTOOL_BP16K sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-CONVTOOL_BP32K sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REORG_USE_DEADLINE sy-vline 
WA_DB2_JOBPROFILE_DATA_STR-REORG_DEADLINE_TIME sy-vline      INTO ld_text SEPARATED BY SPACE.

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