ABAP Select data from SAP table DB2JOBPROFILE 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 DB2JOBPROFILE 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 DB2JOBPROFILE. 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 DB2JOBPROFILE 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_DB2JOBPROFILE TYPE STANDARD TABLE OF DB2JOBPROFILE,
      WA_DB2JOBPROFILE TYPE DB2JOBPROFILE,
      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: <DB2JOBPROFILE> TYPE DB2JOBPROFILE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM DB2JOBPROFILE
*  INTO TABLE @DATA(IT_DB2JOBPROFILE2).
*--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_DB2JOBPROFILE INDEX 1 INTO DATA(WA_DB2JOBPROFILE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<DB2JOBPROFILE>-ALREADY_READ = 1.
<DB2JOBPROFILE>-SUBSYSTEM_ID = 1.
<DB2JOBPROFILE>-DB2_LOAD_LIB = 1.
<DB2JOBPROFILE>-DB2_RUN_LIB = 1.
<DB2JOBPROFILE>-PLAN_DSNTIAD = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_DB2JOBPROFILE-DAYS_TO_KEEP, sy-vline,
  WA_DB2JOBPROFILE-HIGH_LEVEL_QUAL, sy-vline,
  WA_DB2JOBPROFILE-HLQ_WORK, sy-vline,
  WA_DB2JOBPROFILE-JOB_RESULT, sy-vline,
  WA_DB2JOBPROFILE-SMS_MGMTCLAS, sy-vline,
  WA_DB2JOBPROFILE-SMS_STORCLAS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_DB2JOBPROFILE 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_DB2JOBPROFILE 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_DB2JOBPROFILE INTO WA_DB2JOBPROFILE.


*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_DB2JOBPROFILE_STR, 
ALREADY_READ TYPE STRING,
SUBSYSTEM_ID TYPE STRING,
DB2_LOAD_LIB TYPE STRING,
DB2_RUN_LIB TYPE STRING,
PLAN_DSNTIAD TYPE STRING,
DAYS_TO_KEEP TYPE STRING,
HIGH_LEVEL_QUAL TYPE STRING,
HLQ_WORK TYPE STRING,
JOB_RESULT TYPE STRING,
SMS_MGMTCLAS TYPE STRING,
SMS_STORCLAS TYPE STRING,
SMS_DATACLAS TYPE STRING,
VOLUME_COUNT TYPE STRING,
RUNST_PDEG TYPE STRING,
SAMPLE_LOW TYPE STRING,
SAMPLE_MED TYPE STRING,
SAMPLE_HIGH TYPE STRING,
SAMPLE TYPE STRING,
SAMPLE_TYPE TYPE STRING,
CHANGE_LIMIT TYPE STRING,
COPY_PDEG TYPE STRING,
OUTCLASS TYPE STRING,
REORG_RDEG TYPE STRING,
REORG_WORKDS_SIZE TYPE STRING,
PDS TYPE STRING,
PLAN_ACTION TYPE STRING,
HASPINDX TYPE STRING,
CONSOLE TYPE STRING,
EXTENTS_HIGH TYPE STRING,
EXTENTS_LOW TYPE STRING,
RUNST_UPDATE TYPE STRING,
CARDF_SET TYPE STRING,
NPAGES_SET TYPE STRING,
NPAGES_SET1 TYPE STRING,
NPAGES_WHERE TYPE STRING,
NPAGES_WHERE1 TYPE STRING,
NPAGES_WHERE2 TYPE STRING,
NPAGES_WHERE3 TYPE STRING,
CARD_SET TYPE STRING,
NACTIVE_SET TYPE STRING,
NACTIVE_WHERE TYPE STRING,
NACTIVE_WHERE2 TYPE STRING,
CLUSTERRATIO TYPE STRING,
FIRSTKEYCARDF TYPE STRING,
FULLKEYCARDF TYPE STRING,
COLCARDF TYPE STRING,
FIRSTKEYCARDF_THR TYPE STRING,
COLCARDF_THR TYPE STRING,
SAPOSCOLDIR TYPE STRING,
SAPOSCOLDEST TYPE STRING,
DBTRCSZ TYPE STRING,
RUNSTALL_JOBNAME TYPE STRING,
RUNSTALL_MEMNAME TYPE STRING,
RUNSTONE_JOBNAME TYPE STRING,
RUNSTONE_MEMNAME TYPE STRING,
RUNSTALR_JOBNAME TYPE STRING,
RUNSTALR_MEMNAME TYPE STRING,
RECOVIX_JOBNAME TYPE STRING,
RECOVIX_MEMNAME TYPE STRING,
RECOVTS_JOBNAME TYPE STRING,
RECOVTS_MEMNAME TYPE STRING,
REBUIIX_JOBNAME TYPE STRING,
REBUIIX_MEMNAME TYPE STRING,
REOALLIX_JOBNAME TYPE STRING,
REOALLIX_MEMNAME TYPE STRING,
REORGIX_JOBNAME TYPE STRING,
REORGIX_MEMNAME TYPE STRING,
REOALLTS_JOBNAME TYPE STRING,
REOALLTS_MEMNAME TYPE STRING,
REOALLTS_LOBHANDLING TYPE STRING,
REOALLTS_COPYHANDLING TYPE STRING,
REORGTS_JOBNAME TYPE STRING,
REORGTS_MEMNAME TYPE STRING,
FICOPY_JOBNAME TYPE STRING,
FICOPY_MEMNAME TYPE STRING,
FSYSCPY_MEMNAME TYPE STRING,
IICOPY_JOBNAME TYPE STRING,
IICOPY_MEMNAME TYPE STRING,
ISYSCPY_MEMNAME TYPE STRING,
QUIESCE_JOBNAME TYPE STRING,
QUIESCE_MEMNAME TYPE STRING,
UPDCATAL_JOBNAME TYPE STRING,
UPDCATAL_MEMNAME TYPE STRING,
RUNONETS_TYPE TYPE STRING,
REBIX_TYPE TYPE STRING,
FAIL_SUBSYSTEM_ID TYPE STRING,
FAIL_DB2_LOAD_LIB TYPE STRING,
FAIL_DB2_RUN_LIB TYPE STRING,
FAIL_PLAN_DSNTIAD TYPE STRING,
FAIL_OUTCLASS TYPE STRING,
USE_SP TYPE STRING,
SP_GDG_GENERATIONS TYPE STRING,
SP_MOD_REC_AGE TYPE STRING,
SP_MOD_STAT_AGE TYPE STRING,
SP_PROTECT_SKEL TYPE STRING,
SP_RESTART_OPT TYPE STRING,
COLLECT_DB20_DATA TYPE STRING,
RUNSTATS_ON_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,END OF T_EKKO_STR.
DATA: WA_DB2JOBPROFILE_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_DB2JOBPROFILE_STR-ALREADY_READ sy-vline 
WA_DB2JOBPROFILE_STR-SUBSYSTEM_ID sy-vline 
WA_DB2JOBPROFILE_STR-DB2_LOAD_LIB sy-vline 
WA_DB2JOBPROFILE_STR-DB2_RUN_LIB sy-vline 
WA_DB2JOBPROFILE_STR-PLAN_DSNTIAD sy-vline 
WA_DB2JOBPROFILE_STR-DAYS_TO_KEEP sy-vline 
WA_DB2JOBPROFILE_STR-HIGH_LEVEL_QUAL sy-vline 
WA_DB2JOBPROFILE_STR-HLQ_WORK sy-vline 
WA_DB2JOBPROFILE_STR-JOB_RESULT sy-vline 
WA_DB2JOBPROFILE_STR-SMS_MGMTCLAS sy-vline 
WA_DB2JOBPROFILE_STR-SMS_STORCLAS sy-vline 
WA_DB2JOBPROFILE_STR-SMS_DATACLAS sy-vline 
WA_DB2JOBPROFILE_STR-VOLUME_COUNT sy-vline 
WA_DB2JOBPROFILE_STR-RUNST_PDEG sy-vline 
WA_DB2JOBPROFILE_STR-SAMPLE_LOW sy-vline 
WA_DB2JOBPROFILE_STR-SAMPLE_MED sy-vline 
WA_DB2JOBPROFILE_STR-SAMPLE_HIGH sy-vline 
WA_DB2JOBPROFILE_STR-SAMPLE sy-vline 
WA_DB2JOBPROFILE_STR-SAMPLE_TYPE sy-vline 
WA_DB2JOBPROFILE_STR-CHANGE_LIMIT sy-vline 
WA_DB2JOBPROFILE_STR-COPY_PDEG sy-vline 
WA_DB2JOBPROFILE_STR-OUTCLASS sy-vline 
WA_DB2JOBPROFILE_STR-REORG_RDEG sy-vline 
WA_DB2JOBPROFILE_STR-REORG_WORKDS_SIZE sy-vline 
WA_DB2JOBPROFILE_STR-PDS sy-vline 
WA_DB2JOBPROFILE_STR-PLAN_ACTION sy-vline 
WA_DB2JOBPROFILE_STR-HASPINDX sy-vline 
WA_DB2JOBPROFILE_STR-CONSOLE sy-vline 
WA_DB2JOBPROFILE_STR-EXTENTS_HIGH sy-vline 
WA_DB2JOBPROFILE_STR-EXTENTS_LOW sy-vline 
WA_DB2JOBPROFILE_STR-RUNST_UPDATE sy-vline 
WA_DB2JOBPROFILE_STR-CARDF_SET sy-vline 
WA_DB2JOBPROFILE_STR-NPAGES_SET sy-vline 
WA_DB2JOBPROFILE_STR-NPAGES_SET1 sy-vline 
WA_DB2JOBPROFILE_STR-NPAGES_WHERE sy-vline 
WA_DB2JOBPROFILE_STR-NPAGES_WHERE1 sy-vline 
WA_DB2JOBPROFILE_STR-NPAGES_WHERE2 sy-vline 
WA_DB2JOBPROFILE_STR-NPAGES_WHERE3 sy-vline 
WA_DB2JOBPROFILE_STR-CARD_SET sy-vline 
WA_DB2JOBPROFILE_STR-NACTIVE_SET sy-vline 
WA_DB2JOBPROFILE_STR-NACTIVE_WHERE sy-vline 
WA_DB2JOBPROFILE_STR-NACTIVE_WHERE2 sy-vline 
WA_DB2JOBPROFILE_STR-CLUSTERRATIO sy-vline 
WA_DB2JOBPROFILE_STR-FIRSTKEYCARDF sy-vline 
WA_DB2JOBPROFILE_STR-FULLKEYCARDF sy-vline 
WA_DB2JOBPROFILE_STR-COLCARDF sy-vline 
WA_DB2JOBPROFILE_STR-FIRSTKEYCARDF_THR sy-vline 
WA_DB2JOBPROFILE_STR-COLCARDF_THR sy-vline 
WA_DB2JOBPROFILE_STR-SAPOSCOLDIR sy-vline 
WA_DB2JOBPROFILE_STR-SAPOSCOLDEST sy-vline 
WA_DB2JOBPROFILE_STR-DBTRCSZ sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTALL_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTALL_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTONE_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTONE_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTALR_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTALR_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-RECOVIX_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-RECOVIX_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-RECOVTS_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-RECOVTS_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-REBUIIX_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-REBUIIX_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-REOALLIX_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-REOALLIX_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-REORGIX_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-REORGIX_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-REOALLTS_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-REOALLTS_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-REOALLTS_LOBHANDLING sy-vline 
WA_DB2JOBPROFILE_STR-REOALLTS_COPYHANDLING sy-vline 
WA_DB2JOBPROFILE_STR-REORGTS_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-REORGTS_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-FICOPY_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-FICOPY_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-FSYSCPY_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-IICOPY_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-IICOPY_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-ISYSCPY_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-QUIESCE_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-QUIESCE_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-UPDCATAL_JOBNAME sy-vline 
WA_DB2JOBPROFILE_STR-UPDCATAL_MEMNAME sy-vline 
WA_DB2JOBPROFILE_STR-RUNONETS_TYPE sy-vline 
WA_DB2JOBPROFILE_STR-REBIX_TYPE sy-vline 
WA_DB2JOBPROFILE_STR-FAIL_SUBSYSTEM_ID sy-vline 
WA_DB2JOBPROFILE_STR-FAIL_DB2_LOAD_LIB sy-vline 
WA_DB2JOBPROFILE_STR-FAIL_DB2_RUN_LIB sy-vline 
WA_DB2JOBPROFILE_STR-FAIL_PLAN_DSNTIAD sy-vline 
WA_DB2JOBPROFILE_STR-FAIL_OUTCLASS sy-vline 
WA_DB2JOBPROFILE_STR-USE_SP sy-vline 
WA_DB2JOBPROFILE_STR-SP_GDG_GENERATIONS sy-vline 
WA_DB2JOBPROFILE_STR-SP_MOD_REC_AGE sy-vline 
WA_DB2JOBPROFILE_STR-SP_MOD_STAT_AGE sy-vline 
WA_DB2JOBPROFILE_STR-SP_PROTECT_SKEL sy-vline 
WA_DB2JOBPROFILE_STR-SP_RESTART_OPT sy-vline 
WA_DB2JOBPROFILE_STR-COLLECT_DB20_DATA sy-vline 
WA_DB2JOBPROFILE_STR-RUNSTATS_ON_CATALOG sy-vline 
WA_DB2JOBPROFILE_STR-SP_USER sy-vline 
WA_DB2JOBPROFILE_STR-COPY_ALL sy-vline 
WA_DB2JOBPROFILE_STR-COPY_PART sy-vline 
WA_DB2JOBPROFILE_STR-BW_REO_RST sy-vline 
WA_DB2JOBPROFILE_STR-REORG_OTHERS sy-vline 
WA_DB2JOBPROFILE_STR-RUNST_OTHERS sy-vline 
WA_DB2JOBPROFILE_STR-DEFAULT_PRIQTY sy-vline 
WA_DB2JOBPROFILE_STR-DEFAULT_SECQTY sy-vline 
WA_DB2JOBPROFILE_STR-MAXPRIME sy-vline 
WA_DB2JOBPROFILE_STR-BSDS sy-vline 
WA_DB2JOBPROFILE_STR-USE_ADMIN_SP sy-vline      INTO ld_text SEPARATED BY SPACE.

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