TYPES:    

      BEGIN OF TY_CHG_IDENTS,

         CPIDENT TYPE BDCP-CPIDENT,         "修改指標 ID

       END OF TY_CHG_IDENTS.

DATA: WA_CHGPTRS    TYPE BDCP,

      GT_CHGPTRS    TYPE TABLE OF BDCP,

      WA_CHG_IDENTS TYPE TY_CHG_IDENTS,

      GT_CHG_IDENTS TYPE TABLE OF TY_CHG_IDENTS.

*------------------------------------------------------------*

*    DESC: 定義變/常量                                                 *

*------------------------------------------------------------*

CONSTANTS: C_MSGTYPE    TYPE EDI_MESTYP VALUE 'DEBMAS'."ZDEBMAS

"讀取修改的資料

  DATA:LT_RANGE_KUNNR TYPE RANGE OF KNA1-KUNNR,

       LS_RANGE_KUNNR LIKE LINE OF LT_RANGE_KUNNR.

  CLEAR:GT_CHGPTRS[],LT_RANGE_KUNNR.

  G_DATUM = SY-DATUM.

  G_UZEIT = SY-UZEIT.

  CALL FUNCTION 'CHANGE_POINTERS_READ'

    EXPORTING

      CREATION_DATE_HIGH          = G_DATUM     "CREATION DATE UPPER LIMIT 預設當前日期

      CREATION_TIME_HIGH          = G_UZEIT     "CREATION TIME UPPER LIMIT

      MESSAGE_TYPE                = C_MSGTYPE    "MESSAGE TYPE

      READ_NOT_PROCESSED_POINTERS = 'X'          "為空時，獲取已處理的；預設為‘X'，獲取未處理的

    TABLES

      CHANGE_POINTERS             = GT_CHGPTRS.  "CHANGE POINT資料