Facing problem in copy of standard SAP program

Question

hi,,,,,,,,,,,,
       when i execute this program in production server it displays an error ....i  m    trying to find out this error but this type(error) i cudnt find plz help me .....
       i m sending the documents which i rcvd from the system after the  execution of this program.
this program executes perfctlly in developmnt server but it creates problem in production server,,,i searched out the type kkblo_t_sortinfo in the whole program but i cud nt find it ,,,,,,,,,
documents.....
Runtime Errors SYNTAX_ERROR
Date and Time 18.11.2006 12:01:19
ShrtText
Syntax error in program "ZVISA_RM07MLBD ".
What happened?
Error in ABAP application program.
The current ABAP program "????????????????????????????????????????" had to be
terminated because one of the
statements could not be executed.
This is probably due to an error in the ABAP program.
In program "ZVISA_RM07MLBD ", the following syntax error occurred
in the Include "RM07MLBD_FORM_01 " in line 1805:
The type KKBLO_T_SORTINFO" is unknown."
also i m sending the include program ver i m facing problem...*&----
*&  Include           RM07MLBD_FORM_01                                 *
correction Aug. 2005 MM                                   "n856424
- the fields "entry time", "entry date", and "User" are   "n856424
  are not filled filled for price change documents        "n856424
MB5B improved regarding accessibilty                      "n773673
Improvements :                       March 2003 MM        "n599218
- print the page numbers                                  "n599218
- send warning M7 393 when user deletes the initial       "n599218
  display variant                                         "n599218
- show the current activity and the progress              "n599218
contains FORM routines without preprocessor commands and  "n547170
no text elements                                          "n547170
*&      Form  INITIALISIERUNG
      Vorbelegung der Anzeigevariante                                *
form initialisierung.
  repid = sy-repid.
  variant_save = 'A'.
  clear variante.
  variante-report = repid.
Default-Variante holen:
  def_variante = variante.
  call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
       exporting
            i_save     = variant_save
       changing
            cs_variant = def_variante
       exceptions
            not_found  = 2.
  if sy-subrc = 0.
  save the initial, e.g. default variant                  "n599218
    move  def_variante-variant  to  alv_default_variant.    "n599218
    p_vari = def_variante-variant.
  endif.
