DROP PROCEDURE "PLName" @ CREATE PROCEDURE "PLName"(--存储过程名字 IN IN_ID BIGINT ,                    --以下全是输入参数 IN IN_ENTNAME VARCHAR(200) , IN IN_REGNO VARCHAR(50), IN IN_PASSWORD VARCHAR(20), IN IN_LEREP VARCHAR(300), IN IN_CERTYPE CHARACTER(1), IN IN_CERNO VARCHAR(50), IN IN_LINKMAN VARCHAR(50), IN IN_SEX CHARACTER(1), IN IN_MOBTEL VARCHAR(30), IN IN_REQDATE TIMESTAMP, IN IN_REMITEM VARCHAR(300), IN IN_STATE CHARACTER(1), IN IN_TIMESTAMP TIMESTAMP ) BEGIN declare V_RESULT  BIGINT;     --声明变量    DELETE FROM  TableNameA WHERE ID = IN_ID; SET V_RESULT = NULL;          --为变量赋值

  --检查用户输入的信息是否合法 select b.id INTO V_RESULT  from TableNameB b,TableNameC c where 正常的判断条件  if(V_RESULT IS NOT NULL)  then ---如果合法，执行下面的insert语句    INSERT INTO TableNameA(ID,ENTNAME,REGNO,PASSWORD,LEREP,CERTYPE,CERNO,LINKMAN,SEX,MOBTEL,REQDATE,REMITEM,STATE,TIMESTAMP) VALUES(IN_ID,IN_ENTNAME,IN_REGNO,IN_PASSWORD,IN_LEREP,IN_CERTYPE,IN_CERNO,IN_LINKMAN,IN_SEX,IN_MOBTEL,IN_REQDATE,IN_REMITEM,IN_STATE,IN_TIMESTAMP); end if; commit; END @

call PLName(存储过程名字) （IN_ID,IN_ENTNAME,IN_REGNO,IN_PASSWORD,IN_LEREP,IN_CERTYPE,IN_CERNO,IN_LINKMAN,IN_SEX,IN_MOBTEL,IN_REQDATE,IN_REMITEM,IN_STATE,IN_TIMESTAMP对应的值）

declare sql_code integer default 0; 

    declare SQLSTATE char(5) default '00000'; 

    declare SQLCODE integer default 0; 

    declare sqlMsg varchar(200) default ''; 

    declare stmt varchar(1024); 

    declare vCurdate    varchar(20);                   -- 当天日期 

    declare vCurYMd     varchar(6);                    -- 当天所在的年月 

    declare vCurDay  varchar(2) ;                         --所在天 

    declare maxday      integer default 30;            -- 每个月按30天算 

    declare fday         integer;                      -- 实际天数 

    declare lastday      integer;                      -- 到期日的天数 

    declare firstday     integer;                      -- 购买月的天数 

    declare firstmonth   integer;                      -- 购买的月份 

    declare lastmonth    integer;                      -- 到期日的月份 

    declare firstyear    integer;                      -- 购买日的年份 

    declare lastyear     integer;                      -- 到期年份 

    declare disday       integer;                      -- 间隔天数 

    declare dismonth     integer;                      -- 间隔月份 

    declare disyear      integer;                      -- 间隔年份 

    declare vLsh         varchar(32);                  -- 流水号 

    declare vjgh         varchar(8);                    -- 机构码 

    declare ywzh       varchar(32);                     -- 业务帐号 

    declare vzh         varchar(32);                     -- 投资账号 

    declare vJgbm       varchar(8) default '32022300';   -- 投资帐号对应的机构(默认为清算中心)

 

    declare zqtz cursor for s1;   建立游标

    -- 声明异常 

    DECLARE CONTINUE HANDLER FOR NOT FOUND,SQLEXCEPTION,SQLWARNING 

    begin 

       set sql_code   = SQLCODE; 

       set returnCode = sql_code; 

    end; 

    set vCurdate = (select char(current_date) from sysibm.sysdummy1); 

    set vCurdate = replace(vCurdate,'-',''); 

    set vCurYMd  = substr(vCurdate,1,6); 

    set vCurDay  = substr(vCurdate,7,2); 

   -- 读取还没到期的长期债券投资信息 

   set  stmt = ' select JGBM,ZH,HTH,ZQPZ,PMJE,LL,GMRQ,DQR,YSLX,YJLX,YJ,ZJ,FY,FXFS,id,cast(substr(GMRQ,7,2) as integer),cast(substr(DQR,7,2) as integer),cast(substr(GMRQ,5,2) as integer),cast(substr(DQR,5,2) as integer),cast(substr(GMRQ,1,4) as integer),cast(substr(DQR,1,4) as integer)  from kjzb.zqinvest where substr(dqr,1,6) >=''' ||  vCurYMd  || ''' and tzqx = ''2'' and tzzt <> ''2'''; 

   prepare s1 from stmt;