FORM DATA_SELECT .
  DATA : I_BUDAT LIKE MKPF-BUDAT.

  REFRESH R_MATNR.
  CONCATENATE P_BUDAT '01' INTO R_MATNR-LOW.

  CLEAR I_BUDAT.
  MOVE R_BUDAT-LOW TO I_BUDAT.

  CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
    EXPORTING
      DAY_IN            = I_BUDAT
    IMPORTING
      LAST_DAY_OF_MONTH = R_BUDAT-HIGH
    EXCEPTIONS
      DAY_IN_NO_DATE    = 1
      OTHERS            = 2.

  R_BUDAT-SIGN = 'I'.
  R_BUDAT-OPTION = 'BT'.
  APPEND R_BUDAT. CLEAR R_BUDAT.

  REFRESH : GT_LIST1, GT_LIST2,  GT_TEMP.
  SELECT A~MATNR
         A~LIFNR
         A~SJAHR
         A~SMBLN
         A~SMBLP
         A~DMBTR AS DMBTR1
         A~WAERS
         B~BUDAT
  INTO CORRESPONDING FIELDS OF TABLE GT_LIST1
  FROM MSEG AS A
   INNER JOIN MKPF AS B
    ON A~MBLNR = B~MBLNR AND A~MJAHR = B~MJAHR
 WHERE A~BWART = '101'
   AND B~BUDAT IN R_BUDAT
   AND A~MATNR IN S_MATNR.

*--< 취소문서 찾기
  DATA : L_MATNR LIKE MSEG-MATNR.
  LOOP AT GT_LIST1.

    SELECT SINGLE MATNR INTO L_MATNR
    FROM MSEG
    WHERE MBLNR = GT_LIST1-SMBLN
      AND MJAHR = GT_LIST1-SJAHR
      AND ZEILE = GT_LIST1-SMBLP.

    IF SY-SUBRC = 0.
      MOVE 'X' TO GT_LIST1-MARK.
    ENDIF.

    MODIFY GT_LIST1. CLEAR GT_LIST1.
  ENDLOOP.

  DELETE GT_LIST1 WHERE MARK = 'X'.

ENDFORM.                    " DATA_SELECT

여기서 덤프가 떨어지는데 왜그런지 모르겠습니다...

고수님들 도와주십쇼.....!!