一般情况下,我们根据iris的portal向导创建数据库,然后创建命名空间。这个过程比较花时间,如果是已经存在的数据库,还需要再装载。翻阅portal调用的方法后,我整合了这几个方法。把这几个方法拷贝到任意已经存在的命名空间,通过执行CNNS(路径,命名空间),就可以快速创建好命名空间。方法的大概过程是,进入到%sys命名空间,然后依次创建数据库,创建命名空间,创建web应用。创建完成后,回到当前命名空间。
ClassMethod CNNS(pathroot = "E:\IRIS", NS = "TEST")
{
s currentNS = $namespace
s $zt="Err"
zn "%SYS"
s ret=..CNNS1(pathroot,NS)
zn currentNS
q ret
Err
zn currentNS
q $ze
}ClassMethod CNNS1(pathroot, NS)
{
s APP="APP"
d ..CDB(pathroot,APP,NS,.sc)
q:sc'=1 sc
s DATA="DATA"
d ..CDB(pathroot,DATA,NS,.sc)
q:sc'=1 sc
s NSP("Globals") = NS_"-"_DATA
s NSP("Routines") = NS_"-"_A




.png)


.png)
.png)



.png)
.png)

