Custom ABAP flatfile loading app with statuses

Question

Hi all,
I inherited a rather large ABAP program that is used here to load flat file data that is emailed to me as CVS files.  One of the nice things about this program is that it "cleans" the data, presents the "to be uploaded data,"  triggers the load and then reports the Load status back.
Unfortunately everything seems to work OK except the load status which always returns the programs error message indicating that the load was not confirmed.
The code basically queries table RSMONICDP a few times and waits 20 seconds.  If the load is not finished by then it returns an error. This means that I have to manually confirm each load and that I can never give this job to a non-BW person to perform (as was the initial intention i think).
Can anyone tell me if there is a better or easier way to report the load statuses (via email or an ABAP function that can embed a customized monitor screen).
===========================
here is the current code:
===========================
  " Verify the success of the request:
  " The problem is, that for data uploads into the fact table,
  " the table RSMONICDP (Request Status MONitor InfoCube Data Package)
  " is the most detailed table to query, however, it does not contain
  " Requests that pertain to info objects.
  " Query table RSMONICDP
  " to check that upload was performed:
  " RSMONICDP-ICUBE = the target cube of a request.
  " RSMONICDP-REC_INSERT = no of records inserted.
  " RSMONICDP-TIMESTAMP = YYYYMMDDhhmmss (UTC)
  DATA:   bw_log_wa  LIKE RSMONICDP,
          no_records TYPE i,
          count      TYPE i.
  DESCRIBE TABLE sales_pack->clean_sales.
  no_records = sy-tfill.
  WHILE count < 8.
    " check if registered as uploaded
    count = count + 1.
    WAIT UP TO 3 SECONDS.            "give BW server time to load.
    SELECT SINGLE *
      FROM  RSMONICDP
      INTO  bw_log_wa
      WHERE ICUBE      = icube        AND
            TIMESTAMP >= time         AND
            REC_INSERT = no_records.
    If sy-subrc <> 0.
      If count >= 3.                 " loop 3 times, server may be slow
        w_tit    = 'ERROR'.
        w_msg1   = 'The upload was not confirmed by BW within 20 sec.!'.
        w_msg2   = 'Probably the Schedule does not respond to events'.
        w_msg3   = 'Or the Server is slow.'.
        CALL SELECTION-SCREEN 200 STARTING AT 10 10.
        MESSAGE 'Upload job failed !!!!!!!.'  TYPE 'S'.
        return = 'False'.
        RETURN.
      ENDIF.
    ELSE.
      IF bw_log_wa-STATUS <> '@08@' OR bw_log_wa-QMSTATUS <> ''.
        w_tit    = 'ERROR'.
        w_msg1   = 'The upload was performed by BW but failed !'.
        CONCATENATE  'Remove manually request '
                     bw_log_wa-RNR
                     INTO w_msg2.
        w_msg3   = 'See your administrator !'.
        CALL SELECTION-SCREEN 200 STARTING AT 10 10.
        MESSAGE 'Upload request marked red !!!.'  TYPE 'S'.
        return = 'False'.
      ENDIF.
      EXIT.    " get out of while loop.
    ENDIF.
   ENDWHILE.
   MESSAGE 'Data uploaded into BW !.'  TYPE 'S'.
   return = 'True'.
endform.

Answer 1

Hi,
can you try:
- select ViewProject
- choose Run --> Clear <project name>
- Make project
Frank