DMQAPI (dmqapi.bas)

The second (and final) file copied from the examples...
Note that Sleep was added in, to put a delay in-between the code execution. Without the delay, the Putmsg and Getmsg functions will go haywire. Seems that VB6 cannot handle the speed of computers these days, thus, the Sleep code.



----------
' *
' * MessageQ API Definitions for Visual Basic
' *
' * Module DMQAPI.BAS
' *
' * Copyright (c) 1997 BEA Systems Inc.
' * All rights reserved
' *
' * The software contained on this media is proprietary to and embodies the
' * confidential technology of BEA Systems, Inc.. Possession, use,
' * duplication or dissemination of the software and media is authorized
' * only pursuant to a valid written license from BEA Systems, Inc..
' *
' * RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the U.S.
' * Government is subject to restrictions as set forth in Subparagraph
' * (c)(1)(ii) of DFARS 252.227-7013, or in FAR 52.227-19, as applicable.
' *
' ****************************************************************************************
'
' ****************************************************************************************
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' ****************************************************************************************
'
Global Const DMQ_GENERIC_VERSION = "V400"
'
Global Const PAMS__SUCCESS = 1
Global Const PAMS__LINK_UP = 3
Global Const PAMS__JOURNAL_ON = 5
Global Const PAMS__NOMOREMSG = 7
Global Const PAMS__DISC_SUCCESS = 11
Global Const PAMS__DISCL_SUCCESS = 13
Global Const PAMS__DLJ_SUCCESS = 15
Global Const PAMS__DLQ_SUCCESS = 17
Global Const PAMS__RTS_SUCCESS = 19
Global Const PAMS__SAF_SUCCESS = 21
Global Const PAMS__RECOVERMODE = 23
Global Const PAMS__NO_UMA = 25
Global Const PAMS__UMA_NA = 27
Global Const PAMS__TRACEBACK = 29
Global Const PAMS__STORED = 31
Global Const PAMS__ENQUEUED = 33
Global Const PAMS__UNATTACHEDQ = 35
Global Const PAMS__CONFIRMREQ = 37
Global Const PAMS__PROPAGATE = 39
Global Const PAMS__DETACHED = 41
Global Const PAMS__SAF_FORCED = 43
Global Const PAMS__TRUNCATED = 45
Global Const PAMS_LAST_SUCCESS = 45
'
'
Global Const PAMS__NOSEND = -2
Global Const PAMS__WAKEFAIL = -4
Global Const PAMS__TIMERACT = -6
Global Const PAMS__MSGACT = -8
Global Const PAMS__BADDECLARE = -10
Global Const PAMS__BADFREE = -12
Global Const PAMS__TIMEOUT = -14
Global Const PAMS__ACKTMO = -16
Global Const PAMS__MSGUNDEL = -18
Global Const PAMS__NOTALLOCATE = -20
Global Const PAMS__MSGTOBIG = -22
Global Const PAMS__BIGBLKSIZE = -24
Global Const PAMS__BADRECEIVE = -26
Global Const PAMS__INVALIDID = -36
Global Const PAMS__INVFORMAT = -50
Global Const PAMS__INVALIDNUM = -52
Global Const PAMS__PNUMNOEXIST = -54
Global Const PAMS__NOTACTIVE = -54
Global Const PAMS__EXCEEDQUOTA = -56
Global Const PAMS__BADPRIORITY = -58
Global Const PAMS__BADDELIVERY = -60
Global Const PAMS__BADPROCNUM = -62
Global Const PAMS__BADTMPPROC = -64
Global Const PAMS__BADSYNCHNUM = -66
Global Const PAMS__BADTMPSYNCH = -68
Global Const PAMS__NOTDCL = -70
Global Const PAMS__STATECHANGE = -72
Global Const PAMS__INVUCBCNTRL = -74
Global Const PAMS__NOLINK = -76
Global Const PAMS__CIRACT = -78
Global Const PAMS__PROTOCOL = -80
Global Const PAMS__ABORT = -82
Global Const PAMS__BADASSIGN = -84
Global Const PAMS__LOGNAME = -90
Global Const PAMS__LOGNAME2 = -92
Global Const PAMS__LOGNAME3 = -94
Global Const PAMS__LOGNAME4 = -96
Global Const PAMS__LOGNAME5 = -98
Global Const PAMS__NOOPEN = -100
Global Const PAMS__BADSCRIPT = -102
Global Const PAMS__DECLARED = -106
Global Const PAMS__EXHAUSTBLKS = -108
Global Const PAMS__BADTIME = -110
Global Const PAMS__BIGMSG = -120
Global Const PAMS__MSGTOSMALL = -122
Global Const PAMS__AREATOSMALL = -124
Global Const PAMS__NOCANSEND = -126
Global Const PAMS__QUECORRUPT = -128
Global Const PAMS__REMQUEFAIL = -130
Global Const PAMS__INSQUEFAIL = -132
Global Const PAMS__CREATEFAIL = -134
Global Const PAMS__DCLTMPFAIL = -136
Global Const PAMS__PAMSDOWN = -138
Global Const PAMS__BADASTPARM = -140
Global Const PAMS__EX_Q_LEN = -156
Global Const PAMS__POSSDUPL = -158
Global Const PAMS__STUB = -160
Global Const PAMS__SENDER_TMO_EXPIRED = -162
Global Const PAMS__MRQTBLFULL = -164
Global Const PAMS__NOOBJECT = -166
Global Const PAMS__CANCEL = -168
Global Const PAMS__EXCMAXUNCONF = -170
Global Const PAMS__OBJNOTACTIVE = -172
Global Const PAMS__BUFFEROVF = -174
Global Const PAMS__INVBUFFPTR = -176
Global Const PAMS__BADJOURNAL = -178
Global Const PAMS__COMMERR = -180
Global Const PAMS__BADSELIDX = -182
Global Const PAMS__IDXTBLFULL = -184
Global Const PAMS__BADPARAM = -186
Global Const PAMS__NOMRS = -188
Global Const PAMS__DISC_FAILED = -190
Global Const PAMS__DISCL_FAILED = -192
Global Const PAMS__DLJ_FAILED = -194
Global Const PAMS__DLQ_FAILED = -196
Global Const PAMS__DQF_DEVICE_FAIL = -198
Global Const PAMS__INVUMA = -200
Global Const PAMS__DQF_FULL = -202
Global Const PAMS__INVJH = -204
Global Const PAMS__LINK_DOWN = -206
Global Const PAMS__BADSEQ = -208
Global Const PAMS__NOTJRN = -210
Global Const PAMS__MRS_RES_EXH = -212
Global Const PAMS__NOMOREJH = -214
Global Const PAMS__REJECTED = -216
Global Const PAMS__NOSUCHPCJ = -218
Global Const PAMS__UCBERROR = -220
Global Const PAMS__BADUMA = -222
Global Const PAMS__BADRESPQ = -224
Global Const PAMS__BADARGLIST = -226
Global Const PAMS__NO_DQF = -228
Global Const PAMS__NO_SAF = -230
Global Const PAMS__RTS_FAILED = -232
Global Const PAMS__SAF_DEVICE_FAIL = -234
Global Const PAMS__SAF_FAILED = -236
Global Const PAMS__BADLOGIC = -238
Global Const PAMS__SELRCVACT = -240
Global Const PAMS__NOMRQRESRC = -242
Global Const PAMS__DUPLQNAME = -244
Global Const PAMS__RESRCFAIL = -246
Global Const PAMS__BADTAG = -248
Global Const PAMS__BADTBQHANDLE = -250
Global Const PAMS__INVACCESS = -252
Global Const PAMS__BADNAME = -254
Global Const PAMS__NAMETOOLONG = -256
Global Const PAMS__BADCMD = -258
Global Const PAMS__RESPQREQ = -260
Global Const PAMS__INTERNAL = -262
Global Const PAMS__NOQUOTA = -264
Global Const PAMS__NOTPRIMARYQ = -266
Global Const PAMS__NOTSUPPORTED = -268
Global Const PAMS__NOTSECONDARYQ = -270
Global Const PAMS__FATAL = -272
Global Const PAMS__WRONGDOS = -274
Global Const PAMS__NETERROR = -276
Global Const PAMS__NETNOLINK = -278
Global Const PAMS__NETLINKLOST = -280
Global Const PAMS__BADINITFILE = -282
Global Const PAMS__JOURNAL_FULL = -284
Global Const PAMS__JOURNAL_FAIL = -286
Global Const PAMS__BADQTYPE = -288
Global Const PAMS__BUSNOTSET = -290
Global Const PAMS__GROUPNOTSET = -292
Global Const PAMS__PREVCALLBUSY = -294
Global Const PAMS__EXPIRED = -296
Global Const PAMS__CONFLICT = -298
Global Const PAMS__NOACL = -300
Global Const PAMS__NOACCESS = -302
Global Const PAMS__STALE = -304
Global Const PAMS__BADMSGBUF = -308
Global Const PAMS__DNSCLASSBAD = -310
Global Const PAMS__DNSDIRFAIL = -312
Global Const PAMS__DNSFMTBAD = -314
Global Const PAMS__NOPRIV = -316
Global Const PAMS__FAILED = -320
Global Const PAMS__BADHANDLE = -322
Global Const PAMS__NOSUCHTAG = -324
Global Const PAMS__NOTBOUND = -328
Global Const PAMS__NSBADNAME = -330
Global Const PAMS__NSBADPATH = -332
Global Const PAMS__NSBADCLASS = -334
Global Const PAMS__NSUNKNOWNENTRY = -336
Global Const PAMS__NSENTRYEXISTS = -338
Global Const PAMS__NSUNKNOWNATTR = -340
Global Const PAMS__NSBADATTR = -342
Global Const PAMS__NSACCESSERR = -344
Global Const PAMS__NSWRITERR = -346
Global Const PAMS__NSNOTAVAIL = -348
Global Const PAMS__BOUND = -350
Global Const PAMS__NOMEMORY = -352
Global Const PAMS__NOMORETAG = -354
Global Const PAMS__UNBINDING = -356
Global Const PAMS__STOPPED = -358
Global Const PAMS__ATTACHED = -360
Global Const PAMS__ENDOFSOURCE = -362
Global Const PAMS__LOCKED = -364
Global Const PAMS__MSG = -366
Global Const PAMS__NONEXT = -368
Global Const PAMS__NOTMRQ = -370
Global Const PAMS__SELACTIVE = -372
Global Const PAMS_LAST_FAIL = -374

