Material batch characteristics

Question

Hi all,
             I have a requirement to fetch the material batch characteristics with delivery number as input and print the characteristics for the corresponding batches. Can you please say me the logic to fetch the details ? It is an urgent requirement..
Thanks & Regards,
RamaKrishnan .T

Answer 1

Hi
See the sample code for fetching the BAtch characteristics of Material
report z21311r_batch_char no standard page heading
                          line-size  132
                          line-count 58(1)
                          message-id mm.
Declaration for Tables
tables: mara,    " Material Master
        mard,    " Storage Location Data for Material
        t001w,   " Plants/Branches
        t001l,   " Storage Locations
        cabn,    " Characteristics
        inob.    " Link between Internal Number and Object
Declaration for Constants
constants : c_klart like ausp-klart value '023',     " Class Type
            c_obtab like inob-obtab value 'MCH1',    " Database Table
            c_flag  type c          value 'X',       " Flag
            c_c23   type i          value '23',      " Ratio
Constants for Ratio Categories
            c_13    type p decimals 2 value '13.00', " For Ratio 13
            c_1499  type p decimals 2 value '14.99', " For Ratio 14.99
            c_15    type p decimals 2 value '15.00', " For Ratio 15
            c_1699  type p decimals 2 value '16.99', " For Ratio  16.99
            c_17    type p decimals 2 value '17.00', " For Ratio 17
            c_1899  type p decimals 2 value '18.99', " For Ratio 18.99
            c_19    type p decimals 2 value '19.00', " For Ratio 19
            c_2099  type p decimals 2 value '20.99', " For Ratio 20.99
            c_21    type p decimals 2 value '21.00', " For Ratio 21
            c_2299  type p decimals 2 value '22.99', " For Ratio 22.99
            c_23    type p decimals 2 value '23.00', " For Ratio 23
            c_g23(4) type c value '>=23',            " For Ratio >=23
            c_ratio(5) value 'RATIO',                  " For Ratio
Constants for Storing Selected item field information
            c_cursor1(15) value 'I_OUTPUT1-MEINS',   " For Selected Base
                                                     " Unit of Measure
            c_cursor2(15) value 'I_OUTPUT1-MATNR',   " For Selected Base
                                                     " Material Number
            c_cursor3(15) value 'I_OUTPUT1-MAKTX',   " For Selected Base
                                                     " Material Des.
            c_cursor4(15) value 'I_OUTPUT1-CLABS',   "For Selected Base
                                                     " Stock Value
            c_cursor5(15) value 'I_OUTPUT1-ATFLV',   " For Selected Base
                                                    " Char.Value (Ratio)
            c_cursor6(5) value 'C_G23'.
Declaration for Global Variables
data : g_exit  type c,                            " Flag
       g_clabs1(16) type c,                       " Quantity
       g_clabs(18)  type c,                       " Quantity
       g_cursor(15) type c,                       " Cursor field name
       g_matnr     type mara-matnr,               " Material Number
       g_werks     type mchb-werks,               " Plant
       g_atinn(30) type c.                        " Character.
Declaration for Internal tables
Internal table to hold Batch Stock data
data : begin of i_mchb occurs 0,
         matnr like mchb-matnr,      " Material Number
         werks like mchb-werks,      " Plant
         lgort like mchb-lgort,      " Storage Location
         charg like mchb-charg,      " Batch Number
         clabs like mchb-clabs,      " Stock Value
         meins like mara-meins,      " Unit of measure
         atflo like ausp-atflv,      " Char.Value (Ratio)
         atflv like ausp-atflv,      " Char.Value (Ratio)
       end of i_mchb.
Internal table to hold Secondary List data
data : begin of i_mchb1 occurs 0,
         werks like mchb-werks,      " Plant
         matnr like mchb-matnr,      " Material Number
         lgort like mchb-lgort,      " Storage Location
         charg like mchb-charg,      " Batch Number
         atinn like ausp-atinn,      " Char.Value
         clabs like mchb-clabs,      " Stock Value
         atflo like ausp-atflv,      " Char.Value (Ratio)
         atflv like ausp-atflv,      " Char.Value (Ratio)
       end of i_mchb1.
Internal table to get the Plant Name
data : begin of i_plant occurs 0,
         werks like t001w-werks,     " Plant
         name1 like t001w-name1,     " Name
       end of i_plant.
Internal table to get the Material Description
data : begin of i_makt occurs 0,
         matnr like makt-matnr,      " Material
         maktx like makt-maktx,     " Description
       end of i_makt.
