Update rule problem - while data load

Question

Hi friends,
I got the following error while doing initialisation for 2lis_02_sgr.
"ABORT was set in the customer routine 9998
Error 1 in the update "
In the forum i searched for this error and this error is something related to the start routine in my update rule.
But i dont know whats wrong with my routine.
Im giving the start routine below,pls go through this and give me your suggestions..
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
<i>TABLES /bic/AZMM_PUR100 .
DATA:  T_PUR1 LIKE /bic/AZMM_PUR100 OCCURS 0 WITH HEADER LINE.</i>
$$ end of global - insert your declaration only before this line   -
The follow definition is new in the BW3.x
TYPES:
  BEGIN OF DATA_PACKAGE_STRUCTURE.
     INCLUDE STRUCTURE /BIC/CS2LIS_02_SGR.
TYPES:
     RECNO   LIKE sy-tabix,
  END OF DATA_PACKAGE_STRUCTURE.
DATA:
  DATA_PACKAGE TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
FORM startup
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
           MONITOR_RECNO STRUCTURE RSMONITORS " monitoring with record n
           DATA_PACKAGE STRUCTURE DATA_PACKAGE
  USING    RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal tables "MONITOR" and/or "MONITOR_RECNO",
to make monitor entries
if abort is not equal zero, the update process will be canceled
  CLEAR: T_PUR1[] ,
         T_PUR1,
         ABORT.
  SELECT * INTO TABLE T_PUR1 FROM /bic/AZMM_PUR100.
  IF SY-SUBRC EQ 0.
    SORT T_PUR1 BY DOC_DATE
                   DOC_ITEM
                    DOC_NUM.
  ELSE.
    MONITOR-msgid = sy-msgid.
    MONITOR-msgty = sy-msgty.
    MONITOR-msgno = sy-msgno.
    MONITOR-msgv1 = sy-msgv1.
    MONITOR-msgv2 = sy-msgv2.
    MONITOR-msgv3 = sy-msgv3.
    MONITOR-msgv4 = sy-msgv4.
    append MONITOR.
  if abort is not equal zero, the update process will be canceled
         ABORT = 1.
  ENDIF.
   ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
Thanks & Regards
Ragu

Answer 1

thanks gimmo and a.h.p,
i have done the correction as you said,pls verify that.
And also kindly explain me what is the reason for this start routine,what exactly it does???
CLEAR: T_PUR1[] ,
         T_PUR1,
         ABORT.
  SELECT * INTO TABLE T_PUR1 FROM /bic/AZMM_PUR100.
  IF SY-SUBRC EQ 0.
    SORT T_PUR1 BY DOC_DATE
                   DOC_ITEM
                    DOC_NUM.
abort = 0.    (  added  abort = 0 as per your suggestion )
  ELSE.
    MONITOR-msgid = sy-msgid.
    MONITOR-msgty = sy-msgty.
    MONITOR-msgno = sy-msgno.
    MONITOR-msgv1 = sy-msgv1.
    MONITOR-msgv2 = sy-msgv2.
    MONITOR-msgv3 = sy-msgv3.
    MONITOR-msgv4 = sy-msgv4.
    append MONITOR.
  if abort is not equal zero, the update process will be canceled
         ABORT = 1.
exit. ( added exit as per your suggestion )
  ENDIF.
   ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
Thanks & Regards
ragu