存储过程中创建表

create or replace package CSMP_LOGINUSERINFO

Authid current_user

is

procedure PRO_ADD_LOGINUSERINFO
(
         memberaccount in  VARCHAR2,                    --成员账号
       eccode        in  VARCHAR2,                    --集团客户编码
       token         in  VARCHAR2,                    --令牌
       logintime     in  VARCHAR2,                    --登录时间
       logouttime    in  VARCHAR2 default null,       --退出时间
       onlinetime    in  NUMBER   default null,       --在线时长
       clienttype    in  VARCHAR2,                    --登录方式0表示wap客户端1表示web客户端2表示cs客户端
       tableDate     in  VARCHAR2,                    --建表的时间
       result        out VARCHAR2                     --处理结果
);
END CSMP_LOGINUSERINFO;
/
commit;

create or replace package body CSMP_LOGINUSERINFO

as

procedure PRO_ADD_LOGINUSERINFO
(
         memberaccount in  VARCHAR2,                     --成员账号
       eccode        in  VARCHAR2,                     --集团客户编码
       token         in  VARCHAR2,                     --令牌
       logintime     in  VARCHAR2,                     --登录时间
       logouttime    in  VARCHAR2 default null,        --退出时间
       onlinetime    in  NUMBER   default null,        --在线时长
       clienttype    in  VARCHAR2,                     --登录方式0表示wap客户端1表示web客户端2表示cs客户端
       tableDate     in  VARCHAR2,                     --建表的时间
       result        out VARCHAR2                      --处理结果
)
as
         totality      integer;                      --记录新表的数量    
         newTabName    varchar2(40);                 --新表名称    
         createTabStr  varchar(1000);                --创建新表的语句    
         insertStr     varchar(1000);                --插入记录的语句
begin
     --默认成功操作码
     result := 'true';
     newTabName  := 'CSMP_LOGININFO_'||tableDate;
     --查询今天用户登录信息表的总数量
     select count(0) into totality from user_tables where table_name = newTabName;
     if totality <= 0
        then
            createTabStr := 'create table '||newTabName||'
            (
                         ID                       VARCHAR2(20)                        not null,
                         TOKEN                    VARCHAR2(64)                        not null,
                         MEMBERACCOUNT            VARCHAR2(64)                        not null,
                         ECCODE                   VARCHAR2(32)                        not null,
                         LOGINTIME                DATE                                not null,
                         LOGOUTTIME               DATE,
                         ONLINETIME               NUMBER,
                         CLIENTTYPE               VARCHAR2(32)                        not null,
                         constraint PK_'||newTabName||' primary key (ID)
            )';
            execute immediate createTabStr;
     end if;
     insertStr := 'insert into '||newTabName||'
                  (id,memberaccount,eccode,token,logintime,logouttime,onlinetime,clienttype)
                         values
                   (csmp_logininfo_seq.nextval,'''
                   || memberaccount||''','''
                   ||eccode||''','''
                   ||token||''','
                   ||'to_date('''||logintime||''',''yyyy-mm-dd hh24:mi:ss'')'||','
                   ||'to_date('''||logouttime||''',''yyyy-mm-dd hh24:mi:ss'')'||','''
                   ||onlinetime||''','''
                   ||clienttype||''')';
      execute immediate insertStr;
      exception
          when others THEN
              result := 'false';
      commit;
    END PRO_ADD_LOGINUSERINFO;
END CSMP_LOGINUSERINFO;
/
commit;