Re: Idoc Status 30 remain

Hi Dimitris,

Try like this

data : lt_edidd type table of edidd.

CALL FUNCTION 'IDOC_OUTBOUND_WRITE_TO_DB'
* EXPORTING
*   ERROR_HANDLING_START       = 'X'
* IMPORTING
*   STATE_OF_IDOC              =
     TABLES
       INT_EDIDD                  = DATA_RECORDS
     CHANGING
       INT_EDIDC                  = CONTROL_RECORD
    EXCEPTIONS
      IDOC_NOT_SAVED             = 1
      OTHERS                     = 2
             .
   IF SY-SUBRC <> 0.
     MESSAGE I398(00) WITH TEXT-003
                           TEXT-004.
     RETCODE = '9'.

ELSE.

 

CALL FUNCTION 'EDI_OUTPUT_NEW'

* EXPORTING

*   ONL_OPTION        = ONLINE

*   ERROR_FLAG        = ' '

*   NAST_RECORD       =

   TABLES

     i_edidc           = control_record

     i_edidd           = lt_eidid.

CALL FUNCTION 'DB_COMMIT'

 

CALL FUNCTION 'DEQUEUE_ALL'

* EXPORTING

*   _SYNCHRON       = ' '

 

COMMIT WORK.

 

endif.

Comment the COMMIT WORK AND WAIT in the below statements.

IF SY-BINPT = SPACE.

     COMMIT WORK AND WAIT.

   ENDIF.

I hope this will be helpful.

Thanks & Regards,

Raghunadh Kodali.