Dear Perumal,
This is coding:
TABLES: ausp.
TYPES: BEGIN OF ty_ausp,
objek TYPE ausp-objek,
atinn TYPE ausp-atinn,
atwrt TYPE ausp-atwrt,
atflv TYPE char32,
END OF ty_ausp.
TYPES: BEGIN OF ty_klah,
clint TYPE klah-clint,
klart TYPE klah-klart,
class TYPE klah-class,
END OF ty_klah.
TYPES: BEGIN OF ty_mara,
matnr TYPE mara-matnr,
satnr TYPE mara-satnr,
END OF ty_mara.
DATA: it_ausp TYPE STANDARD TABLE OF ty_ausp,
wa_ausp TYPE ty_ausp,
it_klah TYPE STANDARD TABLE OF ty_klah,
wa_klah TYPE ty_klah,
it_mara TYPE STANDARD TABLE OF ty_mara,
wa_mara TYPE ty_mara.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS: s_color FOR ausp-atwrt.
SELECT-OPTIONS: s_c_cat FOR ausp-atwrt.
SELECT-OPTIONS: s_dia FOR ausp-atflv.
SELECT-OPTIONS: s_index FOR ausp-atflv.
SELECT-OPTIONS: s_axis FOR ausp-atflv.
SELECT-OPTIONS: s_sph FOR ausp-atflv.
SELECT-OPTIONS: s_sph_s FOR ausp-atwrt.
SELECT-OPTIONS: s_cyl FOR ausp-atflv.
SELECT-OPTIONS: s_cyl_s FOR ausp-atwrt.
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
SELECT objek atinn atwrt atflv FROM ausp INTO TABLE it_ausp WHERE atwrt IN s_color AND atwrt IN s_c_cat
AND atflv IN s_dia AND atflv IN s_index AND atflv IN s_axis
AND atflv IN s_sph AND atwrt IN s_sph_s AND atflv IN s_cyl
AND atwrt IN s_cyl_s.
IF NOT it_ausp IS INITIAL.
DATA:it_obj TYPE RANGE OF CLINT,
wa_obj LIKE LINE OF it_obj.
LOOP AT it_ausp INTO wa_ausp.
wa_obj-sign = 'I'.
wa_obj-option = 'BT'.
wa_obj-low = wa_ausp-objek.
CLEAR:wa_obj-high.
APPEND wa_obj TO it_obj.
CLEAR :wa_obj.
ENDLOOP.
SELECT clint klart class FROM klah INTO TABLE it_klah WHERE clint in it_obj.
ENDIF.
IF NOT it_klah IS INITIAL.
SELECT matnr satnr FROM mara INTO TABLE it_mara WHERE matnr EQ wa_klah-class.
ENDIF.
Regards,
Abbas.
Bluesky
