      ******************************************************************
      **                                                              **
      **                  WebSphere MQ for Generic                    **
      **                                                              **
      **  FILE NAME:      CMQSTSV                                     **
      **                                                              **
      **  DESCRIPTION:    MQSTS Structure -- Status Information       **
      **                  Record                                      **
      **                                                              **
      ******************************************************************
      **  <copyright                                                  **
      **  notice="lm-source-program"                                  **
      **  pids="5724-H72,5655-R36,5724-L26,"                          **
      **  years="1993,2008"                                           **
      **  crc="3675157992" >                                          **
      **  Licensed Materials - Property of IBM                        **
      **                                                              **
      **  5724-H72,5655-R36,5724-L26,                                 **
      **                                                              **
      **  (C) Copyright IBM Corp. 1993, 2008 All Rights Reserved.     **
      **                                                              **
      **  US Government Users Restricted Rights - Use, duplication or  **
      **  disclosure restricted by GSA ADP Schedule Contract with     **
      **  IBM Corp.                                                   **
      **  </copyright>                                                **
      ******************************************************************
      **                                                              **
      **  FUNCTION:       This file declares the structure MQSTS,     **
      **                  which is used by the main MQI.              **
      **                                                              **
      **  PROCESSOR:      COBOL                                       **
      **                                                              **
      ******************************************************************

      ******************************************************************
      ** <BEGIN_BUILDINFO>                                            **
      ** Generated on:  5/24/10 9:13 PM                               **
      ** Build Level:   p000-L100524                                  **
      ** Build Type:    Production                                    **
      ** Pointer Size:  64 Bit                                        **
      ** Source File:                                                 **
      ** CMQSTSV                                                      **
      ** <END_BUILDINFO>                                              **
      ******************************************************************

      ** MQSTS structure
       10  MQSTS.
      ** Structure identifier
       15  MQSTS-STRUCID PIC X(4) VALUE 'STAT'.
      ** Structure version number
       15  MQSTS-VERSION PIC S9(9) BINARY VALUE 1.
      ** Completion Code of first error
       15  MQSTS-COMPCODE PIC S9(9) BINARY VALUE 0.
      ** Reason Code of first error
       15  MQSTS-REASON PIC S9(9) BINARY VALUE 0.
      ** Number of Async put calls succeeded
       15  MQSTS-PUTSUCCESSCOUNT PIC S9(9) BINARY VALUE 0.
      ** Number of Async put calls had warnings
       15  MQSTS-PUTWARNINGCOUNT PIC S9(9) BINARY VALUE 0.
      ** Number of Async put calls had failures
       15  MQSTS-PUTFAILURECOUNT PIC S9(9) BINARY VALUE 0.
      ** Failing object type
       15  MQSTS-OBJECTTYPE PIC S9(9) BINARY VALUE 1.
      ** Failing object name
       15  MQSTS-OBJECTNAME PIC X(48) VALUE SPACES.
      ** Failing object queue manager
       15  MQSTS-OBJECTQMGRNAME PIC X(48) VALUE SPACES.
      ** Resolved name of destination queue
       15  MQSTS-RESOLVEDOBJECTNAME PIC X(48) VALUE SPACES.
      ** Resolved name of destination qmgr
       15  MQSTS-RESOLVEDQMGRNAME PIC X(48) VALUE SPACES.
      ** Ver:1 **
      ** Failing object long name
       15  MQSTS-OBJECTSTRING.
      ** Address of variable length string
       20  MQSTS-OBJECTSTRING-VSPTR POINTER VALUE NULL.
      ** Offset of variable length string
       20  MQSTS-OBJECTSTRING-VSOFFSET PIC S9(9) BINARY VALUE 0.
      ** Size of buffer
       20  MQSTS-OBJECTSTRING-VSBUFSIZE PIC S9(9) BINARY VALUE 0.
      ** Length of variable length string
       20  MQSTS-OBJECTSTRING-VSLENGTH PIC S9(9) BINARY VALUE 0.
      ** CCSID of variable length string
       20  MQSTS-OBJECTSTRING-VSCCSID PIC S9(9) BINARY VALUE -3.
      ** Failing subscription name
       15  MQSTS-SUBNAME.
      ** Address of variable length string
       20  MQSTS-SUBNAME-VSPTR POINTER VALUE NULL.
      ** Offset of variable length string
       20  MQSTS-SUBNAME-VSOFFSET PIC S9(9) BINARY VALUE 0.
      ** Size of buffer
       20  MQSTS-SUBNAME-VSBUFSIZE PIC S9(9) BINARY VALUE 0.
      ** Length of variable length string
       20  MQSTS-SUBNAME-VSLENGTH PIC S9(9) BINARY VALUE 0.
      ** CCSID of variable length string
       20  MQSTS-SUBNAME-VSCCSID PIC S9(9) BINARY VALUE -3.
      ** Failing open options
       15  MQSTS-OPENOPTIONS PIC S9(9) BINARY VALUE 0.
      ** Failing subscription options
       15  MQSTS-SUBOPTIONS PIC S9(9) BINARY VALUE 0.
      ** Ver:2 **


      ******************************************************************
      **  End of CMQSTSV                                              **
      ******************************************************************