Internal table to hold AUSP data
data : begin of i_ausp occurs 0,
         objek like ausp-objek,      " Object No
         atinn like cabn-atinn,      " Characteric value
         atflv like ausp-atflv,      " Characteristic Value
       end of i_ausp.
Internal table to hold output data
data : begin of i_output occurs 0,
         atinn like cabn-atinn,      " Characteric value
         werks like mchb-werks,      " Plant
         matnr like mchb-matnr,      " Material Number
         atnam like cabn-atnam,      " Characteristic
         atflv like ausp-atflv,      " Char.Value (Ratio)
         name1 like t001w-name1,     " Plant Description
         maktx like makt-maktx,      " Material Description
         clabs like mchb-clabs,      " Stock Value
         meins like mara-meins,      " Base Unit of Measure
       end of i_output.
Internal table to hold final Output data
data : begin of i_output1 occurs 0,
         atinn like cabn-atinn,      " Characteric value
         werks like mchb-werks,      " Plant
         matnr like mchb-matnr,      " Material Number
         atnam like cabn-atnam,      " Characteristic
         atflv(32) type c,           " Char.Value (Ratio)
         name1 like t001w-name1,     " Plant Description
         maktx like makt-maktx,      " Material Description
         clabs like mchb-clabs,      " Stock Value
         meins like mara-meins,      " Base Unit of Measure
       end of i_output1.
       Selection screen
selection-screen begin of block b1 with frame title text-001.
select-options: s_werks for t001w-werks obligatory,  " Plant
                s_lgort for t001l-lgort,             " Stor.Location
                s_matnr for mara-matnr  obligatory,  " Material No
                s_atinn for cabn-atinn.              " Character.
selection-screen end of block b1.
At selection screen
at selection-screen.
Validation of Selection Screen Fields
  perform validate_screen.
Start of selection
start-of-selection.
Get the Material and Batch Stock data from MARA and MCHB Tables
  perform get_mat_stock_data.
Get the Material Group Text and Plant Name from T023T and T001W Tables
  perform get_plant_grp_data.
Append the data into final Output Internal Table after getting the
Characteristic Values data from INOB and AUSP Tables
  perform append_final_data.
Processing if the Characteristics contain 'RATIO'
  perform collect_ratio.
End-of-Page
end-of-page.
  write /1(125) sy-uline.
End of selection
end-of-selection.
  if g_exit <> c_flag.
Display the Report Output data
    perform display_report.
  endif.
Top-of-Page
top-of-page.
Write the Report and Column Headings
  perform get_headings.
at line-selection
at line-selection.
  if sy-lsind = 1.
    perform display_batch.
  endif.
Top of page during line-selection
top-of-page during line-selection.
  perform heading_seclist.
      Form validate_screen
Validation of Selection Screen fields
form validate_screen.
Validation of Plant
  clear t001w.
  if not s_werks[] is initial.
    select werks
      into t001w-werks
      from t001w
      up to 1 rows
      where werks in s_werks.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Plant'(002).
    endif.
  endif.
Validation of Material Number
  clear mara.
  if not s_matnr[] is initial.
    select matnr
      into mara-matnr
      from mara
      up to 1 rows
      where matnr in s_matnr.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Material'(003).
    endif.
  endif.
Validation of Storage Location
  clear t001l.
  if not s_lgort[] is initial.
    select lgort
      into t001l-lgort
      from t001l
      up to 1 rows
      where lgort in s_lgort.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Storage Location'(004).
    endif.
  endif.
Validation of Characteristic Value
  clear cabn.
  if not s_atinn[] is initial.
    select atinn
      into cabn-atinn
      from cabn
      up to 1 rows
      where atinn in s_atinn.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Characteristic Value'(005).
    endif.
  endif.
Validation of Plant, Material and Storage Location
  clear mard.
  select matnr werks lgort
    into (mard-matnr, mard-werks, mard-lgort)
    from mard
    up to 1 rows
    where matnr in s_matnr and
          werks in s_werks and
          lgort in s_lgort.
  endselect.
  if sy-subrc <> 0.
    message e899 with 'No Data found for the Selection Criteria'(006).
  endif.
endform.                          "validate_screen
*&      Form  get_headings
Write the Report and Column Headings
form get_headings.
  data: l_repid type sy-repid.
  l_repid =  sy-repid.
  call function 'Y_STANDARD_HEADING'
       exporting
            repid    = l_repid
            heading1 = sy-title.
  write:/1(125) sy-uline.
  format color col_heading on.
  write : /1  sy-vline,  2(18)   'Material Number'(008) centered,
          20  sy-vline,  21(40)  'Material Description'(011) centered,
          61  sy-vline,  62(22)  'Ratio'(009) centered,
          84  sy-vline,  85(18)  'Quantity'(010) centered,
         103  sy-vline, 104(20)  'Base Unit of Measure'(015) centered,
         125  sy-vline.
  write:/1(125) sy-uline.
  format color off.
