go to post Robert Cemper · Feb 21, 2018 It was first documented in 2015.2chapter 12.1.1 p.108http://docs.intersystems.com/documentation/cache/20152/pdfs/GSQL.pdf• Dynamic SQL can accept a literal value input to a query in two ways: input parameters specified at execution timeusing the “?” character, and input host variables (for example, :var) specified at prepare time. Embedded SQL usesinput and output host variables (for example, :var).
go to post Robert Cemper · Feb 21, 2018 An interesting observation!IT WORKS !I just retyped it a little bit extended for fast retry: set minage = 80set myquery = 3set tStatement = ##class(%SQL.Statement).%New()set myquery(1) = "SELECT top 10 %ID AS id, Age , Name, %ODBCOUT(DOB) DOB, Home_State"set myquery(2) = "FROM Sample.Person WHERE Age > :minage"set myquery(3) = "ORDER BY 2"set qStatus = tStatement.%Prepare(.myquery)set tResult = tStatement.%Execute()do tResult.%Display()in SAMPLES:id Age Name DOB Home_State16 82 Schaefer,Alvin S. 1935-05-05 HI108 82 Adams,Brian Q. 1936-02-21 IL199 82 Yeats,Ashley K. 1935-10-28 NC74 83 Ravazzolo,Molly I. 1934-12-31 WV63 84 Cheng,Filomena J. 1933-12-27 NM69 84 Yeats,Patrick U. 1933-04-19 KY92 85 Lepon,Liza M. 1932-06-03 MN94 87 Browne,Patricia I. 1930-04-05 AL111 87 Orlin,Edward J. 1930-04-10 OR197 87 Rogers,Barbara M. 1930-12-06 WIIt also works using traditional %ResultSetThough I didn't interpret nor use it that way it is documented here:Dynamic SQL versus Embedded SQL (4th point)Dynamic SQL can accept a literal value input to a query in two ways:input parameters specified using the “?” character,and input host variables (for example, :var). Embedded SQL uses input and output host variables (for example, :var).
go to post Robert Cemper · Feb 21, 2018 reason #1) 40 yrs. backward compatibility #2) in $LB not everything is a string but has its hidden data types while a string is sequence of bytes an integer get#s a binary representation ( ~ 19 digits ==> 8 byte (int64))try:set x=$lb(64444,"64444") zzdump x04 04 BC FB 07 01 36 34 34 34 34it's really byte saving
go to post Robert Cemper · Feb 20, 2018 In general I would agree:Though in order to use the class query you have the change to namespace "%SYS" and back.As the query is predefined you finally build your own lookup list which is a copy of the original global.Anyhow this would provide the required result: kill roles set roles="" new $namespace zn "%SYS" set rs=##class(%ResultSet).%New("Security.Roles:ListAll1") set tSC=rs.Execute() if tSC { while rs.Next() { set role=rs.Get("Name") write ">",role,! ;; just for display set roles($zcvt(role,"L"))="" } } set rs="" ;; for save return from "%SYS" zw roles ;; for demo set list2=$lfs(input,"CN=") for i=2:1:$LL(list2) { set CN=$p($li(list2,i),",") ;; get 1st piece set CN=$zcvt(CN,"L") ;; lower case required..v set exists=''$d(roles(CN)) write !,i," ",exists," ",CN ;; for debugging and demo if exists write " role found" } quit ;; get back to original namespace
go to post Robert Cemper · Feb 20, 2018 32k sounds like the default size of Read() method in %Stream classes. did you verify with ...stream.SizeGet() ?http://docs.intersystems.com/iris20181/csp/documatic/%25CSP.Documatic.cls?PAGE=CLASS&LIBRARY=%25SYS&CLASSNAME=%25Stream.FileBinary#Read
go to post Robert Cemper · Feb 19, 2018 for i=2:1:$LL(list2) { set CN=$p($li(list2,i),",") ;get 1st piece set CN=$zcvt(CN,"L") ;lower case required..v set exists=''$d(^|"%SYS"|SYS("Security","RolesD",CN)) write !,i," ",exists," ",CN if exists write " role found"}
go to post Robert Cemper · Feb 19, 2018 so with a little change you get the content of CN= as starting string set list2=$lfs(input,"CN="); ignore trailerfor i=2:1:$LL(list2) write !,i,?5,$p($li(list2,i),",") 2 Access.Ensemble.Developer.User3 [CPD Admin]4 [MUSE_Access]5 [IT eMaterials]
go to post Robert Cemper · Feb 19, 2018 what is this ? a String or a JSON object , or a fixed sequence of (CN= ,OU=, DC=, DC= )there is no obvious groupIng by a separator visible.You may start byset list=$lfs($p($p(input,"{",2),"}"))zw listlist=$lb("CN=Access.Ensemble.Developer.User","OU=Access Groups","DC=OSUMC","DC=EDU"," CN=[CPD Admin]","OU=Distribution Lists","DC=OSUMC","DC=EDU"," CN=[MUSE_Access]","OU=Distribution Lists","DC=OSUMC","DC=EDU"," CN=[IT eMaterials]","OU=Distribution Lists","DC=OSUMC","DC=EDU...") But instead of an unstructured string you have an unstructured list
go to post Robert Cemper · Feb 19, 2018 George, GordonInteresting info on Upgrade2016.1 This seems to by some fake news.Since the class is there om 2017.2 and even in IRIS2018.1http://docs.intersystems.com/iris20181/csp/documatic/%25CSP.Documatic.cls?PAGE=CLASS&LIBRARY=%25SYS&CLASSNAME=%25CSP.StreamThe Type set fails because %CSP.Stream is just an abstract class. Like %CSP.Page you have to create the real object yourself as %CSP.CharacterStream or %CSP.BinaryStream a little bit simplified for retyping in terminal:set req = ##class(%CSP.Request).%New()set cont=req.Content zw cont ; MO AUTOMATIC OBJECT BEAUSE ABSTRACT !!cont=""set cont=##class(%CSP.CharacterStream).%New() zw cont ; NOW WE HAVE AN OBJECTcont=<OBJECT REFERENCE>[5@%CSP.CharacterStream]+----------------- general information ---------------| oref value: 5| class name: %CSP.CharacterStream| reference count: 2+----------------- attribute values ------------------| (%Concurrency) = 1| (%LastModified) = ""| %Location = "" <Get,Set>| (%LockRef) = ""| (%Locked) = 0| AtEnd = 0| (Buffer) = ""| (IOSize) = 0| Id = ""| LineTerminator = $c(13,10) <Set>| (MaxNodeNo) = 0| (Mode) = 0| (NodeNo) = 0| (Position) = 1| (StoreNode) = ""| (StoreRoot) = "^CacheStream"| (TempNode) = ""+--------------- calculated references ---------------| CharSet <Get,Set>| ContentType <Get,Set>| Expires <Get,Set>| FileName <Get,Set>| Headers <Get,Set>| LastModified <Get>| MimeSection <Get,Set>| Size <Get>| (StoreGlvn) <Get>| (TempGlvn) <Get>+-----------------------------------------------------set cont.ContentType="application/json"; and so on ....HTH
go to post Robert Cemper · Feb 19, 2018 Digging around working sets I found them unable to cover package structures:packages seem to be implemented as kind of sub-directory. You see the same effect in editor pane. The package is only visible in mouseOver event. You only see the packages if you click the down arrow in right upper corner and "Edit Working Set".For "TZ = TimeZone" I googled around Eclipse and opened a can of worms. With no answer.
go to post Robert Cemper · Feb 19, 2018 see this ANSWER for use of |CPIPE|https://community.intersystems.com/post/execute-exe##node-418951
go to post Robert Cemper · Feb 17, 2018 try this set list=$lb("","2",6,6,6,"3") for i=1:1:$LL(list) { write !,$li(list,i),?5 if $lb($li(list,i)) = $lb(+$li(list,i)) write "Integer" else write "String" } Result: String2 String6 Integer6 Integer6 Integer3 String
go to post Robert Cemper · Feb 17, 2018 This functionality seems to be broken. Since quite some time.It also fails in SAMPLES / Class ZENTest.ComboTest.cls and the method is never called.Analysis of Class %ZEN.Component.dataListBox shows that the related call to method %DrawItem got lost.I verified it with a personal hack. You may contact WRC for a fix.
go to post Robert Cemper · Feb 16, 2018 if you just want to eliminate the hyphen this may work for you:USER>write $TR($zcvt($tr("mY-sImPlE eXaMpLe","-"," "),"W")," ")MySimpleExampletranslate hyphen to blank first and off you go
if you just want to eliminate the hyphen this may work for you:USER>write $TR($zcvt($tr("mY-sImPlE eXaMpLe","-"," "),"W")," ")MySimpleExampletranslate hyphen to blank first and off you go
if you just want to eliminate the hyphen this may work for you:USER>write $TR($zcvt($tr("mY-sImPlE eXaMpLe","-"," "),"W")," ")MySimpleExampletranslate hyphen to blank first and off you go
go to post Robert Cemper · Feb 16, 2018 provided you have sufficient access rights you may get defined roles in Caché / Ensbele like this: set role="" for { set role=$ORDER(^|"%SYS"|SYS("Security","RolesD",role)) quit:role="" write role,! ;; or do whatever you need }
go to post Robert Cemper · Feb 16, 2018 %request.content is an object of type %CSP.Stream;http://docs.intersystems.com/csp/documatic/%25CSP.Documatic.cls?PAGE=CLASS&LIBRARY=%25SYS&CLASSNAME=%25CSP.Request#PROPERTY_Contentso you have to access it by Stream Methods. Simple SET either left or right side doesn't work.see docs:http://docs.intersystems.com/csp/documatic/%25CSP.Documatic.cls?PAGE=CLASS&LIBRARY=%25SYS&CLASSNAME=%25CSP.Request
go to post Robert Cemper · Feb 16, 2018 I probably don't understand your expectation.You upload typically an image or something similar that the browsercan display as part of the article, questions, answer, comment you write.And that works excellent.If this is something else e.g. some binary stuff, or Word.doc or Excel it may fail.What type of file would you expect to upload ?
