go to post Robert Cemper · Nov 24, 2017 I see. It's hard generatedIndexNext distracted meBut you may call it individually. With your sequence then.
go to post Robert Cemper · Nov 24, 2017 For %BuildIndices you may provide a list or use default. it doesn't affect sequenceexample from Sample.Person.1.Int %BuildIndices(pIndexList="",pAutoPurge=1,pLockFlag=0,pJournalFlag=1,pStartID="",pEndID="",pIgnoreIndexList="") public {if ($listlength(pIndexList)=1)&&($listget(pIndexList,1)="") { return 1 }Set class=$classname(),tBuildFlags=1,tBuildFlags(class)=$c(0,0,0,0,0,0)Set tPtr=0,tStatus=1,pJournalFlag=''pJournalFlagWhile $listnext(pIndexList,tPtr,tIndex) {continue:tIndex=""If '$d(^oddCOM(class,"i",tIndex)) {Set tStatus=$select(+tStatus:$$Error^%apiOBJ(5066,class_"::"_tIndex),1:$$AppendStatus^%occSystem(tStatus,$$Error^%apiOBJ(5066,class_"::"_tIndex)))}}If ('tStatus) RETURN tStatusif $listfind(pIndexList,"$Person") { set $Extract(tBuildFlags(class),1)=$c(1) }if ((pIndexList="")||($listfind(pIndexList,"FCOL"))),'$listfind(pIgnoreIndexList,"FCOL") { set $Extract(tBuildFlags(class),2)=$c(1) }if ((pIndexList="")||($listfind(pIndexList,"NameIDX"))),'$listfind(pIgnoreIndexList,"NameIDX") { set $Extract(tBuildFlags(class),3)=$c(1) }if ((pIndexList="")||($listfind(pIndexList,"SSNKey"))),'$listfind(pIgnoreIndexList,"SSNKey") { set $Extract(tBuildFlags(class),4)=$c(1) }if ((pIndexList="")||($listfind(pIndexList,"ZipCode"))),'$listfind(pIgnoreIndexList,"ZipCode") { set $Extract(tBuildFlags(class),5)=$c(1) }if ((pIndexList="")||($listfind(pIndexList,"dobx"))),'$listfind(pIgnoreIndexList,"dobx") { set $Extract(tBuildFlags(class),6)=$c(1) }If ((pIndexList="")||($Ascii(tBuildFlags(class),5))) && '$listfind(pIgnoreIndexList,"$Person") { set $extract(tBuildFlags(class),1)=$c($select((pStartID'="")||(pEndID'=""):1,1:2)) }Quit ..%BuildIndexInternal(.pLockFlag,.pAutoPurge,.pStartID,.pEndID,.pIndexList,.tBuildFlags,"^Sample.PersonD",1,.pJournalFlag,0) } %Save does it straight by ASSCII sorting of index names (lower after Upper case)See %SaveData(id) in the generated .int
go to post Robert Cemper · Nov 24, 2017 ok.You followed the direction: that you mark the "unavailable" value by a UNIQUE value.So for SQL it's NOT NULL.I agree with you that NullString (COS) => String of length 0 and NULL(SQL) is confusing [since invention of SQL in the late 60ties]
go to post Robert Cemper · Nov 24, 2017 Take a closer look to %Library.Date, %Library.TimeStamp, %Library.Integerand you will see the various methods for LogicalTo.....The switch you select applies to the final presentation only. Not to internal calculations.
go to post Robert Cemper · Nov 23, 2017 I think there is a basic misunderstanding of what NULL means in SQL.NULL in SQL means unknown / undefined value / any valueWhich is to my understanding a clear contradiction to uniqueness.If you assign yourself something indicating NO VALUE ( e.g '') then it works but it isn't NULL anymore in the sense of SQL.
go to post Robert Cemper · Nov 23, 2017 as documented inhttp://docs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls?KEY=...DATEPART delivers a %Integer value.Differently to %Date which has different display, logical and ODBC presentation %Integer does not follow any specific presentation but is just Integer and nothing else.And your input to DATEPART function is in any example the same: the logical value of TimeCreated.To cover your expectations you would need to adapt your input yourself. eg by %ODBCOUT() function.or the related LogicalToDisplay function.Your expectation that a data type %Integer does a revers research how it was calculated is just un-realistic.
go to post Robert Cemper · Nov 19, 2017 A Total different idea.if Transaction.Account is defined as Account object (could also be calculated) [ Property Account as Account ; ]then you may use implicit join for your query. it looks like this:select Account.Name, Account.State, Transaction.Amt, Transaction.Date, Transaction.Servicefrom Transaction left join Account on Account.Id = Transaction.Account where Transaction.Account in ( Select Account.Id from Account where Transaction.Account ->Type is not null and Transaction.Account->Id>123456789 and Transaction.Account->Id <=323456789 ) and Transaction.Date >= ?and Transaction.Date <= ?
go to post Robert Cemper · Nov 19, 2017 OK, that looks better now go to Mgmt Portal /SQL and verify for both tables that you see values in column Selectivity (marked)IF THERE IS NO SELECTIVITY ANY QUERY PLAN IS JUST GUESSWORK.if this is empty Query Generator just can guess and do a lot of unnecessary extra work.so got Tune Table click itand this you get there information that the Query Generator allows to make useful optimizations (marked)Next enter your specific query and click to "Show Plan"that marked information tells you what is happening and Relative Cost qualifies the expected performance. This query plan tells you what is really happening.
go to post Robert Cemper · Nov 19, 2017 At first sight I'd say the Query Generator is right as your Sub Select Just adds some more WHERE conditions.Your range on Transction.Date with related index might be much more limiting than your range on Account.Id.A index on Account.Type might also speed up your query. where Account.Id in ( Select Account.Name from Account?? Is Account.Name the same as Account.Id ??? IN ( ) expects EXACT VALUES !Suggestion if no done yet: Run tune Table for both tablesNext: publish the generated Query plan.
go to post Robert Cemper · Nov 17, 2017 much faster and straight forward string conversion then $ZD* stuff doing unnecessary conversions .
go to post Robert Cemper · Nov 17, 2017 24 hrs is fine. but which time zone? UTC,EST, ...?Rollig it along the globe will extend it to be 48 hrs.
go to post Robert Cemper · Nov 16, 2017 I assume you know where you get your email address from.The rest is straight COS and your code my look like thisset myEmail=....... ;wherever you get it from your PID-13-4set msg=..CreateTextMessage(myEmail) ClassMethod CreateTextMessage(toMail) As %Net.MailMessage{ Set msg = ##class(%Net.MailMessage).%New() Set msg.From = "test@test.com" Do msg.To.Insert(toMail) Do msg.Cc.Insert("yyy@yyy.com") Do msg.Bcc.Insert("zzz@zzz.com") Set msg.Subject="subject line here" Set msg.IsBinary=0 Set msg.IsHTML=0 Do msg.TextData.Write("This is the message.") Quit msg}
go to post Robert Cemper · Nov 15, 2017 A dirty hack:- make a new class extending %SerialObject with VALIDIFNULL set.- export your serial classes (to XML)- replace %SerialObject by your MySerialObject- reload the changed classes.Not so nice but I had the same issue with some 100 Serial Objects.The more sophisticated way would be do it programatically over %Dictionary.DefinedProperty ..... Very interesting and very time consuming
go to post Robert Cemper · Nov 15, 2017 You have to set $ZTRAP again at the begin:Or start with do infile^myroutine ....at the 1. run it is set i line 3you my also pass the filename as parameter
go to post Robert Cemper · Nov 15, 2017 Kevin,there a bunch of excellent examples in standard classes e.g%Regex.Matcherhttp://docs.intersystems.com/latest/csp/documatic/%25CSP.Documatic.cls?P...%Net.HttpRequesthttp://docs.intersystems.com/latest/csp/documatic/%25CSP.Documatic.cls?P...%Net.SMTPhttp://docs.intersystems.com/latest/csp/documatic/%25CSP.Documatic.cls?P...And they are also in source on your system.So it's easy to see how special Tags are used.
go to post Robert Cemper · Nov 15, 2017 Welcome back!infile ; simple file read set filename="C\mydir\myfile.txt" set $ZTRAP="end" open filename:("R"):0 else Write "file error" for line=1:1 use filename read text use 0 write text,! end close filename set $ZTRAP="" use 0 write "Done", quitit's not so sophisticated and I used the end-of-file error to exitThis is also available in class %Library.File with lot more comfort http://docs.intersystems.com/latest/csp/documatic/%25CSP.Documatic.cls?P...HTH
go to post Robert Cemper · Nov 15, 2017 Taskmanager is a part of Caché System Management and you should read the Docs.JOB is a COS command also used in Taskmanager but not only. Any routine may use it.So your Request / Question is just not clear
go to post Robert Cemper · Nov 15, 2017 If you don't want / need the content as object and just want to convert XML2JSONwhy wasting time and energy to re-invent the wheel an not just using any of the many downloadable toolsand call them over $ZF(-2) and consume the result ?Google gave my some thousand hits of tested solutions e.g. https://github.com/sinelaw/xml-to-jsonI mean it's doable with Caché but file_in => file_out is not more than a nice exercise for training.