当先锋百科网

首页 1 2 3 4 5 6 7
 *   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'.    "