' End of DMQ constants defined in P_RETURN.H
'
' **************************************************************************
' Selective Receive symbols
' **************************************************************************
'
Global Const PSEL_PRI_P0 = 1
Global Const PSEL_PRI_P1 = 2
Global Const PSEL_PRI_ANY = 3
Global Const PSEL_SOURCE = -1
Global Const PSEL_CLASS = -2
Global Const PSEL_TYPE = -3
'
' *************************************************************************
' Define the Select-by-Queue macros
' *************************************************************************
'
Global Const PSEL_BY_MASK = -1
Global Const PSEL_PQ = -2
Global Const PSEL_AQ = -3
Global Const PSEL_PQ_AQ = -4
Global Const PSEL_AQ_PQ = -5
Global Const PSEL_PQ_TYPE = -6
Global Const PSEL_PQ_CLASS = -7
Global Const PSEL_PQ_PRI = -8
Global Const PSEL_UCB = -9
Global Const PSEL_TQ_PQ = -10
Global Const PSEL_TQ_PQ_AQ = -11
'
' *************************************************************************
' Define the Selective Operators
' *************************************************************************
'
Global Const PSEL_OPER_ANY = 0
Global Const PSEL_OPER_EQ = 1
Global Const PSEL_OPER_NEQ = 2
Global Const PSEL_OPER_GTR = 3
Global Const PSEL_OPER_LT = 4
Global Const PSEL_OPER_GTRE = 5
Global Const PSEL_OPER_LTE = 6
'
' *************************************************************************
' Define the Selective Order
' *************************************************************************
'
Global Const PSEL_ORDER_FIFO = 0
Global Const PSEL_ORDER_MIN = 11
Global Const PSEL_ORDER_MAX = 12
'
' *************************************************************************
' Define PAMS_LOCATE_Q symbols
' *************************************************************************
'
Global Const PSEL_TBL_PROC = -50
Global Const PSEL_TBL_GRP = -51
Global Const PSEL_TBL_DNS_CACHE = -52
Global Const PSEL_TBL_BUS = -52
Global Const PSEL_TBL_DNS_LOW = -53
Global Const PSEL_TBL_BUS_LOW = -53
Global Const PSEL_TBL_DNS_MED = -54
Global Const PSEL_TBL_BUS_MED = -54
Global Const PSEL_TBL_DNS_HIGH = -55
Global Const PSEL_TBL_BUS_HIGH = -55
'
' **************************************************************************
' MRS include file symbols V1.0
' **************************************************************************

