测试APO函数 /SAPAPO/OM_ORDER_GET_DATA

S4 hana 1709环境中，APO模块的LiveCache数据，都是通过存储过程到ABAP层的函数来实现访问。它们都在 /SAPAPO/OM_PLANNING函数组里：

近段时间关注了这个函数：/SAPAPO/OM_ORDER_GET_DATA，放几段测试的代码备忘：

ZJAMES_L001程序通过函数/SAPAPO/OM_ORDER_GET_DATA得到订单下的BOM组件也就是零部件，其中函数参数：ATC理解为工艺路线，inputs可以理解为投料，output理解为产成品。

*&---------------------------------------------------------------------*
*& Report ZJAMES_L001
*&---------------------------------------------------------------------*
*& 这个程序测试函数  
*&---------------------------------------------------------------------*
REPORT ZJAMES_L001.

DATA gs_gen_params   TYPE /sapapo/om_gen_params.

  DATA:
    lv_ordid   TYPE /sapapo/om_orderuid,
    lt_ordid   TYPE /sapapo/om_tab_ordid,
    ls_ordid   TYPE LINE OF /sapapo/om_tab_ordid,
    lt_ordkeys TYPE /sapapo/om_ordkey_tab.
 DATA:
  gt_ordstat      TYPE TABLE OF ztpd0002_ordstat,           "#EC NEEDED
  gt_ordkeys      TYPE /sapapo/om_ordkey_tab,               "#EC NEEDED
  gt_act          TYPE /sapapo/om_tab_act,                  "#EC NEEDED
  gt_shift        TYPE /sapapo/rrp_per_stamp_res_tab,       "#EC NEEDED
  gt_inputs       TYPE /sapapo/om_io_pp_tab,                "#EC NEEDED
  gt_outputs      TYPE /sapapo/om_io_pp_tab,                "#EC NEEDED
  gt_pldord_atp   TYPE RANGE OF /sapapo/om_atpcat,          "#EC NEEDED
  gt_ordbom_ekgrp TYPE RANGE OF /sapapo/matloc-ekgrp,       "#EC NEEDED
  gt_ordbom_matkl TYPE RANGE OF /sapapo/matkey-matkl.       "#EC NEEDED


DATA: T1 TYPE I,
      T2 TYPE I,
      T TYPE P DECIMALS 0.

DATA: GV_C(6) TYPE C .

*&---------------------------------------------------------------------*
*&      Screen
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.

SELECT-OPTIONS:
  s_m FOR ls_ordid.

SELECTION-SCREEN END  OF BLOCK b1.

*&---------------------------------------------------------------------*
*&      INITIALIZATION
*&---------------------------------------------------------------------*
INITIALIZATION.
START-OF-SELECTION.
 gs_gen_params-simversion = '000'.
*  ls_ordid = '051MbrXE7jkUtKu9vyvHAW'.
*  APPEND ls_ordid TO lt_ordid.

LOOP AT s_m INTO DATA(ls_m).

  ls_ordid = ls_m-LOW.
  APPEND ls_ordid TO lt_ordid.

  ENDLOOP.

GET RUN TIME FIELD T1."开始时间

CALL FUNCTION '/SAPAPO/OM_ORDER_GET_DATA'
    EXPORTING
      is_gen_params     = gs_gen_params
      iv_simsession     = space
      it_order          = lt_ordid
    IMPORTING
      et_ordkeys        = gt_ordkeys
      et_activities     = gt_act
      et_ext_inputs     = gt_inputs
      et_ext_outputs    = gt_outputs
    EXCEPTIONS
      lc_connect_failed = 1
      lc_com_error      = 2
      lc_appl_error     = 3
      OTHERS            = 4.

GET RUN TIME FIELD T2."结束时间

T = ( T2 - T1 ) / 1000000.
GV_C = T.
CONDENSE GV_C NO-GAPS.


TYPES:
  BEGIN OF ty_pvcmpd,
    bomid       TYPE /sapapo/om_bomid,
    pvguid      TYPE pvs_pvguid,
    pvcdcnt     TYPE pvs_count,
    zz_com_code TYPE zz_comcode,
    zz_work_ws  TYPE zz_workws,
    zz_work_st  TYPE zz_workst,
    zz_bom_line TYPE zz_bomline,
    aennr       TYPE pvs_aennr,
    datuv       TYPE cc_ccdat,
  END OF ty_pvcmpd.

  DATA:
    ls_inputs TYPE /sapapo/om_io_pp,
    ls_pvcmpd TYPE ty_pvcmpd,
    lt_pvcmpd TYPE TABLE OF ty_pvcmpd.


 LOOP AT gt_inputs INTO ls_inputs WHERE bomid IS NOT INITIAL.
    TRY.
        CALL METHOD cl_system_uuid=>if_system_uuid_static~convert_uuid_c22
          EXPORTING
            uuid     = ls_inputs-bomid
          IMPORTING
            uuid_x16 = ls_pvcmpd-pvguid.
        ls_pvcmpd-bomid = ls_inputs-bomid.
        APPEND ls_pvcmpd TO lt_pvcmpd.
        CLEAR: ls_pvcmpd.
      CATCH cx_uuid_error.
        CONTINUE.
    ENDTRY.
  ENDLOOP.

  WRITE:
/'批量调用 耗时：' , GV_C , '秒',
/'gt_ordkeys行数：' , lines( gt_ordkeys ) ,
/'gt_act行数：'    , lines( gt_act ) ,
/'gt_inputs行数：' , lines( gt_inputs ) ,
/'gt_outputs行数：' , lines( gt_outputs ) .

 

ZJAMES_L002是单次调用这个函数的计时，目的是同上面程序对比，这个函数是批量调用速度快还是单个订单调用速度快。

*&---------------------------------------------------------------------*
*& Report ZJAMES_L002
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZJAMES_L002.

DATA gs_gen_params   TYPE /sapapo/om_gen_params.

  DATA:
    lv_ordid   TYPE /sapapo/om_orderuid,
    lt_ordid   TYPE /sapapo/om_tab_ordid,
    lt_temp   TYPE /sapapo/om_tab_ordid,

    ls_ordid   TYPE LINE OF /sapapo/om_tab_ordid,
    lt_ordkeys TYPE /sapapo/om_ordkey_tab.
 DATA:
  gt_ordstat      TYPE TABLE OF ztpd0002_ordstat,           "#EC NEEDED
  gt_ordkeys      TYPE /sapapo/om_ordkey_tab,               "#EC NEEDED
  gt_act          TYPE /sapapo/om_tab_act,                  "#EC NEEDED
  gt_shift        TYPE /sapapo/rrp_per_stamp_res_tab,       "#EC NEEDED
  gt_inputs       TYPE /sapapo/om_io_pp_tab,                "#EC NEEDED
  gt_outputs      TYPE /sapapo/om_io_pp_tab,                "#EC NEEDED
  gt_pldord_atp   TYPE RANGE OF /sapapo/om_atpcat,          "#EC NEEDED
  gt_ordbom_ekgrp TYPE RANGE OF /sapapo/matloc-ekgrp,       "#EC NEEDED
  gt_ordbom_matkl TYPE RANGE OF /sapapo/matkey-matkl.       "#EC NEEDED


DATA: T1 TYPE I,
      T2 TYPE I,
      T TYPE P DECIMALS 0.
DATA: GV_C(6) TYPE C .
*&---------------------------------------------------------------------*
*&      Screen
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.

SELECT-OPTIONS:
  s_m FOR ls_ordid.

SELECTION-SCREEN END  OF BLOCK b1.

*&---------------------------------------------------------------------*
*&      INITIALIZATION
*&---------------------------------------------------------------------*
INITIALIZATION.
START-OF-SELECTION.
 gs_gen_params-simversion = '000'.

*  ls_ordid = '051MbrXE7jkUtKu9vyvHAW'.
*  APPEND ls_ordid TO lt_ordid.
LOOP AT s_m INTO DATA(ls_m).
  ls_ordid = ls_m-LOW.
  APPEND ls_ordid TO lt_ordid.
  ENDLOOP.

GET RUN TIME FIELD T1.


LOOP AT lt_ordid INTO DATA(ls_temp).

 APPEND ls_temp TO lt_temp.

CALL FUNCTION '/SAPAPO/OM_ORDER_GET_DATA'
    EXPORTING
      is_gen_params     = gs_gen_params
      iv_simsession     = space
      it_order          = lt_temp
    IMPORTING
      et_ordkeys        = gt_ordkeys
      et_activities     = gt_act
      et_ext_inputs     = gt_inputs
      et_ext_outputs    = gt_outputs
    EXCEPTIONS
      lc_connect_failed = 1
      lc_com_error      = 2
      lc_appl_error     = 3
      OTHERS            = 4.


refresh lt_temp.


ENDLOOP.


GET RUN TIME FIELD T2.


T = ( T2 - T1 ) / 1000000.

GV_C = T.
CONDENSE GV_C NO-GAPS.

WRITE: /'单次调用总耗时：' , GV_C , '秒'.