ZMC Change Devc

*&---------------------------------------------------------------------*
*& Report ZMC_CHANGE_DEVC

*&---------------------------------------------------------------------*
*& p_proj: Project name
*& p_ident: Project technical name
*& p_devc: Package name to be assigned
*&---------------------------------------------------------------------*
REPORT zmc_change_devc.
DATA gv_proj_ident TYPE dmc_pident.

DATA gv_user TYPE responsibl.
DATA gv_proj_id TYPE dmc_project_guid.
DATA gt_dynpfields TYPE TABLE OF dynpread.
DATA gs_dynpfields TYPE dynpread.
DATA gt_tadir TYPE TABLE OF tadir.
DATA gv_failed TYPE abap_bool.
DATA gv_question TYPE string.
DATA gv_answer TYPE c.
DATA gv_string TYPE string.
*&---------------------------------------------------------------------*
*& SELECTION-SCREEN
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE titbl1.
PARAMETERS p_proj TYPE dmc_pdescr.
PARAMETERS p_ident TYPE char20 MODIF ID dis.
SELECTION-SCREEN END OF BLOCK bl1.
SELECTION-SCREEN BEGIN OF BLOCK bl4 WITH FRAME TITLE titbl4.
PARAMETERS p_devc TYPE devclass MODIF ID dev.
SELECTION-SCREEN END OF BLOCK bl4.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'DIS'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'DEV'.
screen-required = 2. "recommended
MODIFY SCREEN.
WHEN OTHERS.
"do nothing
ENDCASE.
CASE screen-name.
WHEN 'P_IDENT'.
PERFORM get_ident_name USING p_proj
CHANGING p_ident.
WHEN OTHERS.
"do nothing
ENDCASE.
ENDLOOP.
IF p_ident IS NOT INITIAL.

CLEAR gt_dynpfields.
CLEAR gs_dynpfields.
gs_dynpfields-fieldname = 'P_IDENT'.
gs_dynpfields-fieldvalue = p_ident.
APPEND gs_dynpfields TO gt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING
dyname = sy-cprog
dynumb = '1000'
TABLES
dynpfields = gt_dynpfields
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
undefind_error = 7
OTHERS = 8.
IF sy-subrc <> 0. "#EC EMPTY_IF_BRANCH
"do nothing
ENDIF.
ENDIF.
INITIALIZATION.
titbl1 = 'Project Selection'.
titbl4 = 'Package to be Assigned'.
**********************
* START-OF-SELECTION *
**********************
START-OF-SELECTION.
PERFORM check USING p_devc
CHANGING gv_failed.
IF gv_failed EQ abap_true.
RETURN.
ENDIF.
CONCATENATE 'Are you sure you want to assign development package'(002) p_devc 'to
migration project'(003) p_proj '?'
INTO gv_question SEPARATED BY space.
CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING
titlebar = 'Change Package Assignment'(t01)
text_question = gv_question
default_button = '2'
IMPORTING
answer = gv_answer
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0 OR gv_answer <> '1'.
MESSAGE 'Processing cancelled by user'(005) TYPE 'S'.
RETURN.
ENDIF.
PERFORM get_ident_name USING p_proj
CHANGING p_ident.
PERFORM get_objects USING gv_proj_id

CHANGING gt_tadir.
PERFORM change_objects USING p_devc.
*&---------------------------------------------------------------------*
*& Form CHECK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM check
USING iv_devc
CHANGING cv_failed. "#EC CI_FORM
DATA lv_dev_exists TYPE abap_bool.
DATA lv_editable TYPE abap_bool.
cv_failed = abap_false.
cl_dmc_authority=>check_change(
EXCEPTIONS
no_authority = 1
OTHERS = 2
).
IF sy-subrc <> 0.
MESSAGE 'You are not authorized to run this report'(004) TYPE 'S' DISPLAY LIKE
'E' ##NO_TEXT.
cv_failed = abap_true.
RETURN.
ENDIF.
IF /ltb/cl_ext_cls_factory=>get_cos_utilities( )->is_cloud( ) = abap_true.

MESSAGE 'It is not possible to run this report in SAP S/4HANA Cloud
systems'(007) TYPE 'S' DISPLAY LIKE 'E' ##NO_TEXT.
RETURN.
ENDIF.
IF iv_devc IS INITIAL.
MESSAGE 'No development package specified; please specify a development
package'(001) TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
/ltb/cl_bas_utils=>is_devc_existing_and_editable( EXPORTING iv_devc = iv_devc

IMPORTING ev_existing =
lv_dev_exists
ev_editable =
lv_editable ).
IF lv_dev_exists EQ abap_false.
CLEAR gv_string.
CONCATENATE 'Development package' iv_devc 'does not exist; please specify a
different package'
INTO gv_string SEPARATED BY space.
MESSAGE gv_string TYPE 'I' DISPLAY LIKE 'E'.
RETURN.
ENDIF.
IF lv_editable EQ abap_false.
CLEAR gv_string.
CONCATENATE 'Development package' iv_devc 'is not editable'
RETURN.
ENDIF.
ENDFORM. " CHECK
*&---------------------------------------------------------------------*
*& Form GET_IDENT_NAME
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_ident_name
USING iv_proj_descr
CHANGING cv_ident_name. "#EC CI_FORM
CLEAR cv_ident_name.
CHECK iv_proj_descr IS NOT INITIAL. "#EC CHECK_POSITION
SELECT SINGLE p~ident,p~author,p~guid FROM dmc_prjctt AS t

