"判断电话里有无汉字,现转换成STRING   [^\x00-\xff] 为双字节字符(包括汉字在内)
    L_TEXTDH = GS_PA-USRIDDH.
    find regex '[^\x00-\xff]' in L_TEXTDH.
    IF SY-SUBRC = 0.
      "格式不对ELSE.
      ENDIF.
    "判断邮箱地址格式
    L_TEXTYX = GS_PA-USRIDYX.
    find regex '^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$' in L_TEXTYX.
    IF SY-SUBRC = 0.
    ELSE.

　　　　"格式不对

　　ENDIF.