endform.                    "get_headings
*&      Form  get_mat_stock_data
Get the Material and Batch Stock data from MARA and MCHB Tables
form get_mat_stock_data.
  clear: i_mchb,i_output, i_output1.
  refresh: i_mchb,i_output, i_output1.
  select a~matnr       " Material Number
         b~werks       " Plant
         b~lgort       " Storage Location
         b~charg       " Batch Number
         b~clabs       " Stock Value
         a~meins       " Base Unit of Measure
      into table i_mchb
      from mara as a inner join mchb as b
      on amatnr eq bmatnr
      where b~matnr in s_matnr and
            b~werks in s_werks and
            b~lgort in s_lgort.
  if sy-subrc <> 0.
    g_exit = c_flag.
    message s899 with 'No Data found for the Selection Criteria'(006).
    stop.
  endif.
  sort i_mchb by matnr werks lgort charg.
endform.                    " get_mat_stock_data
*&      Form  get_plant_grp_data
Get the Material Group Text and Plant Name from T023T and T001W
form get_plant_grp_data.
  if not i_mchb[] is initial.
Get the Plant Description from t001w Table
    clear i_plant.
    refresh i_plant.
    select werks      " Plant
           name1      " Name
      into table i_plant
      from t001w
      for all entries in i_mchb
      where werks = i_mchb-werks.
Get the Material Description from MAKT Table
    clear i_makt.
    refresh i_makt.
    select matnr      " Material number
           maktx      " Material Description
      into table i_makt
      from makt
      for all entries in i_mchb
      where matnr = i_mchb-matnr and
            spras = sy-langu.
    sort i_plant by werks.
    delete adjacent duplicates from i_plant comparing werks.
    sort i_makt by matnr.
    delete adjacent duplicates from i_makt comparing matnr.
  endif.
endform.                   "form get_plant_grp_data.
*&      Form  append_final_data
Append the data into final Internal Table
form append_final_data.
  data : l_matbatch(28),
         l_tabix like sy-tabix.
  if not i_mchb[] is initial.
    loop at i_mchb.
      l_tabix = sy-tabix.
      clear l_matbatch.
      concatenate i_mchb-matnr i_mchb-charg into l_matbatch.
      move-corresponding i_mchb to i_output.
Get the Plant Description from i_plant Table
        read table i_plant with key werks = i_mchb-werks binary search.
        if sy-subrc = 0.
          i_output-name1 = i_plant-name1.
        endif.
Get the Material Description from i_makt Table
      read table i_makt with key matnr = i_mchb-matnr binary search.
      if sy-subrc = 0.
        i_output-maktx = i_makt-maktx.
      endif.
Get the Characteristic Values data from INOB and AUSP Tables
      clear inob.
      select single cuobj from inob
          into inob-cuobj
          where klart = c_klart and
                obtab = c_obtab and
                objek = l_matbatch.
      if sy-subrc = 0.
        select objek
               atinn
               atflv
           from ausp
           into table i_ausp
           where objek = inob-cuobj and
                 atinn in s_atinn   and
                 klart = c_klart.
        sort i_ausp by objek atinn.
        loop at i_ausp.
          clear cabn.
          select single atinn atnam from cabn
                     into (cabn-atinn,cabn-atnam)
                     where atinn = i_ausp-atinn.
          if sy-subrc = 0.
If the ratio value is between 13-14.99, display 13
            if cabn-atnam cs c_ratio.
              if i_ausp-atflv between c_13 and c_1499.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_13.
If the ratio value is between 15-16.99, display 15
              elseif i_ausp-atflv between c_15 and c_1699.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_15.
If the ratio value is between 17-18.99, display 17
              elseif i_ausp-atflv between c_17 and c_1899.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_17.
If the ratio value is between 19-20.99, display 19
              elseif i_ausp-atflv between c_19 and c_2099.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_19.
