!INCLUDE
******************************************************************************
*
*       Define tockens for *vmadmsub UDR rpc calls
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*       (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*       This is unpublished proprietary source code of Ardent Software Inc.
*       The copyright notice above does not evidence any actual or intended
*       publication of such source code.
*
*******************************************************************************
*
*       Maintenence log - insert most recent change descriptions at top
*
*       Date.... GTAR# WHO Description........................................
*       10/14/98 23801 SAP Change copyrights. 
*       10/15/97 20606 DJD Final replication messages.
*       07/29/97 20246 DJD Add control messages.
*       07/29/97 20246 DJD Added UDRREP UDRLOG
*       03/13/97 20246 DJD Module created
************************************************************************

     EQU UVRPC.INT TO 0
     EQU UVRPC.DOUBLE TO 1
     EQU UVRPC.CHAR TO 2
     EQU UVRPC.STRING TO 3
     EQU UVRPC.INT.PTR TO 4
     EQU UVRPC.DOUBLE.PTR TO 5
     EQU UVRPC.FUNCNAME TO 6

     * Function Command numbers
     EQU UDR.SRV.DEBUG TO 1	;* Change the debugging mode
     EQU UDR.SRV.GETPUBS TO 2	;* Get the list of visible pubs
     EQU UDR.SRV.SETSUB TO 3	;* Set subscription information
     EQU UDR.SRV.REMSUB TO 4 	;* Remove sub information
     EQU UDR.SRV.GETSUBS TO 5	;* Get the list of subs.
     EQU UDR.SRV.INITREP TO 6	;* Spacer not used by admin
     EQU UDR.SRV.BEGINREP TO 7	;* Spacer not used by admin
     EQU UDR.SRV.SYNCPUB TO 8	;* Spacer not used by admin
     EQU UDR.SRV.ADDHOTBACKUPSYS TO 9 ;* Add hotbackup remote entry
     EQU UDR.SRV.REMHOTBACKUPSYS TO 10 ;* Remove hotbackup remote entry

     * Service define
     EQU UDR.SERVICE TO "uvdrsrv"

     EQU UDRLOG TO 1
     EQU UDRREP TO 2

     EQU UDR.SHUTDOWN TO 1
     EQU UDR.SUBSCRIBE TO 2
     EQU UDR.REPADDSYS TO 3
     EQU UDR.REPDELSYS TO 4
     EQU UDR.REPUPDSYS TO 5
     EQU UDR.LOGRESUME TO 6
     EQU UDR.LOGADDPUB TO 7
     EQU UDR.LOGDELPUB TO 8
     EQU UDR.LOGUPDSUB TO 9
     EQU UDR.LOGDELREMSUB TO 10

     EQU UDR.ERROR.NONE TO 0  ;* no errors occured 
     EQU UDR.ERROR TO 1  ;* general error 
     EQU UDR.ERROR.HOTBAKSUB TO 2  ;* no hot-backup subscriptions found for this host 
     EQU UDR.ERROR.FILELIST TO 3  ;* failed to build a file list for this host 
     EQU UDR.ERROR.PROCESSFILE TO 4  ;* failed to access the requested file 
     EQU UDR.ERROR.SENDBUCKET TO 5  ;* problem with bucket or building bucket 
     EQU UDR.ERROR.NOMOREBUCKETS TO 6  ;* no more buckets left to send 
     EQU UDR.ERROR.SENDUPDATE TO 7  ;* failed to find data record 
     EQU UDR.ERROR.RESETFILE TO 8  ;* failed to reset file header 
     EQU UDR.ERROR.COMPETE TO 9  ;* failed to finish sync cleanup 
     EQU UDR.FILEOPENFAILED TO 10 ;* failed to open file 
     EQU UDR.RECEXISTS TO 11 ;* the record already exists 
     EQU UDR.RECNOTEXISTS TO 12 ;* the record does not exist 
     EQU UDR.WRITEFAILED TO 13 ;* the write has failed 
     EQU UDR.READFAILED TO 14 ;* the read has failed 
     EQU UDR.DELETEFAILED TO 15 ;* the delete has failed 
     EQU UDR.MACHINENOTHOTBACKUP TO 16 ;* the machine is not the hotbkacup machine