范振辉333 阅读(62) 评论(0)
REPORT zdemo16 MESSAGE-ID bupa_tax.

DATAgv_matcher TYPE REF TO cl_abap_matcher,
      gv_match   TYPE LENGTH 1.

DATAgv_stringa TYPE string.

gv_stringa 'AB012'.

TRY.
  CALL METHOD cl_abap_matcher=>create
    EXPORTING
      pattern '[A-Z0-9]{5}'
      text    gv_stringa
    RECEIVING
      matcher gv_matcher.
*       CATCH CX_SY_REGEX .
*       CATCH CX_SY_MATCHER .
ENDTRY.
gv_match gv_matcher->match).
IF gv_match <> 'X'.
  MESSAGE e305 RAISING invalid_taxnum.
ELSE.
  WRITE gv_match.
ENDIF.