&response = CreateMessage(Operation.GETWLINSTANCE, %IntBroker_Response);
   
   Local Record &respRec = &response.GetPartRowset(1).GetRow(1).GetRecord(Record.PT_WL_MSGKEYS_W);
   
   &respRec.GetField(Field.PT_REQUEST_MSG_ID).Value = &ReqMsgID;
   &respRec.GetField(Field.BUSPROCNAME).Value = &BusProcName;
   &respRec.GetField(Field.ACTIVITYNAME).Value = &ActivityName;
   &respRec.GetField(Field.EVENTNAME).Value = &EventName;
   &respRec.GetField(Field.WORKLISTNAME).Value = &WorklistName;
   &respRec.GetField(Field.INSTANCEID).Value = &InstanceID;
   &respRec.GetField(Field.TRANSACTIONID).Value = &TransactionID;
   &respRec.GetField(Field.INSTSTATUS).Value = &InstanceStatus;
   &respRec.GetField(Field.PT_WS_RESP_SENT).Value = &ResponseStatus;
   
   Local XmlDoc &respDoc = CreateXmlDoc(&response.GenXMLPartString(1));
   
   /*return response message for IB to reply*/
   Return &response;