レンジテーブル

来源:互联网 发布:思迅天店软件免费下载 编辑:程序博客网 时间:2024/05/16 14:28
 *   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'.    "
原创粉丝点击