Global Const PDEL_MODE_DG_LOG = 0
Global Const PDEL_MODE_DG = 1
Global Const PDEL_MODE_RTS = 10
Global Const PDEL_MODE_WFQ = 20
Global Const PDEL_MODE_ST_RECOVER = 22
Global Const PDEL_MODE_WF_SAF = 25
Global Const PDEL_MODE_WF_DQF = 26
Global Const PDEL_MODE_WF_NET = 27
Global Const PDEL_MODE_WF_RCM = 28
Global Const PDEL_MODE_WF_MEM = 29
Global Const PDEL_MODE_AK_SAF = 30
Global Const PDEL_MODE_AK_DQF = 31
Global Const PDEL_MODE_AK_NET = 32
Global Const PDEL_MODE_AK_RCM = 33
Global Const PDEL_MODE_AK_MEM = 34
Global Const PDEL_MODE_NN_SAF = 35
Global Const PDEL_MODE_NN_DQF = 36
Global Const PDEL_MODE_NN_NET = 37
Global Const PDEL_MODE_NN_RCM = 38
Global Const PDEL_MODE_NN_MEM = 39
Global Const PDEL_MODE_WF_DEQ = 40
Global Const PDEL_MODE_AK_DEQ = 41
Global Const PDEL_MODE_WF_CONF = 42
Global Const PDEL_MODE_AK_CONF = 43
Global Const PDEL_MODE_WF_ACK = 44
Global Const PDEL_MODE_AK_ACK = 45

