SAP BW 处理链 建立依赖程序判断是否往下执行！

PARAMETERS:

  P_CHAIN TYPE RSPC_CHAIN.

 

*data:

*  eventid like tbtcstrt-eventid,

*  eventparm like tbtcstrt-eventparm.

** 在数据链的事件中触发中使用以下两个参数

* eventid = 'RSPROCESS'.

* eventparm = '4CYE4BGR1PU8CXPVWX3WU7H8K'.

 

 

DATA:

  LV_SECONDS    TYPE    I,

  LS_RSPCLOGCHAIN    TYPE      RSPCLOGCHAIN,

  LS_DATA    type    D.

  LS_DATA  =  SY-DATUM - 1.

  do.

    CLEAR LS_RSPCLOGCHAIN.

    select SINGLE * INTO      LS_RSPCLOGCHAIN

      FROM RSPCLOGCHAIN

     WHERE CHAIN_ID = P_CHAIN

       AND DATUM = LS_DATA .

 

    IF LS_RSPCLOGCHAIN-ANALYZED_STATUS EQ 'G' OR

        LS_RSPCLOGCHAIN-ANALYZED_STATUS EQ 'F' .

      EXIT.

    ELSE.

      LV_SECONDS = LV_SECONDS + 30.

      WAIT UP TO 30 SECONDS.

    ENDIF.

    IF LV_SECONDS >= 3600.

      MESSAGE E398(00) WITH '处理链' P_CHAIN '监控超时！'.

    ENDIF.

 

  ENDDO.