oracle中存储过程的使用

bzj6iheq6v

　　最近要写一个存储过程。实现如下功能
一、短信平台上下行设置
判断8-9位是不是GM，13-14是不是PH，如果是，再判断18-22位是否是SMSUW，如果是的，判断后面是否有5个数字，如果是的，5个数字之和是否等于35。如果不是，下行10个wonderful world之一（不屏蔽的），否则，下发20个wonderful world之一（需要屏蔽）。
　　
　　我这里首先是实现判断输入的字符串中有没有5个数字。数字之和是不是等于35.
　　其代码具体实现如下
　　CREATE OR REPLACE PROCEDURE P_SUB_STR(I_STR IN VARCHAR2,
                                      O_STR OUT VARCHAR2) IS
  --I_STR 输入字符串，O_STR 校验返回结果                      
  V_SUM   NUMBER; --存在数字时，数字的总和
  V_COUNT NUMBER; --存在多少个数字，
  V_DIG   NUMBER; --0.。9数字
BEGIN
  V_DIG   := 0;
  V_SUM   := 0;
  V_COUNT := 0;
  O_STR   := '不存在正确的数据组合';
  IF I_STR IS NOT NULL THEN
    LOOP
      EXIT WHEN V_DIG > 9;
      IF INSTR(I_STR, TO_CHAR(V_DIG)) != 0 THEN
        V_SUM   := V_SUM + substr(I_STR,INSTR(I_STR, TO_CHAR(V_DIG)),1);
        V_COUNT := V_COUNT + 1;
      END IF;
      V_DIG := V_DIG +1;
    END LOOP;
 
    IF V_COUNT = 5 AND V_SUM = 35 THEN
      O_STR := '存在正确的数据组合';
    ELSE
      O_STR := '不存在正确的数据组合';
    END IF;
  END IF;
　　EXCEPTION
  WHEN OTHERS THEN
    O_STR := '不存在正确的数据组合';
END P_SUB_STR;
　　
　　然后再存储过程调用存储过程
　　具体代码如下
　　CREATE OR REPLACE PROCEDURE TEST(MSG IN VARCHAR2,SENDMSG OUT VARCHAR2) AS
                 --  VARCHAR2(4000);
  RMSGBYJESSICA           VARCHAR2(300) := 'Hi,I am Jessica';
  RMSG44MMODEUNIFUNACTIVE VARCHAR2(300) := 'I am not happy';
  RMSGERROR               VARCHAR2(300) := 'Error';
  SMSG                    VARCHAR2(4000);
  STATUS                  VARCHAR2(200);
BEGIN
  IF (MSG IS NULL) OR (TRIM(MSG) = '') THEN
    RETURN;
  ELSE
    SMSG := MSG;
    IF (SUBSTR(TRIM(SMSG), 16, 5) = 'smsuw') THEN
      P_SUB_STR(SUBSTR(TRIM(SMSG), 19, 15), STATUS);   --调用存储过程
      IF (STATUS = 'success') THEN
        --SENDMSG := RMSGBYJESSICA;
          select wcontent into SENDMSG  from (select wcontent from zf_xp_mt_wow w where w.wtype=1 order by dbms_random.value) where rownum=1;   --输出的语句为查询 zf_xp_mt_wow 表中类型为1的随机的wcontent 内容。
         ELSE
       --SENDMSG := RMSG44MMODEUNIFUNACTIVE;
          select wcontent into SENDMSG  from (select wcontent from zf_xp_mt_wow w where w.wtype=2 order by dbms_random.value) where rownum=1;
　　END IF;
    ELSE
      SENDMSG := RMSGERROR;
    END IF;
  END IF;
END TEST;
　　commit;
　　drop procedure test;