it appears to be true that moving the equates (cut/past) into the program .. things work. I have just modified 4 routines and all is well.
This started last friday and spent most all the day chasing this down. DSig David Tod Sigafoos SigsSolutions, Inc. > -------- Original Message -------- > Subject: RE: [U2] Include Equate record Errors Compiler > From: "Kevin King" <[EMAIL PROTECTED]> > Date: Mon, March 14, 2005 9:03 am > To: <u2-users@listserver.u2ug.org> > > 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/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
