COBOL declaration for MQCBC

** MQCBC structure
 10  MQCBC.
** Structure Identifier 
 15  MQCBC-STRUCID                      PIC X(4).
** Structure Version
 15  MQCBC-VERSION                      PIC S9(9) BINARY.
 ** Call Type
 15  MQCBC-CALLTYPE                     PIC S9(9) BINARY.
** Object Handle
 15  MQCBC-HOBJ                         PIC S9(9) BINARY.
** Callback User Area
 15  MQCBC-CALLBACKAREA                 POINTER
** Connection Area    
 15  MQCBC-CONNECTIONAREA               POINTER
** Completion Code
 15  MQCBC-COMPCODE                     PIC S9(9) BINARY.
** Reason Code 
 15  MQCBC-REASON                       PIC S9(9) BINARY.
** Consumer State     
 15  MQCBC-STATE                        PIC S9(9) BINARY.
** Data Length
 15  MQCBC-DATALENGTH                   PIC S9(9) BINARY.
** Buffer Length
 15  MQCBC-BUFFERLENGTH                 PIC S9(9) BINARY.
** Flags
 15  MQCBC-FLAGS                        PIC S9(9) BINARY.
** Ver:1 **
** Number of milliseconds before reconnect attempt
 15  MQCBC-RECONNECTDELAY PIC S9(9) BINARY.
** Ver:2 **