cmqpas.pas

delphi写的IBM mq服务器

  MQMT_MQE_FIELDS          = 113;
  MQMT_SYSTEM_LAST         = 65535;
  MQMT_APPL_FIRST          = 65536;
  MQMT_APPL_LAST           = 999999999;

  (* Expiry *)
  MQEI_UNLIMITED = -1;

  (* Feedback Values *)
  MQFB_NONE                  = 0;
  MQFB_SYSTEM_FIRST          = 1;
  MQFB_QUIT                  = 256;
  MQFB_EXPIRATION            = 258;
  MQFB_COA                   = 259;
  MQFB_COD                   = 260;
  MQFB_CHANNEL_COMPLETED     = 262;
  MQFB_CHANNEL_FAIL_RETRY    = 263;
  MQFB_CHANNEL_FAIL          = 264;
  MQFB_APPL_CANNOT_BE_STARTED= 265;
  MQFB_TM_ERROR              = 266;
  MQFB_APPL_TYPE_ERROR       = 267;
  MQFB_STOPPED_BY_MSG_EXIT   = 268;
  MQFB_XMIT_Q_MSG_ERROR      = 271;
  MQFB_PAN                   = 275;
  MQFB_NAN                   = 276;
  MQFB_STOPPED_BY_CHAD_EXIT  = 277;
  MQFB_STOPPED_BY_PUBSUB_EXIT= 279;
  MQFB_NOT_A_REPOSITORY_MSG  = 280;
  MQFB_BIND_OPEN_CLUSRCVR_DEL= 281;
  MQFB_DATA_LENGTH_ZERO      = 291;
  MQFB_DATA_LENGTH_NEGATIVE  = 292;
  MQFB_DATA_LENGTH_TOO_BIG   = 293;
  MQFB_BUFFER_OVERFLOW       = 294;
  MQFB_LENGTH_OFF_BY_ONE     = 295;
  MQFB_IIH_ERROR             = 296;
  MQFB_NOT_AUTHORIZED_FOR_IMS= 298;
  MQFB_IMS_ERROR             = 300;
  MQFB_IMS_FIRST             = 301;
  MQFB_IMS_LAST              = 399;
  MQFB_CICS_INTERNAL_ERROR   = 401;
  MQFB_CICS_NOT_AUTHORIZED   = 402;
  MQFB_CICS_BRIDGE_FAILURE   = 403;
  MQFB_CICS_CORREL_ID_ERROR  = 404;
  MQFB_CICS_CCSID_ERROR      = 405;
  MQFB_CICS_ENCODING_ERROR   = 406;
  MQFB_CICS_CIH_ERROR        = 407;
  MQFB_CICS_UOW_ERROR        = 408;
  MQFB_CICS_COMMAREA_ERROR   = 409;
  MQFB_CICS_APPL_NOT_STARTED = 410;
  MQFB_CICS_APPL_ABENDED     = 411;
  MQFB_CICS_DLQ_ERROR        = 412;
  MQFB_CICS_UOW_BACKED_OUT   = 413;
  MQFB_SYSTEM_LAST           = 65535;
  MQFB_APPL_FIRST            = 65536;
  MQFB_APPL_LAST             = 999999999;

  (* Encoding *)
  MQENC_NATIVE = $00000222;

  (* Encoding Masks *)
  MQENC_INTEGER_MASK  = $0000000f;
  MQENC_DECIMAL_MASK  = $000000f0;
  MQENC_FLOAT_MASK    = $00000f00;
  MQENC_RESERVED_MASK = $fffff000;

  (* Encodings for Binary Integers *)
  MQENC_INTEGER_UNDEFINED = $00000000;
  MQENC_INTEGER_NORMAL    = $00000001;
  MQENC_INTEGER_REVERSED  = $00000002;

  (* Encodings for Packed-Decimal Integers *)
  MQENC_DECIMAL_UNDEFINED = $00000000;
  MQENC_DECIMAL_NORMAL    = $00000010;
  MQENC_DECIMAL_REVERSED  = $00000020;

  (* Encodings for Floating-Point Numbers *)
  MQENC_FLOAT_UNDEFINED     = $00000000;
  MQENC_FLOAT_IEEE_NORMAL   = $00000100;
  MQENC_FLOAT_IEEE_REVERSED = $00000200;
  MQENC_FLOAT_S390          = $00000300;

  (* Coded Character-Set Identifiers *)
  MQCCSI_UNDEFINED = 0;
  MQCCSI_DEFAULT   = 0;
  MQCCSI_Q_MGR     = 0;
  MQCCSI_INHERIT   = -2;
  MQCCSI_EMBEDDED  = -1;

  (* Formats *)
  MQFMT_NONE               = '        ';
  MQFMT_ADMIN              = 'MQADMIN ';
  MQFMT_CHANNEL_COMPLETED  = 'MQCHCOM ';
  MQFMT_CICS               = 'MQCICS  ';
  MQFMT_COMMAND_1          = 'MQCMD1  ';
  MQFMT_COMMAND_2          = 'MQCMD2  ';
  MQFMT_DEAD_LETTER_HEADER = 'MQDEAD  ';
  MQFMT_DIST_HEADER        = 'MQHDIST ';
  MQFMT_EVENT              = 'MQEVENT ';
  MQFMT_IMS                = 'MQIMS   ';
  MQFMT_IMS_VAR_STRING     = 'MQIMSVS ';
  MQFMT_MD_EXTENSION       = 'MQHMDE  ';
  MQFMT_PCF                = 'MQPCF   ';
  MQFMT_REF_MSG_HEADER     = 'MQHREF  ';
  MQFMT_RF_HEADER          = 'MQHRF   ';
  MQFMT_RF_HEADER_2        = 'MQHRF2  ';
  MQFMT_STRING             = 'MQSTR   ';
  MQFMT_TRIGGER            = 'MQTRIG  ';
  MQFMT_WORK_INFO_HEADER   = 'MQHWIH  ';
  MQFMT_XMIT_Q_HEADER      = 'MQXMIT  ';

  (* Priority *)
  MQPRI_PRIORITY_AS_Q_DEF = -1;

  (* Persistence Values *)
  MQPER_NOT_PERSISTENT       = 0;
  MQPER_PERSISTENT           = 1;
  MQPER_PERSISTENCE_AS_Q_DEF = 2;

  (* Message Identifier *)
  MQMI_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

  (* Correlation Identifier *)
  MQCI_NONE   = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
  MQCI_NEW_SESSION = '#41#$4d#51#21#$4e#45#57#$5f#53#45#53#53#49#$4f#$4e#$5f#43#$4f#52#52#45#$4c#49#44';

  (* Accounting Token *)
  MQACT_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

  (* Accounting Token Type *)
  MQACTT_UNKNOWN             = '$#00';
  MQACTT_CICS_LUOW_ID        = '$#01';
  MQACTT_OS2_DEFAULT         = '$#04';
  MQACTT_DOS_DEFAULT         = '$#05';
  MQACTT_UNIX_NUMERIC_ID     = '$#06';
  MQACTT_OS400_ACCOUNT_TOKEN = '$#08';
  MQACTT_WINDOWS_DEFAULT     = '$#09';
  MQACTT_NT_SECURITY_ID      = '$#0b';
  MQACTT_USER                = '$#19';

  (* Put Application Types *)
  MQAT_UNKNOWN    = -1;
  MQAT_NO_CONTEXT = 0;
  MQAT_CICS       = 1;
  MQAT_MVS        = 2;
  MQAT_OS390      = 2;
  MQAT_IMS        = 3;
  MQAT_OS2        = 4;
  MQAT_DOS        = 5;
  MQAT_AIX        = 6;
  MQAT_UNIX       = 6;
  MQAT_QMGR       = 7;
  MQAT_OS400      = 8;
  MQAT_WINDOWS    = 9;
  MQAT_CICS_VSE   = 10;
  MQAT_WINDOWS_NT = 11;
  MQAT_VMS        = 12;
  MQAT_GUARDIAN   = 13;
  MQAT_NSK        = 13;
  MQAT_VOS        = 14;
  MQAT_IMS_BRIDGE = 19;
  MQAT_XCF        = 20;
  MQAT_CICS_BRIDGE= 21;
  MQAT_NOTES_AGENT= 22;
  MQAT_BROKER     = 26;
  MQAT_JAVA       = 28;
  MQAT_DQM        = 29;
  MQAT_DEFAULT    = 11;
  MQAT_USER_FIRST = 65536;
  MQAT_USER_LAST  = 999999999;

  (* Group Identifier *)
  MQGI_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

  (* Message Flags *)
  MQMF_SEGMENTATION_INHIBITED = $00000000;
  MQMF_SEGMENTATION_ALLOWED   = $00000001;
  MQMF_MSG_IN_GROUP           = $00000008;
  MQMF_LAST_MSG_IN_GROUP      = $00000010;
  MQMF_SEGMENT                = $00000002;
  MQMF_LAST_SEGMENT           = $00000004;
  MQMF_NONE                   = $00000000;

  (* Message Flags Masks *)
  MQMF_REJECT_UNSUP_MASK         = $00000fff;
  MQMF_ACCEPT_UNSUP_MASK         = $fff00000;
  MQMF_ACCEPT_UNSUP_IF_XMIT_MASK = $000ff000;

  (* Original Length *)
  MQOL_UNDEFINED = -1;


  (*********************************************************************)
  (*  Values Related to MQMDE Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQMDE_STRUC_ID = 'MDE ';

  (* Structure Version Number *)
  MQMDE_VERSION_2       = 2;
  MQMDE_CURRENT_VERSION = 2;

  (* Structure Length *)
  MQMDE_LENGTH_2 = 72;

  (* General Flags *)
  MQMDEF_NONE = $00000000;


  (*********************************************************************)
  (*  Values Related to MQOD Structure                                 *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQOD_STRUC_ID = 'OD  ';

  (* Structure Version Number *)
  MQOD_VERSION_1       = 1;
  MQOD_VERSION_2       = 2;
  MQOD_VERSION_3       = 3;
  MQOD_CURRENT_VERSION = 3;

  (* Structure Length *)
  MQOD_CURRENT_LENGTH = 336;

  (* Object Types *)
  MQOT_Q          = 1;
  MQOT_NAMELIST   = 2;
  MQOT_PROCESS    = 3;
  MQOT_Q_MGR      = 5;
  MQOT_CHANNEL    = 6;
  MQOT_RESERVED_1 = 7;

  (* Extended Object Types *)
  MQOT_ALL               = 1001;
  MQOT_ALIAS_Q           = 1002;
  MQOT_MODEL_Q           = 1003;
  MQOT_LOCAL_Q           = 1004;
  MQOT_REMOTE_Q          = 1005;
  MQOT_SENDER_CHANNEL    = 1007;
  MQOT_SERVER_CHANNEL    = 1008;
  MQOT_REQUESTER_CHANNEL = 1009;
  MQOT_RECEIVER_CHANNEL  = 1010;
  MQOT_CURRENT_CHANNEL   = 1011;
  MQOT_SAVED_CHANNEL     = 1012;
  MQOT_SVRCONN_CHANNEL   = 1013;
  MQOT_CLNTCONN_CHANNEL  = 1014;

  (* Security Identifier *)
  MQSID_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

  (* Security Identifier Type *)
  MQSIDT_NONE           = '#$00';
  MQSIDT_NT_SECURITY_ID = '#$01';


  (*********************************************************************)
  (*  Values Related to MQPMO Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQPMO_STRUC_ID = 'PMO ';

  (* Structure Version Number *)
  MQPMO_VERSION_1       = 1;
  MQPMO_VERSION_2       = 2;
  MQPMO_CURRENT_VERSION = 2;

  (* Structure Length *)
  MQPMO_CURRENT_LENGTH = 152;

  (* Put-Message Options *)
  MQPMO_SYNCPOINT                = $00000002;
  MQPMO_NO_SYNCPOINT             = $00000004;
  MQPMO_NEW_MSG_ID               = $00000040;
  MQPMO_NEW_CORREL_ID            = $00000080;
  MQPMO_LOGICAL_ORDER            = $00008000;
  MQPMO_NO_CONTEXT               = $00004000;
  MQPMO_DEFAULT_CONTEXT          = $00000020;
  MQPMO_PASS_IDENTITY_CONTEXT    = $00000100;
  MQPMO_PASS_ALL_CONTEXT         = $00000200;
  MQPMO_SET_IDENTITY_CONTEXT     = $00000400;
  MQPMO_SET_ALL_CONTEXT          = $00000800;
  MQPMO_ALTERNATE_USER_AUTHORITY = $00001000;
  MQPMO_FAIL_IF_QUIESCING        = $00002000;
  MQPMO_NONE                     = $00000000;

  (* Put Message Record Fields *)
  MQPMRF_MSG_ID           = 1;
  MQPMRF_CORREL_ID        = 2;
  MQPMRF_GROUP_ID         = 4;
  MQPMRF_FEEDBACK         = 8;
  MQPMRF_ACCOUNTING_TOKEN = 16;
  MQPMRF_NONE             = 0;

  (*********************************************************************)
  (*  Values Related to MQRFH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQRFH_STRUC_ID = 'RFH ';

  (* Structure Version Number *)
  MQRFH_VERSION_1 = 1;
  MQRFH_VERSION_2 = 2;

  (* Structure Length *)
  MQRFH_STRUC_LENGTH_FIXED   = 32;
  MQRFH_STRUC_LENGTH_FIXED_2 = 36;

  (* Flags *)
  MQRFH_NONE = $00000000;

  (* Names for Name/Value String *)
  MQNVS_APPL_TYPE = 'OPT_APP_GRP ';
  MQNVS_MSG_TYPE  = 'OPT_MSG_TYPE ';



  (*********************************************************************)
  (*  Values Related to MQRMH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQRMH_STRUC_ID = 'RMH ';

  (* Structure Version Number *)
  MQRMH_VERSION_1       = 1;
  MQRMH_CURRENT_VERSION = 1;

  (* Flags *)
  MQRMHF_LAST     = $00000001;
  MQRMHF_NOT_LAST = $00000000;

  (* Object Instance Identifier *)
  MQOII_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;


  (*********************************************************************)
  (*  Values Related to MQTM Structure                                 *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQTM_STRUC_ID = 'TM  ';

  (* Structure Version Number *)
  MQTM_VERSION_1       = 1;
  MQTM_CURRENT_VERSION = 1;


  (*********************************************************************)
  (*  Values Related to MQTMC2 Structure                               *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQTMC_STRUC_ID = 'TMC ';