Method Test(pInput As Ens.StringRequest, Output pOutput As Ens.StringResponse) As %Status{ 
    Set pResponse=##class(Ens.StringResponse).%New()

    if (pRequest.StringValue="")
    {
        Set pResponse.StringValue="ERROR"
        Set tSC=$$$ERROR($$$GeneralError, "Test error case")
    }

    else
    {
        Set pResponse.StringValue="OK"
        Set tSC=$$$OK

    $$$LOGINFO(pResponse.StringValue)

    Return tSC
    }
}

Class Tutorial.ExampleProduction extends Ens.BusinessOperation {

Parameter INVOCATION = "Queue";

Method Test(pInput As Ens.StringRequest, Output pOutput As Ens.StringResponse) As %Status
{
    Set pResponse=##class(Ens.StringResponse).%New()

    if (pRequest.StringValue="")
    {
        Set pResponse.StringValue="ERROR"
        Set tSC=$$$ERROR($$$GeneralError, "Test error case")
    }

    else
    {
        Set pResponse.StringValue="OK"
        Set tSC=$$$OK

    $$$LOGINFO(pResponse.StringValue)

    Return tSC
    }
}

XData MessageMap {
<MapItems>
    <MapItem MessageType="Ens.StringRequest">
        <Method>Test</Method>
    </MapItem>
</MapItems>
}

}