#include %occInclude
   
Tel4LoadTir  ; 
  
  Set conn=##class(%SQLGatewayConnection).%New()
  Set sc=conn.Connect("Tel4Kky","ois","ois",0) 
  If $$$ISERR(sc) do $System.Status.DisplayError(sc) quit
    
  w !,$zts," sql"
  set t1=$zts
  set recCount=0

  Set res=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
  Set sc=res.Prepare("select * from  tel4.dbo.SERVER_ARCHIVE_FLOAT where ABSOLUTE_NUMBER > '15004Y6SGV6C1NGMRUG9N6' and ABSOLUTE_NUMBER<='71003PGMJ8LX1AGUDEAJ8D' ",,conn)
  If $$$ISERR(sc) do $System.Status.DisplayError(sc) quit
    

  Set sc=res.Execute()
  If $$$ISERR(sc) do $System.Status.DisplayError(sc) quit

  set rc=$SORTBEGIN(^User.Tel4ValuesD)
  w !,"rc=",rc

  While res.Next() 
  {     
    merge flds=res.Data
    ;zwrite flds

    set absnum=flds("ABSOLUTE_NUMBER") ;;="07064BOV7K8D2EW60KBYWY"
    set cc=flds("CONFIRM_CODE") ;;=""
    set cdt=flds("CONFIRM_DATETIME") ;;=""
    set cu=flds("CONFIRM_USER_ID")  ;;=""
    set VALUE=flds("DATA")  ;;=78.689926147460895
    set ddt=$translate(flds("DISPATCH_DATETIME"),"-:","")  ;;="2015-11-02 10:35:25.113"
    set ddt=$translate(ddt," ",":")
    set ddt=$e(ddt,1,15)
    set edt=$translate(flds("EVENT_DATETIME"),"-:","")  ;;="2015-11-02 10:35:25.113"
    set edt=$translate(edt," ",":")
    set edt=$e(edt,1,15)
    set stat=flds("STATUS")  ;;=0
    set valid=flds("VALID")  ;;=""      

    &sql(  INSERT  into SQLUser.Tel4Values (ABSOLUTE_NUMBER,EVENT_DATETIME,DISPATCH_DATETIME,DATA,STATUS,VALID,CONFIRM_DATETIME,CONFIRM_USER_ID,CONFIRM_CODE)
    VALUES ( :absnum, :edt, :ddt, :VALUE, :stat, :valid, :cdt, :cu, :cc))  

    IF SQLCODE'=0  {
      WRITE !,"SQLCODE=",SQLCODE," -- ",$SYSTEM.SQL.SQLCODE(SQLCODE)
    }
       
    set recCount=recCount+1
  } 
    
  Set rc = $SortEnd(^User.Tel4ValuesD)
  w !,"rc=",rc
  
  set t2=$zts
  w !,recCount," записей"
  w !,$p(t2,",",2)-$p(t1,",",2)," сек"

  Set sc=conn.%Close()
  Quit

Компиляция началась в 04/06/2016 14:17:29 с квалификаторами 'cukb /checkuptodate=expandedonly'
Компиляция программы: : Tel4loadDic.MAC
Cache ObjectScript Error while compiling SQL statement: <UNDEFINED>parseSelect+4^%qaqcmx *mt("o",2)
ERROR: Tel4loadDic.MAC(223) : <UNDEFINED>parseSelect+4^%qaqcmx *mt("o",2) : 
Обнаружено 1 ошибок во время компиляции.

TestInsSel  ; 

  WRITE !,"Populating table with data"
  NEW SQLCODE,%ROWCOUNT,%ROWID
  &sql(INSERT INTO SQLUser.DESC_HW_DICTIONARY (OBJECT_NUMBER,TREE_LEVEL,PARENT_OBJECT_NUMBER,OBJECT_TYPE,OBJECT_NAME
  ,LINK,VISIBLE,IS_OBJECT,IS_ACTIVE,ADD_TO_DESCRIPTION,DATA_LIVE_PERIOD,MODULE_ID,CAN_BE_DELETED,MEASURE_UNITS)
   SELECT OBJECT_NUMBER,TREE_LEVEL,PARENT_OBJECT_NUMBER,OBJECT_TYPE,OBJECT_NAME
   ,LINK,VISIBLE,IS_OBJECT,IS_ACTIVE,ADD_TO_DESCRIPTION,DATA_LIVE_PERIOD,MODULE_ID,CAN_BE_DELETED,MEASURE_UNITS
  FROM dbo.DESC_HW_DICTIONARY)
  
  IF SQLCODE=0 {
    WRITE !,"Number of records inserted=",%ROWCOUNT
    WRITE !,"Row ID of last record inserted=",%ROWID }
  ELSE {
    WRITE !,"Insert failed, SQLCODE=",SQLCODE }

 quit

Tel4loadDic  ;=========================================== 0.05cek
 ;;New mpid, oname, mname, longCode, otype, cex, dns, bul, Dat, v, rec, tab, mask ;Clock
 
 &sql( 
   DECLARE c5 CURSOR FOR 
   SELECT OBJECT_NUMBER,TREE_LEVEL,PARENT_OBJECT_NUMBER,OBJECT_TYPE,OBJECT_NAME
   ,LINK,VISIBLE,IS_OBJECT,IS_ACTIVE,ADD_TO_DESCRIPTION,DATA_LIVE_PERIOD,MODULE_ID,CAN_BE_DELETED,MEASURE_UNITS
  FROM dbo.DESC_HW_DICTIONARY
 )

 w !,$zts," sql"

 &sql( OPEN c5 )
 
 w !,$zts," open"
 
  For {
     &sql( FETCH c5 INTO :on, :tl, :pon, :ot, :oname, :link, :vi, :io, :ia, :atd, :dlp, :mid, :cbd, :mu) 
     Q:SQLCODE'=0 
     
     &sql(  INSERT  into SQLUser.DESC_HW_DICTIONARY 
       (OBJECT_NUMBER,TREE_LEVEL,PARENT_OBJECT_NUMBER,OBJECT_TYPE,OBJECT_NAME,
         LINK,VISIBLE,IS_OBJECT,IS_ACTIVE,ADD_TO_DESCRIPTION,DATA_LIVE_PERIOD,MODULE_ID,CAN_BE_DELETED,MEASURE_UNITS)
      VALUES ( :on, :tl, :pon, :ot, :oname, :link, :vi, :io, :ia, :atd, :dlp, :mid, :cbd, :mu)  
      )
     
      w !
    }
 &sql( CLOSE c5 )
 w !,$zts," close"
 Q