SUB MAIN()

END SUB

SUB TEST()
            DIM dataBuff AS LONG;

            DIM paramBuff AS LONG;
            DIM iReturn AS INTEGER;
            DIM counter AS INTEGER;
            DIM TimeStart as double;
            DIM TimeEnd as double;
            
            
            counter = 0;
            
                   
            paramBuff = ALLOC_BUFFER(256);
            PUT_BUFFER(paramBuff, 0, "#Y#M#D#h#m#s,,TEMP.SVTREND_PROGRESS,");
            
            dataBuff = ALLOC_BUFFER(128*1024);
            
            PRINT(dataBuff);
            
            iReturn = SVTREND("GETTREND", "@TEST.VALUE", "", DateTimeValue("08/07/17", "09:00:00"), DateTimeValue("08/07/17", "11:00:00"), 30, 2, dataBuff, paramBuff);
            PRINT("TEST:\t", counter++, ":\t", iReturn);
            Print("ParamBuff: ",paramBuff);
            BufToFile(dataBuff, "test.txt" );
            
            
            
            FREE_BUFFER(dataBuff);
            dataBuff = ALLOC_BUFFER(128*1024);
            PRINT(dataBuff);
            
            
            iReturn = SVTREND("GETTREND", "VALUE", "TEST", DateTimeValue("08/07/17", "11:00:00"), DateTimeValue("08/07/17", "12:00:00"), 30,  dataBuff, paramBuff);
            PRINT("TEST:\t", counter++, ":\t", iReturn);
            Print("ParamBuff: ",paramBuff);
            
            
            FREE_BUFFER(dataBuff);
            dataBuff = ALLOC_BUFFER(128*1024);
            PRINT(dataBuff);
            
            
            iReturn = SVTREND("GETTREND", "VALUE", "TEST", DateTimeValue("08/07/17", "12:00:00"), DateTimeValue("08/07/17", "13:00:00"), 30, dataBuff, paramBuff);
            PRINT("TEST:\t", counter++, ":\t", iReturn);
            Print("ParamBuff: ",paramBuff);
            
            
            FREE_BUFFER(dataBuff);
            dataBuff = ALLOC_BUFFER(128*1024);
            PRINT(dataBuff);
            
            iReturn = SVTREND("GETTREND", "VALUE", "TEST", DateTimeValue("08/07/17", "13:00:00"), DateTimeValue("08/07/17", "14:00:00"), 30,  dataBuff, paramBuff);
            PRINT("TEST:\t", counter++, ":\t", iReturn);
            Print("ParamBuff: ",paramBuff);
            
            FREE_BUFFER(dataBuff);
            dataBuff = ALLOC_BUFFER(128*1024);
            PRINT(dataBuff);
            
            FREE_BUFFER(dataBuff);
                        
END SUB
