Function calls for standard project structure copy in SAP Project System

Introduction

     Creating an operative project structure in SAP project system based on a standard project structure or on another operative structure using BAPIs might be a very difficult task. The reason for that is that before the relevant BAPI for saving the new operative project structure could be called it would be necessary to select from the template project structure every single possible project object and sometimes there might be many. Among possible project objects we could list project definitions, WBS elements, network headers, network activities, network activity elements, milestones, material components, PS texts, relationships, etc.

     Luckily for us SAP comes with two function modules that when called in the correct order and together with some other function modules do the complex work with possibly much less lines of code. The functions are “CJWB_PROJECT_COPY” and “CJDT_CREATE_ACT_FOR_NEW_PRJ”.

     The first of the function modules is in charge of creating project definitions, WBS elements and other objects related to WBS elements (e.g. PS texts and WBS element milestones). The second function module is in charge of attaching standard network headers and their dependents objects (e.g. network activities, network activity elements, milestones, material components, etc.) to the objects previously generated by function module “CJWB_PROJECT_COPY”.

     Among the function modules other than the ones already mentioned that also have to be called in order to successfully accomplish the standard project copy the most important are “CJDW_GET_NEW_NUMBERS” and “CJDT_GET_NEW_NUMBERS”. These function modules are in charge of replacing temporary internal numbers by correct internal numbers that will be updated to the database (e.g. OBJNR numbers).

Code Samples

     Below are two sample codes for copying standard project structure. The first is a simple code for cases in which network headers are not necessary while the latter is a slightly more complex code for cases in which network headers are necessary. The second code sample also contains some lines for manipulating WBS element data (project responsible and applicant number) for demonstration purposes.

     The sample are based on the calls performed in standard transactions CJ20N and CJ2B (includes LCNPB_MF4T, LCNPB_MF55 and LCJTRF3B).

Sample 1: Simple project structure without network headers

   sy-ucomm = 'GEN1'.    CALL FUNCTION 'CJWB_PROJECT_COPY'      EXPORTING        call_from                                       = 'P'        standard_wbs_to_be_copied  = <-- standard project definition to be copied        no_dialog                             = abap_true        replace_string             = <-- project definition to be created      EXCEPTIONS        existing_project           = 1        existing_project_in_paging = 2        wrong_call                 = 3        wbs_for_copy_not_found     = 4        error_pspid_generate       = 5        no_copy                    = 6        error                      = 7        OTHERS                     = 8.    CALL FUNCTION 'CJDW_GET_NEW_NUMBERS'.    CALL FUNCTION 'CJDT_GET_NEW_NUMBERS'.    SET SCREEN 0.    COMMIT WORK. 