' **************************************************************************
' Undeliverable Message Action symbols
' **************************************************************************

Global Const PDEL_UMA_RTS = 1
Global Const PDEL_UMA_DLJ = 2
Global Const PDEL_UMA_DLQ = 3
Global Const PDEL_UMA_SAF = 4
Global Const PDEL_UMA_DISC = 5
Global Const PDEL_UMA_DISCL = 6

'**************************************************************************
' define PAMS_ATTACH_Q symbols
'**************************************************************************

Global Const PSYM_DCL_PQ = -200
Global Const PSYM_DCL_SQ = -201
Global Const PSYM_ATTACH_PQ = -200
Global Const PSYM_ATTACH_SQ = -201
Global Const PSYM_SCOPE_LOCAL = -202
Global Const PSYM_SCOPE_GLOBAL = -203
Global Const PSYM_ATTACH_MRQ = -207
Global Const PSYM_ATTACH_BY_NAME = -210
Global Const PSYM_ATTACH_BY_NUMBER = -211
Global Const PSYM_ATTACH_TEMPORARY = -212

'**************************************************************************
' define PAMS_DETACH_Q symbols
'**************************************************************************

Global Const PSYM_NOFLUSH_Q = 1
Global Const PSYM_DETACH_ALL = 2
Global Const PSYM_CANCEL_SEL_MASK = 3

' **************************************************************************
' PAMS_CONFIRM_MSG force journal symbols
' **************************************************************************

Global Const PDEL_DEFAULT_JRN = 0
Global Const PDEL_FORCE_JRN = 1
Global Const PDEL_NO_JRN = 2

