📄 cmqcfpas.pas
字号:
MQIACH_CURRENT_MSGS = 1531;
MQIACH_CURRENT_SEQ_NUMBER = 1532;
MQIACH_CURRENT_SEQUENCE_NUMBER = 1532;
MQIACH_MSGS = 1534;
MQIACH_BYTES_SENT = 1535;
MQIACH_BYTES_RCVD = 1536;
MQIACH_BYTES_RECEIVED = 1536;
MQIACH_BATCHES = 1537;
MQIACH_BUFFERS_SENT = 1538;
MQIACH_BUFFERS_RCVD = 1539;
MQIACH_BUFFERS_RECEIVED = 1539;
MQIACH_LONG_RETRIES_LEFT = 1540;
MQIACH_SHORT_RETRIES_LEFT = 1541;
MQIACH_MCA_STATUS = 1542;
MQIACH_STOP_REQUESTED = 1543;
MQIACH_MR_COUNT = 1544;
MQIACH_MR_INTERVAL = 1545;
MQIACH_NPM_SPEED = 1562;
MQIACH_HB_INTERVAL = 1563;
MQIACH_BATCH_INTERVAL = 1564;
MQIACH_NETWORK_PRIORITY = 1565;
MQIACH_LAST_USED = 1565;
(*********************************************************************)
(* Values Related to Character Parameter Structures *)
(*********************************************************************)
(* Character Parameter Types *)
MQCACF_FIRST = 3001;
MQCACF_FROM_Q_NAME = 3001;
MQCACF_TO_Q_NAME = 3002;
MQCACF_FROM_PROCESS_NAME = 3003;
MQCACF_TO_PROCESS_NAME = 3004;
MQCACF_FROM_NAMELIST_NAME = 3005;
MQCACF_TO_NAMELIST_NAME = 3006;
MQCACF_FROM_CHANNEL_NAME = 3007;
MQCACF_TO_CHANNEL_NAME = 3008;
MQCACF_Q_NAMES = 3011;
MQCACF_PROCESS_NAMES = 3012;
MQCACF_NAMELIST_NAMES = 3013;
MQCACF_ESCAPE_TEXT = 3014;
MQCACF_LOCAL_Q_NAMES = 3015;
MQCACF_MODEL_Q_NAMES = 3016;
MQCACF_ALIAS_Q_NAMES = 3017;
MQCACF_REMOTE_Q_NAMES = 3018;
MQCACF_SENDER_CHANNEL_NAMES = 3019;
MQCACF_SERVER_CHANNEL_NAMES = 3020;
MQCACF_REQUESTER_CHANNEL_NAMES = 3021;
MQCACF_RECEIVER_CHANNEL_NAMES = 3022;
MQCACF_OBJECT_Q_MGR_NAME = 3023;
MQCACF_APPL_NAME = 3024;
MQCACF_USER_IDENTIFIER = 3025;
MQCACF_AUX_ERROR_DATA_STR_1 = 3026;
MQCACF_AUX_ERROR_DATA_STR_2 = 3027;
MQCACF_AUX_ERROR_DATA_STR_3 = 3028;
MQCACF_BRIDGE_NAME = 3029;
MQCACF_STREAM_NAME = 3030;
MQCACF_TOPIC = 3031;
MQCACF_PARENT_Q_MGR_NAME = 3032;
MQCACF_PUBLISH_TIMESTAMP = 3034;
MQCACF_STRING_DATA = 3035;
MQCACF_SUPPORTED_STREAM_NAME = 3036;
MQCACF_REG_TOPIC = 3037;
MQCACF_REG_TIME = 3038;
MQCACF_REG_USER_ID = 3039;
MQCACF_CHILD_Q_MGR_NAME = 3040;
MQCACF_REG_STREAM_NAME = 3041;
MQCACF_REG_Q_MGR_NAME = 3042;
MQCACF_REG_Q_NAME = 3043;
MQCACF_REG_CORREL_ID = 3044;
MQCACF_LAST_USED = 3044;
MQCACH_FIRST = 3501;
MQCACH_CHANNEL_NAME = 3501;
MQCACH_DESC = 3502;
MQCACH_MODE_NAME = 3503;
MQCACH_TP_NAME = 3504;
MQCACH_XMIT_Q_NAME = 3505;
MQCACH_CONNECTION_NAME = 3506;
MQCACH_MCA_NAME = 3507;
MQCACH_SEC_EXIT_NAME = 3508;
MQCACH_MSG_EXIT_NAME = 3509;
MQCACH_SEND_EXIT_NAME = 3510;
MQCACH_RCV_EXIT_NAME = 3511;
MQCACH_CHANNEL_NAMES = 3512;
MQCACH_SEC_EXIT_USER_DATA = 3513;
MQCACH_MSG_EXIT_USER_DATA = 3514;
MQCACH_SEND_EXIT_USER_DATA = 3515;
MQCACH_RCV_EXIT_USER_DATA = 3516;
MQCACH_USER_ID = 3517;
MQCACH_PASSWORD = 3518;
MQCACH_LAST_MSG_TIME = 3524;
MQCACH_LAST_MSG_DATE = 3525;
MQCACH_MCA_USER_ID = 3527;
MQCACH_CHANNEL_START_TIME = 3528;
MQCACH_CHANNEL_START_DATE = 3529;
MQCACH_MCA_JOB_NAME = 3530;
MQCACH_LAST_LUWID = 3531;
MQCACH_CURRENT_LUWID = 3532;
MQCACH_FORMAT_NAME = 3533;
MQCACH_MR_EXIT_NAME = 3534;
MQCACH_MR_EXIT_USER_DATA = 3535;
MQCACH_LAST_USED = 3535;
(*********************************************************************)
(* Parameter Values *)
(*********************************************************************)
(* Action Option *)
MQACT_FORCE_REMOVE = 1;
(* Bridge Type *)
MQBT_OTMA = 1;
(* Indoubt Status *)
MQCHIDS_NOT_INDOUBT = 0;
MQCHIDS_INDOUBT = 1;
(* Channel Status *)
MQCHS_INACTIVE = 0;
MQCHS_BINDING = 1;
MQCHS_STARTING = 2;
MQCHS_RUNNING = 3;
MQCHS_STOPPING = 4;
MQCHS_RETRYING = 5;
MQCHS_STOPPED = 6;
MQCHS_REQUESTING = 7;
MQCHS_PAUSED = 8;
MQCHS_INITIALIZING = 13;
(* Channel Stop Option *)
MQCHSR_STOP_NOT_REQUESTED = 0;
MQCHSR_STOP_REQUESTED = 1;
(* Channel Table Type *)
MQCHTAB_Q_MGR = 1;
MQCHTAB_CLNTCONN = 2;
(* Escape Type *)
MQET_MQSC = 1;
(* Event Recording *)
MQEVR_DISABLED = 0;
MQEVR_ENABLED = 1;
(* Force Control *)
MQFC_YES = 1;
MQFC_NO = 0;
(* Indoubt Option *)
MQIDO_COMMIT = 1;
MQIDO_BACKOUT = 2;
(* Message Channel Agent Status *)
MQMCAS_STOPPED = 0;
MQMCAS_RUNNING = 3;
(* Purge Option *)
MQPO_YES = 1;
MQPO_NO = 0;
(* Queue Manager Definition Type *)
MQQMDT_EXPLICIT_CLUSTER_SENDER = 1;
MQQMDT_AUTO_CLUSTER_SENDER = 2;
MQQMDT_AUTO_EXP_CLUSTER_SENDER = 4;
MQQMDT_CLUSTER_RECEIVER = 3;
(* Queue Manager Type *)
MQQMT_NORMAL = 0;
MQQMT_REPOSITORY = 1;
(* Quiesce Option *)
MQQO_YES = 1;
MQQO_NO = 0;
(* Queue Service-Interval Events *)
MQQSIE_NONE = 0;
MQQSIE_HIGH = 1;
MQQSIE_OK = 2;
(* Replace Option *)
MQRP_YES = 1;
MQRP_NO = 0;
(* Reason Qualifiers *)
MQRQ_CONN_NOT_AUTHORIZED = 1;
MQRQ_OPEN_NOT_AUTHORIZED = 2;
MQRQ_CLOSE_NOT_AUTHORIZED = 3;
MQRQ_CMD_NOT_AUTHORIZED = 4;
MQRQ_Q_MGR_STOPPING = 5;
MQRQ_Q_MGR_QUIESCING = 6;
MQRQ_CHANNEL_STOPPED_OK = 7;
MQRQ_CHANNEL_STOPPED_ERROR = 8;
MQRQ_CHANNEL_STOPPED_RETRY = 9;
MQRQ_CHANNEL_STOPPED_DISABLED = 10;
MQRQ_BRIDGE_STOPPED_OK = 11;
MQRQ_BRIDGE_STOPPED_ERROR = 12;
(* Queue Definition Scope *)
MQSCO_Q_MGR = 1;
MQSCO_CELL = 2;
(* Suspend Status *)
MQSUS_YES = 1;
MQSUS_NO = 0;
(*********************************************************************)
(* Values Related to Publish/Subscribe *)
(*********************************************************************)
(* Delete Options *)
MQDELO_NONE = $00000000;
MQDELO_LOCAL = $00000004;
(* Publication Options *)
MQPUBO_NONE = $00000000;
MQPUBO_CORREL_ID_AS_IDENTITY = $00000001;
MQPUBO_RETAIN_PUBLICATION = $00000002;
MQPUBO_OTHER_SUBSCRIBERS_ONLY = $00000004;
MQPUBO_NO_REGISTRATION = $00000008;
MQPUBO_IS_RETAINED_PUBLICATION = $00000010;
(* Registration Options *)
MQREGO_NONE = $00000000;
MQREGO_CORREL_ID_AS_IDENTITY = $00000001;
MQREGO_ANONYMOUS = $00000002;
MQREGO_LOCAL = $00000004;
MQREGO_DIRECT_REQUESTS = $00000008;
MQREGO_NEW_PUBLICATIONS_ONLY = $00000010;
MQREGO_PUBLISH_ON_REQUEST_ONLY = $00000020;
MQREGO_DEREGISTER_ALL = $00000040;
MQREGO_INCLUDE_STREAM_NAME = $00000080;
MQREGO_INFORM_IF_RETAINED = $00000100;
(* User Attribute Selectors *)
MQUA_FIRST = 65536;
MQUA_LAST = 999999999;
(*********************************************************************)
(* MQCFH Structure -- PCF Header *)
(*********************************************************************)
Type
TMQCFH = record
TType : MQLONG; (* Structure type *)
StrucLength : MQLONG; (* Structure length *)
Version : MQLONG; (* Structure version number *)
Command : MQLONG; (* Command identifier *)
MsgSeqNumber : MQLONG; (* Message sequence number *)
Control : MQLONG; (* Control options *)
CompCode : MQLONG; (* Completion code *)
Reason : MQLONG; (* Reason code qualifying completion code *)
ParameterCount: MQLONG; (* Count of parameter structures *)
end;
PMQCFH = ^TMQCFH;
(*
MQCFH_DEFAULT MQCFT_COMMAND,\
MQCFH_STRUC_LENGTH,\
MQCFH_VERSION_1,\
MQCMD_NONE,\
1L,\
MQCFC_LAST,\
MQCC_OK,\
MQRC_NONE,\
0L
*)
(*********************************************************************)
(* MQCFIL Structure -- PCF Integer-List Parameter *)
(*********************************************************************)
TMQCFIL = record
TType : MQLONG; (* Structure type *)
StrucLength: MQLONG; (* Structure length *)
Parameter : MQLONG; (* Parameter identifier *)
Count : MQLONG; (* Count of parameter values *)
Values : array[0..0] of MQLONG; (* Parameter values -- first element *)
end;
PMQCFIL = ^TMQCFIL;
(*
MQCFIL_DEFAULT MQCFT_INTEGER_LIST,\
MQCFIL_STRUC_LENGTH_FIXED,\
0L,\
0L,\
{0L}
*)
(*********************************************************************)
(* MQCFIN Structure -- PCF Integer Parameter *)
(*********************************************************************)
TMQCFIN = record
TType : MQLONG; (* Structure type *)
StrucLength: MQLONG; (* Structure length *)
Parameter : MQLONG; (* Parameter identifier *)
Value : MQLONG; (* Parameter value *)
end;
PMQCFIN = ^TMQCFIN;
(*
MQCFIN_DEFAULT MQCFT_INTEGER,\
MQCFIN_STRUC_LENGTH,\
0L,\
0L
*)
(*********************************************************************)
(* MQCFSL Structure -- PCF String-List Parameter *)
(*********************************************************************)
TMQCFSL = record
TType : MQLONG; (* Structure type *)
StrucLength : MQLONG; (* Structure length *)
Parameter : MQLONG; (* Parameter identifier *)
CodedCharSetId: MQLONG; (* Coded character set identifier *)
Count : MQLONG; (* Count of parameter values *)
StringLength : MQLONG; (* Length of one string *)
Strings : array[0..0] of MQCHAR; (* String values -- first character *)
end;
PMQCFSL = ^TMQCFSL;
(*
MQCFSL_DEFAULT MQCFT_STRING_LIST,\
MQCFSL_STRUC_LENGTH_FIXED,\
0L,\
MQCCSI_DEFAULT,\
0L,\
0L,\
{""}
*)
(*********************************************************************)
(* MQCFST Structure -- PCF String Parameter *)
(*********************************************************************)
TMQCFST = record
TType : MQLONG; (* Structure type *)
StrucLength : MQLONG; (* Structure length *)
Parameter : MQLONG; (* Parameter identifier *)
CodedCharSetId: MQLONG; (* Coded character set identifier *)
StringLength : MQLONG; (* Length of string *)
Strings : array[0..0] of MQCHAR; (* String value -- first character *)
end;
PMQCFST = ^TMQCFST;
(*
MQCFST_DEFAULT MQCFT_STRING,\
MQCFST_STRUC_LENGTH_FIXED,\
0L,\
MQCCSI_DEFAULT,\
0L,\
{""}
*)
const
MQCFH_DEFAULT: TMQCFH = (
TType : MQCFT_COMMAND;
StrucLength : MQCFH_STRUC_LENGTH;
Version : MQCFH_VERSION_1;
Command : MQCMD_NONE;
MsgSeqNumber : 1;
Control : MQCFC_LAST;
CompCode : MQCC_OK;
Reason : MQRC_NONE;
ParameterCount: 0
);
MQCFIL_DEFAULT: TMQCFIL = (
TType : MQCFT_INTEGER_LIST;
StrucLength: MQCFIL_STRUC_LENGTH_FIXED;
Parameter : 0;
Count : 0;
Values : (0);
);
MQCFIN_DEFAULT: TMQCFIN = (
TType : MQCFT_INTEGER;
StrucLength: MQCFIN_STRUC_LENGTH;
Parameter : 0;
Value : 0;
);
MQCFSL_DEFAULT: TMQCFSL = (
TType : MQCFT_STRING_LIST;
StrucLength : MQCFSL_STRUC_LENGTH_FIXED;
Parameter : 0;
CodedCharSetId: MQCCSI_DEFAULT;
Count : 0;
StringLength : 0;
Strings : (#0)
);
MQCFST_DEFAULT: TMQCFST = (
TType : MQCFT_STRING;
StrucLength : MQCFST_STRUC_LENGTH_FIXED;
Parameter : 0;
CodedCharSetId: MQCCSI_DEFAULT;
StringLength : 0;
Strings : (#0);
);
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -