cmqxpas.pas

delphi写的IBM mq服务器

unit CMQXPas;

// **************************************************************************
// **************************************************************************
// **************************************************************************
// MQSeries IBM library ported for Delphi by Dinko Miljak
// e-mail: [e-mail]
// version 0.0.4 2001-05-07
// **************************************************************************
// **************************************************************************
// **************************************************************************

 (*********************************************************************)
 (*                                                                   *)
 (*                  IBM MQSeries for Windows NT and Windows 2000     *)
 (*                                                                   *)
 (*  HEADER NAME:    CMQXC                                            *)
 (*                                                                   *)
 (*  DESCRIPTION:    Declarations for Exits and MQCD                  *)
 (*                                                                   *)
 (*********************************************************************)
 (*  @START_COPYRIGHT@                                                *)
 (*  Licensed Materials - Property of IBM                             *)
 (*                                                                   *)
 (*  0784726, 5639-B43                                                *)
 (*                                                                   *)
 (*  (C) Copyright IBM Corporation 1993, 2000.                        *)
 (*                                                                   *)
 (*  Status: Version 5 Release 2                                      *)
 (*  @END_COPYRIGHT@                                                  *)
 (*********************************************************************)
 (*                                                                   *)
 (*  FUNCTION:       This file declares the functions, structures,    *)
 (*                  and named constants for exits and MQCD.          *)
 (*                                                                   *)
 (*  PROCESSOR:      C                                                *)
 (*                                                                   *)
 (*********************************************************************)

interface

uses SysUtils, CMQPas;

const

 (*********************************************************************)
 (*  Values Related to MQCD Structure                                 *)
 (*********************************************************************)

 (* Structure Version Number *)
  MQCD_VERSION_1       = 1;
  MQCD_VERSION_2       = 2;
  MQCD_VERSION_3       = 3;
  MQCD_VERSION_4       = 4;
  MQCD_VERSION_5       = 5;
  MQCD_VERSION_6       = 6;
  MQCD_CURRENT_VERSION = 6;

 (* Channel Type *)
  MQCHT_SENDER    = 1;
  MQCHT_SERVER    = 2;
  MQCHT_RECEIVER  = 3;
  MQCHT_REQUESTER = 4;
  MQCHT_ALL       = 5;
  MQCHT_CLNTCONN  = 6;
  MQCHT_SVRCONN   = 7;
  MQCHT_CLUSRCVR  = 8;
  MQCHT_CLUSSDR   = 9;

 (* Transport Type *)
  MQXPT_LOCAL   = 0;
  MQXPT_LU62    = 1;
  MQXPT_TCP     = 2;
  MQXPT_NETBIOS = 3;
  MQXPT_SPX     = 4;
  MQXPT_DECNET  = 5;
  MQXPT_UDP     = 6;

 (* Put Authority *)
  MQPA_DEFAULT          = 1;
  MQPA_CONTEXT          = 2;
  MQPA_ONLY_MCA         = 3;
  MQPA_ALTERNATE_OR_MCA = 4;

 (* Channel Data Conversion *)
  MQCDC_SENDER_CONVERSION    = 1;
  MQCDC_NO_SENDER_CONVERSION = 0;

 (* MCA Type *)
  MQMCAT_PROCESS = 1;
  MQMCAT_THREAD  = 2;

 (* NonPersistent-Message Speed *)
  MQNPMS_NORMAL = 1;
  MQNPMS_FAST   = 2;

 (* Structure Length *)
  MQCD_LENGTH_4       = 1540;
  MQCD_LENGTH_5       = 1552;
  MQCD_LENGTH_6       = 1648;
  MQCD_CURRENT_LENGTH = 1648;


 (*********************************************************************)
 (*  Values Related to MQCXP Structure                                *)
 (*********************************************************************)

 (* Structure Identifier *)
  MQCXP_STRUC_ID = 'CXP ';

 (* Structure Identifier (array form) *)
  MQCXP_STRUC_ID_ARRAY: MQCHAR4 = ('C','X','P',' ');

 (* Structure Version Number *)
  MQCXP_VERSION_1       = 1;
  MQCXP_VERSION_2       = 2;
  MQCXP_VERSION_3       = 3;
  MQCXP_VERSION_4       = 4;
  MQCXP_VERSION_5       = 5;
  MQCXP_CURRENT_VERSION = 5;

 (* Exit Response 2 *)
  MQXR2_PUT_WITH_DEF_ACTION  = 0;
  MQXR2_PUT_WITH_DEF_USERID  = 1;
  MQXR2_PUT_WITH_MSG_USERID  = 2;
  MQXR2_USE_AGENT_BUFFER     = 0;
  MQXR2_USE_EXIT_BUFFER      = 4;
  MQXR2_DEFAULT_CONTINUATION = 0;
  MQXR2_CONTINUE_CHAIN       = 8;
  MQXR2_SUPPRESS_CHAIN       = 16;
  MQXR2_STATIC_CACHE         = 0;
  MQXR2_DYNAMIC_CACHE        = 32;

 (* Capability Flags *)
  MQCF_NONE       = $00000000;
  MQCF_DIST_LISTS = $00000001;


 (*********************************************************************)
 (*  Values Related to MQDXP Structure                                *)
 (*********************************************************************)

 (* Structure Identifier *)
  MQDXP_STRUC_ID = 'DXP ';

 (* Structure Identifier (array form) *)
  MQDXP_STRUC_ID_ARRAY : MQCHAR4 = ('D','X','P',' ');

 (* Structure Version Number *)
  MQDXP_VERSION_1       = 1;
  MQDXP_CURRENT_VERSION = 1;

 (* Exit Response *)
  MQXDR_OK                = 0;
  MQXDR_CONVERSION_FAILED = 1;


 (*********************************************************************)
 (*  Values Related to MQPXP Structure                                *)
 (*********************************************************************)

 (* Structure Identifier *)
  MQPXP_STRUC_ID = 'PXP ';

 (* Structure Identifier (array form) *)
  MQPXP_STRUC_ID_ARRAY : MQCHAR4 = ('P','X','P',' ');

 (* Structure Version Number *)
  MQPXP_VERSION_1       = 1;
  MQPXP_CURRENT_VERSION = 1;

 (* Destination Type *)
  MQDT_APPL   = 1;
  MQDT_BROKER = 2;



 (*********************************************************************)
 (*  Values Related to MQWDR Structure                                *)
 (*********************************************************************)

 (* Structure Identifier *)
  MQWDR_STRUC_ID = 'WDR ';

 (* Structure Identifier (array form) *)
  MQWDR_STRUC_ID_ARRAY : MQCHAR4 = ('W','D','R',' ');

 (* Structure Version Number *)
  MQWDR_VERSION_1       = 1;
  MQWDR_CURRENT_VERSION = 1;

 (* Structure Length *)
  MQWDR_LENGTH_1       = 124;
  MQWDR_CURRENT_LENGTH = 124;

 (* Queue Manager Flags *)
  MQQMF_REPOSITORY_Q_MGR     = $00000002;
  MQQMF_CLUSSDR_USER_DEFINED = $00000008;
  MQQMF_CLUSSDR_AUTO_DEFINED = $00000010;
  MQQMF_AVAILABLE            = $00000020;


 (*********************************************************************)
 (*  Values Related to MQWQR Structure                                *)
 (*********************************************************************)

 (* Structure Identifier *)
  MQWQR_STRUC_ID = 'WQR ';

 (* Structure Identifier (array form) *)
  MQWQR_STRUC_ID_ARRAY : MQCHAR4 = ('W','Q','R',' ');

 (* Structure Version Number *)
  MQWQR_VERSION_1       = 1;
  MQWQR_CURRENT_VERSION = 1;

 (* Structure Length *)
  MQWQR_LENGTH_1       = 200;
  MQWQR_CURRENT_LENGTH = 200;

 (* Queue Flags *)
  MQQF_LOCAL_Q = $00000001;


 (*********************************************************************)
 (*  Values Related to MQWXP Structure                                *)
 (*********************************************************************)

 (* Structure Identifier *)
  MQWXP_STRUC_ID = 'WXP ';

 (* Structure Identifier (array form) *)
  MQWXP_STRUC_ID_ARRAY : MQCHAR4 = ('W','X','P',' ');

 (* Structure Version Number *)
  MQWXP_VERSION_1       = 1;
  MQWXP_VERSION_2       = 2;
  MQWXP_CURRENT_VERSION = 2;

  (* Cluster Cache Type *)
  MQCLCT_STATIC     = 0;
  MQCLCT_DYNAMIC    = 1;


 (*********************************************************************)
 (*  General Values Related to Exits                                  *)
 (*********************************************************************)

 (* Exit Identifier *)
  MQXT_CHANNEL_SEC_EXIT       = 11;
  MQXT_CHANNEL_MSG_EXIT       = 12;
  MQXT_CHANNEL_SEND_EXIT      = 13;
  MQXT_CHANNEL_RCV_EXIT       = 14;
  MQXT_CHANNEL_MSG_RETRY_EXIT = 15;
  MQXT_CHANNEL_AUTO_DEF_EXIT  = 16;
  MQXT_CLUSTER_WORKLOAD_EXIT  = 20;
  MQXT_PUBSUB_ROUTING_EXIT    = 21;

 (* Exit Reason *)
  MQXR_INIT            = 11;
  MQXR_TERM            = 12;
  MQXR_MSG             = 13;
  MQXR_XMIT            = 14;
  MQXR_SEC_MSG         = 15;
  MQXR_INIT_SEC        = 16;
  MQXR_RETRY           = 17;
  MQXR_AUTO_CLUSSDR    = 18;
  MQXR_AUTO_RECEIVER   = 19;
  MQXR_CLWL_OPEN       = 20;
  MQXR_CLWL_PUT        = 21;
  MQXR_CLWL_MOVE       = 22;
  MQXR_CLWL_REPOS      = 23;
  MQXR_CLWL_REPOS_MOVE = 24;
  MQXR_AUTO_SVRCONN    = 27;
  MQXR_AUTO_CLUSRCVR   = 28;

 (* Exit Response *)
  MQXCC_OK                       = 0;
  MQXCC_SUPPRESS_FUNCTION        = (-1);
  MQXCC_SKIP_FUNCTION            = (-2);
  MQXCC_SEND_AND_REQUEST_SEC_MSG = (-3);
  MQXCC_SEND_SEC_MSG             = (-4);
  MQXCC_SUPPRESS_EXIT            = (-5);
  MQXCC_CLOSE_CHANNEL            = (-6);

 (* Exit User Area Value *)
  MQXUA_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

 (* Exit User Area Value (array form) *)
  MQXUA_NONE_ARRAY : array[0..15] of char =
    (#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0);


 (*********************************************************************)
 (*  Values Related to MQXCNVC Function                               *)
 (*********************************************************************)

 (* Conversion Options *)
  MQDCC_DEFAULT_CONVERSION   = $00000001;
  MQDCC_FILL_TARGET_BUFFER   = $00000002;
  MQDCC_INT_DEFAULT_CONVERSION = $00000004;
  MQDCC_SOURCE_ENC_NATIVE    = $00000020;
  MQDCC_SOURCE_ENC_NORMAL    = $00000010;
  MQDCC_SOURCE_ENC_REVERSED  = $00000020;
  MQDCC_SOURCE_ENC_UNDEFINED = $00000000;
  MQDCC_TARGET_ENC_NATIVE    = $00000200;
  MQDCC_TARGET_ENC_NORMAL    = $00000100;
  MQDCC_TARGET_ENC_REVERSED  = $00000200;
  MQDCC_TARGET_ENC_UNDEFINED = $00000000;
  MQDCC_NONE                 = $00000000;

 (* Conversion Options Masks and Factors *)
  MQDCC_SOURCE_ENC_MASK   = $000000f0;
  MQDCC_TARGET_ENC_MASK   = $00000f00;
  MQDCC_SOURCE_ENC_FACTOR = 16;
  MQDCC_TARGET_ENC_FACTOR = 256;