Sample 2: Project structure with network headers and some data manipulation

 REPORT zstdprojcopy. DATA: lt_cjdi          TYPE TABLE OF rcj_markl. DATA: ls_cjdi          LIKE LINE OF lt_cjdi. DATA: ls_proj          LIKE proj. DATA: ls_prps          LIKE prps. DATA: l_vsnmr          LIKE vskopf-vsnmr. DATA: ls_tc10          LIKE tc10. DATA: ls_tcn41         LIKE tcn41. DATA: l_old_ucomm      LIKE sy-ucomm. DATA: l_old_tcode      LIKE sy-tcode. DATA: l_start_termin   TYPE ps_plfaz. DATA: l_end_termin     TYPE ps_plsez. DATA: l_ntw_found      TYPE c LENGTH 1. CONSTANTS: c_vorgabe   TYPE caufvd-plart VALUE '1'. CONSTANTS: c_aplid     TYPE c LENGTH 1 VALUE 'G'. CONSTANTS: c_change    TYPE c LENGTH 1 VALUE 'V'. CONSTANTS: c_asterisk  TYPE c LENGTH 1 VALUE '*'. CONSTANTS: c_meth_tmex TYPE fcode VALUE 'TMEX'. CONSTANTS: c_vernr     TYPE ps_vernr VALUE 99. CONSTANTS: c_astnr     TYPE ps_astnr VALUE 99. * Source and Target Project Definitions SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME. PARAMETERS: p_sproj TYPE projs-pspid OBLIGATORY. PARAMETERS: p_tproj TYPE proj-pspid OBLIGATORY. SELECTION-SCREEN END OF BLOCK a. * Target project start and end dates SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME. PARAMETERS: p_plfaz TYPE ps_plfaz. PARAMETERS: p_plsez TYPE ps_plsez. SELECTION-SCREEN END OF BLOCK b. START-OF-SELECTION.    IF p_plfaz IS INITIAL.      l_start_termin = sy-datum.    ELSE.      l_start_termin = p_plfaz.    ENDIF.    IF p_plsez IS INITIAL.      l_end_termin = sy-datum.    ELSE.      l_end_termin = p_plsez.    ENDIF. * The two lines of code below might look strange at first, but they are necessary because in include FCJWBI00_OK_CODE_PAI somewhere * inside function 'CJWB_PROJECT_COPY' the system checks the sy-ucomm. If it is empty the process is aborted and only the project * definition is created. 'GEN1' is the same ucomm used in the copying process of the project builder (CJ20N)    l_old_ucomm = sy-ucomm.    sy-ucomm = 'GEN1'.    CALL FUNCTION 'CJWB_PROJECT_COPY'      EXPORTING        call_from                  = 'P'        standard_wbs_to_be_copied  = p_sproj        start_termin               = l_start_termin        end_termin                 = l_end_termin        no_dialog                  = abap_true        replace_string             = p_tproj      IMPORTING        project_workarea           = ls_proj        vsnmr_copy                 = l_vsnmr      EXCEPTIONS        existing_project           = 1        existing_project_in_paging = 2        wrong_call                 = 3        wbs_for_copy_not_found     = 4        error_pspid_generate       = 5        no_copy                    = 6        error                      = 7        OTHERS                     = 8. * Just for demonstration purposes in lines from 79 to 98 the person responsible and the applicant number are changed in the project definition. * Of course this could also be accomplished by substitution rules or BAdIs...    ls_proj-vernr = c_vernr.    ls_proj-astnr = c_astnr.    CALL FUNCTION 'CJDW_PROJ_MODIFY'      EXPORTING        i_proj        = ls_proj      EXCEPTIONS        beakz         = 1        pspnr         = 2        error_message = 98        OTHERS        = 99.    CALL FUNCTION 'CJDW_GET_TREE'      EXPORTING        levels    = 99        x_outline = space      TABLES        elements  = lt_cjdi      EXCEPTIONS        not_found = 1        OTHERS    = 2. * Also for demonstration purposes in lines from 102 to 126 the person responsible and the applicant number are changed in each WBS element of the structure. * This could also be accomplished by substitution rules or BAdIs...    LOOP AT lt_cjdi INTO ls_cjdi.      CLEAR ls_prps.      CALL FUNCTION 'CJDW_PRPS_GET'        EXPORTING          index     = ls_cjdi-index        IMPORTING          e_prps    = ls_prps        EXCEPTIONS          cancel    = 1          not_found = 2          OTHERS    = 3.      IF sy-subrc = 0.        ls_prps-vernr = c_vernr.        ls_prps-astnr = c_astnr.        CALL FUNCTION 'CJDW_PRPS_MODIFY'          EXPORTING            beakz     = c_change            index     = ls_cjdi-index            i_prps    = ls_prps          EXCEPTIONS            not_found = 1            posnr     = 2            OTHERS    = 3.      ENDIF.    ENDLOOP. * Prepare call of 'CJDT_CREATE_ACT_FOR_NEW_PRJ'    CALL FUNCTION 'CO_TA_TCN41_READ'      EXPORTING        plnaw      = 'N'        profidnetz = ls_proj-vprof      IMPORTING        tcn41_exp  = ls_tcn41      EXCEPTIONS        not_found  = 01. * The two lines of code below might also look strange at first, but they are also necessary because in includes LCJTRFJ8 and LCJTRFI2 * somewhere inside function 'CJTR_CALL_FROM_EXTERN' the system selects some default values based on transaction code.    l_old_tcode = sy-tcode.    sy-tcode = 'CJ20N'.    CALL FUNCTION 'CJTR_CALL_FROM_EXTERN'      EXPORTING        aplid           = c_aplid        fcode_imp       = space        proj_imp        = ls_proj        trtyp_imp       = c_change        top_imp         = 1      TABLES        cjdi_imp        = lt_cjdi      EXCEPTIONS        no_existing_psp = 1        no_pprofil      = 2        OTHERS          = 3.    SELECT SINGLE *    INTO ls_tc10    FROM tc10    WHERE tcode = 'CJ2D'. * Again a strange but necessary line of code. In include LCOKOF1S somewhere inside function 'CJDT_CREATE_ACT_FOR_NEW_PRJ' the system * selects the default value for the order category from table t490 based on the transaction code. It would also be a possibility to * create a new entry in the aforementioned table with the transaction code in context (i.e. tcode of the current program)    sy-tcode = 'CJ20N'. * Function for adding network objects to the previously created project structure    CALL FUNCTION 'CJDT_CREATE_ACT_FOR_NEW_PRJ'      EXPORTING        tc10wa      = ls_tc10        tcn41_imp   = ls_tcn41        proj_imp    = ls_proj        vsnmr_copy  = l_vsnmr        sched_param = space        flg_new_prj = abap_true      EXCEPTIONS        no_entries  = 1        OTHERS      = 2.    IF sy-subrc = 0.      l_ntw_found = abap_true.    ENDIF.    CALL FUNCTION 'CNEV_05_COPY_EVOP'      EXPORTING        i_kokrs = ls_proj-vkokr.    CALL FUNCTION 'CO_BT_PROJKN_DET'      EXPORTING        projn_pa = space        projn_tv = space.    CALL FUNCTION 'NW_EX_SET_NETSTUFE_MAX_PROJECT'      EXPORTING        i_profidproj                   = ls_proj-profl      EXCEPTIONS        project_profile_does_not_exist = 1        network_profile_does_not_exist = 2        OTHERS                         = 3. * Check if any required field is still empty. This function module is optional and could result in disruptive pop-ups    CALL FUNCTION 'CJWB_CHECK_BEFORE_COMMIT'      EXCEPTIONS        cancel = 1. * Call network scheduling if network exists    IF l_ntw_found = abap_true.      CALL FUNCTION 'CJWB_PROJECT_INIT_EXTERN_CALL'        EXPORTING          i_method      = c_meth_tmex          i_object      = c_asterisk          i_view_object = c_asterisk          i_sub_view    = space          i_aktyp       = c_change          i_pronr       = ls_proj-pspnr        EXCEPTIONS          not_found     = 1          OTHERS        = 2.    ENDIF. * Prepare commit of WBS element dates table (PRTE)    CALL FUNCTION 'CJTR_POST_DATES'      EXCEPTIONS        sched_wrong    = 1        check_top_down = 2        OTHERS         = 3. * Prepare commit of network data if network exists    IF l_ntw_found = abap_true.      CALL FUNCTION 'CO_BT_PROJKN_DET'        EXPORTING          projn_pa = c_vorgabe          projn_tv = space.      CALL FUNCTION 'CO_ZV_ORDER_POST'        EXPORTING          commit_flag   = abap_false          ext_flg       = abap_true          trans_typ     = c_change          no_dialog     = abap_true        EXCEPTIONS          update_reject = 1          budget_reject = 2          OTHERS        = 3.    ENDIF. * Substitute internal numbers    CALL FUNCTION 'CJDW_GET_NEW_NUMBERS'.    CALL FUNCTION 'CJDT_GET_NEW_NUMBERS'.    COMMIT WORK.    sy-tcode = l_old_tcode.    sy-ucomm = l_old_ucomm. * Set screen 0. The function 'CJWB_PROJECT_COPY' sets screen 0200 and if this is not overwritten here a dump may occurr (screen not found)    SET SCREEN 0.    CALL FUNCTION 'LOCATION_CORRECT'      EXPORTING        bild            = space        bildgruppe      = space        kopfgruppe      = space        positionsgruppe = space        programm        = space        stackstufe      = 0        trtyp           = space. END-OF-SELECTION.