000810 * validate Unit of Material
000820 tables: t006, t006a.
000830 select single * from t006
000840 where msehi = user_data-zmeins.
000850 if sy-subrc = 0.
000860 select single * from t006a
000870 where msehi = t006-msehi
000880 and spras = sy-langu.
000890 if sy-subrc ne 0.
000900 error = 'x'.
000910 write:/ 'Unit of Measure
does not exist', user_data-zmeins.
000920 endif.
000930 else.
000940 error = 'x'.
000950 write:/ 'Unit of Measure does not exist',
user_data-zmeins.
000960 endif.