📄 cmqxpas.pas
字号:
type
(*********************************************************************)
(* MQCD Structure -- Channel Definition *)
(*********************************************************************)
TMQCD = record
ChannelName: array[0..19] of MQCHAR; (* Channel definition name *)
Version : MQLONG; (* Structure version number *)
ChannelType: MQLONG; (* Channel type *)
TransportType: MQLONG; (* Transport type *)
Desc: array[0..63] of MQCHAR; (* Channel description *)
QMgrName: array[0..47] of MQCHAR; (* Queue-manager name *)
XmitQName: array[0..47] of MQCHAR; (* Transmission queue name *)
ShortConnectionName: array[0..19] of MQCHAR; (* First 20 bytes of connection
name *)
MCAName: array[0..19] of MQCHAR; (* Reserved *)
ModeName: array[0..7] of MQCHAR; (* LU 6.2 Mode name *)
TpName: array[0..63] of MQCHAR; (* LU 6.2 transaction program
name *)
BatchSize: MQLONG; (* Batch size *)
DiscInterval: MQLONG; (* Disconnect interval *)
ShortRetryCount: MQLONG; (* Short retry count *)
ShortRetryInterval: MQLONG; (* Short retry wait interval *)
LongRetryCount: MQLONG; (* Long retry count *)
LongRetryInterval: MQLONG; (* Long retry wait interval *)
SecurityExit: array[0..127] of MQCHAR; (* Channel security exit name *)
MsgExit: array[0..127] of MQCHAR; (* Channel message exit name *)
SendExit: array[0..127] of MQCHAR; (* Channel send exit name *)
ReceiveExit: array[0..127] of MQCHAR; (* Channel receive exit name *)
SeqNumberWrap: MQLONG; (* Highest allowable message
sequence number *)
MaxMsgLength: MQLONG; (* Maximum message length *)
PutAuthority: MQLONG; (* Put authority *)
DataConversion: MQLONG; (* Data conversion *)
SecurityUserData: array[0..31] of MQCHAR; (* Channel security exit user
data *)
MsgUserData: array[0..31] of MQCHAR; (* Channel message exit user
data *)
SendUserData: array[0..31] of MQCHAR; (* Channel send exit user
data *)
ReceiveUserData: array[0..31] of MQCHAR; (* Channel receive exit user
data *)
UserIdentifier: array[0..11] of MQCHAR; (* User identifier *)
Password: array[0..11] of MQCHAR; (* Password *)
MCAUserIdentifier: array[0..11] of MQCHAR; (* First 12 bytes of MCA user
identifier *)
MCAType: MQLONG; (* Message channel agent type *)
ConnectionName: array[0..263] of MQCHAR; (* Connection name *)
RemoteUserIdentifier: array[0..11] of MQCHAR; (* First 12 bytes of user
identifier from partner *)
RemotePassword: array[0..11] of MQCHAR; (* Password from partner *)
MsgRetryExit: array[0..127] of MQCHAR; (* Channel message retry exit
name *)
MsgRetryUserData: array[0..31] of MQCHAR; (* Channel message retry exit
user data *)
MsgRetryCount: MQLONG; (* Number of times MCA will try
to put the message, after the
first attempt has failed *)
MsgRetryInterval: MQLONG; (* Minimum interval in
milliseconds after which the
open or put operation will be
retried *)
HeartbeatInterval: MQLONG; (* Time in seconds between
heartbeat flows *)
BatchInterval: MQLONG; (* Batch duration *)
NonPersistentMsgSpeed: MQLONG; (* Speed at which nonpersistent
messages are sent *)
StrucLength: MQLONG; (* Length of MQCD structure *)
ExitNameLength: MQLONG; (* Length of exit name *)
ExitDataLength: MQLONG; (* Length of exit user data *)
MsgExitsDefined: MQLONG; (* Number of message exits
defined *)
SendExitsDefined: MQLONG; (* Number of send exits
defined *)
ReceiveExitsDefined: MQLONG; (* Number of receive exits
defined *)
MsgExitPtr: MQPTR; (* Address of first MsgExit
field *)
MsgUserDataPtr: MQPTR; (* Address of first MsgUserData
field *)
SendExitPtr: MQPTR; (* Address of first SendExit
field *)
SendUserDataPtr: MQPTR; (* Address of first SendUserData
field *)
ReceiveExitPtr: MQPTR; (* Address of first ReceiveExit
field *)
ReceiveUserDataPtr: MQPTR; (* Address of first
ReceiveUserData field *)
ClusterPtr: MQPTR; (* Address of first cluster
record *)
ClustersDefined: MQLONG; (* Number of cluster records *)
NetworkPriority: MQLONG; (* Network priority *)
LongMCAUserIdLength: MQLONG; (* Length of long MCA user
identifier *)
LongRemoteUserIdLength: MQLONG; (* Length of long remote user
identifier *)
LongMCAUserIdPtr: MQPTR; (* Address of long MCA user
identifier *)
LongRemoteUserIdPtr: MQPTR; (* Address of long remote user
identifier *)
MCASecurityId: MQBYTE40; (* MCA security identifier *)
RemoteSecurityId: MQBYTE40; (* Remote security identifier *)
end;
PMQCD = ^TMQCD;
(*
MQCD_DEFAULT {""},\
MQCD_CURRENT_VERSION,\
MQCHT_SENDER,\
MQXPT_LU62,\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
50L,\
6000L,\
10L,\
60L,\
999999999L,\
1200L,\
{""},\
{""},\
{""},\
{""},\
999999999L,\
4194304L,\
MQPA_DEFAULT,\
MQCDC_NO_SENDER_CONVERSION,\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
MQMCAT_PROCESS,\
{""},\
{""},\
{""},\
{""},\
{""},\
10L,\
1000L,\
300L,\
0L,\
MQNPMS_FAST,\
MQCD_CURRENT_LENGTH,\
MQ_EXIT_NAME_LENGTH,\
MQ_EXIT_DATA_LENGTH,\
0L,\
0L,\
0L,\
NULL,\
NULL,\
NULL,\
NULL,\
NULL,\
NULL,\
NULL,\
0L,\
0L,\
0L,\
0L,\
NULL,\
NULL,\
{MQSID_NONE_ARRAY},\
{MQSID_NONE_ARRAY}
*)
(* Initial values for MQCD when passed on MQCONNX function *)
(*
MQCD_CLIENT_CONN_DEFAULT {""},\
MQCD_VERSION_6,\
MQCHT_CLNTCONN,\
MQXPT_TCP,\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
50L,\
6000L,\
10L,\
60L,\
999999999L,\
1200L,\
{""},\
{""},\
{""},\
{""},\
999999999L,\
4194304L,\
MQPA_DEFAULT,\
MQCDC_NO_SENDER_CONVERSION,\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
{""},\
MQMCAT_PROCESS,\
{""},\
{""},\
{""},\
{""},\
{""},\
10L,\
1000L,\
1L,\
0L,\
MQNPMS_FAST,\
MQCD_LENGTH_6,\
MQ_EXIT_NAME_LENGTH,\
MQ_EXIT_DATA_LENGTH,\
0L,\
0L,\
0L,\
NULL,\
NULL,\
NULL,\
NULL,\
NULL,\
NULL,\
NULL,\
0L,\
0L,\
0L,\
0L,\
NULL,\
NULL,\
{MQSID_NONE_ARRAY},\
{MQSID_NONE_ARRAY}
*)
(*********************************************************************)
(* MQCXP Structure -- Channel Exit Parameter *)
(*********************************************************************)
TMQCXP = record
StrucId : MQCHAR4; (* Structure identifier *)
Version : MQLONG; (* Structure version number *)
ExitId : MQLONG; (* Type of exit *)
ExitReason : MQLONG; (* Reason for invoking exit *)
ExitResponse : MQLONG; (* Response from exit *)
ExitResponse2 : MQLONG; (* Secondary response from exit *)
Feedback : MQLONG; (* Feedback code *)
MaxSegmentLength: MQLONG; (* Maximum segment length *)
ExitUserArea : MQBYTE16; (* Exit user area *)
ExitData : MQCHAR32; (* Exit data *)
MsgRetryCount : MQLONG; (* Number of times the message has been
retried *)
MsgRetryInterval: MQLONG; (* Minimum interval in milliseconds
after which the put operation should
be retried *)
MsgRetryReason : MQLONG; (* Reason code from previous attempt to
put the message *)
HeaderLength : MQLONG; (* Length of header information *)
PartnerName : MQCHAR48; (* Partner Name *)
FAPLevel : MQLONG; (* Negotiated Formats and Protocols
level *)
CapabilityFlags : MQLONG; (* Capability flags *)
ExitNumber : MQLONG; (* Exit number *)
ExitSpace : MQLONG; (* Bytes reserved for send exit use *)
end;
PMQCXP = ^TMQCXP;
(*
MQCXP_DEFAULT {MQCXP_STRUC_ID_ARRAY},\
MQCXP_CURRENT_VERSION,\
0L,\
0L,\
MQXCC_OK,\
MQXR2_PUT_WITH_DEF_ACTION,\
0L,\
0L,\
{MQXUA_NONE_ARRAY},\
{""},\
0L,\
0L,\
0L,\
0L,\
{""},\
0L,\
MQCF_NONE,\
1L,\
0L
*)
(*********************************************************************)
(* MQDXP Structure -- Data Conversion Exit Parameter *)
(*********************************************************************)
TMQDXP = record
StrucId : MQCHAR4; (* Structure identifier *)
Version : MQLONG; (* Structure version number *)
ExitOptions : MQLONG; (* Reserved *)
AppOptions : MQLONG; (* Application options *)
Encoding : MQLONG; (* Numeric encoding required by
application *)
CodedCharSetId: MQLONG; (* Character set required by application *)
DataLength : MQLONG; (* Length in bytes of message data *)
CompCode : MQLONG; (* Completion code *)
Reason : MQLONG; (* Reason code qualifying CompCode *)
ExitResponse : MQLONG; (* Response from exit *)
Hconn : MQHCONN; (* Connection handle *)
end;
PMQDXP = ^TMQDXP;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -