*&---------------------------------------------------------------------* *& Report ZDM_TEST_MIGRATE_PM *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zdm_migrate_pm_pfo. DATA: polnr TYPE char10, p_client2 TYPE char5, p_mc2 type char7. *screen definition SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01. PARAMETERS: p_mc TYPE char5 OBLIGATORY DEFAULT 'GT500', p_client TYPE char3 DEFAULT '003', p_ap TYPE numc5. SELECT-OPTIONS:p_pol FOR polnr. PARAMETERS: p_pconv AS CHECKBOX DEFAULT 'X', p_pfo AS CHECKBOX DEFAULT 'X', p_pload AS CHECKBOX DEFAULT 'X'. SELECTION-SCREEN END OF BLOCK b01. START-OF-SELECTION. CONCATENATE '''' p_client '''' INTO p_client2. CONCATENATE '''' p_mc '''' INTO p_mc2. PERFORM delete_ap. IF p_pconv = 'X'. PERFORM policy_conv. ENDIF. IF p_pfo = 'X'. PERFORM pfo_conv_load. ENDIF. IF p_pload = 'X'. PERFORM policy_load. ENDIF. *&---------------------------------------------------------------------* *& Form DELETE_AP *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM delete_ap. DATA: g_cobj TYPE REF TO cl_dmc_conv_object, g_acplan TYPE REF TO cl_dmc_access_plan, g_acplan_list TYPE REF TO cl_dmc_access_plan_list. DATA: wl_log_handler TYPE REF TO cl_dmc_log_handler, wl_root TYPE REF TO cx_root, wl_error TYPE string. cl_dmc_log_handler=>initialize( ). wl_log_handler = cl_dmc_log_handler=>create_loghandler( im_subobject = cl_dmc_log_handler=>co_cobj_mnt im_behaviour = cl_dmc_log_handler=>co_mode_specific im_external_id = ' ' ). TYPES: BEGIN OF ty_moname, mo TYPE char20, sp TYPE char20, END OF ty_moname. DATA: lt_moname TYPE TABLE OF ty_moname, lw_moname TYPE ty_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_PM_I_D6H'. lw_moname-sp = 'ZSLO_DM_D6H'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_PM_L_D6H'. lw_moname-sp = 'ZSLO_DM_D6H'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_ICM_LB_PFO_DDH'. lw_moname-sp = 'ZSLO_DM_DDH'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_ICM_S2_SSA_DDH'. lw_moname-sp = 'ZSLO_DM_DDH'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_PFO_00IP_H6X'. lw_moname-sp = 'ZSLO_DM_H6X'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_PFO_00IS_H6X'. lw_moname-sp = 'ZSLO_DM_H6X'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_PFO_GZO_H6X'. lw_moname-sp = 'ZSLO_DM_H6X'. APPEND lw_moname TO lt_moname. CLEAR lw_moname. lw_moname-mo = 'Z_SLO_PM_I_H6Y'. lw_moname-sp = 'ZSLO_DM_H6Y'. APPEND lw_moname TO lt_moname. FIELD-SYMBOLS <fs_mo> TYPE ty_moname. LOOP AT lt_moname ASSIGNING <fs_mo>. CALL METHOD cl_dmc_conv_object=>load EXPORTING im_c_name = <fs_mo>-mo im_project_name = 'ZSLO_DM' im_subproject_name = <fs_mo>-sp im_applic = 'SLO' * im_light_load = 'X' RECEIVING conv_obj = g_cobj EXCEPTIONS conv_obj_not_valid = 1 not_found = 2 project_not_valid = 3 subproject_not_valid = 4 not_productive = 5 OTHERS = 6. IF g_cobj IS NOT INITIAL. g_acplan_list = g_cobj->acplan_list. CLEAR g_acplan. g_acplan = g_acplan_list->get_element_by_id( p_ap ). IF g_acplan IS NOT INITIAL. CALL METHOD g_acplan->delete. TRY. CALL METHOD g_acplan->save. CATCH cx_root INTO wl_root. ENDTRY. CALL METHOD g_acplan_list->delete_element_by_ref EXPORTING im_ref = g_acplan. TRY. CALL METHOD g_acplan_list->save. CATCH cx_root INTO wl_root. ENDTRY. ENDIF. ENDIF. ENDLOOP. ENDFORM. " DELETE_AP *&---------------------------------------------------------------------* *& Form POLICY_CONV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM policy_conv . SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_PM_I_D6H' WITH p_dmcid = p_ap WITH p_tabnam = 'ZSLO_ING_POL_V' WITH p_keyfld = 'POL_ID' WITH p_add4f = 'POL_ID' WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_D6H' WITH p_cobj = 'Z_SLO_PM_I_D6H' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_PM_L_D6H' WITH p_dmcid = p_ap WITH p_tabnam = 'ZSLO_LFCM_POL_V' WITH p_keyfld = 'PCNTR_AES_NUMBER' WITH p_add4f = 'PCNTR_AES_NUMBER' WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_D6H' WITH p_cobj = 'Z_SLO_PM_L_D6H' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. ENDFORM. " POLICY_CONV *&---------------------------------------------------------------------* *& Form PFO_CONV_LOAD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM pfo_conv_load . SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_ICM_LB_PFO_DDH' WITH p_dmcid = p_ap WITH p_tabnam = 'ZLC_PL_SERV_AGNT' WITH p_keyfld = 'POLNO' WITH p_add4f = 'POLNO' WITH p_add1f = 'MANDT' WITH p_add1c = '=' WITH p_add1v = p_client2 WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_DDH' WITH p_cobj = 'Z_SLO_ICM_LB_PFO_DDH' WITH p_acplan = p_ap WITH p_test = '-' WITH p_behav = '3' WITH p_rstrt = '-'. SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_ICM_S2_SSA_DDH' WITH p_dmcid = p_ap WITH p_tabnam = 'ZODS_V_AGNTROLEI' WITH p_keyfld = 'POLICYNO' WITH p_add4f = 'POLICYNO' WITH p_add1f = 'MANDT' WITH p_add1c = '=' WITH p_add1v = p_client2 WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_DDH' WITH p_cobj = 'Z_SLO_ICM_S2_SSA_DDH' WITH p_acplan = p_ap WITH p_test = '-' WITH p_behav = '3' WITH p_rstrt = '-'. SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_PFO_00IP_H6X' WITH p_dmcid = p_ap WITH p_tabnam = 'ZPM_ABQAPOLICY' WITH p_keyfld = 'POLICYNR_TT' WITH p_add4f = 'POLICYNR_TT' WITH p_add1f = 'VERSION_ID' WITH p_add1c = '=' WITH p_add1v = '1' WITH p_add2f = 'MC' WITH p_add2c = '=' WITH p_add2v = p_mc2 WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_H6X' WITH p_cobj = 'Z_SLO_PFO_00IP_H6X' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_PFO_00IS_H6X' WITH p_dmcid = p_ap WITH p_tabnam = 'ZPM_ABQAPOLICY' WITH p_keyfld = 'POLICYNR_TT' WITH p_add4f = 'POLICYNR_TT' WITH p_add1f = 'MC' WITH p_add1c = '=' WITH p_add1v = p_mc2 WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_H6X' WITH p_cobj = 'Z_SLO_PFO_00IS_H6X' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_PFO_GZO_H6X' WITH p_dmcid = p_ap WITH p_tabnam = 'ZPM_ABQAPOLICY' WITH p_keyfld = 'POLICYNR_TT' WITH p_add4f = 'POLICYNR_TT' WITH p_add1f = 'VERSION_ID' WITH p_add1c = '=' WITH p_add1v = '1' WITH p_add2f = 'MC' WITH p_add2c = '=' WITH p_add2v = p_mc2 WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_H6X' WITH p_cobj = 'Z_SLO_PFO_GZO_H6X' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. DATA: ls_fixchange TYPE dmc_fixedvaluec, ls_temp TYPE dmc_fixedvalue. CLEAR: ls_temp, ls_fixchange. SELECT * UP TO 1 ROWS INTO ls_temp FROM dmc_fixedvalue WHERE IDENT = 'ZSLO_XX_OBJTYPE' ORDER BY versio DESCENDING. ENDSELECT. SELECT * UP TO 1 ROWS INTO ls_fixchange FROM dmc_fixedvaluec WHERE guid = ls_temp-guid ORDER BY versio DESCENDING. ENDSELECT. IF ls_fixchange-fvvalue = '00IP'. ls_fixchange-fvvalue = '00IS'. ELSEIF ls_fixchange-fvvalue = '00IS'. ls_fixchange-fvvalue = '00IP'. ENDIF. MODIFY dmc_fixedvaluec FROM ls_fixchange. IF sy-subrc <> 0. MESSAGE 'Update fixvaule fail.' TYPE 'E'. EXIT. ENDIF. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_H6X' WITH p_cobj = 'Z_SLO_PFO_GZO_H6X' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. ENDFORM. " PFO_CONV_LOAD *&---------------------------------------------------------------------* *& Form POLICY_LOAD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM policy_load . SUBMIT zdm_fast_access_plan AND RETURN WITH p_cobj = 'Z_SLO_PM_I_H6Y' WITH p_dmcid = p_ap WITH p_tabnam = 'ZPM_ABQAPOLICY_V' WITH p_keyfld = 'POLICYNR_TT' WITH p_add4f = 'POLICYNR_TT' WITH p_add1f = 'MC' WITH p_add1c = '=' WITH p_add1v = p_mc2 WITH so_add4v IN p_pol[]. SUBMIT dmc_starter AND RETURN WITH p_proj = 'ZSLO_DM' WITH p_sproj = 'ZSLO_DM_H6Y' WITH p_cobj = 'Z_SLO_PM_I_H6Y' WITH p_acplan = p_ap WITH p_test = '-' WITH p_rstrt = '-'. ENDFORM. " POLICY_LOAD