print-no_print_listinfos = 'X'.
endform.                               " INITIALISIERUNG
*&      Form  AKTUELLE_BESTAENDE
     Ermittlung der aktuellen eigenen Bestände,
     d.h. der bewerteten Bestände und des Retourensperrbestandes,
     auf Lagerortebene und auf Material- bzw. Chargenebene;
     folgende Sonderbestände können gesondert ausgewiesen werden:
      Lohnbearbeitung         ( Sonderbestandskennzeichen  O )
      Kundenkonsignation      (             "              V, W, M )
      Lieferantenkonsignation (             "              K )
      Projektbestand          (             "              Q )
      Kundenauftragsbestand   (             "              E )
form aktuelle_bestaende.
delete the range tables for the creation of table g_t_organ
  if  g_t_organ[] is initial.                               "n433765
    refresh : g_0000_ra_werks, g_0000_ra_bwkey, g_0000_ra_bukrs.
    clear   : g_0000_ra_werks, g_0000_ra_bwkey, g_0000_ra_bukrs.
  endif.
  if      bwbst = 'X'.
  select the valuated stocks
    perform                  aktuelle_bst_bwbst.
  elseif lgbst = 'X'.
  all own stock from storage locations or batches
    if xchar = ' '.
      perform                aktuelle_bst_lgbst_mard.
    elseif  xchar = 'X'.
      perform                aktuelle_bst_lgbst_xchar.
    endif.
  elseif   sbbst = 'X'.
   special stocks
    case    sobkz.
      when  'O'.
        perform              aktuelle_bst_sbbst_o.
      when  'V' or  'W'.
        perform              aktuelle_bst_sbbst_v_w.
      when  'K' or  'M'.
        perform              aktuelle_bst_sbbst_k_m.
      when  'Q'.
        perform              aktuelle_bst_sbbst_q.
      when  'E'.
        perform              aktuelle_bst_sbbst_e.
      when  others.
      Angegebener Sonderbestand nicht vorhanden.
        message s290.
        perform              anforderungsbild.
    endcase.
  endif.
create table g_t_organ with the plants and valuation areas from
the database selection if table g_t_organ is empty
  perform  f0000_create_table_g_t_organ
                             using  c_no_error.
endform.                     "aktuelle_bestaende.
*&   AKTUELLE_BST_LGBST_MARD
form aktuelle_bst_lgbst_mard.
eigener Bestand auf Lagerortebene -
... auf Materialebene -
  select * from mard into corresponding fields of table imard
                                         where werks in g_ra_werks
                                         and   lgort in g_ra_lgort
                                         and   matnr in matnr.
  if sy-subrc ne 0.          "no records found ?
    message s289.
  Kein Material in Selektion vorhanden.
    perform                  anforderungsbild.
  endif.
does the user has the the authority for the found entries ?
  loop at imard.
    perform    f9000_auth_plant_check
                             using  imard-werks.
    if  g_flag_authority is initial.
      delete             imard.
    else.
      perform  f9200_collect_plant     using  imard-werks.
      perform  f9400_material_key      using  imard-matnr.
    endif.
  endloop.
  describe table imard       lines g_f_cnt_lines.
  if  g_f_cnt_lines is initial.       "no records left  ?
    message s289.
  Kein Material in Selektion vorhanden.
    perform                  anforderungsbild.
  endif.
  if not charg-low is initial or not charg-high is initial.
    clear charg.
    message w285.
  Charge wird zurückgesetzt.
  endif.
endform.                     "aktuelle_bst_lgbst_mard
   AKTUELLE_BST_LGBST_XCHAR
form aktuelle_bst_lgbst_xchar.
read the stock table mchb for batches
  select * from mchb into corresponding fields of table imchb
                             where   werks  in  g_ra_werks
                               and   lgort  in  g_ra_lgort
                               and   matnr  in  matnr
                               and   charg  in  charg.
  describe table imchb       lines  g_f_cnt_lines.
  if g_f_cnt_lines is initial.         "no records found ?
    message s821 with matnr werks lgort.
  Keine Chargen zu Material & in Werk & Lagerort & vorhanden.
    perform anforderungsbild.
  endif.
process working table with the batches
  loop at imchb.
  does the user has the the authority for the found entries ?
    perform    f9000_auth_plant_check
                             using  imchb-werks.
    if  g_flag_authority is initial.
      delete             imchb.
    else.
      perform  f9200_collect_plant     using  imchb-werks.
      perform  f9400_material_key      using  imchb-matnr.
    endif.
  endloop.
endform.                     "aktuelle_bst_lgbst_xchar
   AKTUELLE_BST_SBBST_O
form aktuelle_bst_sbbst_o.
process Special Stocks with Vendor
Bemerkung: Im Gegensatz zu den anderen Sonderbeständen existieren
           der Lohnbearbeitungs- und Kundenkonsignationsbestand
           nur auf Werksebene.
  select * from mslb into corresponding fields of table xmslb
                             where  werks  in  g_ra_werks
                               and  matnr  in  matnr
                               and  charg  in  charg
                               and  sobkz  =   'O'.
  if sy-subrc <> 0.                     "no records found ?
     message s289.
   Kein Material in Selektion vorhanden.
     perform anforderungsbild.
  endif.
process the found records special stock vendor
  loop at xmslb.
  check the authority
    perform  f9000_auth_plant_check
                             using      xmslb-werks.
    if  g_flag_authority is initial.
      delete                 xmslb.
    else.
    fill range table g_0000_ra_werks if it is still empty
      perform  f9200_collect_plant     using  xmslb-werks.
      perform  f9400_material_key      using  xmslb-matnr.
    endif.
  endloop.
error, if no records are left
  describe table xmslb       lines g_f_cnt_lines.
  if  g_f_cnt_lines is initial.
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
      sort xmslb.
      loop at xmslb.
        move-corresponding xmslb to imslb.
        collect imslb.
      endloop.
      free xmslb. refresh xmslb.
      if xchar = ' '.
        loop at imslb.
          move-corresponding imslb to imslbx.
          collect imslbx.
        endloop.
        sort imslbx.
      elseif xchar = 'X'.
        loop at imslb.
          check imslb-charg is initial.
          delete imslb.
        endloop.
      endif.
endform.                     "aktuelle_bst_sbbst_o.
   AKTUELLE_BST_SBBST_V_W
form aktuelle_bst_sbbst_v_w.
Sonderbestand Kundenkonsignation -
  elseif sobkz = 'V' or sobkz = 'W'.
      select * from msku into corresponding fields of table xmsku
                                         where werks in g_ra_werks
                                         and   matnr in matnr
                                         and   charg in charg
                                         and   sobkz eq sobkz.
  if sy-subrc <> 0.          "no records found
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
process Special Stocks with Customer
  loop at xmsku.
    perform  f9000_auth_plant_check    using     xmsku-werks.
    if  g_flag_authority is initial.
      delete                 xmsku.
    else.
      perform  f9200_collect_plant     using  xmsku-werks.
      perform  f9400_material_key      using  xmsku-matnr.
    endif.
  endloop.
  describe table xmsku       lines  g_f_cnt_lines.
  if g_f_cnt_lines is initial.         "no records found
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
      sort xmsku.
      loop at xmsku.
        move-corresponding xmsku to imsku.
        collect imsku.
      endloop.
      free xmsku. refresh xmsku.
      if xchar = ' '.
        loop at imsku.
          move-corresponding imsku to imskux.
          collect imskux.
        endloop.
        sort imskux.
      elseif xchar = 'X'.
        loop at imsku.
          check imsku-charg is initial.
          delete imsku.
        endloop.
      endif.
      if sy-subrc ne 0.
        message s042.                             "#EC *    "n443935
      Charge ist nicht vorhanden.
        perform anforderungsbild.
      endif.
endform.                     "aktuelle_bst_sbbst_v_w
   AKTUELLE_BST_SBBST_K_M
form aktuelle_bst_sbbst_k_m.
Sonderbestand Lieferantenkonsignation -
  elseif sobkz = 'K' or sobkz = 'M'.
      select * from mkol into corresponding fields of table xmkol
                                        where werks in g_ra_werks
                                        and   lgort in g_ra_lgort
                                        and   matnr in matnr
                                        and   charg in charg
                                        and   sobkz eq sobkz.
  if sy-subrc <> 0.          "no records found
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
process Special Stocks from Vendor
  loop at xmkol.
    perform  f9000_auth_plant_check    using  xmkol-werks.
    if  g_flag_authority is initial.
      delete             xmkol.
    else.
      perform  f9200_collect_plant     using  xmkol-werks.
      perform  f9400_material_key      using  xmkol-matnr.
    endif.
  endloop.
  describe table xmkol       lines  g_f_cnt_lines.
  if g_f_cnt_lines is initial.         "no records found
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
      sort xmkol.
      loop at xmkol.
        move-corresponding xmkol to imkol.
        collect imkol.
      endloop.
      free xmkol. refresh xmkol.
      if xchar = ' '.
        loop at imkol.
          move-corresponding imkol to imkolx.
          collect imkolx.
        endloop.
        sort imkolx.
      elseif xchar = 'X'.
        loop at imkol.
          check imkol-charg is initial.
          delete imkol.
        endloop.
      endif.
      if sy-subrc ne 0.
        message s042.                             "#EC *    "n443935
      Charge ist nicht vorhanden.
        perform anforderungsbild.
      endif.
endform.                     "aktuelle_bst_sbbst_k_m.
   AKTUELLE_BST_SBBST_Q
form aktuelle_bst_sbbst_q.
Projektbestand -
  elseif sobkz = 'Q'.
      select * from mspr into corresponding fields of table xmspr
                                         where werks in g_ra_werks
                                         and   lgort in g_ra_lgort
                                         and   matnr in matnr
                                         and   charg in charg
                                         and   sobkz eq sobkz.
  if sy-subrc <> 0.          "no record found
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
process project stock
  loop at xmspr.
    perform  f9000_auth_plant_check    using  xmspr-werks.
    if  g_flag_authority is initial.
      delete                 xmspr.
    else.
      perform  f9200_collect_plant     using  xmspr-werks.
      perform  f9400_material_key      using  xmspr-matnr.
    endif.
  endloop.
  describe table xmspr       lines  g_f_cnt_lines.
  if  g_f_cnt_lines is initial.        "no record left
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
      sort xmspr.
      loop at xmspr.
        move-corresponding xmspr to imspr.
        collect imspr.
      endloop.
      free xmspr. refresh xmspr.
      if xchar = ' '.
        loop at imspr.
          move-corresponding imspr to imsprx.
          collect imsprx.
        endloop.
        sort imsprx.
      elseif xchar = 'X'.
        loop at imspr.
          check imspr-charg is initial.
          delete imspr.
        endloop.
      endif.
endform.:                     "aktuelle_bst_sbbst_q
   AKTUELLE_BST_SBBST_E
form aktuelle_bst_sbbst_e.
Kundenauftragsbestand -
      select * from mska into corresponding fields of table xmska
                                         where werks in g_ra_werks
                                         and   lgort in g_ra_lgort
                                         and   matnr in matnr
                                         and   charg in charg
                                         and   sobkz eq sobkz.
  if sy-subrc <> 0.            "no records found
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
process Sales Order Stock
  loop at xmska.
    perform  f9000_auth_plant_check    using  xmska-werks.
    if  g_flag_authority is initial.
      delete                   xmska.
    else.
      perform  f9200_collect_plant     using  xmska-werks.
      perform  f9400_material_key      using  xmska-matnr.
    endif.
  endloop.
  describe table xmska       lines  g_f_cnt_lines.
  if  g_f_cnt_lines is initial.        "no records left ?
    message s289.
  Kein Material in Selektion vorhanden.
    perform anforderungsbild.
  endif.
      sort xmska.
      loop at xmska.
        move-corresponding xmska to imska.
        collect imska.
      endloop.
      free xmska. refresh xmska.
      if xchar = ' '.
        loop at imska.
          move-corresponding imska to imskax.
          collect imskax.
        endloop.
        sort imskax.
      elseif xchar = 'X'.
        loop at imska.
          check imska-charg is initial.
          delete imska.
        endloop.
      endif.
endform.                     "aktuelle_bst_sbbst_e
*&      Form  TABELLEN_LESEN
      Lesen der Materialkurztexte (Tabelle MAKT),                    *
      der Mengeneinheiten (Tabelle MARA) und                         *
      Mengen- und Wertfortschreibung zum Material (Tabelle T134M)    *
      (Letzteres ist zum Aussortieren der unbewerteten bzw.          *
      kontierten Warenbewegungen notwendig)                          *
form tabellen_lesen.
  if  not g_t_mat_key[] is initial.                         "n451923
  select the material masters
    select matnr meins mtart from mara
                   into corresponding fields of table imara
                   for all entries in g_t_mat_key
                             where  matnr  =  g_t_mat_key-matnr.
  select the short text for all materials
  take only the necessary fields                          "n451923
    select matnr maktx       from makt                      "n451923
         into corresponding fields of table g_t_makt        "n451923
                   for all entries in g_t_mat_key
                   where  matnr = g_t_mat_key-matnr
                     and  spras = sy-langu.
    sort  imara              by  matnr.                     "n451923
    sort  g_t_makt           by  matnr.                     "n451923
    free                     g_t_mat_key.
  endif.
  data: begin of k1 occurs 0,
    mtart like t134m-mtart,
  end of k1.
  refresh k1.
  loop at imara.
    k1-mtart = imara-mtart.
    collect k1.
  endloop.
  if  not k1[] is initial.                                  "n451923
    select * from t134m
           into corresponding fields of table it134m
           for all entries in k1         where mtart = k1-mtart
                                         and   bwkey in g_ra_bwkey.
  endif.                                                    "n451923
  loop at it134m.
  read table organ with key bwkey = it134m-bwkey.
    perform  f9300_read_organ
                   using     c_bwkey     it134m-bwkey.
    if sy-subrc ne 0.
      delete it134m.
    endif.
  endloop.
To find postings with valuation string, but without relevance for
the valuated stock, Big-G recommended this logic:
Take lines from MSEG where for the combination BUSTW/XAUTO=XBGBB
there is an entry in T156W with key BSX.
  select bustw xbgbb from t156w
                     into corresponding fields of table it156w
                     where vorsl = 'BSX'.
  sort it156w by bustw xbgbb.
  delete adjacent duplicates from it156w.
  delete it156w where bustw = space.
endform.                               " TABELLEN_LESEN
*&      Form  UNBEWERTET_WEG
      Löschen der unbewerteten Materialien aus der internen          *
      Tabelle IMBEW
form unbewertet_weg.
  sort  it134m               by bwkey mtart.                "n451923
                                                            "n450764
delete the materials in plants without valuation          "n450764
  loop at g_t_mbew           into  g_s_mbew.                "n450764
    read table imara                                        "n450764
                   with key matnr = g_s_mbew-matnr          "n450764
                   binary search.                           "n450764
                                                            "n450764
    read table it134m with key bwkey = g_s_mbew-bwkey       "n450764
                               mtart = imara-mtart binary search.
    if sy-subrc ne 0.
    message ...
      delete                 g_t_mbew.                      "n450764
    else.
      if it134m-wertu = ' '.
        delete               g_t_mbew.                      "n450764
      else.                                                 "n450764
      enrich the entries with the quantity unit           "n450764
        move    imara-meins  to    g_s_mbew-meins.          "n450764
        modify  g_t_mbew     from  g_s_mbew                 "n450764
                             transporting  meins.           "n450764
      endif.
    endif.
  endloop.
endform.                               " UNBEWERTET_WEG
*&      Form  FI_BELEGE_LESEN                                          *
      Lesen der Buchhaltungsbelege                                   *
Beim Erfassen der Werte ist es notwendig, die Buchhaltungsbelege    *
zum Material zu lesen, um abweichende Werte zwischen Wareneingang   *
und Rechnungseingang sowie Nachbelastungen zu berücksichtigen.      *
form fi_belege_lesen.
Not related to note 184465, but a significant performance issue
if ORGAN is large due to many plants/storage locations.
  data: begin of t_bwkey occurs 0,                               "184465
          bwkey like bsim-bwkey,                                 "184465
        end of t_bwkey.                                          "184465
  loop at g_t_organ          where  keytype  =  c_bwkey.
    move g_t_organ-bwkey     to  t_bwkey-bwkey.
    collect t_bwkey.                                             "184465
  endloop.                                                       "184465
  read table t_bwkey index 1.                                    "184465
  check sy-subrc = 0.                                            "184465
  select * from bsim                                        "n443935
         into corresponding fields of table g_t_bsim_lean   "n443935
           for all entries in t_bwkey   where  bwkey = t_bwkey-bwkey
                                        and    matnr in matnr
                                        and    bwtar in bwtar
                                        and    budat >= datum-low.
  loop at g_t_bsim_lean      into  g_s_bsim_lean.           "n443935
    perform  f9300_read_organ
                   using     c_bwkey  g_s_bsim_lean-bwkey.  "n443935
    if  sy-subrc is initial.
    record found : the user has the authority, go on
      move  g_s_organ-bukrs  to  g_s_bsim_lean-bukrs.       "n443935
      modify  g_t_bsim_lean  from  g_s_bsim_lean            "n443935
                             transporting  bukrs.           "n451923
    create working table with the keys for the FI documents
      move-corresponding  g_s_bsim_lean                     "n443935
                             to  g_t_bkpf_key.              "n443935
      append                 g_t_bkpf_key.
    else.
      delete                 g_t_bsim_lean.                 "n443935
    endif.
  endloop.
endform.                               " FI_BELEGE_LESEN
*&      Form  BELEGE_SORTIEREN
   Die Materialbelege werden anhand des Buchungsdatums sortiert.
   Die Materialbelege mit Buchungsdatum zwischen 'datum-high'
   und dem aktuellen Datum werden in der internen Tabelle IMSWEG
   gesammelt, während die Materialbelege mit Buchungsdatum
   zwischen 'datum-low' und 'datum-high' in der internen Tabelle
   IMSEG verbleiben.
form belege_sortieren.
  aktdat = sy-datlo + 30.
  if not ( datum-high is initial or datum-high > aktdat ).
    loop at g_t_mseg_lean    into  g_s_mseg_lean
                             where budat > datum-high.
      move-corresponding g_s_mseg_lean to imsweg.
      append imsweg.
      delete                 g_t_mseg_lean.
    endloop.
  endif.
  describe table imsweg lines index_2.
endform.                               " BELEGE_SORTIEREN
*&      Form  KONTIERT_AUSSORTIEREN
      Aussortierung der kontierten Belegpositionen,                  *
      da diese Mengen nicht bestandsrelevant sind                    *
form kontiert_aussortieren.
process table g_t_mseg_lean
loop at imseg where kzvbr <> space and                         "144845
    ( kzbew = 'B' or kzbew = 'F' ).                            "144845
    read table imara with key matnr = imseg-matnr.
    read table it134m with key mtart = imara-mtart.
    if not it134m-mengu is initial and not it134m-wertu is initial.
Die Felder 'mengu' und 'wertu' (Mengen- bzw. Wertfortschreibung)
sind ab Release 3.0 D auch in die Tabelle MSEG aufgenommen.
Die Einträge in der Tabelle T134M stellen nach wie vor die generelle
Einstellung dar; auf Positionsebene sind jedoch Abänderungen möglich,
die anhand der Einträge in der Tabelle MSEG nachverfolgt werden
können.
      delete imseg.
    endif.
endloop.
  data : l_f_bwkey           like  t001k-bwkey.             "n497992
  sort  it134m               by  bwkey  mtart.              "n497992
  loop at g_t_mseg_lean      into  g_s_mseg_lean
                             where  kzvbr <> space
                               and ( kzbew = 'B' or kzbew = 'F' ).
  get the valuation area                                  "n497992
    if  curm = '3'.                                         "n497992
    valuation level is company code                       "n497992
      if  g_s_mseg_lean-bukrs is initial.                   "n497992
      get the valuation area for this plant               "n497992
        perform  f9300_read_organ                           "n497992
                   using     c_werks   g_s_mseg_lean-werks. "n497992
                                                            "n497992
        move  g_s_organ-bwkey     to  l_f_bwkey.            "n497992
      else.                                                 "n497992
        move  g_s_mseg_lean-bukrs to  l_f_bwkey.            "n497992
      endif.                                                "n497992
    else.                                                   "n497992
    valuation level is plant                              "n497992
      move  g_s_mseg_lean-werks   to  l_f_bwkey.            "n497992
    endif.                                                  "n497992
    read table imara with key matnr = g_s_mseg_lean-matnr
                             binary search.
    if  sy-subrc is initial.
      read table it134m      with key  bwkey = l_f_bwkey    "n497992
                                       mtart = imara-mtart  "n497992
                             binary search.
      if  sy-subrc is initial.
        if not it134m-mengu is initial and
           not it134m-wertu is initial.
          delete              g_t_mseg_lean.
        endif.
      endif.
    else.
      delete                  g_t_mseg_lean.
    endif.
  endloop.
endform.                               " KONTIERT_AUSSORTIEREN
*&      Form  BELEGE_ERGAENZEN (engl. enrich documents)
Material documents and FI documents from BSIM are merged together.
Complications:
- A material document can have more than one FI document.
- There are FI documents without material documnts
- There are material documents without FI documents
- The document type is customizeable
- There is no link from the materia document position to
  the FI document entry in BSIM (except URZEILE, but this
  can be filled incorrectly)
form belege_ergaenzen.                         "Version from note 204872
- show the current activity and the progress              "n599218
  call function 'SAPGUI_PROGRESS_INDICATOR'                 "n599218
    exporting                                               "n599218
      text = text-061.       "Reading FI documents          "n599218
Eliminate material documents with valuation string, but without
relevance to the valuated stock. IT156W contains all valuation
strings with posting key BSX. XBGBB says: "I am an accrural posting".
For more details please ask Big-G.
  loop at g_t_mseg_lean      into  g_s_mseg_lean.
  special processing for tied empties active ?            "n497992
    if  not g_cust_tied_empties is initial.                 "n497992
    look for MM documents with xauto = L and change       "n497992
    indicators                                            "n497992
      case  g_s_mseg_lean-xauto.                            "n497992
        when  'X'.                                          "n497992
        when  space.                                        "n497992
        when  others.                                       "n547170
        range table g_ra_xauto contains the special       "n547170
        indicators for the transfer movements of the      "n547170
        tied empties                                      "n547170
          if  g_s_mseg_lean-xauto in g_ra_xauto.            "n547170
            move  g_s_mseg_lean-xauto                         "n497992
                             to  g_s_mseg_lean-retail.        "n497992
            clear              g_s_mseg_lean-xauto.           "n497992
            modify  g_t_mseg_lean    from  g_s_mseg_lean      "n497992
                             transporting xauto retail.       "n497992
          endif.                                            "n547170
      endcase.                                              "n497992
    endif.                                                  "n497992
    read table it156w        with key
                             bustw = g_s_mseg_lean-bustw
                             xbgbb = g_s_mseg_lean-xauto
                             transporting no fields
                             binary search.
    if sy-subrc <> 0.
      delete                 g_t_mseg_lean.
    else.                                                   "n443935
    enrich the current entry with the company code        "n443935
      perform f9300_read_organ                              "n443935
                   using     c_werks  g_s_mseg_lean-werks.  "n443935
                                                            "n443935
      check : sy-subrc is initial.                          "n443935
      move  g_s_organ-bukrs  to  g_s_mseg_lean-bukrs.       "n443935
      modify  g_t_mseg_lean  from  g_s_mseg_lean            "n443935
                             transporting  bukrs.           "n451923
    endif.
  endloop.
For all available FI documents from BSIM, read the header data
from BKPF to get the link to the originating material document.
  if  not g_t_bkpf_key[] is initial.
  look for the header of the matching FI documents
    sort  g_t_bkpf_key       by  bukrs belnr gjahr.
    delete adjacent duplicates from g_t_bkpf_key.
  save result from database selection into global hashed  "n856424
  table g_t_bkpf                                          "n856424
    select  *                 from bkpf                     "n856424
      into corresponding fields of table g_t_bkpf           "n856424
           for all entries in g_t_bkpf_key
                   where  bukrs = g_t_bkpf_key-bukrs
                     and  belnr = g_t_bkpf_key-belnr
                     and  gjahr = g_t_bkpf_key-gjahr.
    if  sy-subrc is initial.
    create working table l_t_keytab_m
      free                   g_t_bkpf_key.
      loop at g_t_bsim_lean  into  g_s_bsim_lean.           "n443935
      enrich the working table g_t_bsim_lean with the     "n443935
      MM doc info                                         "n443935
                                                            "n443935
      look for the matching FI document header            "n443935
        read table g_t_bkpf  assigning           "n856424
                   with key  bukrs = g_s_bsim_lean-bukrs    "n443935
                             belnr = g_s_bsim_lean-belnr    "n443935
                             gjahr = g_s_bsim_lean-gjahr.   "n443935
                                                            "n443935
        if  sy-subrc is initial.                            "n443935
        enrich table G_T_BSIM_LEAN with the MM doc        "n443935
        consider only FI docs created by MM docs here     "n856424
          check :

Answer 1

Hi Ravi,
possibly a service pack has been installed just in the time when you created the copy. I found
    data: lt_sort type kkblo_t_sortinfo.                    "n890109
in the include mentioned on our system. Please check if the includes are identical in development and production server (remote-compare from editor).
But we also have a copy of this in our system. In the copy I found type name like alv_type_sortinfo but no kkblo_t_sortinfo.
Note KKBLO was the predecessor of ALV.
Must have to dio something with version changed by service pack.
Regards,
Clemens