Runtime error when inserting rows in hrp1018 and hrt1018 tables

Question

Hi All,
I have a requirement to insert row in hrp1018 and hrt1018 tables.These tables are interlinked.So, I have used FM 'RH_INSERT_INFTY'. The exact code which I have used is as follows.
*****************************************code***************************************************************
<< Please post only the relevant portion of the code >>
The runtime error which is coming is as follows:
Error analysis
    An internal error in the database interface occurred during access to
    the data of table "HRT1018 ".
    The situation points to an internal error in the SAP software
    or to an incorrect status of the respective work process.
    For further analysis the SAP system log should be examined
    (transaction SM21).
    For a precise analysis of the error, you should supply
    documents with as many details as possible.
Please let me know why this error is coming.I am not able to find out mistake in the FM and form used in the code.
Thanks in advance,
BBKrishna.
Edited by: Rob Burbank on Jun 9, 2009 1:31 PM

Answer 1

I am adding the code once again.Please let me know why the error is coming up.
lv_mproj = 'BLDNG'.
  wa_p1018-mandt = sy-mandt.
  wa_p1018-otype = '9M'.
  wa_p1018-objid = '50009650'.
  wa_p1018-begda = '20090608'.
  wa_p1018-endda = '99991231'.
  wa_p1018-infty = '1018'.
  wa_p1018-plvar = '01'.
  wa_p1018-otype = '9M'.
  wa_p1018-istat = '1'.
  append wa_p1018 to it_p1018.
  repid = sy-repid.
*Updating hrp1018 and hrt1018 tables
  CALL FUNCTION 'RH_INSERT_INFTY'
    EXPORTING
    FCODE                     = 'INSE'
    VTASK                     = 'D'
     AUTHY                    = ' '
      REPID                   =  repid
      FORM                    = 'FILL_TABS'
    TABLES
      INNNN                   = it_p1018
EXCEPTIONS
   NO_AUTHORIZATION          = 1
   ERROR_DURING_INSERT       = 2
   REPID_FORM_INITIAL        = 3
   CORR_EXIT                 = 4
   BEGDA_GREATER_ENDDA       = 5
   OTHERS                    = 6
  IF SY-SUBRC <> 0.
    CALL FUNCTION 'BALW_BAPIRETURN_GET'
      EXPORTING
        TYPE                             = SY-MSGTY
        CL                               = sy-msgid
        NUMBER                           = SY-MSGNO
  PAR1                             = ' '
  PAR2                             = ' '
  PAR3                             = ' '
  PAR4                             = ' '
  LOG_NO                           = ' '
  LOG_MSG_NO                       = ' '
     IMPORTING
       BAPIRETURN                        = return_rec
EXCEPTIONS
  ONLY_2_CHAR_FOR_MESSAGE_ID       = 1
  OTHERS                           = 2
    IF SY-SUBRC <> 0.
        lv_mproj = text-011
                  ELSE.
                  ii_return = return_rec.
                  CONCATENATE                  ii_return-type '-' ii_return-message
                  INTO lv_err_msg SEPARATED BY SPACE.
    ENDIF.
  ENDIF.
*RHCD_TAB-PROZT
   FORM fill_tabs TABLES ins_tab
               USING ins_set ins_index.
  DATA : BEGIN OF set.
          INCLUDE STRUCTURE wplog.
  DATA : END   OF set.
  DATA: BEGIN OF h_pt1018.             "to initialize INS_TAB
          INCLUDE STRUCTURE pt1018.
  DATA: END OF h_pt1018.
  REFRESH ins_tab.
  set = ins_set.
  CASE set-infty.
    WHEN '1018'.
      h_pt1018-posnr = lv_mproj.
      h_pt1018-prozt = '100.00'.
      IF NOT ( h_pt1018 IS INITIAL ).
        CLEAR ins_tab.
        ins_tab+36(8) = lv_mproj. "h_pt1018.
        ins_tab+134(5) = '100.00'.
        APPEND ins_tab.
      ENDIF.
  ENDCASE.
ENDFORM.