' **************************************************************************
' Queue Control LineState values
' **************************************************************************

Global Const LINE_DISCONNECTED = 0
Global Const LINE_CONNECTED = 1
Global Const LINE_JOURNAL_ON = 2

' **************************************************************************
' PAMS_LOCATE_Q symbols
' **************************************************************************

Global Const PSYM_WF_RESP = -70
Global Const PSYM_AK_RESP = -71
'
' *************************************************************************
' Define the Queue Type symbols
' *************************************************************************
'
Global Const PSYM_QTYPE_PQ = 1
Global Const PSYM_QTYPE_SQ = 2
Global Const PSYM_QTYPE_MRQ = 3
Global Const PSYM_QTYPE_UCB = 4
'
' *************************************************************************
' Define status return symbols for que notify services.
' *************************************************************************
'
Global Const PSYM_QNOT_SUCCESS = 1
Global Const PSYM_QNOT_FAIL = 0
Global Const PSYM_QNOT_BADPARAM = -2
'
' *************************************************************************
' Define symbols for SDM tags
' *************************************************************************
'
Global Const PSDM_NULL_TAG = -2146435073
Global Const PSDM_BOOLEAN = -2130706432
Global Const PSDM_INT8 = -1996488704
Global Const PSDM_UINT8 = -1862270976
Global Const PSDM_CHAR = -1728053248
Global Const PSDM_INT16 = -2113929216
Global Const PSDM_UINT16 = -1979711488
Global Const PSDM_INT32 = -2080374784
Global Const PSDM_UINT32 = -1946157056
Global Const PSDM_TIME = -1811939328
Global Const PSDM_FLOAT = -2097152000
Global Const PSDM_QID = -1962934272
Global Const PSDM_INT64 = -2063597568
Global Const PSDM_UINT64 = -1929379840
Global Const PSDM_DOUBLE = -1795162112
Global Const PSDM_STRING = -2013265920
Global Const PSDM_OCTET = -1879048192
Global Const PSDM_FIRST = 1
Global Const PSDM_LAST = 2
Global Const PSDM_ANY = 4
Global Const PSDM_PREVIOUS = 1024
Global Const PSDM_NEXT = 2048
Global Const PSDM_BEFORE = 4096
Global Const PSDM_AFTER = 8192
Global Const PSDM_AT = 16384
'
' *************************************************************************
' Define symbols for large and handled message
' *************************************************************************
'
Global Const PSYM_MSG_HANDLE = -1
Global Const PSYM_MSG_LARGE = -2
'
' **************************************************************************
' Define MessageQ data types
' **************************************************************************

'
' Argument type for pams_attach_q, pams_locate_q, pams_put_msg, pams_get_msg
'
Type QAddress
Queue As Integer
Group As Integer
End Type

'
' Argument type for pams_get_msg
'
Type ShowBuffer
Version As Long
TransferStatus As Long
TransferSize As Long
reserved(7) As Long
Target As QAddress
OriginalTarget As QAddress
Source As QAddress
OriginalSource As QAddress
Delivery As Long
Priority As Long
Endian As Long
End Type

Global Const SHOW_BUFFER_LEN = 68

Type MsgSeqNumberType
FirstLong As Long
SecondLong As Long
End Type

'
' Argument type for pams_put_msg, pams_get_msg
'
Type PSB
TypeOfPsb As Integer
CallDependent As Integer
DelPsbStatus As Long
MsgSeqNumber As MsgSeqNumberType
UmaPsbStatus As Long
PsbReserved(6) As Integer
End Type


'
' Argument type for pams_set_select
'
Type SelectionRecord
Queue As Long
Priority As Long
Key_1_Offset As Long
Key_1_Size As Long
Key_1_Value As Long
Key_1_Oper As Long
Key_2_Offset As Long
Key_2_Size As Long
Key_2_Value As Long
Key_2_Oper As Long
OrderOffset As Long
OrderSize As Long
OrderOrder As Long
End Type

