REPORT  Z05_008.

TYPES: BEGIN OF line,

                           col1(3) TYPE c,

                           col2(3) TYPE c,

             END OF line.

DATA: wa TYPE line,

             itab TYPE HASHED TABLE OF line WITH UNIQUE KEY col1,

             name TYPE char10 VALUE 'COL1'.

wa-col1 = 'KIM'.

INSERT wa INTO TABLE itab.

wa-col1 = 'LEE'.

INSERT wa INTO TABLE itab.

wa-col1 = 'CHO'.

INSERT wa INTO TABLE itab.

PERFORM demo USING itab.

FORM demo USING p TYPE ANY TABLE.

             READ TABLE p WITH TABLE KEY (name) = 'LEE' INTO wa.

             IF sy-subrc EQ 0.

                           WRITE : / wa-col1, '씨가 발견되었습니다'.

             ENDIF.

ENDFORM.                    "DEMO