ABAP Regex使用

全銀仕様データレコードで必要ということで。。

要件：英字、数字、カナ、記号のみ入力可
　　　記号は以下の10種類のみ
　　　　/.-,+()': 半角スペース

Case sencitiveが必要あなので、maktxを使用。

 

DATA : lr_matcher TYPE REF TO cl_abap_matcher,
       v_pattern(200) TYPE c,
       v_success type boolean.

CONCATENATE '[0-9A-Zｦ-ﾟ\.,'''' \-/｢｣\(\)\\+:]+$' '' INTO v_pattern.

PARAMETERS: TEXT TYPE maktx.

 CLEAR v_success.
  lr_matcher = cl_abap_matcher=>create( pattern = v_pattern text = TEXT ).
  v_success  = lr_matcher->match( ).
  IF v_success ne abap_true.
   WRITE : text, 'NG'.
  ELSE.
   WRITE : text, 'OK'.
  ENDIF.