'
' Declare a user-defined type for a DmqMsgT object
'
Type DmqMsgT
Priority As Byte ' signed byte
SrcTarget As QAddress ' longword
Class As Integer ' signed word
Type As Integer ' signed word
Delivery As Byte ' signed byte
MsgAreaSize As Integer ' signed word
MsgLen As Integer ' signed word
timeout As Long ' signed longword
SelFilter As Long ' signed longword
PSB As PSB ' PSB type
UMA As Byte ' signed byte
RespQ As QAddress ' longword
End Type

Type PamsHandle
reserved(16) As Byte
End Type

Type Int64
Value(2) As Long
End Type

'
' Declare MessageQ Client Custom Control EXPORTED functions. The OCX file name
' is dmqclcc.ocx for both VB4-16 and VB4-32.
'
Declare Function DmqGetMsgArea Lib "dmqclcc.ocx" (MsgArea As Any, ByVal MsgAreaSize As Long) As Long

Declare Function DmqSetMsgArea Lib "dmqclcc.ocx" (MsgArea As Any, ByVal MsgAreaSize As Long) As Long

'
' MessageQ API function declarations. Define the conditional compilation
' symbol MessageQ_Server to use this file in the MessageQ server environment.
' If MessageQ_Server is not defined (the normal situation), the function
' declarations will use the MessageQ Client DLL.
'
#If MessageQ_Server Then ' Using the MessageQ Server

Declare Function pams_attach_q Lib "dmq.dll" (AttachMode As Long, QAttached As QAddress, QType As Long, ByVal QName As String, QNameLen As Long, NameSpaceList As Any, NameSpaceListLen As Long, timeout As Long, NullArg1 As Any, NullArg2 As Any) As Long

Declare Function pams_bind_q Lib "dmq.dll" (QAttach As QAddress, ByVal QName As String, QNameLen As Long, NameSpaceList As Any, NameSpaceListLen As Long, timeout As Long, NullArg1 As Any) As Long

Declare Function pams_cancel_select Lib "dmq.dll" (IndexHandle As Long) As Long

Declare Function pams_cancel_timer Lib "dmq.dll" (TimerId As Long) As Long

Declare Function pams_confirm_msg Lib "dmq.dll" (SeqNumber As MsgSeqNumberType, ConfirmStatus As Long, ForceJ As Byte) As Long

Declare Function pams_create_handle Lib "dmq.dll" (MsgHandle As PamsHandle, HandleType As Long) As Long

Declare Function pams_decode_int8 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_decode_uint8 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_decode_int16 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_decode_uint16 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_decode_int32 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_decode_uint32 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_decode_int64 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_decode_uint64 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_decode_float Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Single) As Long

Declare Function pams_decode_double Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Double) As Long

Declare Function pams_decode_string Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, ByVal Value As String, BuffLen As Long, StringLen As Long) As Long

Declare Function pams_decode_array Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Any, BuffLen As Long, NumElements As Long) As Long

Declare Function pams_decode_qid Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As QAddress) As Long

Declare Function pams_delete_handle Lib "dmq.dll" (MsgHandle As PamsHandle) As Long

Declare Function pams_detach_q Lib "dmq.dll" (QDettach As QAddress, OptionList As Long, OptionListLen As Long, MsgsFlushed As Long) As Long

Declare Function pams_encode_int8 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_encode_uint8 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_encode_int16 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_encode_uint16 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_encode_int32 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_encode_uint32 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_encode_int64 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_encode_uint64 Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_encode_float Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Single) As Long

Declare Function pams_encode_double Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Double) As Long

Declare Function pams_encode_qid Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As QAddress) As Long

Declare Function pams_encode_string Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, ByVal Value As String, StringLen As Long) As Long

Declare Function pams_encode_array Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Any, ArrayLen As Long) As Long

Declare Function pams_exit Lib "dmq.dll" () As Long

Declare Function pams_extract_buffer Lib "dmq.dll" (MsgHandle As PamsHandle, Buffer As Any, BuffLen As Long, MsgLength As Long) As Long

