cmqpas.pas

delphi写的IBM mq服务器

unit CMQPas;

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


{$A-}  // alignment settings - aviod problems between different languages


  (*********************************************************************)
  (*                                                                   *)
  (*                  IBM MQSeries for Windows NT and Windows 2000     *)
  (*                                                                   *)
  (*  HEADER NAME:    CMQC                                             *)
  (*                                                                   *)
  (*  DESCRIPTION:    Declarations for Main MQI                        *)
  (*                                                                   *)
  (*********************************************************************)
  (*  @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 the main MQI.            *)
  (*                                                                   *)
  (*  PROCESSOR:      C                                                *)
  (*                                                                   *)
  (*********************************************************************)

interface

uses SysUtils;

const

  (*********************************************************************)
  (*  Values Related to MQBO Structure                                 *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQBO_STRUC_ID = 'BO  ';

  (* Structure Version Number *)
  MQBO_VERSION_1       = 1;
  MQBO_CURRENT_VERSION = 1;

  (* Begin Options *)
  MQBO_NONE = 0;

  (*********************************************************************)
  (*  Values Related to MQCIH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQCIH_STRUC_ID = 'CIH ';

  (* Structure Version Number *)
  MQCIH_VERSION_1       = 1;
  MQCIH_VERSION_2       = 2;
  MQCIH_CURRENT_VERSION = 2;

  (* Structure Length *)
  MQCIH_LENGTH_1       = 164;
  MQCIH_LENGTH_2       = 180;
  MQCIH_CURRENT_LENGTH = 180;

  (* Flags *)
  MQCIH_NONE =0;

  (* Return Code *)
  MQCRC_OK                    = 0;
  MQCRC_CICS_EXEC_ERROR       = 1;
  MQCRC_MQ_API_ERROR          = 2;
  MQCRC_BRIDGE_ERROR          = 3;
  MQCRC_BRIDGE_ABEND          = 4;
  MQCRC_APPLICATION_ABEND     = 5;
  MQCRC_SECURITY_ERROR        = 6;
  MQCRC_PROGRAM_NOT_AVAILABLE = 7;
  MQCRC_BRIDGE_TIMEOUT        = 8;
  MQCRC_TRANSID_NOT_AVAILABLE = 9;

  (* Unit of Work Control *)
  MQCUOWC_ONLY     = $00000111;
  MQCUOWC_CONTINUE = $00010000;
  MQCUOWC_FIRST    = $00000011;
  MQCUOWC_MIDDLE   = $00000010;
  MQCUOWC_LAST     = $00000110;
  MQCUOWC_COMMIT   = $00000100;
  MQCUOWC_BACKOUT  = $00001100;

  (* Get Wait Interval *)
  MQCGWI_DEFAULT = -2;

  (* Link Type *)
  MQCLT_PROGRAM     = 1;
  MQCLT_TRANSACTION = 2;

  (* Output Data Length *)
  MQCODL_AS_INPUT = -1;

  (* ADS Descriptor *)
  MQCADSD_NONE      = $00000000;
  MQCADSD_SEND      = $00000001;
  MQCADSD_RECV      = $00000010;
  MQCADSD_MSGFORMAT = $00000100;

  (* Conversational Task *)
  MQCCT_YES = $00000001;
  MQCCT_NO  = $00000000;

  (* Task End Status *)
  MQCTES_NOSYNC  = $00000000;
  MQCTES_COMMIT  = $00000100;
  MQCTES_BACKOUT = $00001100;
  MQCTES_ENDTASK = $00010000;

  (* Facility *)
  MQCFAC_NONE = #0#0#0#0#0#0#0#0;

  (* Function *)
  MQCFUNC_MQCONN = 'CONN';
  MQCFUNC_MQGET  = 'GET ';
  MQCFUNC_MQINQ  = 'INQ ';
  MQCFUNC_MQOPEN = 'OPEN';
  MQCFUNC_MQPUT  = 'PUT ';
  MQCFUNC_MQPUT1 = 'PUT1';
  MQCFUNC_NONE   = '    ';

  (* Start Code *)
  MQCSC_START     = 'S   ';
  MQCSC_STARTDATA = 'SD  ';
  MQCSC_TERMINPUT = 'TD  ';
  MQCSC_NONE      = '    ';

  (*********************************************************************)
  (*  Values Related to MQCNO Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQCNO_STRUC_ID = 'CNO ';

  (* Structure Version Number *)
  MQCNO_VERSION_1       = 1;
  MQCNO_VERSION_2       = 2;
  MQCNO_CURRENT_VERSION = 2;

  (* Connect Options *)
  MQCNO_STANDARD_BINDING = $00000000;
  MQCNO_FASTPATH_BINDING = $00000001;
  MQCNO_NONE             = $00000000;


  (*********************************************************************)
  (*  Values Related to MQDH Structure                                 *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQDH_STRUC_ID = 'DH  ';

  (* Structure Version Number *)
  MQDH_VERSION_1       = 1;
  MQDH_CURRENT_VERSION = 1;

  (* General Flags *)
  MQDHF_NEW_MSG_IDS = 1;
  MQDHF_NONE        = 0;

  (* Put Message Record Flags *)
  (* See values for "Put Message Record Fields" under MQPMO *)


  (*********************************************************************)
  (*  Values Related to MQDLH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQDLH_STRUC_ID = 'DLH ';

  (* Structure Version Number *)
  MQDLH_VERSION_1       = 1;
  MQDLH_CURRENT_VERSION = 1;


  (*********************************************************************)
  (*  Values Related to MQGMO Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQGMO_STRUC_ID = 'GMO ';

  (* Structure Version Number *)
  MQGMO_VERSION_1       = 1;
  MQGMO_VERSION_2       = 2;
  MQGMO_VERSION_3       = 3;
  MQGMO_CURRENT_VERSION = 3;

  (* Get-Message Options *)
  MQGMO_WAIT                    = $00000001;
  MQGMO_NO_WAIT                 = $00000000;
  MQGMO_SYNCPOINT               = $00000002;
  MQGMO_SYNCPOINT_IF_PERSISTENT = $00001000;
  MQGMO_NO_SYNCPOINT            = $00000004;
  MQGMO_MARK_SKIP_BACKOUT       = $00000080;
  MQGMO_BROWSE_FIRST            = $00000010;
  MQGMO_BROWSE_NEXT             = $00000020;
  MQGMO_BROWSE_MSG_UNDER_CURSOR = $00000800;
  MQGMO_MSG_UNDER_CURSOR        = $00000100;
  MQGMO_LOCK                    = $00000200;
  MQGMO_UNLOCK                  = $00000400;
  MQGMO_ACCEPT_TRUNCATED_MSG    = $00000040;
  MQGMO_SET_SIGNAL              = $00000008;
  MQGMO_FAIL_IF_QUIESCING       = $00002000;
  MQGMO_CONVERT                 = $00004000;
  MQGMO_LOGICAL_ORDER           = $00008000;
  MQGMO_COMPLETE_MSG            = $00010000;
  MQGMO_ALL_MSGS_AVAILABLE      = $00020000;
  MQGMO_ALL_SEGMENTS_AVAILABLE  = $00040000;
  MQGMO_NONE                    = $00000000;

  (* Wait Interval *)
  MQWI_UNLIMITED = -1;

  (* Signal Values *)
  MQEC_MSG_ARRIVED           = 2;
  MQEC_WAIT_INTERVAL_EXPIRED = 3;
  MQEC_WAIT_CANCELED         = 4;
  MQEC_Q_MGR_QUIESCING       = 5;
  MQEC_CONNECTION_QUIESCING  = 6;

  (* Match Options *)
  MQMO_MATCH_MSG_ID         = $00000001;
  MQMO_MATCH_CORREL_ID      = $00000002;
  MQMO_MATCH_GROUP_ID       = $00000004;
  MQMO_MATCH_MSG_SEQ_NUMBER = $00000008;
  MQMO_MATCH_OFFSET         = $00000010;
  MQMO_MATCH_MSG_TOKEN      = $00000020;
  MQMO_NONE                 = $00000000;

  (* Group Status *)
  MQGS_NOT_IN_GROUP      = ' ';
  MQGS_MSG_IN_GROUP      = 'G';
  MQGS_LAST_MSG_IN_GROUP = 'L';

  (* Segment Status *)
  MQSS_NOT_A_SEGMENT = ' ';
  MQSS_SEGMENT       = 'S';
  MQSS_LAST_SEGMENT  = 'L';

  (* Segmentation *)
  MQSEG_INHIBITED = ' ';
  MQSEG_ALLOWED   = 'A';

  (* Message Token *)
  MQMTOK_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

  (* Returned Length *)
  MQRL_UNDEFINED = -1;


  (*********************************************************************)
  (*  Values Related to MQIIH Structure                                *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQIIH_STRUC_ID = 'IIH ';

  (* Structure Version Number *)
  MQIIH_VERSION_1       = 1;
  MQIIH_CURRENT_VERSION = 1;

  (* Structure Length *)
  MQIIH_LENGTH_1 = 84;

  (* Flags *)
  MQIIH_NONE = 0;

  (* Authenticator *)
  MQIAUT_NONE = '        ';

  (* Transaction Instance Identifier *)
  MQITII_NONE = #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

  (* Transaction State *)
  MQITS_IN_CONVERSATION     = 'C';
  MQITS_NOT_IN_CONVERSATION = ' ';
  MQITS_ARCHITECTED         = 'A';

  (* Commit Mode *)
  MQICM_COMMIT_THEN_SEND = '0';
  MQICM_SEND_THEN_COMMIT = '1';

  (* Security Scope *)
  MQISS_CHECK = 'C';
  MQISS_FULL  = 'F';


  (*********************************************************************)
  (*  Values Related to MQMD Structure                                 *)
  (*********************************************************************)

  (* Structure Identifier *)
  MQMD_STRUC_ID = 'MD  ';

  (* Structure Version Number *)
  MQMD_VERSION_1       = 1;
  MQMD_VERSION_2       = 2;
  MQMD_CURRENT_VERSION = 2;

  (* Report Options *)
  MQRO_EXCEPTION                 = $01000000;
  MQRO_EXCEPTION_WITH_DATA       = $03000000;
  MQRO_EXCEPTION_WITH_FULL_DATA  = $07000000;
  MQRO_EXPIRATION                = $00200000;
  MQRO_EXPIRATION_WITH_DATA      = $00600000;
  MQRO_EXPIRATION_WITH_FULL_DATA = $00e00000;
  MQRO_COA                       = $00000100;
  MQRO_COA_WITH_DATA             = $00000300;
  MQRO_COA_WITH_FULL_DATA        = $00000700;
  MQRO_COD                       = $00000800;
  MQRO_COD_WITH_DATA             = $00001800;
  MQRO_COD_WITH_FULL_DATA        = $00003800;
  MQRO_PAN                       = $00000001;
  MQRO_NAN                       = $00000002;
  MQRO_NEW_MSG_ID                = $00000000;
  MQRO_PASS_MSG_ID               = $00000080;
  MQRO_COPY_MSG_ID_TO_CORREL_ID  = $00000000;
  MQRO_PASS_CORREL_ID            = $00000040;
  MQRO_DEAD_LETTER_Q             = $00000000;
  MQRO_DISCARD_MSG               = $08000000;
  MQRO_NONE                      = $00000000;

  (* Report Options Masks *)
  MQRO_REJECT_UNSUP_MASK         = $101c0000;
  MQRO_ACCEPT_UNSUP_MASK         = $efe000ff;
  MQRO_ACCEPT_UNSUP_IF_XMIT_MASK = $0003ff00;

  (* Message Types *)
  MQMT_SYSTEM_FIRST        = 1;
  MQMT_REQUEST             = 1;
  MQMT_REPLY               = 2;
  MQMT_DATAGRAM            = 8;
  MQMT_REPORT              = 4;
  MQMT_MQE_FIELDS_FROM_MQE = 112;