Instrument = "RTSI"    -- Инструмент
ClassCode = "RTSIDX" -- Код класса инструмента
IsRun = true  
function main()
   while IsRun do
      sleep(1000)
      for onlyForBr eak = 1, 1 do
         dA, error = CreateDataSource(ClassCode, Instrument, INTERVAL_MN1)   
         if dA==nil or dA:Size()<5 then 
            break
         end
         A_Size = dA:Size()
         message("A_Size = "..A_Size)
         for i = 1, A_Size do
            dataA = dA:T(i).year.."."..dA:T(i).month
            message("dataA = "..dataA)
         end
         IsRun = false
      end --for onlyForBr eak = 1, 1 do

   end --while
   dA:Close()
end    --main