Declare Function pams_get_msg Lib "dmq.dll" (MsgArea As Any, Priority As Byte, Source As QAddress, Class As Integer, MsgType As Integer, MsgAreaLen As Integer, LenData As Integer, SelFilter As Long, PSB As PSB, ShowBuff As ShowBuffer, ShowBuffLen As Long, LargeAreaLen As Long, LargeSize As Long, NullArg1 As Any) As Long

Declare Function pams_get_msgw Lib "dmq.dll" (MsgArea As Any, Priority As Byte, Source As QAddress, Class As Integer, MsgType As Integer, MsgAreaLen As Integer, LenData As Integer, timeout As Long, SelFilter As Long, PSB As PSB, ShowBuff As ShowBuffer, ShowBuffLen As Long, LargeAreaLen As Long, LargeSize As Long, NullArg1 As Any) As Long

Declare Function pams_insert_buffer Lib "dmq.dll" (MsgHandle As PamsHandle, Buffer As Byte, BuffLen As Long) As Long

Declare Function pams_locate_q Lib "dmq.dll" (ByVal QName As String, QNameLen As Long, QAddrFound As QAddress, WaitMode As Long, RequestId As Long, RespQ As QAddress, NameSpaceList As Any, NameSpaceListLen As Long, timeout As Long) As Long

Declare Function pams_msg_length Lib "dmq.dll" (MsgHandle As PamsHandle, MsgLength As Long) As Long

Declare Function pams_next_msg_field Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, FieldLen As Long) As Long

Declare Function pams_put_msg Lib "dmq.dll" (MsgArea As Any, Priority As Byte, Target As QAddress, Class As Integer, MsgType As Integer, Delivery As Byte, MsgSize As Integer, timeout As Long, PSB As PSB, UMA As Byte, RespQ As QAddress, LargeSize As Long, NullArg1 As Any, NullArg2 As Any) As Long

Declare Function pams_remove_encoding Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Flags As Long) As Long

Declare Function pams_set_msg_position Lib "dmq.dll" (MsgHandle As PamsHandle, Tag As Long, Flags As Long) As Long

Declare Function pams_set_select Lib "dmq.dll" (SelectionArray As SelectionRecord, NumMasks As Integer, IndexHandle As Long) As Long

Declare Function pams_set_timer Lib "dmq.dll" (TimerId As Long, TimeFormat As Integer, P_Timeout As Long, S_Timeout As Long) As Long

Declare Function pams_status_text Lib "dmq.dll" (StatusCode As Long, severity As Long, ByVal StatusText As String, buflen As Long, retlen As Long) As Long

Declare Function putil_show_pending Lib "dmq.dll" (QueueCountArray As Long, InQueueList As Integer, OutPendingList As Long) As Long

#Else ' Using the MessageQ Client

Declare Function pams_attach_q Lib "dmqcl32.dll" (AttachMode As Long, QAttached As QAddress, QType As Long, ByVal QName As String, QNameLen As Long, NameSpaceList As Any, NameSpaceListLen As Long, timeout As Long, NullArg1 As Any, NullArg2 As Any) As Long

Declare Function pams_bind_q Lib "dmqcl32.dll" (QAttach As QAddress, ByVal QName As String, QNameLen As Long, NameSpaceList As Any, NameSpaceListLen As Long, timeout As Long, NullArg1 As Any) As Long

Declare Function pams_cancel_select Lib "dmqcl32.dll" (IndexHandle As Long) As Long

Declare Function pams_cancel_timer Lib "dmqcl32.dll" (TimerId As Long) As Long

Declare Function pams_confirm_msg Lib "dmqcl32.dll" (SeqNumber As MsgSeqNumberType, ConfirmStatus As Long, ForceJ As Byte) As Long

Declare Function pams_create_handle Lib "dmqcl32.dll" (MsgHandle As PamsHandle, HandleType As Long) As Long

Declare Function pams_decode_int8 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_decode_uint8 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_decode_int16 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_decode_uint16 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_decode_int32 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_decode_uint32 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_decode_int64 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_decode_uint64 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_decode_float Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Single) As Long

Declare Function pams_decode_double Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Double) As Long

Declare Function pams_decode_string Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Any, BuffLen As Long, StringLen As Long) As Long