If the ratio value is between 21-22.99, display 21
              elseif i_ausp-atflv between c_21 and c_2299.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
              elseif i_ausp-atflv >= c_23.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_23.
              endif.           " Condition for RATIO values
            else.              " If characteristic does contain RATIO
              i_mchb-atflv = i_ausp-atflv.
            endif.
            i_output-atinn = cabn-atinn.
            i_output-atnam = cabn-atnam.
            i_output-atflv = i_ausp-atflv.
            i_mchb1-matnr = i_mchb-matnr.
            i_mchb1-werks = i_mchb-werks.
            i_mchb1-lgort = i_mchb-lgort.
            i_mchb1-charg = i_mchb-charg.
            i_mchb1-clabs = i_mchb-clabs.
            i_mchb1-atinn = i_ausp-atinn.
            i_mchb1-atflo = i_mchb-atflv.
            i_mchb1-atflv = i_ausp-atflv.
            append : i_output, i_mchb1.
            clear i_mchb1.
            modify i_mchb index l_tabix transporting atflo atflv .
          endif.
        endloop.
      endif.
    endloop.
  endif.
Checking whether the table is filled or not
  if not i_output[] is initial.
    sort i_output by atinn werks matnr atflv.
  else.
    g_exit = c_flag.
    message s899 with 'No Data found for the Selection Criteria'(006).
  endif.
Delete the records where RATIO is less than 13.
  delete i_output where atnam cs c_ratio and atflv lt c_13.
endform.                    "append_final_data
*&      Form  display_report
Display the Report Output data
form display_report.
data: l_tabix like sy-tabix.
  loop at i_output1.
    l_tabix = sy-tabix.
At new Characteristic
     at new atinn.
      read table i_output1 index l_tabix.
      format color 1 intensified on.
      write: /1 sy-vline, 2(20) 'Characteristic Name:'(007),
             23(40) i_output1-atnam,
             125 sy-vline.
      format color off.
      format color 4 intensified on.
      write: /1 sy-vline, 2(20) 'Plant Name         :'(022),
             23(4) i_output1-werks, 29(30) i_output1-name1,
             125 sy-vline.
      format color off.
      write /1(125) sy-uline.
    endat.
    clear: g_clabs, g_clabs1.
    format color col_normal.
    write :/1 sy-vline,  2(18)   i_output1-matnr,
           20 sy-vline,  21(40)  i_output1-maktx,
           61 sy-vline.
    if i_output1-atflv = c_c23.
      write: 62(22)  c_g23 centered.
    else.
      shift i_output1-atflv left deleting leading space.
      write: 62(22)  i_output1-atflv centered.
    endif.
    write:  84     sy-vline,
           103     sy-vline,
           110(5)  i_output1-meins.
If the quantity value is negative
    if i_output1-clabs ge 0.
      write: 85(18) i_output1-clabs unit i_mchb-meins,
            125     sy-vline.
    else.
      i_output1-clabs = - i_output1-clabs.
      write i_output1-clabs unit i_mchb-meins to g_clabs1.
      condense g_clabs1.
      concatenate '(' g_clabs1 ')' into g_clabs separated by space.
      write: 85(18) g_clabs right-justified,
           125 sy-vline.
    endif.
    format color off.
    hide : i_output1.
    new-line.
At end of material
    at end of matnr.
      sum.
      move : i_output1-matnr to g_matnr.
      format color 3 intensified on.
      write /1(125) sy-uline.
      write :/1 sy-vline,  2(25) 'Total for Material      :'(012),
             28(18) g_matnr.
      if i_output1-clabs ge 0.
        write: 85(18) i_output1-clabs  unit i_mchb-meins,
        125 sy-vline.
      else.
        i_output1-clabs = - i_output1-clabs.
        write i_output1-clabs unit i_mchb-meins to g_clabs1.
        condense g_clabs1.
        concatenate '(' g_clabs1 ')' into g_clabs separated by space.
        write: 85(18) g_clabs right-justified,
             125 sy-vline.
      endif.
      write: 125 sy-vline.
      format color off.
      write /1(125) sy-uline.
    endat.
At end of plant
    at end of werks.
      sum.
      move : i_output1-werks to g_werks.
      format color 3 intensified off.
      write :/1 sy-vline,  2(25) 'Total for Plant          :'(013),
             28(4) g_werks.
      if i_output1-clabs ge 0.
        write:  85(18) i_output1-clabs  unit i_mchb-meins,
        125 sy-vline.
      else.
        i_output1-clabs = - i_output1-clabs.
        write i_output1-clabs unit i_mchb-meins to g_clabs1.
        condense g_clabs1.
        concatenate '(' g_clabs1 ')' into g_clabs separated by space.
        write: 85(18) g_clabs right-justified,
             125 sy-vline.
      endif.
      format color off.
      write /1(125) sy-uline.
    endat.
