L IDOC SEND

     *.......Send IDOC ............................................
 
       call function 'L_IDOC_SEND'
            tables
                   t_comm_idoc  =  comm_idoc_control
            exceptions
                   error_distribute_idoc = 01.
 
       if sy-subrc  ne 0.
         message id sy-msgid  type 'A'       number sy-msgno
             with   sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
       endif.