ABAP Select data from SAP table DB2_VIEW_JOBPROFILE into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP DB2_VIEW_JOBPROFILE 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_VIEW_JOBPROFILE. 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_VIEW_JOBPROFILE 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_VIEW_JOBPROFILE TYPE STANDARD TABLE OF DB2_VIEW_JOBPROFILE,
WA_DB2_VIEW_JOBPROFILE TYPE DB2_VIEW_JOBPROFILE,
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_VIEW_JOBPROFILE> TYPE DB2_VIEW_JOBPROFILE.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_DB2_VIEW_JOBPROFILE.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM DB2_VIEW_JOBPROFILE
INTO TABLE IT_DB2_VIEW_JOBPROFILE.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM DB2_VIEW_JOBPROFILE
* INTO TABLE @DATA(IT_DB2_VIEW_JOBPROFILE2).
*--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_VIEW_JOBPROFILE INDEX 1 INTO DATA(WA_DB2_VIEW_JOBPROFILE2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_DB2_VIEW_JOBPROFILE ASSIGNING <DB2_VIEW_JOBPROFILE>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<DB2_VIEW_JOBPROFILE>-JOB_PROFILE = 1.
<DB2_VIEW_JOBPROFILE>-DB2_LOAD_LIB = 1.
<DB2_VIEW_JOBPROFILE>-DB2_RUN_LIB = 1.
<DB2_VIEW_JOBPROFILE>-PLANTIAD = 1.
<DB2_VIEW_JOBPROFILE>-KEEP_DAYS = 1.
ENDLOOP. LOOP AT IT_DB2_VIEW_JOBPROFILE INTO WA_DB2_VIEW_JOBPROFILE. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_DB2_VIEW_JOBPROFILE-HLQ, sy-vline,
WA_DB2_VIEW_JOBPROFILE-HIGHLQ_WORK, sy-vline,
WA_DB2_VIEW_JOBPROFILE-JOB_RESULTS, sy-vline,
WA_DB2_VIEW_JOBPROFILE-MGMTCLAS, sy-vline,
WA_DB2_VIEW_JOBPROFILE-STORCLAS, sy-vline,
WA_DB2_VIEW_JOBPROFILE-DATACLAS, sy-vline.
ENDLOOP. *Add any further fields from structure WA_DB2_VIEW_JOBPROFILE 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_VIEW_JOBPROFILE 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_VIEW_JOBPROFILE INTO WA_DB2_VIEW_JOBPROFILE. *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_VIEW_JOBPROFILE_STR,
JOB_PROFILE TYPE STRING,
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,
JOB_RESULT_ALL_RADIO TYPE STRING,
JOB_RESULT_3RD_RADIO TYPE STRING,
LOW_RADIO TYPE STRING,
MEDIUM_RADIO TYPE STRING,
HIGH_RADIO TYPE STRING,
SUBMIT_RADIO TYPE STRING,
UPLOAD_RADIO TYPE STRING,
RUNST_NOUPD_RADIO TYPE STRING,
RUNST_UPD_RADIO TYPE STRING,
REORG_COPY_RADIO TYPE STRING,
REORG_BOTH_RADIO TYPE STRING,
REORG_BW_REO_RST_CHECKBOX TYPE STRING,
REORG_NO_LOB_RADIO TYPE STRING,
REORG_ALL_TS_RADIO TYPE STRING,
REORG_ONLY_LOB_RADIO TYPE STRING,
SP_PROTECT_SKEL_RADIO TYPE STRING,
SP_CHANGE_SKEL_RADIO TYPE STRING,
USE_ADMIN_SP_CHECKBOX TYPE STRING,
COPY_ALL_RADIO TYPE STRING,
COPY_JAVA_RADIO TYPE STRING,
COPY_ABAP_RADIO TYPE STRING,
COPY_PART_CHECKBOX TYPE STRING,
COLLECT_DB20_DATA_CHECKBOX TYPE STRING,
RUNSTATS_ON_CATALOG_CHECKBOX TYPE STRING,
REORG_OTHERS_CHECKBOX TYPE STRING,
RUNST_OTHERS_CHECKBOX TYPE STRING,
SECURITY_CONNECT_RADIO TYPE STRING,
SECURITY_ADMIN_RADIO TYPE STRING,
SECURITY_USER_RADIO TYPE STRING,
TSOBOX TYPE STRING,
SSID_LIST TYPE STRING,
SSID TYPE STRING,
PW_ID1_TXT TYPE STRING,
PW_ID2_TXT TYPE STRING,
PSW_SET_ICON TYPE STRING,
SECURITY_USER_NAME TYPE STRING,
SELECTED_USER TYPE STRING,
ACCOR_CALLER_CHECKBOX TYPE STRING,
REORG_USE_DEADLINE_CHECKBOX TYPE STRING,END OF T_EKKO_STR. DATA: WA_DB2_VIEW_JOBPROFILE_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_VIEW_JOBPROFILE_STR-JOB_PROFILE sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-DB2_LOAD_LIB sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-DB2_RUN_LIB sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PLANTIAD sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-KEEP_DAYS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-HLQ sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-HIGHLQ_WORK sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-JOB_RESULTS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-MGMTCLAS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-STORCLAS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-DATACLAS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-VOLCNT sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PDEG sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SLOW sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SMED sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SHIGH sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SAMP sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SAMPLE_TYPE sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CLIM sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CPDEG sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-O sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RDEG sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-WD sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PDSU sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PLAN_ACT sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-HASP sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CONS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-EXT_HIGH sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-EXT_LOW sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNST_UPD sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CARDFS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-NPAG_W sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CARDS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-NACT_S sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-NACT_W sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNSTALLID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNALLMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNSTONEID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNONEMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNSTALRID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNALRMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RECOVIXID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RECIXMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RECOVTSID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RECTSMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REBUIIXID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REBIXMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOALLIXID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOALLIXMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORGIXID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOIXMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOALLTSID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOALLTSMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOALLTSLOB sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOALLTSCOPY sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORGTSID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REOTSMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-FICOPYID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-FICOPYMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-IICPYSYSMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-IICOPYID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-IICOPYMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-FICPYSYSMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-UPDCATALID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-UPDCATALMEMN sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-STOPROC sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-GDG_GENERATIONS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-MOD_REC_AGE sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-MOD_STAT_AGE sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RESTART_OPT sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-DB20_DATA sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNSTATS_CATALOG sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SP_USER sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COPY_ALL sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COPY_PART sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-BW_REO_RST sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_OTHERS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNST_OTHERS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-DEFAULT_PRIQTY sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-DEFAULT_SECQTY sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-MAXPRIME sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-BSDS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-USE_ADMIN_SP sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-NPAGES sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COL_DEST sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-ACCOR_CALLER sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CONVTOOL_OBJECTS sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-HSM_JOBNAME sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CONVTOOL_BP4K sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CONVTOOL_BP8K sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CONVTOOL_BP16K sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-CONVTOOL_BP32K sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_USE_DEADLINE sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_DEADLINE_TIME sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-JOB_RESULT_ALL_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-JOB_RESULT_3RD_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-LOW_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-MEDIUM_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-HIGH_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SUBMIT_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-UPLOAD_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNST_NOUPD_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNST_UPD_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_COPY_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_BOTH_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_BW_REO_RST_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_NO_LOB_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_ALL_TS_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_ONLY_LOB_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SP_PROTECT_SKEL_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SP_CHANGE_SKEL_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-USE_ADMIN_SP_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COPY_ALL_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COPY_JAVA_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COPY_ABAP_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COPY_PART_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-COLLECT_DB20_DATA_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNSTATS_ON_CATALOG_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_OTHERS_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-RUNST_OTHERS_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SECURITY_CONNECT_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SECURITY_ADMIN_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SECURITY_USER_RADIO sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-TSOBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SSID_LIST sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SSID sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PW_ID1_TXT sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PW_ID2_TXT sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-PSW_SET_ICON sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SECURITY_USER_NAME sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-SELECTED_USER sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-ACCOR_CALLER_CHECKBOX sy-vline
WA_DB2_VIEW_JOBPROFILE_STR-REORG_USE_DEADLINE_CHECKBOX sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
