Material batch characteristics

[Former Member]

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

[Former Member]

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 a_{matnr eq b}matnr

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

[Former Member]

Hi ,

can you please say me the logic you have used here..

Rama..

[Former Member]

• GET THE CLASSIFICATION AND CHARACTERISTICS

CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'

EXPORTING

CLASSTEXT = 'X'

CLASSTYPE = C_CLASSTYPE

LANGUAGE = SY-LANGU

OBJECT = W_OBJEK

OBJECTTABLE = C_OBJECTTABLE

KEY_DATE = SY-DATUM

INITIAL_CHARACT = 'X'

CHANGE_SERVICE_CLF = 'X'

TABLES

T_CLASS = T_CLASS

T_OBJECTDATA = T_OBJECTDATA

EXCEPTIONS

NO_CLASSIFICATION = 1

NO_CLASSTYPES = 2

INVALID_CLASS_TYPE = 3

OTHERS = 4.

IF SY-SUBRC <> 0.

-

---

Check this FM - QC01_BATCH_VALUES_READ

<b>Rwards point if you feel that answer is satisfying....</b>

regards

Abhay SIngh.