* SET:サイン、オプション、項目
IF X IS NOT INITIAL.
SEARCH X FOR gcf_wcard_m3.
IF sy-subrc = 0.
MOVE:
option_cp TO tek1mx-option.
ELSE.
MOVE:
option_eq TO tek1mx-option.
ENDIF.
MOVE:
sign_in TO tek1mx-sign,
X TO tek1mx-low. "項目
APPEND:
tek1mx TO レンジテーブル.
ENDIF.
gcf_wcard_m3 TYPE c LENGTH 3 VALUE '.*.', "ワイルド
sign_in TYPE c LENGTH 1 VALUE 'I', " 含む
option_eq TYPE c LENGTH 2 VALUE 'EQ', " イコール
option_cp TYPE c LENGTH 2 VALUE 'CP'. "
IF X IS NOT INITIAL.
SEARCH X FOR gcf_wcard_m3.
IF sy-subrc = 0.
MOVE:
option_cp TO tek1mx-option.
ELSE.
MOVE:
option_eq TO tek1mx-option.
ENDIF.
MOVE:
sign_in TO tek1mx-sign,
X TO tek1mx-low. "項目
APPEND:
tek1mx TO レンジテーブル.
ENDIF.
gcf_wcard_m3 TYPE c LENGTH 3 VALUE '.*.', "ワイルド
sign_in TYPE c LENGTH 1 VALUE 'I', " 含む
option_eq TYPE c LENGTH 2 VALUE 'EQ', " イコール
option_cp TYPE c LENGTH 2 VALUE 'CP'. "