18 lines
434 B
Plaintext
18 lines
434 B
Plaintext
compile insert XML_Equates
|
|
|
|
declare function XML
|
|
declare subroutine XML
|
|
|
|
* Success = XML(XML_LOGTRAN$, TableName, RecordKey)
|
|
equ XML_LOGTRAN$ to 1
|
|
|
|
* Success = XML(XML_GETTRAN$, TableName, PurgeID /* out */, CutOffDateTime, DestCursor)
|
|
equ XML_GETTRAN$ to 2
|
|
|
|
* Success = XML(XML_PURGETRAN$, TableName, PurgeID)
|
|
equ XML_PURGETRAN$ to 3
|
|
|
|
* Success = XML(XML_PURGEALL$, TableName)
|
|
equ XML_PURGEALL$ to 4
|
|
|