cmqpas.pas

delphi写的IBM mq服务器

  (* Structure Version Number *)
  MQTMC_VERSION_1       = '   1';
  MQTMC_VERSION_2       = '   2';
  MQTMC_CURRENT_VERSION = '   2';


  (*********************************************************************)
  (*  Values Related to MQWIH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQWIH_STRUC_ID = 'WIH ';

  (* Structure Version Number *)
  MQWIH_VERSION_1       = 1;
  MQWIH_CURRENT_VERSION = 1;

  (* Structure Length *)
  MQWIH_LENGTH_1       = 120;
  MQWIH_CURRENT_LENGTH = 120;

  (* Flags *)
  MQWIH_NONE = 0;


  (*********************************************************************)
  (*  Values Related to MQXQH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQXQH_STRUC_ID = 'XQH ';

  (* Structure Version Number *)
  MQXQH_VERSION_1       = 1;
  MQXQH_CURRENT_VERSION = 1;


  (*********************************************************************)
  (*  Values Related to MQCLOSE Function                               *)
  (*********************************************************************)

  (* Object Handle *)
  MQHO_UNUSABLE_HOBJ = -1;
  MQHO_NONE          = 0;

  (* Close Options *)
  MQCO_NONE         = 0;
  MQCO_DELETE       = 1;
  MQCO_DELETE_PURGE = 2;


  (*********************************************************************)
  (*  Values Related to MQINQ Function                                 *)
  (*********************************************************************)

  (* Character-Attribute Selectors *)
  MQCA_ALTERATION_DATE       = 2027;
  MQCA_ALTERATION_TIME       = 2028;
  MQCA_APPL_ID               = 2001;
  MQCA_BACKOUT_REQ_Q_NAME    = 2019;
  MQCA_BASE_Q_NAME           = 2002;
  MQCA_CF_STRUC_NAME         = 2039;
  MQCA_CHANNEL_AUTO_DEF_EXIT = 2026;
  MQCA_CLUSTER_DATE          = 2037;
  MQCA_CLUSTER_NAME          = 2029;
  MQCA_CLUSTER_NAMELIST      = 2030;
  MQCA_CLUSTER_Q_MGR_NAME    = 2031;
  MQCA_CLUSTER_TIME          = 2038;
  MQCA_CLUSTER_WORKLOAD_DATA = 2034;
  MQCA_CLUSTER_WORKLOAD_EXIT = 2033;
  MQCA_COMMAND_INPUT_Q_NAME  = 2003;
  MQCA_CREATION_DATE         = 2004;
  MQCA_CREATION_TIME         = 2005;
  MQCA_DEAD_LETTER_Q_NAME    = 2006;
  MQCA_DEF_XMIT_Q_NAME       = 2025;
  MQCA_ENV_DATA              = 2007;
  MQCA_FIRST                 = 2001;
  MQCA_IGQ_USER_ID           = 2041;
  MQCA_INITIATION_Q_NAME     = 2008;
  MQCA_LAST                  = 4000;
  MQCA_LAST_USED             = 2041;
  MQCA_NAMELIST_DESC         = 2009;
  MQCA_NAMELIST_NAME         = 2010;
  MQCA_NAMES                 = 2020;
  MQCA_PROCESS_DESC          = 2011;
  MQCA_PROCESS_NAME          = 2012;
  MQCA_Q_DESC                = 2013;
  MQCA_Q_MGR_DESC            = 2014;
  MQCA_Q_MGR_IDENTIFIER      = 2032;
  MQCA_Q_MGR_NAME            = 2015;
  MQCA_Q_NAME                = 2016;
  MQCA_QSG_NAME              = 2040;
  MQCA_REMOTE_Q_MGR_NAME     = 2017;
  MQCA_REMOTE_Q_NAME         = 2018;
  MQCA_REPOSITORY_NAME       = 2035;
  MQCA_REPOSITORY_NAMELIST   = 2036;
  MQCA_STORAGE_CLASS         = 2022;
  MQCA_TRIGGER_DATA          = 2023;
  MQCA_USER_DATA             = 2021;
  MQCA_USER_LIST             = 4000;
  MQCA_XMIT_Q_NAME           = 2024;

  (* Integer-Attribute Selectors *)
  MQIA_APPL_TYPE                = 1;
  MQIA_ARCHIVE                  = 60;
  MQIA_AUTHORITY_EVENT          = 47;
  MQIA_BACKOUT_THRESHOLD        = 22;
  MQIA_CHANNEL_AUTO_DEF         = 55;
  MQIA_CHANNEL_AUTO_DEF_EVENT   = 56;
  MQIA_CLUSTER_Q_TYPE           = 59;
  MQIA_CLUSTER_WORKLOAD_LENGTH  = 58;
  MQIA_CODED_CHAR_SET_ID        = 2;
  MQIA_COMMAND_LEVEL            = 31;
  MQIA_CURRENT_Q_DEPTH          = 3;
  MQIA_DEF_BIND                 = 61;
  MQIA_DEF_INPUT_OPEN_OPTION    = 4;
  MQIA_DEF_PERSISTENCE          = 5;
  MQIA_DEF_PRIORITY             = 6;
  MQIA_DEFINITION_TYPE          = 7;
  MQIA_DIST_LISTS               = 34;
  MQIA_FIRST                    = 1;
  MQIA_HARDEN_GET_BACKOUT       = 8;
  MQIA_HIGH_Q_DEPTH             = 36;
  MQIA_IGQ_PUT_AUTHORITY        = 65;
  MQIA_INDEX_TYPE               = 57;
  MQIA_INHIBIT_EVENT            = 48;
  MQIA_INHIBIT_GET              = 9;
  MQIA_INHIBIT_PUT              = 10;
  MQIA_INTRA_GROUP_QUEUING      = 64;
  MQIA_LAST                     = 2000;
  MQIA_LAST_USED                = 65;
  MQIA_LOCAL_EVENT              = 49;
  MQIA_MAX_HANDLES              = 11;
  MQIA_MAX_MSG_LENGTH           = 13;
  MQIA_MAX_PRIORITY             = 14;
  MQIA_MAX_Q_DEPTH              = 15;
  MQIA_MAX_UNCOMMITTED_MSGS     = 33;
  MQIA_MSG_DELIVERY_SEQUENCE    = 16;
  MQIA_MSG_DEQ_COUNT            = 38;
  MQIA_MSG_ENQ_COUNT            = 37;
  MQIA_NAME_COUNT               = 19;
  MQIA_OPEN_INPUT_COUNT         = 17;
  MQIA_OPEN_OUTPUT_COUNT        = 18;
  MQIA_PERFORMANCE_EVENT        = 53;
  MQIA_PLATFORM                 = 32;
  MQIA_Q_DEPTH_HIGH_EVENT       = 43;
  MQIA_Q_DEPTH_HIGH_LIMIT       = 40;
  MQIA_Q_DEPTH_LOW_EVENT        = 44;
  MQIA_Q_DEPTH_LOW_LIMIT        = 41;
  MQIA_Q_DEPTH_MAX_EVENT        = 42;
  MQIA_Q_SERVICE_INTERVAL       = 54;
  MQIA_Q_SERVICE_INTERVAL_EVENT = 46;
  MQIA_Q_TYPE                   = 20;
  MQIA_QSG_DISP                 = 63;
  MQIA_REMOTE_EVENT             = 50;
  MQIA_RETENTION_INTERVAL       = 21;
  MQIA_SCOPE                    = 45;
  MQIA_SHAREABILITY             = 23;
  MQIA_START_STOP_EVENT         = 52;
  MQIA_SYNCPOINT                = 30;
  MQIA_TIME_SINCE_RESET         = 35;
  MQIA_TRIGGER_CONTROL          = 24;
  MQIA_TRIGGER_DEPTH            = 29;
  MQIA_TRIGGER_INTERVAL         = 25;
  MQIA_TRIGGER_MSG_PRIORITY     = 26;
  MQIA_TRIGGER_TYPE             = 28;
  MQIA_USAGE                    = 12;
  MQIA_USER_LIST                = 2000;

  (* Integer Attribute Value Denoting "Not Applicable" *)
  MQIAV_NOT_APPLICABLE = -1;
  MQIAV_UNDEFINED      = -2;


  (*********************************************************************)
  (*  Values Related to MQOPEN Function                                *)
  (*********************************************************************)

  (* Open Options *)
  MQOO_INPUT_AS_Q_DEF           = $00000001;
  MQOO_INPUT_SHARED             = $00000002;
  MQOO_INPUT_EXCLUSIVE          = $00000004;
  MQOO_BROWSE                   = $00000008;
  MQOO_OUTPUT                   = $00000010;
  MQOO_INQUIRE                  = $00000020;
  MQOO_SET                      = $00000040;
  MQOO_BIND_ON_OPEN             = $00004000;
  MQOO_BIND_NOT_FIXED           = $00008000;
  MQOO_BIND_AS_Q_DEF            = $00000000;
  MQOO_SAVE_ALL_CONTEXT         = $00000080;
  MQOO_PASS_IDENTITY_CONTEXT    = $00000100;
  MQOO_PASS_ALL_CONTEXT         = $00000200;
  MQOO_SET_IDENTITY_CONTEXT     = $00000400;
  MQOO_SET_ALL_CONTEXT          = $00000800;
  MQOO_ALTERNATE_USER_AUTHORITY = $00001000;
  MQOO_FAIL_IF_QUIESCING        = $00002000;
  MQOO_RESOLVE_NAMES            = $00010000;


  (*********************************************************************)
  (*  Values Related to All Functions                                  *)
  (*********************************************************************)
  (* Connection Handle *)
  MQHC_DEF_HCONN      = 0;
  MQHC_UNUSABLE_HCONN = -1;

  (* String Lengths *)
  MQ_ABEND_CODE_LENGTH         = 4;
  MQ_ACCOUNTING_TOKEN_LENGTH   = 32;
  MQ_APPL_IDENTITY_DATA_LENGTH = 32;
  MQ_APPL_NAME_LENGTH          = 28;
  MQ_APPL_ORIGIN_DATA_LENGTH   = 4;
  MQ_ATTENTION_ID_LENGTH       = 4;
  MQ_AUTHENTICATOR_LENGTH      = 8;
  MQ_BRIDGE_NAME_LENGTH        = 24;
  MQ_CANCEL_CODE_LENGTH        = 4;
  MQ_CF_STRUC_NAME_LENGTH      = 12;
  MQ_CHANNEL_DATE_LENGTH       = 12;
  MQ_CHANNEL_DESC_LENGTH       = 64;
  MQ_CHANNEL_NAME_LENGTH       = 20;
  MQ_CHANNEL_TIME_LENGTH       = 8;
  MQ_CLUSTER_NAME_LENGTH       = 48;
  MQ_CONN_NAME_LENGTH          = 264;
  MQ_CONN_TAG_LENGTH           = 128;
  MQ_CORREL_ID_LENGTH          = 24;
  MQ_CREATION_DATE_LENGTH      = 12;
  MQ_CREATION_TIME_LENGTH      = 8;
  MQ_DATE_LENGTH               = 12;
  MQ_EXIT_DATA_LENGTH          = 32;
  MQ_EXIT_NAME_LENGTH          = 128;
  MQ_EXIT_USER_AREA_LENGTH     = 16;
  MQ_FACILITY_LENGTH           = 8;
  MQ_FACILITY_LIKE_LENGTH      = 4;
  MQ_FORMAT_LENGTH             = 8;
  MQ_FUNCTION_LENGTH           = 4;
  MQ_GROUP_ID_LENGTH           = 24;
  MQ_LTERM_OVERRIDE_LENGTH     = 8;
  MQ_LUWID_LENGTH              = 16;
  MQ_MAX_EXIT_NAME_LENGTH      = 128;
  MQ_MAX_MCA_USER_ID_LENGTH    = 64;
  MQ_MCA_JOB_NAME_LENGTH       = 28;
  MQ_MCA_NAME_LENGTH           = 20;
  MQ_MCA_USER_ID_LENGTH        = 64;
  MQ_MFS_MAP_NAME_LENGTH       = 8;
  MQ_MODE_NAME_LENGTH          = 8;
  MQ_MSG_HEADER_LENGTH         = 4000;
  MQ_MSG_ID_LENGTH             = 24;
  MQ_MSG_TOKEN_LENGTH          = 16;
  MQ_NAMELIST_DESC_LENGTH      = 64;
  MQ_NAMELIST_NAME_LENGTH      = 48;
  MQ_OBJECT_INSTANCE_ID_LENGTH = 24;
  MQ_OBJECT_NAME_LENGTH        = 48;
  MQ_PASSWORD_LENGTH           = 12;
  MQ_PROCESS_APPL_ID_LENGTH    = 256;
  MQ_PROCESS_DESC_LENGTH       = 64;
  MQ_PROCESS_ENV_DATA_LENGTH   = 128;
  MQ_PROCESS_NAME_LENGTH       = 48;
  MQ_PROCESS_USER_DATA_LENGTH  = 128;
  MQ_PUT_APPL_NAME_LENGTH      = 28;
  MQ_PUT_DATE_LENGTH           = 8;
  MQ_PUT_TIME_LENGTH           = 8;
  MQ_Q_DESC_LENGTH             = 64;
  MQ_Q_MGR_DESC_LENGTH         = 64;
  MQ_Q_MGR_IDENTIFIER_LENGTH   = 48;
  MQ_Q_MGR_NAME_LENGTH         = 48;
  MQ_Q_NAME_LENGTH             = 48;
  MQ_QSG_NAME_LENGTH           = 4;
  MQ_REMOTE_SYS_ID_LENGTH      = 4;
  MQ_SECURITY_ID_LENGTH        = 40;
  MQ_SERVICE_NAME_LENGTH       = 32;
  MQ_SERVICE_STEP_LENGTH       = 8;
  MQ_SHORT_CONN_NAME_LENGTH    = 20;
  MQ_START_CODE_LENGTH         = 4;
  MQ_STORAGE_CLASS_LENGTH      = 8;
  MQ_TIME_LENGTH               = 8;
  MQ_TOTAL_EXIT_DATA_LENGTH    = 999;
  MQ_TOTAL_EXIT_NAME_LENGTH    = 999;
  MQ_TP_NAME_LENGTH            = 64;
  MQ_TRAN_INSTANCE_ID_LENGTH   = 16;
  MQ_TRANSACTION_ID_LENGTH     = 4;
  MQ_TRIGGER_DATA_LENGTH       = 64;
  MQ_USER_ID_LENGTH            = 12;

  (* Completion Codes *)
  MQCC_OK      = 0;
  MQCC_WARNING = 1;
  MQCC_FAILED  = 2;
  MQCC_UNKNOWN = -1;

  (* Reason Codes *)
  MQRC_NONE                      = 0;
  MQRC_ALIAS_BASE_Q_TYPE_ERROR   = 2001;
  MQRC_ALREADY_CONNECTED         = 2002;
  MQRC_BACKED_OUT                = 2003;
  MQRC_BUFFER_ERROR              = 2004;
  MQRC_BUFFER_LENGTH_ERROR       = 2005;
  MQRC_CHAR_ATTR_LENGTH_ERROR    = 2006;
  MQRC_CHAR_ATTRS_ERROR          = 2007;
  MQRC_CHAR_ATTRS_TOO_SHORT      = 2008;
  MQRC_CONNECTION_BROKEN         = 2009;
  MQRC_DATA_LENGTH_ERROR         = 2010;
  MQRC_DYNAMIC_Q_NAME_ERROR      = 2011;
  MQRC_ENVIRONMENT_ERROR         = 2012;
  MQRC_EXPIRY_ERROR              = 2013;
  MQRC_FEEDBACK_ERROR            = 2014;
  MQRC_GET_INHIBITED             = 2016;
  MQRC_HANDLE_NOT_AVAILABLE      = 2017;
  MQRC_HCONN_ERROR               = 2018;
  MQRC_HOBJ_ERROR                = 2019;
  MQRC_INHIBIT_VALUE_ERROR       = 2020;
  MQRC_INT_ATTR_COUNT_ERROR      = 2021;
  MQRC_INT_ATTR_COUNT_TOO_SMALL  = 2022;
  MQRC_INT_ATTRS_ARRAY_ERROR     = 2023;
  MQRC_SYNCPOINT_LIMIT_REACHED   = 2024;
  MQRC_MAX_CONNS_LIMIT_REACHED   = 2025;
  MQRC_MD_ERROR                  = 2026;
  MQRC_MISSING_REPLY_TO_Q        = 2027;
  MQRC_MSG_TYPE_ERROR            = 2029;
  MQRC_MSG_TOO_BIG_FOR_Q         = 2030;
  MQRC_MSG_TOO_BIG_FOR_Q_MGR     = 2031;
  MQRC_NO_MSG_AVAILABLE          = 2033;
  MQRC_NO_MSG_UNDER_CURSOR       = 2034;
  MQRC_NOT_AUTHORIZED            = 2035;
  MQRC_NOT_OPEN_FOR_BROWSE       = 2036;
  MQRC_NOT_OPEN_FOR_INPUT        = 2037;
  MQRC_NOT_OPEN_FOR_INQUIRE      = 2038;
  MQRC_NOT_OPEN_FOR_OUTPUT       = 2039;
  MQRC_NOT_OPEN_FOR_SET          = 2040;
  MQRC_OBJECT_CHANGED            = 2041;
  MQRC_OBJECT_IN_USE             = 2042;
  MQRC_OBJECT_TYPE_ERROR         = 2043;
  MQRC_OD_ERROR                  = 2044;
  MQRC_OPTION_NOT_VALID_FOR_TYPE = 2045;
  MQRC_OPTIONS_ERROR             = 2046;
  MQRC_PERSISTENCE_ERROR         = 2047;
  MQRC_PERSISTENT_NOT_ALLOWED    = 2048;
  MQRC_PRIORITY_EXCEEDS_MAXIMUM  = 2049;
  MQRC_PRIORITY_ERROR            = 2050;
  MQRC_PUT_INHIBITED             = 2051;
  MQRC_Q_DELETED                 = 2052;
  MQRC_Q_FULL                    = 2053;
  MQRC_Q_NOT_EMPTY               = 2055;
  MQRC_Q_SPACE_NOT_AVAILABLE     = 2056;
  MQRC_Q_TYPE_ERROR              = 2057;
  MQRC_Q_MGR_NAME_ERROR          = 2058;
  MQRC_Q_MGR_NOT_AVAILABLE       = 2059;
  MQRC_REPORT_OPTIONS_ERROR      = 2061;
  MQRC_SECOND_MARK_NOT_ALLOWED   = 2062;
  MQRC_SECURITY_ERROR            = 2063;
  MQRC_SELECTOR_COUNT_ERROR      = 2065;
  MQRC_SELECTOR_LIMIT_EXCEEDED   = 2066;
  MQRC_SELECTOR_ERROR            = 2067;
  MQRC_SELECTOR_NOT_FOR_TYPE     = 2068;
  MQRC_SIGNAL_OUTSTANDING        = 2069;
  MQRC_SIGNAL_REQUEST_ACCEPTED   = 2070;
  MQRC_STORAGE_NOT_AVAILABLE     = 2071;
  MQRC_SYNCPOINT_NOT_AVAILABLE   = 2072;