[函数]routing展开-[CP_EX_PLAN_READ]详解编程语言

REPORT ztest_explode_routing. 
 
DATA:git_plpo_exp LIKE STANDARD TABLE OF coplpo, 
     gwa_plpo_exp LIKE LINE OF git_plpo_exp, 
     git_plko_exp LIKE STANDARD TABLE OF plko, 
     gwa_plko_exp LIKE LINE OF git_plko_exp, 
     git_plmk_exp LIKE STANDARD TABLE OF plmkb, 
     gwa_plmk_exp LIKE LINE OF git_plmk_exp, 
     git_plmz_exp LIKE STANDARD TABLE OF plmz, 
     gwa_plmz_exp LIKE LINE OF git_plmz_exp, 
     git_plfh_exp TYPE STANDARD TABLE OF plfh, 
     gwa_plfh_exp TYPE plfh, 
     git_plas_exp TYPE STANDARD TABLE OF plas, 
     gwa_plas_exp TYPE plas. 
DATA:g_plnnr TYPE mapl-plnnr, "Group 
     g_plnal TYPE mapl-plnal, "Group Counter 
     g_vbeln TYPE vbap-vbeln, "Sales Order 
     g_posnr TYPE vbap-posnr, "Item 
     g_werks TYPE vbap-werks. 
 
 
* explode material routing 
g_vbeln = '0690000090'. 
g_posnr = '000100'. 
g_werks = '8800'. 
 
SELECT SINGLE mapl~plnnr  "Group 
              mapl~plnal  "Group Counter 
  FROM mapl 
 INNER JOIN plko ON mapl~plnty = plko~plnty 
                AND mapl~plnnr = plko~plnnr 
                AND mapl~plnal = plko~plnal 
                AND mapl~zaehl = plko~zaehl 
                AND mapl~werks = plko~werks 
  INTO ( g_plnnr, g_plnal ) 
 WHERE mapl~plnty = 'N'  "Task List Type 
   AND mapl~werks = g_werks 
   AND mapl~matnr = 'SMA50620100' 
   AND mapl~datuv <=  sy-datum 
   AND mapl~loekz = '' 
   AND mapl~vbeln = g_vbeln "SO copy from 
   AND mapl~posnr = g_posnr "Item copy from 
   AND plko~loekz = '' 
   AND plko~verwe = '1'  "Task list usage 
   AND plko~statu = '4'  "release routing 
  . 
 
CALL FUNCTION 'CP_EX_PLAN_READ' 
  EXPORTING 
*   CMODE_IMP     = 'R' 
    plnty_imp     = 'N'      "N:routing 
    plnnr_imp     = g_plnnr  "Group 
    plnal_imp     = g_plnal  "Group Counter 
    sttag_imp     = sy-datum 
*   CHECK_IMP     = abap_true 
*   cuobj_imp     = i_cuobj  "Configuration 
*   PARNT_IMP     = ' ' 
*   FCAPO_IMP     = ' ' 
*   TCA11_IMP     = ' ' 
*   FLG_VAL_REC_IMP                      = ' ' 
*   STLNR_IMP     = 
*   I_PLAS_KEY_TAB                       = 
*   PRODCOST      = ' ' 
*   I_BUSINESS_OBJECT                    = 
*   I_FLG_CHARACTERISTICS_PLANNING       = ' ' 
*   I_EDGNO       = 
    vbeln_imp     = g_vbeln  "Sales Order 
    posnr_imp     = g_posnr  "Item 
*   LOSGR_IMP     = 1 
    i_plant       = g_werks 
*   I_FLG_CALLED_F_MRP                   = ' ' 
*   IMPORTING 
*   RES_APPR_CHK_EXP                     = 
*   ERROR_EXP     = 
*   E_MAPL        = 
*   PI_SET_USED   = 
  TABLES 
*   MLST_EXP      = 
*   PLAB_EXP      = 
    plas_exp      = git_plas_exp 
    plfh_exp      = git_plfh_exp 
*   PLFL_EXP      = 
*   PLFT_EXP      = 
*   PLFV_EXP      = 
    plko_exp      = git_plko_exp 
    plmz_exp      = git_plmz_exp 
    plpo_exp      = git_plpo_exp 
*   PLTX_EXP      = 
*   AENNR_EXP     = 
    plmk_exp      = git_plmk_exp 
*   PLMW_EXP      = 
  EXCEPTIONS 
    not_found     = 1 
    plnal_initial = 2 
    OTHERS        = 3. 
IF sy-subrc = 0. 
  WRITE: 'Routing exploded successfully'. 
ENDIF.