Home
Visual Basic declaration
Type MQDH StrucId As String*4 'Structure identifier' V As Long 'Structure version number' StrucLength As Long 'Length of MQDH structure plus following' 'MQOR and MQPMR records' Encoding As Long 'Numeric encoding of data that follows' 'the MQOR and MQPMR records' CodedCharSetId As Long 'Character set identifier of data that' 'follows the MQOR and MQPMR records' Format As String*8 'Format name of data that follows the' 'MQOR and MQPMR records' Flags As Long 'General flags' PutMsgRecFields As Long 'Flags indicating which MQPMR fields are' 'present' RecsPresent As Long 'Number of MQOR records present' ObjectRecOffset As Long 'Offset of first MQOR record from start' 'of MQDH' PutMsgRecOffset As Long 'Offset of first MQPMR record from start' 'of MQDH' End Type
Home