LEFT OUTER JOIN dmc_prjct AS p ON p~guid = t~guid
WHERE t~descr = @iv_proj_descr
INTO (@gv_proj_ident,@gv_user,@gv_proj_id) .
IF sy-subrc EQ 0.
cv_ident_name = gv_proj_ident.
ELSE.
CLEAR gv_string.
CONCATENATE 'Migration project' iv_proj_descr 'does not exist; please specify
a different project'
ENDIF.
ENDFORM. " GET_IDENT_NAME
*&---------------------------------------------------------------------*
*& Form GET_OBJECTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_objects USING iv_proj_id
CHANGING ct_tadir TYPE table. "#EC CI_FORM
DATA lt_sprj_range TYPE RANGE OF dmc_sident.
DATA lt_sprj TYPE TABLE OF tadir.
SELECT * FROM tadir
WHERE object = 'PROJ' AND obj_name = @gv_proj_ident AND author = @gv_user
INTO TABLE @ct_tadir. "#EC CI_GENBUFF.
SELECT guid AS sprj_id, ident AS sprj_ident

FROM dmc_sprjct INTO TABLE @DATA(lt_sub_projects)
WHERE project = @iv_proj_id.
CHECK lt_sub_projects IS NOT INITIAL. "#EC CHECK_POSITION
lt_sprj_range = VALUE #( FOR <sub_proj> IN lt_sub_projects

(
sign = 'I'
option = 'EQ'
low = <sub_proj>-sprj_ident
)
).
SORT lt_sprj_range BY low.
DELETE ADJACENT DUPLICATES FROM lt_sprj_range COMPARING low.
SELECT * FROM tadir INTO TABLE @lt_sprj WHERE object = 'SPRJ' AND obj_name IN
@lt_sprj_range. "#EC CI_GENBUFF.
IF sy-subrc EQ 0.
APPEND LINES OF lt_sprj TO ct_tadir.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CHANGE_OBJECTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM change_objects USING iv_devclass. "#EC CI_FORM
DATA ls_tadir TYPE tadir.
LOOP AT gt_tadir INTO ls_tadir.

CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_test_modus = abap_false
wi_tadir_pgmid = ls_tadir-pgmid
wi_tadir_object = ls_tadir-object
wi_tadir_obj_name = ls_tadir-obj_name
wi_tadir_devclass = iv_devclass
EXCEPTIONS
tadir_entry_not_existing = 1
tadir_entry_ill_type = 2
no_systemname = 3
no_systemtype = 4
original_system_conflict = 5
object_reserved_for_devclass = 6
object_exists_global = 7
object_exists_local = 8
object_is_distributed = 9
obj_specification_not_unique = 10
no_authorization_to_delete = 11
devclass_not_existing = 12
simultanious_set_remove_repair = 13
order_missing = 14
no_modification_of_head_syst = 15
pgmid_object_not_allowed = 16
masterlanguage_not_specified = 17
devclass_not_specified = 18
specify_owner_unique = 19
loc_priv_objs_no_repair = 20
gtadir_not_reached = 21
object_locked_for_order = 22
change_of_class_not_allowed = 23
no_change_from_sap_to_tmp = 24
OTHERS = 25.
IF sy-subrc NE 0.
CLEAR gv_string.
CONCATENATE 'Unable to assign development package' iv_devclass 'to migration
project' p_proj
MESSAGE gv_string TYPE 'E'.
ENDIF.
ENDLOOP.
CLEAR gv_string.
CONCATENATE 'Development package' iv_devclass 'has been assigned to migration
project' p_proj
MESSAGE gv_string TYPE 'S'.
ENDFORM.

ZMC Change Devc

Uploaded by

Copyright:

Available Formats

ZMC Change Devc

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

ZMC Change Devc

Uploaded by

Copyright:

Available Formats

&---------------------------------------------------------------------

*& Report ZMC_CHANGE_DEVC

DATA gv_proj_ident TYPE dmc_pident.

IF p_ident IS NOT INITIAL.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

CALL FUNCTION 'POPUP_TO_CONFIRM'

PERFORM get_objects USING gv_proj_id

PERFORM change_objects USING p_devc.

IF /ltb/cl_ext_cls_factory=>get_cos_utilities( )->is_cloud( ) = abap_true.

/ltb/cl_bas_utils=>is_devc_existing_and_editable( EXPORTING iv_devc = iv_devc

ENDFORM. " CHECK

CHECK iv_proj_descr IS NOT INITIAL. "#EC CHECK_POSITION

SELECT SINGLE p~ident,p~author,p~guid FROM dmc_prjctt AS t

ENDFORM. " GET_IDENT_NAME

SELECT guid AS sprj_id, ident AS sprj_ident

CHECK lt_sub_projects IS NOT INITIAL. "#EC CHECK_POSITION

lt_sprj_range = VALUE #( FOR <sub_proj> IN lt_sub_projects

LOOP AT gt_tadir INTO ls_tadir.

You might also like