Declare Function pams_decode_array Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Any, BuffLen As Long, NumElements As Long) As Long

Declare Function pams_decode_qid Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As QAddress) As Long

Declare Function pams_delete_handle Lib "dmqcl32.dll" (MsgHandle As PamsHandle) As Long

Declare Function pams_detach_q Lib "dmqcl32.dll" (QDettach As QAddress, OptionList As Long, OptionListLen As Long, MsgsFlushed As Long) As Long

Declare Function pams_encode_int8 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_encode_uint8 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Byte) As Long

Declare Function pams_encode_int16 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_encode_uint16 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Integer) As Long

Declare Function pams_encode_int32 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_encode_uint32 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Long) As Long

Declare Function pams_encode_int64 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_encode_uint64 Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Int64) As Long

Declare Function pams_encode_float Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Single) As Long

Declare Function pams_encode_double Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Double) As Long

Declare Function pams_encode_qid Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As QAddress) As Long

Declare Function pams_encode_string Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, ByVal Value As String, StringLen As Long) As Long

Declare Function pams_encode_array Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Value As Any, ArrayLen As Long) As Long

Declare Function pams_exit Lib "dmqcl32.dll" () As Long

Declare Function pams_extract_buffer Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Buffer As Any, BuffLen As Long, MsgLength As Long) As Long

Declare Function pams_get_msg Lib "dmqcl32.dll" (MsgArea As Any, Priority As Byte, Source As QAddress, Class As Integer, MsgType As Integer, MsgAreaLen As Integer, LenData As Integer, SelFilter As Long, PSB As PSB, ShowBuff As ShowBuffer, ShowBuffLen As Long, LargeAreaLen As Long, LargeSize As Long, NullArg1 As Any) As Long

Declare Function pams_get_msgw Lib "dmqcl32.dll" (MsgArea As Any, Priority As Byte, Source As QAddress, Class As Integer, MsgType As Integer, MsgAreaLen As Integer, LenData As Integer, timeout As Long, SelFilter As Long, PSB As PSB, ShowBuff As ShowBuffer, ShowBuffLen As Long, LargeAreaLen As Long, LargeSize As Long, NullArg1 As Any) As Long

Declare Function pams_insert_buffer Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Buffer As Byte, BuffLen As Long) As Long

Declare Function pams_locate_q Lib "dmqcl32.dll" (ByVal QName As String, QNameLen As Long, QAddrFound As QAddress, WaitMode As Long, RequestId As Long, RespQ As QAddress, NameSpaceList As Any, NameSpaceListLen As Long, timeout As Long) As Long

Declare Function pams_msg_length Lib "dmqcl32.dll" (MsgHandle As PamsHandle, MsgLength As Long) As Long

Declare Function pams_next_msg_field Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, FieldLen As Long) As Long

Declare Function pams_put_msg Lib "dmqcl32.dll" (MsgArea As Any, Priority As Byte, Target As QAddress, Class As Integer, MsgType As Integer, Delivery As Byte, MsgSize As Integer, timeout As Long, PSB As PSB, UMA As Byte, RespQ As QAddress, LargeSize As Long, NullArg1 As Any, NullArg2 As Any) As Long

Declare Function pams_remove_encoding Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Flags As Long) As Long

Declare Function pams_set_msg_position Lib "dmqcl32.dll" (MsgHandle As PamsHandle, Tag As Long, Flags As Long) As Long

Declare Function pams_set_select Lib "dmqcl32.dll" (SelectionArray As SelectionRecord, NumMasks As Integer, IndexHandle As Long) As Long

Declare Function pams_set_timer Lib "dmqcl32.dll" (TimerId As Long, TimeFormat As Integer, P_Timeout As Long, S_Timeout As Long) As Long

Declare Function pams_status_text Lib "dmqcl32.dll" (StatusCode As Long, severity As Long, ByVal StatusText As String, buflen As Long, retlen As Long) As Long

Declare Function putil_show_pending Lib "dmqcl32.dll" (QueueCountArray As Long, InQueueList As Integer, OutPendingList As Long) As Long

#End If
----------