I have a set of labreports saved in db.I need to retreive this data from db and also trace the value of each column.
/// BPL to send results via Webservice
Class Result Extends Ens.BusinessProcessBPL
{
Storage Default
{
<Type>%Library.CacheStorage</Type>
}
/// BPL Definition
XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
{
<process language='objectscript' request='Ens.Request' response='Ens.Response' height='2000' width='2000' >
<context>
<property name='Forename' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='Surname' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
<property name='ReportDiscipline' type='%String' instantiate='0' >
<parameters>
<parameter name='MAXLEN' value='50' />
</parameters>
</property>
</context>
<sequence xend='200' yend='850' >
<trace name='TEMP trace element' value='"In business process "_request.StringValue' xpos='200' ypos='250' />
<assign property="context.ReportDiscipline" value="request.StringValue" action="set" xpos='200' ypos='350' />
<trace value='"ReportDiscipline value: "_context.ReportDiscipline' xpos='200' ypos='450' />
<sql xpos='200' ypos='550' >
<![CDATA[
SELECT Forename,Surname INTO :context.Forename,:context.Surname
FROM LabReports
WHERE Discipline =:context.ReportDiscipline]]>
</sql>
<trace value='"SQLCODE: "_SQLCODE' xpos='200' ypos='650' />
<trace value='"returned value: "_context.Forename' xpos='200' ypos='750' />
</sequence>
</process>
}
}
@Cristiano Silva
this is how my BPL class looks like now. Now the sql code returns nothings though it shows correct value when parameter value is hardcoded. I wanted to retreive resultset and loop over it, to trace each of the values for now.
- Log in to post comments