Hey, Nicole
That's excellent !!!
What ever I click on shows up in "Atelier Documentation" Tab.
Thanks for the hint! 
- Log in to post comments
All
Accepted answers
You may try to cheat it by changing the <input> tag to
<input type=file size=30 name=FileStream onchange="javascript: alert(this.value);">
and you get in CHROME and Firefox
C:\fakepath\EUR_Meldung.pdf
and fakepath doesn't exist obviously
while IE11 and EDGE on Windows10 tell me the real path (!)
C:\Users\ich\Desktop\EUR\EUR_Meldung.pdf
I give no further comment related to security & privacy on products from M$
- Log in to post comments
OK, you look for something different than I understood.
The CLASS REFERENCE to DocBook seems to be not directly available as in Studio.
Just by external access to Documentation ....
Part of it is found if you have an class in your editor and move your cursor over a class name
then you get a volatile class description that you can nail down by clicking or <F2>
Its's pretty similar to the DocBook version EXCEPT that you have no further references (e.g. Data Types or %Status or ...)
So it's not a multi level navigation like in browser!
For illustration I have done this for %Persitent. For %Populate, %XML.Adaptor you have do again and again.
- Log in to post comments
Easier:
in tab Server Explorer clickk to ADD NEW Sever Connection (green cross)
- Log in to post comments
Could you pls. be a little bit more precise in what context you expect the reference?
A screenshot would be nice to explain your issue.
- Log in to post comments
To my understanding the structure of your global is irrelevant in this context.
If you want to use sharding forget about ALL global access.
You only access works over SQL ! (at least at the moment, objects may follow in some future)
It's the decision of the sharing logic where and how data are stored in globals.
If you ignore this and continue with direct global access you have a good chance to break it.
- Log in to post comments
This naming "mistake" of %ZEN caused a lot of extra checks and workarounds that we may have to carry around forever. 
My personal proposal "CSP#" written as CSPXX (CSPX was already used by Ensemble) didn't win the internal naming contest. 
Guess why. 
- Log in to post comments
List of supported nnenmonics for ANSI terminals (X364)
%X364 ; BINDING FOR ANSI X3.64 NAMESPACE, NOV/92 ; LRS952 06/07/05
APC ; Application program command
BEL ; Ring the bell
CBT(%1) ; Cursor backward tabulation %1 tab stops
CCH ; Cancel character
CHA(%1) ; Cursor horizontal absolute (move to column %1)
CHT(%1) ; Cursor horizontal tabulation (forward %1 tab stops)
CNL(%1) ; Cursor next line (cursor down %1 lines)
CPL(%1) ; Cursor preceding line (cursor up %1 lines)
CPR ; Cursor position report (return in $KEY)
CTC(%1,%2,%3,%4,%5,%6,%7,%8,%9) ; Cursor tabulation control
CUB(%1) ; Cursor backward %1 columns
CUD(%1) ; Cursor down %1 lines
CUF(%1) ; Cursor forward %1 columns
CUP(%2,%1) ; Cursor position (column %1, line %2)
CUU(%1) ; Cursor up %1 lines
CVT(%1) ; Cursor vertical tabulation
DAQ(%1,%2,%3,%4,%5,%6,%7,%8,%9) ; Define area qualification
DCH(%1) ; Delete %1 characters
DCS ; Device control string
DL(%1) ; Delete %1 lines
DSR(%1) ; Device status report - type %1 - return in $KEY
EA(%1) ; Erase in area
ECH(%1) ; Erase %1 characters
ED(%1) ; Erase in display (%1=0 cursor-to-end,1 begin-to-cursor,2 entire scr)
EF(%1) ; Erase in field
EL(%1) ; Erase in line (%1=0 cursor-to-end, 1 begin-to-cursor, 2 entire line)
EPA ; End of protected area
ESA ; End of selected area
HPA(%1) ; Horizontal position attribute (cursor to column %1)
HPR(%1) ; Horizontal position relative (cursor forward %1 columns)
HTJ ; Horizontal tab with justify
HTS ; Horizontal tabulation set
HVP(%1,%2) ; Horizontal and vertical position (column %1, line %2)
ICH(%1) ; Insert %1 characters
IL(%1) ; Insert %1 lines
IND ; Index
INT ; Interrupt
MC ; Media copy
MW ; Message waiting
NEL ; Next line
NP(%1) ; Next page (advance %1 pages of terminal display memory)
OSC ; Operating system command
PLD ; Partial line down
PLU ; Partial line up
PM ; Privacy message
PP(%1) ; Preceding page (backup %1 pages of terminal display memory)
PU1 ; Private use one
PU2 ; Private use two
REP ; Repeat
RI ; Reverse index
RIS ; Reset to initial state
RM(%1,%2,%3,%4,%5,%6,%7,%8,%9) ; Reset mode
SEM ; Select editing extent mode
SGR(%1,%2,%3,%4,%5,%6,%7,%8,%9) ; Select graphic rendition %1 thru %9
SM(%1,%2,%3,%4,%5,%6,%7,%8,%9) ; Set mode
SPA ; Start of protected area
SS2 ; Single shift two
SS3 ; Single shift three
SSA ; Start of selected area
ST ; String terminator
STS ; Set transmit state
SU ; Scroll up
TBC ; Tabulation clear
VPA(%1) ; Vertical position attribute (move to row %1 at same column)
VPR(%1) ; Vertical position relative (move down %1 lines at same column)
VTS ; Vertical tabulation sets
- Log in to post comments
With this reply I'd bet om SOAP
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> ......
But without details it's a guesswork. At least some schema for the content of PUT is required.
What I've seen at UPS there are many interfaces. So which one is it ?
- Log in to post comments
This was more a code correction exercise.
Honestly I wouldn't have done it that way at all. But using %XML.TextReader instead.
It was just to late in the evening to do a pretty solution.
The next auditor may do it.
BTW. for Attributes it'S %lev+1*3
- Log in to post comments
pls. point me to that WSDL or post it so we can try.
Without WSDL all to say isthe same what the error says: some important parameters are missing.
The XML document is well formed but the document is not valid
- Log in to post comments
As Eduard already pointed out there is just no need to use %XML.Node as %XML.Document inherits it already
I have elaborated your code also to cover Attributes and Chlidren in the document.
and added some readability features.
To some extend %XML.TextReader could have done the same.
No need to copy the code from browser the class + test data is attached. xmlreading.zip
Class XML.J [ Abstract ]
{
ClassMethod GetXMLDocFromFile(file = "C:\InterSystems\Cache\mgr\user\Test.xml") As %XML.Document
{
set reader=##class(%XML.Reader).%New()
set status=reader.OpenFile(file)
if $$$ISERR(status) {do $System.Status.DisplayError(status) quit $$$NULLOREF}
#dim document as %XML.Document
set document=reader.Document
#; set reNo=##class(%XML.Node).%New() //check here
#; set reNo.Document=document //check here
#; do ..ShowNode(reNo)
do ..ShowNamespaces(document)
#dim node as %XML.Node
set %lev=0
set node=document.GetDocumentElement()
do ..Analyze(node)
quit document
}
ClassMethod Analyze(node As %XML.Node)
{
set hasChild =..ShowNode(node)
set attribute=node.FirstAttributeName()
while attribute'="" {
do ..ShowAttribute(.attribute,node)
}
if hasChild {
set tSC=node.MoveToFirstChild(1)
if tSC , $i(%lev) {
while tSC {
do ..Analyze(node)
set tSC=node.MoveToNextSibling(1)
}
do node.MoveToParent() if $i(%lev,-1)
}
}
quit
}
ClassMethod ShowAttribute(ByRef attribute, node As %XML.Node)
{
write !?(%lev+1*3),"Attribute_Name ",attribute
,!?(%lev+1*3),"Atribute_Value ",node.GetAttributeValue(attribute)
#; more to be added here
,!?(%lev+1*3),"--------------------------"
set attribute=node.NextAttributeName(attribute)
quit
}
ClassMethod ShowNamespaces(doc As %XML.Document)
{
Set count=doc.CountNamespace()
Write !, "Number of namespaces in document: "_count
For i=1:1:count {
Write !, "Namespace "_i_" is "_doc.GetNamespace(i)
}
}
// how to use the below method
ClassMethod ShowNode(node As %XML.Node) As %Boolean
{
If node.NodeType=$$$xmlELEMENTNODE {
Write !?(%lev*3),"LocalName="_node.LocalName
#; Write !,"Namespace="_node.Namespace
#; }
#; If node.NodeType=$$$xmlELEMENTNODE {
#; Write !,"NamespaceIndex="_node.NamespaceIndex
Write !?(%lev*3),"Nil="_node.Nil
Write !?(%lev*3),"NodeData="_node.NodeData
Write !?(%lev*3),"QName="_node.QName
}
Write !?(%lev*3),"NodeId="_node.NodeId
Write !?(%lev*3),"NodeType="_node.NodeType
Write !?(%lev*3),"HasChildNodes returns "_node.HasChildNodes()
If node.NodeType=$$$xmlELEMENTNODE {
Write !?(%lev*3),"GetNumberAttributes returns "_node.GetNumberAttributes()
Set status=node.GetText(.text)
If status {
Write !?(%lev*3), "Text of the node is "_$tr(text,$c(10))
} else {
Write !?(%lev*3), "GetText does not return text"
}
}
quit node.HasChildNodes()
}
}
{
ClassMethod GetXMLDocFromFile(file = "C:\InterSystems\Cache\mgr\user\Test.xml") As %XML.Document
{
set reader=##class(%XML.Reader).%New()
set status=reader.OpenFile(file)
if $$$ISERR(status) {do $System.Status.DisplayError(status) quit $$$NULLOREF}
#dim document as %XML.Document
set document=reader.Document
#; set reNo=##class(%XML.Node).%New() //check here
#; set reNo.Document=document //check here
#; do ..ShowNode(reNo)
do ..ShowNamespaces(document)
#dim node as %XML.Node
set %lev=0
set node=document.GetDocumentElement()
do ..Analyze(node)
quit document
}
ClassMethod Analyze(node As %XML.Node)
{
set hasChild =..ShowNode(node)
set attribute=node.FirstAttributeName()
while attribute'="" {
do ..ShowAttribute(.attribute,node)
}
if hasChild {
set tSC=node.MoveToFirstChild(1)
if tSC , $i(%lev) {
while tSC {
do ..Analyze(node)
set tSC=node.MoveToNextSibling(1)
}
do node.MoveToParent() if $i(%lev,-1)
}
}
quit
}
ClassMethod ShowAttribute(ByRef attribute, node As %XML.Node)
{
write !?(%lev+1*3),"Attribute_Name ",attribute
,!?(%lev+1*3),"Atribute_Value ",node.GetAttributeValue(attribute)
#; more to be added here
,!?(%lev+1*3),"--------------------------"
set attribute=node.NextAttributeName(attribute)
quit
}
ClassMethod ShowNamespaces(doc As %XML.Document)
{
Set count=doc.CountNamespace()
Write !, "Number of namespaces in document: "_count
For i=1:1:count {
Write !, "Namespace "_i_" is "_doc.GetNamespace(i)
}
}
// how to use the below method
ClassMethod ShowNode(node As %XML.Node) As %Boolean
{
If node.NodeType=$$$xmlELEMENTNODE {
Write !?(%lev*3),"LocalName="_node.LocalName
#; Write !,"Namespace="_node.Namespace
#; }
#; If node.NodeType=$$$xmlELEMENTNODE {
#; Write !,"NamespaceIndex="_node.NamespaceIndex
Write !?(%lev*3),"Nil="_node.Nil
Write !?(%lev*3),"NodeData="_node.NodeData
Write !?(%lev*3),"QName="_node.QName
}
Write !?(%lev*3),"NodeId="_node.NodeId
Write !?(%lev*3),"NodeType="_node.NodeType
Write !?(%lev*3),"HasChildNodes returns "_node.HasChildNodes()
If node.NodeType=$$$xmlELEMENTNODE {
Write !?(%lev*3),"GetNumberAttributes returns "_node.GetNumberAttributes()
Set status=node.GetText(.text)
If status {
Write !?(%lev*3), "Text of the node is "_$tr(text,$c(10))
} else {
Write !?(%lev*3), "GetText does not return text"
}
}
quit node.HasChildNodes()
}
}
- Log in to post comments
It seems to me you try to call a SOAP service.
That service requires some special XML structured content. That is missing. It is typically placed in Authtoken.Entity
you can test your request by
set tSc = AuthToken.Post("/webservices/Void",1) to see what you send.with is empty in your case.
It may work with pure %Net.HttpReqquest but if you have a valid WSDL definition you better use
the WebService Client Generator in Caché Studio that does it all for you.
It would be useful to have sour WSDL to try it. Pls. attach it.
As I don't have a personal account on UPS I'n unable to identify what you a re trying to achieve.
I worked also with PHP WS. It does a lot under cover (without your control) that you have to do in Caché by your own code.
eg. at any request the related WDSL is downloaded for actual mapping.
- Log in to post comments
you should ensure that in the last else branch in method ..OutputNode() your variable
alChild is an object of type %XML.Document to satify your method
.. XmlToJSONnode(sbJSON As %AbstractStream, node As %XML.Document, showNodeName As %Boolean)
when you call it.
- Log in to post comments
it just works with local variables in memory.
I referred to this:
USER>s ^rcc=sbJSON
USER>s x=^rcc
USER>zw x
x="6@%Stream.FileCharacter"
USER>d x.%New()
D x.%New()
^
<INVALID OREF>
USER>
USER>s x=^rcc
USER>zw x
x="6@%Stream.FileCharacter"
USER>d x.%New()
D x.%New()
^
<INVALID OREF>
USER>
- Log in to post comments
I was wondering where this goes and how you could get so far.
Caché uses a temp file.
USER>set sbJSON =##class(%Stream.FileCharacter).%New()
USER>s sc=sbJSON.WriteLine(12123)
USER>zw sc
sc=1
USER>zw sbJSON
sbJSON=<OBJECT REFERENCE>[6@%Stream.FileCharacter]
+----------------- general information ---------------
| oref value: 6
| class name: %Stream.FileCharacter
| reference count: 2
+----------------- attribute values ------------------
| (%Concurrency) = 1
| %Location = "" <Set>
| (%LockRef) = ""
| (%Locked) = 0
| AtEnd = 0
| BOM = ""
| (CurrFile) = "C:\InterSystems\17E20\mgr\Temp\mAiLCZXuPXOaSQ.stream"
| Id = "" <Set>
| LineTerminator = $c(13,10) <Set>
| (MakePermLoc) = 1
| (Mode) = 3
|(NormalizedDirectory) = "C:\InterSystems\17E20\mgr\Temp\"
|(OidTranslateTable) = 0
| (ReadMode) = 0
| ReadSize = ""
| RemoveOnClose = 0
| (StoreFile) = ""
| StreamFormatWrite = 1
| (TempFile) = "mAiLCZXuPXOaSQ.stream"
| TranslateTable = "" <Set>
| UseVMSVersion = 0
| (VariableRecord) = 0
+--------------- calculated references ---------------
| CanonicalFilename <Get>
| Filename <Get,Set>
| LastModified <Get>
| Size <Get>
+-----------------------------------------------------
USER>
USER>zw sc
sc=1
USER>zw sbJSON
sbJSON=<OBJECT REFERENCE>[6@%Stream.FileCharacter]
+----------------- general information ---------------
| oref value: 6
| class name: %Stream.FileCharacter
| reference count: 2
+----------------- attribute values ------------------
| (%Concurrency) = 1
| %Location = "" <Set>
| (%LockRef) = ""
| (%Locked) = 0
| AtEnd = 0
| BOM = ""
| (CurrFile) = "C:\InterSystems\17E20\mgr\Temp\mAiLCZXuPXOaSQ.stream"
| Id = "" <Set>
| LineTerminator = $c(13,10) <Set>
| (MakePermLoc) = 1
| (Mode) = 3
|(NormalizedDirectory) = "C:\InterSystems\17E20\mgr\Temp\"
|(OidTranslateTable) = 0
| (ReadMode) = 0
| ReadSize = ""
| RemoveOnClose = 0
| (StoreFile) = ""
| StreamFormatWrite = 1
| (TempFile) = "mAiLCZXuPXOaSQ.stream"
| TranslateTable = "" <Set>
| UseVMSVersion = 0
| (VariableRecord) = 0
+--------------- calculated references ---------------
| CanonicalFilename <Get>
| Filename <Get,Set>
| LastModified <Get>
| Size <Get>
+-----------------------------------------------------
USER>
- Log in to post comments
I 'm not aware of such option.
I ran also the original class (with .$toJSOMFormat) in 2016.4 with the same effect.
JSON output (trapped over I/O redirection) looks also good.
I fear the huge XDATA block (HTML, JS, CSS) didn't make it correctly via the Studio import.
It looked very strange with many empty lines inserted.
- Log in to post comments
correct! this is just a string looking like an oref, but no oref
- Log in to post comments
Analyzing you code I see the problem in this line:
do sbJSON.WriteLine($C(92)_..SafeJSON(node.GetDocumentNode())_$C(92)_$C(58))
I take for given that sbJSON is a valid object.
So I further investigate on node
..XmlToJSONnode( ) is called twice + recursive
#1 from .. XmlToJSON() looks fine
#2 is suspicious as in .. OutputNode() I see
Method OutputNode(childname As %String, alChild As %RegisteredObject, sbJSON As %Stream, showNodeName As %Boolean)
{
if (alChild = null) // EMPTY, NOT AN OBJECT
{ ... }
elseif (alChild) // IT IS eventually an OBJECT REFERENCE
{ ... }
else // NOT EMPTY, NOT NUMERIC, AND NOT AN OBJECT REFERENCE
{
do ..XmlToJSONnode(sbJSON,alChild, showNodeName)
; > > > > > > > > > > > > > > > > > > > >^^^^^^ // WHAT is this now ???
}
do sbJSON.WriteLine($C(4))
}
{
if (alChild = null) // EMPTY, NOT AN OBJECT
{ ... }
elseif (alChild) // IT IS eventually an OBJECT REFERENCE
{ ... }
else // NOT EMPTY, NOT NUMERIC, AND NOT AN OBJECT REFERENCE
{
do ..XmlToJSONnode(sbJSON,alChild, showNodeName)
; > > > > > > > > > > > > > > > > > > > >^^^^^^ // WHAT is this now ???
}
do sbJSON.WriteLine($C(4))
}
so what you hand over is not an oref as this looks like <integer>@<classname>
therefore you fail with <INVALID OREF>zXmlToJSONnode+3^SharpJSONToXML.1
so some action is required to find out what happens
BTW:
passing sbJSON by reference would make this recursive construct easier to understand
as you intend to work to the same stream object anyhow.
or just use %sbJSON as single common reference
- Log in to post comments
And what's your question ?
- Log in to post comments
with
set tSc = AuthToken.Post("/webservices/Void")
you miss some content to POST and get
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
<soapenv:Header/>
<soapenv:Body>
<soapenv:Fault>
<faultcode>Client</faultcode>
<faultstring>An exception has been raised as a result of client data.</faultstring>
<detail>
<err:Errors xmlns:err="http://www.ups.com/schema/xpci/1.0/error">
<err:ErrorDetail>
<err:Severity>Hard</err:Severity>
<err:PrimaryErrorCode>
<err:Code>10001</err:Code>
<err:Description>The XML document is not well formed</err:Description>
<err:Digest>Unexpected element: CDATA</err:Digest>
</err:PrimaryErrorCode>
<err:Location/>
</err:ErrorDetail>
</err:Errors>
</detail>
</soapenv:Fault>
</soapenv:Body>
</soapenv:Envelope>
<soapenv:Header/>
<soapenv:Body>
<soapenv:Fault>
<faultcode>Client</faultcode>
<faultstring>An exception has been raised as a result of client data.</faultstring>
<detail>
<err:Errors xmlns:err="http://www.ups.com/schema/xpci/1.0/error">
<err:ErrorDetail>
<err:Severity>Hard</err:Severity>
<err:PrimaryErrorCode>
<err:Code>10001</err:Code>
<err:Description>The XML document is not well formed</err:Description>
<err:Digest>Unexpected element: CDATA</err:Digest>
</err:PrimaryErrorCode>
<err:Location/>
</err:ErrorDetail>
</err:Errors>
</detail>
</soapenv:Fault>
</soapenv:Body>
</soapenv:Envelope>
use instead
set tSc = AuthToken.Get("/webservices/Void")
and receive
<HTML>
<HEAD><TITLE>UPS Online Tools VoidWS</TITLE></HEAD>
<BODY><H2>
Service Name: VoidWS<br>
Remote User: null<br>
Server Port: 443<br>
Server Name: wwwcie.ups.com<br>
Servlet Path: /Void<br>
</H2>
</BODY></HTML>
<HEAD><TITLE>UPS Online Tools VoidWS</TITLE></HEAD>
<BODY><H2>
Service Name: VoidWS<br>
Remote User: null<br>
Server Port: 443<br>
Server Name: wwwcie.ups.com<br>
Servlet Path: /Void<br>
</H2>
</BODY></HTML>
- Log in to post comments
The return value of your WebService has to be of type
ServiceTestPrd.Request.ReqPatInfo
Method GetPatInfo(QueryInfo As %Stream.GlobalCharacter) As ServiceTestPrd.Request.ReqPatInfo [ WebMethod ]
and you terminate with your object.
quit reqObj
- Log in to post comments
just run $System.OBJ.Export() for your Global and hand over the result to your CVS.
USER>s sc=$system.OBJ.Export("^rcc.GBL","exportTest.txt",,.error,"UTF8")
Exportieren in XML gestartet am 04/01/2018 10:25:26
Exportiere Global: ^rccthe result is a nice XML structure
and $system.OBJ.Import() reloads it
The extension .GBL is the important thing
http://docs.intersystems.com/latest/csp/documatic/%25CSP.Documatic.cls?…
- Log in to post comments
Update:
Blocks.Router uses $toJSONFormat() {CR/LF formatedOutput }
this hidden function hasn't been ported. replacement with %ToJSON() does it as well.
So TREE view works nice.
Map view gets no content (and no colored dots ).
Reason: Block Count=0 and also %Fill -> nothing to display (makes sense somehow).
This is also with the original classes in 2016.1.4 ;
Looks like an privilege issue.
- Log in to post comments
You still may be confronted with encoding issues: 8 bit vs. UniCode
and the correct sort order ASCII, French, 3 variants of German, ......many more
But your original installation knows this all.
- Log in to post comments
You are missing the point.
12345 is the port used by the cache DB server (default=1972) of your instance.
internally there is a mapping between the logical NAMESPACE and the physical disk directory and that NAMESPACE is used in connection string.
if your namespace is called DB then you have to use
jdbc:Cache://localhost:12345/DB
But if you just have the directory .../cache/db/cache.dat you can't say what NAMESPACE this is
You have to know your Caché configuration.
Some reading on Caché configuration may give you background information
http://docs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls?KEY…
- Log in to post comments
do you plan an update for changes to JSON syntax
- .%To... instead of .$to... and so on
- local Caché variables and expressions in parenthesis. ( var )
I tried and it finally compiled. Could run the page just never saw a result.
- Log in to post comments
NO direct WAY !
But you may do it in a local instance of Caché.
- Log in to post comments
It was introduced in Caché 5.2 already !
see release notes.
http://docs.intersystems.com/cache52/csp/docbook/DocBook.UI.Page.cls?KE…
HowTo:
http://docs.intersystems.com/cache52/csp/docbook/DocBook.UI.Page.cls?KE…
- Log in to post comments
OK. I understand.
- I doubt if a Linux distribution of Caché contains any Windows mechanics. ( to be checked with WRC )
- on the other hand I don't believe it's possible or make sense to run Caché Win distribution in a Win-Shell ...
So suggested workaround:
Have a VM (or small machine) with Windows +Caché and connect via ECP or similar (REST, WebService, JDBC, ...) to your main Caché instance on Linux.
OR:
Wrap some C# around your DLL on a Windows box and present it as a WebService that you call from Linux.
- Log in to post comments