System/390(R) assembler declaration
MQDLH DSECT
MQDLH_STRUCID DS CL4 Structure identifier
MQDLH_VERSION DS F Structure version number
MQDLH_REASON DS F Reason message arrived on dead-letter
* (undelivered-message) queue
MQDLH_DESTQNAME DS CL48 Name of original destination queue
MQDLH_DESTQMGRNAME DS CL48 Name of original destination queue
* manager
MQDLH_ENCODING DS F Numeric encoding of data that follows
* MQDLH
MQDLH_CODEDCHARSETID DS F Character set identifier of data that
* follows MQDLH
MQDLH_FORMAT DS CL8 Format name of data that follows MQDLH
MQDLH_PUTAPPLTYPE DS F Type of application that put message on
* dead-letter (undelivered-message) queue
MQDLH_PUTAPPLNAME DS CL28 Name of application that put message on
* dead-letter (undelivered-message) queue
MQDLH_PUTDATE DS CL8 Date when message was put on
* dead-letter (undelivered-message) queue
MQDLH_PUTTIME DS CL8 Time when message was put on the
* dead-letter (undelivered-message) queue
*
MQDLH_LENGTH EQU *-MQDLH
ORG MQDLH
MQDLH_AREA DS CL(MQDLH_LENGTH)