//*****************************************************************************
//*** DB2_DRV.PKG                                                           ***
//***                                                                       ***
//*** Author: Ben Weijers                                                   ***
//***         Data Access Nederland                                         ***
//***         30 July 1998                                                  ***
//***                                                                       ***
//*** Purpose:                                                              ***
//***   Package that declares DB2 driver constants and functions.           ***
//****                                                                      ***
//***   This package can be used by developers who want to add DB2 driver   ***
//***   specific code to a DataFlex application.                            ***
//*****************************************************************************

Use Cli.pkg

//*** Driver Indentification
#REPLACE DB2_DRV_ID  "DB2_DRV"

//*** Error number constants
#REPLACE DB2_GENERAL_ERROR                            CLIERR_GENERAL_ERROR
#REPLACE DB2ERR_CANT_INITIALIZE                       CLIERR_CANT_INITIALIZE
#REPLACE DB2ERR_CANT_DEINITIALIZE                     CLIERR_CANT_DEINITIALIZE
#REPLACE DB2ERR_BAD_OR_NO_PRIMARY_INDEX_SPECIFIED     CLIERR_BAD_OR_NO_PRIMARY_INDEX_SPECIFIED
#REPLACE DB2ERR_LOGIN_UNSUCCESSFUL                    CLIERR_LOGIN_UNSUCCESSFUL
#REPLACE DB2ERR_LOGOUT_UNSUCCESSFUL                   CLIERR_LOGOUT_UNSUCCESSFUL
#REPLACE DB2ERR_TABLE_NOT_IN_CONNECTION               CLIERR_TABLE_NOT_IN_CONNECTION
#REPLACE DB2ERR_NULL_VALUE_NOT_ALLOWED                CLIERR_NULL_VALUE_NOT_ALLOWED
#REPLACE DB2ERR_SEGMENT_NUMBER_RANGE                  CLIERR_SEGMENT_NUMBER_RANGE
#REPLACE DB2ERR_INDEX_NUMBER_RANGE                    CLIERR_INDEX_NUMBER_RANGE
#REPLACE DB2ERR_LOGIN_ATTRIBUTE_MUST_BE_SET           CLIERR_LOGIN_ATTRIBUTE_MUST_BE_SET
#REPLACE DB2ERR_PHYSICAL_NAME_MUST_BE_SET             CLIERR_PHYSICAL_NAME_MUST_BE_SET
#REPLACE DB2ERR_INVALID_REGISTRATION_FILE             CLIERR_INVALID_REGISTRATION_FILE
#REPLACE DB2ERR_LICENSE_EXPIRED                       CLIERR_LICENSE_EXPIRED
#REPLACE DB2ERR_DEADLOCK_OR_TIMEOUT                   CLIERR_DEADLOCK_OR_TIMEOUT

//*** Call driver function identifiers
#REPLACE DB2_CHECK_TRIGGERS         0

//*** Extra DB2 commands


//*****************************************************************************
//*** DB2_CheckTrigger <NewState>                                           ***
//***                                                                       ***
//*** This command will set the trigger check at open on or off.            ***
//*****************************************************************************

#COMMAND DB2_CheckTrigger R .
    Call_driver 0 DB2_DRV_ID Function DB2_Check_Triggers Callback 0 Passing CLI$StrDummy CLI$StrDummy !1 Result CLI$IntDummy
#ENDCOMMAND


//*****************************************************************************
//*** DB2_SetConstraint <FileNum> <ConstraintText>                          ***
//***                                                                       ***
//***   Setup a constraint for a file.                                      ***
//*****************************************************************************

#COMMAND DB2_SetConstraint R R .
    CLI_SetConstraint !1 !2 DB2_DRV_ID
#ENDCOMMAND