Created from: http://cache02/csp/Admin1/ADB2_Wsdl_ProcInvoker.xml serial 1 %SerialObject,%XML.Adaptor 0 1 http://service.db.assentis.com BeanRuntimeProperty 1 %String 1 %String 1 %String %Boolean %SmallInt %BinaryStream %ListOfDataTypes ]]> 0 %Status " Set val=$zobjval(,9,0,3,7) If val'="" { Write currentIndent_beginprefix_"targetBeanName"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"string""",1:"")_">"_$select(val=$c(0):"",1:$select((val["<")||(val[">")||(val["&"):"":$$XMLescapeCData(val),1:val)_"]]]]>",1:val))_endprefix_"targetBeanName>" } Set val=$zobjval(,10,0,3,8) If val'="" { Write currentIndent_beginprefix_"targetPropertyKey"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"string""",1:"")_">"_$select(val=$c(0):"",1:$select((val["<")||(val[">")||(val["&"):"":$$XMLescapeCData(val),1:val)_"]]]]>",1:val))_endprefix_"targetPropertyKey>" } Set val=$zobjval(,8,0,3,6) If val'="" { Write currentIndent_beginprefix_"newPropertyValue"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"string""",1:"")_">"_$select(val=$c(0):"",1:$select((val["<")||(val[">")||(val["&"):"":$$XMLescapeCData(val),1:val)_"]]]]>",1:val))_endprefix_"newPropertyValue>" } Set val=$zobjval(,2,0,3,2) If val'="" { Write currentIndent_beginprefix_"newPropertyValue"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"boolean""",1:"")_">"_..BoolPropertyValueLogicalToXSD(val)_endprefix_"newPropertyValue>" } Set val=$zobjval(,3,0,3,3) If val'="" { Write currentIndent_beginprefix_"newPropertyValue"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"short""",1:"")_">"_val_endprefix_"newPropertyValue>" } Set val=..StreamPropertyValue If (val'="")&&('val.IsNull()) { Write currentIndent_beginprefix_"newPropertyValue"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"base64Binary""",1:"")_">" Do val.Rewind() Set len=5700 While 'val.AtEnd { Write $system.Encryption.Base64Encode(val.Read(.len)) } Write endprefix_"newPropertyValue>" } Set aval=..ListPropertyValue Set k="",val=aval.GetNext(.k) If k'="" { If encoded { If indentFlag Write currentIndent Set currentIndent=currentIndent_indentChars Write beginprefix_"newPropertyValue "_$select(0 :" "_xsiPrefix_"type="""_soapPrefix_"Array""",1:soapPrefix_"arrayType="""_schemaPrefix_"string["_aval.Count()_"]""")_" "_xsiPrefix_"type="""_soapPrefix_"Array"""_">" ;Write beginprefix_"newPropertyValue "_$select(xsitype:" "_xsiPrefix_"type="""_soapPrefix_"Array""",1:soapPrefix_"arrayType="""_schemaPrefix_"string["_aval.Count()_"]""")_">" } Else { If indentFlag Write currentIndent Set currentIndent=currentIndent_indentChars Write beginprefix_"newPropertyValue>" } While k'="" { If val'="" { Write currentIndent_beginprefix_"Item"_$select(xsitype:" "_xsiPrefix_"type="""_schemaPrefix_"string""",1:"")_">"_$select(val=$c(0):"",1:$select((val["<")||(val[">")||(val["&"):"":$$XMLescapeCData(val),1:val)_"]]]]>",1:val))_endprefix_"Item>" } Else { Write currentIndent_beginprefix_"Item "_xsiPrefix_"nil=""true"""_xsiAttrs_"/>" } Set val=aval.GetNext(.k) } If indentFlag Set currentIndent=$extract(currentIndent,1,$length(currentIndent)-$length(indentChars)) Write currentIndent Write endprefix_"newPropertyValue>" } If indentFlag Set currentIndent=$extract(currentIndent,1,$length(currentIndent)-$length(indentChars)) Write currentIndent Write "" If indentFlag&&'initialCR Write ! Set $extract(currentIndent,1,2)="" If $IsObject(namespaces) Do namespaces.PopNode() Quit sc XMLExportTrap Set $ztrap="" If $data(val) && $IsObject(val) && ($piece($ze,">",1)="",pos) Quit:pos=0 Set line=$extract(line,1,pos-4)_"]]]]]]>"_$extract(line,pos,32767),pos=pos+11 Quit line ]]> %Library.CacheSerialState BeanRuntimePropertyState ^BL.Sys.FOP.BeanRuntimeP7BFS listnode "BL.Sys.FOP.BeanRuntimeProperty" BoolPropertyValue ListPropertyValue StreamPropertyValue newPropertyValue targetBeanName targetPropertyKey IntegerPropertyValue