Type MQOR ObjectName As String*48 'Object name' ObjectQMgrName As String*48 'Object queue manager name' End Type