Proc正則問題

今日コードを書くのはおかしいです.
この様子は意外にもコンパイルできない.

EXEC SQL
			select 'A'||LPAD(SUBSTR(max(MOBILE_MODEL),2)+1,4,'0') into :codeMobileModel.mobileModel
			 from ROUTER.CODE_MOBILE_MODEL where
			 regexp_like(mobile_model , "^A[0-9]{4}");

新聞
参照
PCC-S-02201, Encountered the symbol ";"when expecting one of the following:
   = * < > + -/^= | != <= >= <> at, not, between, in, is,
   like, day, hour, minute, month, second, year,
変更を余儀なくされる

EXEC SQL
			select 'A'||LPAD(SUBSTR(max(MOBILE_MODEL),2)+1,4,'0') into :codeMobileModel.mobileModel
			 from ROUTER.CODE_MOBILE_MODEL where
			 mobile_model like 'A___';

コンパイルに成功しました.
解を求める