At end of  characteristic
    at end of atinn.
      read table i_output1 index l_tabix.
      sum.
      format color 3 intensified on.
      write :/1 sy-vline,  2(25) 'Total for Characteristic:'(014),
             28(25) i_output1-atnam.
      if i_output1-clabs ge 0.
        write:  85(18) i_output1-clabs  unit i_mchb-meins,
        125 sy-vline.
      else.
        i_output1-clabs = - i_output1-clabs.
        write i_output1-clabs unit i_mchb-meins to g_clabs1.
        condense g_clabs1.
        concatenate '(' g_clabs1 ')' into g_clabs separated by space.
        write: 85(18) g_clabs right-justified,
             125 sy-vline.
      endif.
      format color off.
      write /1(125) sy-uline.
    endat.
  endloop.
endform.                    " display_report
*&      Form  DISPLAY_BATCH
     Display the batch details for the seclected material            *
form display_batch.
Get the batch details for the selected material
  get cursor field g_cursor.
  if g_cursor = c_cursor1 or
     g_cursor = c_cursor2 or
     g_cursor = c_cursor3 or
     g_cursor = c_cursor4 or
     g_cursor = c_cursor5 or
     g_cursor = c_cursor6.
    format color 3.
    write: /1 sy-vline,
            2(17) 'Material Number :'(020),
           20(17) i_output1-matnr,
           94 sy-vline.
    format color off.
    write /1(94) sy-uline.
    loop at i_mchb1 where matnr = i_output1-matnr and
                          atinn = i_output1-atinn and
                          atflo = i_output1-atflv.
      format color col_normal.
      shift i_mchb1-charg left deleting leading '0'.
      write :/1 sy-vline,  2(16) i_mchb1-lgort centered,
             18 sy-vline, 19(17) i_mchb1-charg centered,
             36 sy-vline.
      if i_output1-atnam cs c_ratio.
        write: 37(29) i_mchb1-atflv
                       exponent 0 decimals 2 centered.
      else.
        write : 37(29) i_mchb1-atflv
                      exponent 0 decimals 0 centered.
      endif.
      write : 66 sy-vline, 67(27) i_mchb1-clabs unit i_mchb-meins,
              94 sy-vline.
      format color off.
    endloop.
    write /1(94) sy-uline.
  else.
    message s899 with 'Invalid cursor position'(016).
    exit.
  endif.
endform.                    " DISPLAY_BATCH
*&      Form  HEADING_SECLIST
      Write the Column Headings for Interactive Report
form heading_seclist.
  write /1(94) sy-uline.
  format color col_heading on.
  write :/1 sy-vline,  2(16) 'Storage Location'(021),
         18 sy-vline, 19(17) 'Batch Number'(017) centered,
         36 sy-vline, 37(29) 'Characteristic Value'(018) centered,
         66 sy-vline, 67(27) 'Quantity'(019) centered,
         94 sy-vline.
  write /1(94) sy-uline.
  format color off.
endform.                    " HEADING_SECLIST
*&      Form  COLLECT_RATIO
      Display the Characteristic ratio data
form collect_ratio.
  loop at i_output.
    clear g_atinn.
    i_output1-atinn = i_output-atinn.
    i_output1-atnam = i_output-atnam .
    i_output1-werks = i_output-werks.
    i_output1-name1 = i_output-name1.
    i_output1-matnr = i_output-matnr.
    i_output1-maktx = i_output-maktx.
    i_output1-clabs = i_output-clabs.
    i_output1-meins = i_output-meins.
    call function 'CONVERSION_EXIT_ATINN_OUTPUT'
         exporting
              input  = i_output-atinn
         importing
              output = g_atinn.
    if g_atinn cs c_ratio.
If the ratio value is between 13-14.99, display 13
      if i_output-atflv between c_13 and c_1499.
        i_output1-atflv = c_13.
If the ratio value is between 15-16.99, display 15
      elseif i_output-atflv between c_15 and c_1699.
        i_output1-atflv = c_15.
If the ratio value is between 17-18.99, display 17
      elseif i_output-atflv between c_17 and c_1899.
        i_output1-atflv = c_17.
If the ratio value is between 19-20.99, display 19
      elseif i_output-atflv between c_19 and c_2099.
        i_output1-atflv = c_19.
If the ratio value is between 21-22.99, display 21
      elseif i_output-atflv between c_21 and c_2299.
        i_output1-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
      elseif i_output-atflv >= c_23.
        i_output1-atflv = c_23.
      endif.
      write i_output1-atflv to i_output1-atflv .
    else.
      write i_output-atflv to i_output1-atflv exponent 0 decimals 0.
    endif.
    collect i_output1.
    clear   i_output1.
  endloop.
  sort i_output1 by atinn werks matnr atflv.
endform.                    " COLLECT_RATIO
<b>Reward points for useful Answers</b>
Regards
Anji