CacheScript多线程

一、创建线程

ClassMethod Set()
{
    s i=0
    while(i<100000){
    s ^tmpicudebug("test")="xx11"_i
    s i=i+1
    }
}
 ClassMethod MyTest()
 {
     // w ##class(DHCCL.Mobile.Web.WebService).MyTest()
     JOB ##class(DHCCL.Mobile.Web.WebService).Set()
     q $g(^tmpicudebug("test"))
 }

二、线程同步

1. 加锁

Lock +^TestGlobal
Lock +^TestGlobal:10
后面一个参数是超时时间: 10s

2.解锁

Lock -^TestGlobal