check not i_queue[] is initial.
  types begin of extended_edidc_t.
          include structure edidc.
  types znal_ser type edp21-znal_ser.
  types end of extended_edidc_t.
  data t_edidc type table of extended_edidc_t with header line.

  data t_idoc_data type table of edidd.
  data t_edidc_temp type table of edidc with header line.

  select * into corresponding fields of table t_edidc  from edidc
  left join edp21
  on
    edp21~sndprn = edidc~sndprn and
    edp21~sndprt = edidc~sndprt and
    edp21~sndpfc = edidc~sndpfc and
    edp21~mestyp = edidc~mestyp and
    edp21~mescod = edidc~mescod and
    edp21~mesfct = edidc~mesfct and
    edp21~test = ''
  for all entries in i_queue where
  docnum =   i_queue-docnum.
  field-symbols <fs_edidc> like line of t_edidc.
  loop at i_queue.
    read table t_edidc with key docnum = i_queue-docnum
      assigning <fs_edidc>.
    check sy-subrc = 0.
    refresh:
      t_edidc_temp,
      t_idoc_data.
    move-corresponding <fs_edidc> to t_edidc_temp.
    append t_edidc_temp.
    call function 'ALE_FTCH_DATA_SEGMENTS_OF_IDOC'
         tables
              t_idoc_control = t_edidc_temp[]
              t_idoc_data    = t_idoc_data[].

    call function 'IDOC_START_INBOUND'
         exporting
              pi_called_online              = ' '
              pi_do_commit                  = 'X'
         tables
              t_control_records             = t_edidc_temp[]
              t_data_records                = t_idoc_data[]
         exceptions
              invalid_document_number       = 1
              error_before_call_application = 2
              inbound_process_not_possible  = 3
              old_wf_start_failed           = 4
              wf_task_error                 = 5
              serious_inbound_error         = 6
              others                        = 7.
    if not <fs_edidc>-znal_ser is initial and sy-subrc <> 0.
      message e368(e0) with <fs_edidc>-docnum raising inbound_error.
    endif.
    if not <fs_edidc>-znal_ser is initial.
      select single status into  t_edidc-status
      from edidc where docnum = <fs_edidc>-docnum.
      if t_edidc-status = '51'.
        message e368(e0) with <fs_edidc>-docnum raising inbound_error.
      endif.
    endif.
    delete i_queue where docnum = <fs_edidc>-docnum.
  endloop.

        RANGES r_sec FOR znnsdm_tzr_cfg-sec_group OCCURS 0.
        r_sec-sign = 'I'.
        r_sec-option = 'EQ'.
        r_sec-low = sec_group.
        APPEND r_sec.

          SUBMIT znns_mat_assign_tzr
          WITH p_tzr EQ s_tzr-tzr
          WITH s_sec IN r_sec[]
          WITH p_test = ''
          WITH p_onlyer = 'X'
          WITH p_print = ' '
           AND RETURN.