Serial number table in Delivery document(VL02,VL02n)

  call function 'SERNR_ADD_TO_LS'
      exporting
        profile               = lips-serail
        material              = lips-matnr
        m_charge              = lips-charg
        quantity              = lf_anzsn
        j_vorgang             =  'PMS3' 
        cuobj                 = lips-cuobj
        document              = lips-vbeln
        item                  = lips-posnr
        debitor               = likp-kunnr
        vbtyp                 = likp-vbtyp
        bwart                 = lips-bwart
      importing
        anzsn                 = lips-anzsn
        zeilen_id             = lf_line_id
      tables
        sernos                = lt_sernos
      exceptions
        serialnumber_errors   = 1
        serialnumber_warnings = 2.
if sy-subrc eq 0.
 
*  call submit program !!!if you don't call not update delivery
      perform serial_liste_post_ls in program saplipw1.
      commit work.
    endif.