Visual Basic declaration
Type MQDLH
StrucId As String*4 'Structure identifier'
Version As Long 'Structure version number'
Reason As Long 'Reason message arrived on dead-letter'
'(undelivered-message) queue'
DestQName As String*48 'Name of original destination queue'
DestQMgrName As String*48 'Name of original destination queue'
'manager'
Encoding As Long 'Numeric encoding of data that follows'
'MQDLH'
CodedCharSetId As Long 'Character set identifier of data that'
'follows MQDLH'
Format As String*8 'Format name of data that follows MQDLH'
PutApplType As Long 'Type of application that put message on'
'dead-letter (undelivered-message) queue'
PutApplName As String*28 'Name of application that put message on'
'dead-letter (undelivered-message) queue'
PutDate As String*8 'Date when message was put on dead-letter'
'(undelivered-message) queue'
PutTime As String*8 'Time when message was put on the'
'dead-letter (undelivered-message) queue'
End Type