RPG declaration (copy file CMQDLHH)

     D*..1....:....2....:....3....:....4....:....5....:....6....:....7..
     D* MQDLH Structure
     D*
     D* Structure identifier
     D  DLSID                  1      4
     D* Structure version number
     D  DLVER                  5      8I 0
     D* Reason message arrived on dead-letter (undelivered-message)
     D* queue
     D  DLREA                  9     12I 0
     D* Name of original destination queue
     D  DLDQ                  13     60
     D* Name of original destination queue manager
     D  DLDM                  61    108
     D* Numeric encoding of data that follows MQDLH
     D  DLENC                109    112I 0
     D* Character set identifier of data that follows MQDLH
     D  DLCSI                113    116I 0
     D* Format name of data that follows MQDLH
     D  DLFMT                117    124
     D* Type of application that put message on dead-letter
     D* (undelivered-message) queue
     D  DLPAT                125    128I 0
     D* Name of application that put message on dead-letter
     D* (undelivered-message) queue
     D  DLPAN                129    156
     D* Date when message was put on dead-letter (undelivered-message)
     D* queue
     D  DLPD                 157    164
     D* Time when message was put on the dead-letter
     D* (undelivered-message) queue
     D  DLPT                 165    172