CP_CC_S_LOAD_COMPLEX_BY_BOM SAP Function module

DATA:
ld_e_bom_ident  
 
 TYPE CSCL_BOM_ID_TB_TYPE
,
ld_e_bom_lock  
 
 TYPE CSCL_BOM_LOCK_TB_TYPE
,
ld_e_itm_lock  
 
 TYPE CSCL_ITM_LOCK_TB_TYPE
,
ld_e_tsk_lock  
 
 TYPE CPCL_TSK_LOCK_TAB_TYPE
,
ld_e_seq_lock  
 
 TYPE CPCL_SEQ_LOCK_TAB_TYPE
,
ld_e_opr_lock  
 
 TYPE CPCL_OPR_LOCK_TAB_TYPE
,
ld_e_workarea  
 
 TYPE T410
,
ld_e_profile  
 
 TYPE TCA41
,
ld_e_date_from  
 
 TYPE SY-DATUM
,
ld_e_date_to  
 
 TYPE SY-DATUM
,
ld_e_flg_ecm_evaluation  
 
 TYPE STRING
.

 

SELECT single CLASS 
  FROM T410 
  INTO @DATA(ld_i_class).

 

SELECT single PROFIDNETZ 
  FROM T410 
  INTO @DATA(ld_i_profile).

 

SELECT single WORK_AREA 
  FROM T410 
  INTO @DATA(ld_i_work_area).


DATA(ld_i_classes_in_workarea) = 'Check type of data required'.

DATA(ld_i_cpsc_mtk_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_com_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_tsk_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_opr_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_suo_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_mbm_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_bom_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_itm_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_sui_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_prt_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_pac_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_cha_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_mst_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_odp_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_cla_sel) = 'Check type of data required'.

DATA(ld_i_cpsc_ecn_sel) = 'Check type of data required'.

DATA(ld_i_sel_opr_ident) = 'Check type of data required'.

DATA(ld_i_date_from) = '20210129'.

DATA(ld_i_date_to) = '20210129'.

DATA(ld_i_message_handler) = '20210129'.

DATA(ld_i_save_protocoll) = '20210129'.
.

CALL FUNCTION 'CP_CC_S_LOAD_COMPLEX_BY_BOM'
  EXPORTING
    i_class =                    ld_i_class
*   i_profile =                  ld_i_profile
*   i_work_area =                ld_i_work_area
*   i_classes_in_workarea =      ld_i_classes_in_workarea
*   i_cpsc_mtk_sel =             ld_i_cpsc_mtk_sel
*   i_cpsc_com_sel =             ld_i_cpsc_com_sel
*   i_cpsc_tsk_sel =             ld_i_cpsc_tsk_sel
*   i_cpsc_opr_sel =             ld_i_cpsc_opr_sel
*   i_cpsc_suo_sel =             ld_i_cpsc_suo_sel
*   i_cpsc_mbm_sel =             ld_i_cpsc_mbm_sel
*   i_cpsc_bom_sel =             ld_i_cpsc_bom_sel
*   i_cpsc_itm_sel =             ld_i_cpsc_itm_sel
*   i_cpsc_sui_sel =             ld_i_cpsc_sui_sel
*   i_cpsc_prt_sel =             ld_i_cpsc_prt_sel
*   i_cpsc_pac_sel =             ld_i_cpsc_pac_sel
*   i_cpsc_cha_sel =             ld_i_cpsc_cha_sel
*   i_cpsc_mst_sel =             ld_i_cpsc_mst_sel
*   i_cpsc_odp_sel =             ld_i_cpsc_odp_sel
*   i_cpsc_cla_sel =             ld_i_cpsc_cla_sel
*   i_cpsc_ecn_sel =             ld_i_cpsc_ecn_sel
*   i_sel_opr_ident =            ld_i_sel_opr_ident
*   i_date_from =                ld_i_date_from
*   i_date_to =                  ld_i_date_to
*   i_message_handler =          ld_i_message_handler
*   i_save_protocoll =           ld_i_save_protocoll
  IMPORTING
    e_bom_ident =                ld_e_bom_ident
    e_bom_lock =                 ld_e_bom_lock
    e_itm_lock =                 ld_e_itm_lock
    e_tsk_lock =                 ld_e_tsk_lock
    e_seq_lock =                 ld_e_seq_lock
    e_opr_lock =                 ld_e_opr_lock
    e_workarea =                 ld_e_workarea
    e_profile =                  ld_e_profile
    e_date_from =                ld_e_date_from
    e_date_to =                  ld_e_date_to
    e_flg_ecm_evaluation =       ld_e_flg_ecm_evaluation
  EXCEPTIONS
    WORKAREA_NOT_FOUND =         1
    CLASS_WRONG_TYPE =           2
    WORKAREA_WRONG_TYPE =        3
    CLASS_IN_WORKAREA_INCONSISTENT =    4
    WORKAREA_NOT_SPECIFIED =     5
    BOM_NOT_FOUND =              6
    NO_SELECTION_CRITERIA =      7
    INVALID_SELECTION_PERIOD =    8
    KEY_DATE_REQUIRED_FOR_ECM =    9
    .  "  CP_CC_S_LOAD_COMPLEX_BY_BOM

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 4. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 5. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 6. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 7. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 8. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 9. "Exception
  "Add code for exception here
ENDIF.