Проверки в CA01 при сохранении

Используется Enhancement Spot ES_SAPLCPDI.

В точке EHP604_LCPDIFV1_01 (группа функций CPDI, подпрограмма VB_PLAN) добавить чтение данных с помощью COLLECT_TASK_LIST_DATA и проверку полученных данных:

  DATA:
    zlt_plkz_tab TYPE plkz_tab,
    zlt_plko_tab TYPE plko_tab,
    zlt_plas_tab TYPE plas_tab,
    zlt_plpo_tab TYPE plpo_tab,
    zlt_plfh_tab TYPE plfh_tab,
    zlt_plmz_tab TYPE plmz_tab,
    zlt_stpo_tab TYPE stpo_tab,
    zlt_plwp_tab TYPE plwp_tab.

  PERFORM collect_task_list_data
    USING rc271
          tca01
          'X'
          'X'
          'X'
          'X'
    CHANGING zlt_plkz_tab
             zlt_plko_tab
             zlt_plas_tab
             zlt_plpo_tab
             zlt_plfh_tab
             zlt_plmz_tab
             zlt_stpo_tab
             zlt_plwp_tab.

  IF zcl_task_list_check=>check_plpo( it_plpo = zlt_plpo_tab ) = abap_false.
    MESSAGE 'Error' TYPE 'S' DISPLAY LIKE 'E'.
    ok-code = ok_const-enter.
    EXIT.
  ENDIF.

В точке EHP604_LCPDIFP1_02 (группа функций CPDI, подпрограмма PLAN_TR_CHANGE) сделать аналогично:

  DATA:
    zlt_plkz_tab TYPE plkz_tab,
    zlt_plko_tab TYPE plko_tab,
    zlt_plas_tab TYPE plas_tab,
    zlt_plpo_tab TYPE plpo_tab,
    zlt_plfh_tab TYPE plfh_tab,
    zlt_plmz_tab TYPE plmz_tab,
    zlt_stpo_tab TYPE stpo_tab,
    zlt_plwp_tab TYPE plwp_tab.

  PERFORM collect_task_list_data
    USING rc271
          tca01
          'X'
          'X'
          'X'
          'X'
    CHANGING zlt_plkz_tab
             zlt_plko_tab
             zlt_plas_tab
             zlt_plpo_tab
             zlt_plfh_tab
             zlt_plmz_tab
             zlt_stpo_tab
             zlt_plwp_tab.

  IF zcl_task_list_check=>check_plpo( it_plpo = zlt_plpo_tab ) = abap_false.
    MESSAGE 'Error' TYPE 'S' DISPLAY LIKE 'E'.
    ok-code = ok_const-enter.
    EXIT.
  ENDIF.