Submit program

CALL FUNCTION 'DEQUEUE_ALL'.
      read table it_comm_idocs into wa_comm_idocs index 1.
      if sy-subrc = 0.
      RANGES: R_DOCNUM  FOR  EDIDC-DOCNUM.
      R_DOCNUM-SIGN = 'I'.
      R_DOCNUM-OPTION = 'EQ'.
      R_DOCNUM-LOW = wa_comm_idocs-DOCNUM.
      APPEND R_DOCNUM.
      submit RSEOUT00 with DOCNUM in R_DOCNUM and return.
      endif.