diff --git a/src/zabapgit_object_jobd.prog.abap b/src/zabapgit_object_jobd.prog.abap new file mode 100644 index 000000000..94feb8df0 --- /dev/null +++ b/src/zabapgit_object_jobd.prog.abap @@ -0,0 +1,200 @@ +*&---------------------------------------------------------------------* +*& Include zabapgit_object_jobd +*&---------------------------------------------------------------------* + +CLASS lcl_object_jobd DEFINITION INHERITING FROM lcl_objects_super FINAL. + + PUBLIC SECTION. + INTERFACES lif_object. + + PRIVATE SECTION. + TYPES: ty_jd_name TYPE c LENGTH 32. + +ENDCLASS. + +CLASS lcl_object_jobd IMPLEMENTATION. + + METHOD lif_object~has_changed_since. + + rv_changed = abap_true. + + ENDMETHOD. + + METHOD lif_object~changed_by. + + rv_user = c_user_unknown. + + ENDMETHOD. + + METHOD lif_object~get_metadata. + + rs_metadata = get_metadata( ). + rs_metadata-delete_tadir = abap_true. + + ENDMETHOD. + + METHOD lif_object~exists. + + DATA: jd_name TYPE ty_jd_name. + + jd_name = ms_item-obj_name. + + TRY. + CALL METHOD ('CL_JR_JD_MANAGER')=>('CHECK_JD_EXISTENCE') + EXPORTING + im_jd_name = jd_name + IMPORTING + ex_is_existing = rv_bool. + + CATCH cx_root. + lcx_exception=>raise( |JOBD not supported| ). + ENDTRY. + + ENDMETHOD. + + METHOD lif_object~serialize. + + DATA: lr_job_definition TYPE REF TO data, + lo_job_definition TYPE REF TO object, + jd_name TYPE ty_jd_name. + + FIELD-SYMBOLS: TYPE any, + TYPE any. + + jd_name = ms_item-obj_name. + + TRY. + CREATE DATA lr_job_definition TYPE ('CL_JR_JOB_DEFINITION=>TY_JOB_DEFINITION'). + ASSIGN lr_job_definition->* TO . + ASSERT sy-subrc = 0. + + CREATE OBJECT lo_job_definition TYPE ('CL_JR_JOB_DEFINITION') + EXPORTING + im_jd_name = jd_name. + + CALL METHOD lo_job_definition->('GET_JD_ATTRIBUTES') + IMPORTING + ex_jd_attributes = . + + ASSIGN COMPONENT 'JDPACKAGE' OF STRUCTURE TO . + CLEAR . + + ASSIGN COMPONENT 'BTCJOB_USER' OF STRUCTURE TO . + CLEAR . + + ASSIGN COMPONENT 'OWNER' OF STRUCTURE TO . + CLEAR . + + ASSIGN COMPONENT 'CREATED_DATE' OF STRUCTURE TO . + CLEAR . + + ASSIGN COMPONENT 'CREATED_TIME' OF STRUCTURE TO . + CLEAR . + + ASSIGN COMPONENT 'CHANGED_DATE' OF STRUCTURE TO . + CLEAR . + + ASSIGN COMPONENT 'CHANGED_TIME' OF STRUCTURE TO . + CLEAR . + + io_xml->add( iv_name = 'JOBD' + ig_data = ). + + CATCH cx_root. + lcx_exception=>raise( |Error serializing JOBD| ). + ENDTRY. + + ENDMETHOD. + + METHOD lif_object~deserialize. + + DATA: lr_job_definition TYPE REF TO data, + lo_job_definition TYPE REF TO object, + jd_name TYPE ty_jd_name. + + FIELD-SYMBOLS: TYPE any, + TYPE any. + + jd_name = ms_item-obj_name. + + TRY. + CREATE DATA lr_job_definition TYPE ('CL_JR_JOB_DEFINITION=>TY_JOB_DEFINITION'). + ASSIGN lr_job_definition->* TO . + ASSERT sy-subrc = 0. + + io_xml->read( + EXPORTING + iv_name = 'JOBD' + CHANGING + cg_data = ). + + CREATE OBJECT lo_job_definition TYPE ('CL_JR_JOB_DEFINITION') + EXPORTING + im_jd_name = jd_name. + + + ASSIGN COMPONENT 'JDPACKAGE' OF STRUCTURE TO . + + = iv_package. + + CALL METHOD lo_job_definition->('CREATE_JD') + EXPORTING + im_jd_attributes = . + + CATCH cx_root. + lcx_exception=>raise( |Error deserializing JOBD| ). + ENDTRY. + + lcl_objects_activation=>add_item( ms_item ). + + ENDMETHOD. + + METHOD lif_object~delete. + + DATA: lo_job_definition TYPE REF TO object, + jd_name TYPE c LENGTH 32. + + jd_name = ms_item-obj_name. + + TRY. + CREATE OBJECT lo_job_definition TYPE ('CL_JR_JOB_DEFINITION') + EXPORTING + im_jd_name = jd_name. + + CALL METHOD lo_job_definition->('DELETE_JD'). + + CATCH cx_root. + lcx_exception=>raise( |Error deleting JOBD| ). + ENDTRY. + + ENDMETHOD. + + METHOD lif_object~jump. + + DATA: obj_name TYPE e071-obj_name. + + obj_name = ms_item-obj_name. + + CALL FUNCTION 'TR_OBJECT_JUMP_TO_TOOL' + EXPORTING + iv_pgmid = 'R3TR' + iv_object = ms_item-obj_type + iv_obj_name = obj_name + iv_action = 'SHOW' + EXCEPTIONS + jump_not_possible = 1 + OTHERS = 2. + + IF sy-subrc <> 0. + lcx_exception=>raise( |Error from TR_OBJECT_JUMP_TO_TOOL, JOBD| ). + ENDIF. + + ENDMETHOD. + + METHOD lif_object~compare_to_remote_version. + + CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null. + + ENDMETHOD. + +ENDCLASS. diff --git a/src/zabapgit_object_jobd.prog.xml b/src/zabapgit_object_jobd.prog.xml new file mode 100644 index 000000000..e74762cd6 --- /dev/null +++ b/src/zabapgit_object_jobd.prog.xml @@ -0,0 +1,25 @@ + + + + + + ZABAPGIT_OBJECT_JOBD + A + X + S + D$ + I + X + D$S + X + + + + R + ZABAPGIT_OBJECT_JOBD + 20 + + + + + diff --git a/src/zabapgit_object_serializing.prog.abap b/src/zabapgit_object_serializing.prog.abap index faf27989e..21d37a603 100644 --- a/src/zabapgit_object_serializing.prog.abap +++ b/src/zabapgit_object_serializing.prog.abap @@ -25,6 +25,7 @@ INCLUDE zabapgit_object_fugr. INCLUDE zabapgit_object_iarp. INCLUDE zabapgit_object_iasp. INCLUDE zabapgit_object_iatu. +INCLUDE zabapgit_object_jobd. INCLUDE zabapgit_object_intf. INCLUDE zabapgit_object_msag. INCLUDE zabapgit_object_nrob.