Forget my previous idea. Are you saying that if you bring in the lines from the includes into the main program (and comment out the $include lines) that it works?
-Kevin [EMAIL PROTECTED] http://www.PrecisOnline.com -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Monday, March 14, 2005 9:25 AM To: U2 Users List Subject: [U2] Include Equate record Errors Compiler Okay .. this one has got me .. The program below will not compile. It compiler responds with .. *-- 01 basic DAVES.BP DEMO.MV Compiling: Source = 'DAVES.BP/DEMO.MV', Object = 'DAVES.BP.O/DEMO.MV' ********************************************************************** **?**** 000049 if not(assigned(odbcName)) then odbcName = '' ^ End of Line unexpected, Was expecting: '!', '=', "AND", "OR", "LT", "LE", "GT", "GE", "NE", "EQ", "MATCH", "ELSE" 1 Errors detected, No Object Code Produced. *-- In the program you will see 2 equates .. $INCLUDE DAVES.BP SQL_ERRORS_EQUATES.MV $include DAVES.BP SQL_DEFAULT_CONNECTION_INFO_INCLUDE.MV If these two equates are commented out and their associated lines (immediently below them) are uncommented .. it works. Note that the ODBC.H include works. Also the SQL_COMMON_INCLUDE is ok (simple label common common /sql_common/ comBaseEnv,comConnEnv,comSqlEnv,comErrorCheckEnv) Once again .. if either of these two equates are 'included' the program fails compile. I really cant see what could be causing this. The 'equ' below the includes are cut and paste of the include files Anyone see what could be going on here? ********************************************************************** ***************** function SQL_INITENV(odbcName, odbcUser, odbcPass) * $INCLUDE DAVES.BP SQL_COMMON_INCLUDE EQU TRUE$ to 1 EQU FALSE$ to 0 EQU NULL$ to '' * UNIVERSES INCLUDE FOR DEALING WITH ODBC $INCLUDE UNIVERSE.INCLUDE ODBC.H * LOCAL INCLUDES .. $INCLUDE DAVES.BP SQL_ERRORS_EQUATES.MV ** ** Errors returned from the function (sql_write, sql_Read etc) will return ** with MV list of errors. mv1 will contain one of these codes ** ** NOTE: return will be NULL if ok .. else .. ** *EQU CONNECTION_ERROR$ TO -99 *EQU UNABLE_TO_BIND_PARAMETERS$ TO -98 *EQU UNABLE_TO_BIND_COLUMNS$ TO -97 *EQU UNABLE_TO_PREPARE$ TO -96 *EQU UNABLE_TO_READ$ TO -95 *EQU UNABLE_TO_WRITE$ TO -94 *EQU UNABLE_TO_FETCH$ TO -93 *EQU UNABLE_TO_FREE_ENV$ TO -92 *EQU INVALID_PARAMETER_PASSED$ TO -91 *EQU CRITICAL_ERROR_CHECK$ TO -90 $include DAVES.BP SQL_DEFAULT_CONNECTION_INFO_INCLUDE.MV ** **abstract: Simply holds the default login connection through ** odbc. ** **author: dsig (David Tod Sigafoos) **date: 03mar05 ** ** *DEFAULTODBCNAME$ = 'FOOBAR' *DEFAULTODBCUSER$ = 'FOOBAR' *DEFAULTODBCPASS$ = 'FOOBAR' * make sure it is assigned something .. if not(assigned(odbcName)) then odbcName = NULL$ if not(assigned(odbcUser)) then odbcUser = NULL$ if not(assigned(odbcPass)) then odbcPass = NULL$ * set to default if necessary (see SQL_DEFAULT_CONNECTION_INFO_INCLUDE) if odbcName = NULL$ then odbcName = DEFAULTODBCNAME$ if odbcUser = NULL$ then odbcUser = DEFAULTODBCUSER$ if odbcPass = NULL$ then odbcPass = DEFAULTODBCPASS$ initErrors = NULL$ * * return (initErrors) DSig David Tod Sigafoos SigsSolutions, Inc. ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
