EXEC SQL WHENEVER SQLERROR CALL ingerr;
+#ifdef _DEBUG_MALLOC_INC
+#undef index
+#define dbg_index(str1,c) DBindex(__FILE__, __LINE__, str1, c)
+#else
+#define dbg_index index
+#endif
/* Validation Routines */
int id;
EXEC SQL END DECLARE SECTION;
int status;
- char *index();
register char *c;
/* get named object */
if (sqlca.sqlerrd[2] != 1) return(MR_TYPE);
/* now retrieve the record id corresponding to the named object */
- if (index(data_type, ' '))
- *index(data_type, ' ') = 0;
+ if (dbg_index(data_type, ' '))
+ *dbg_index(data_type, ' ') = 0;
if (!strcmp(data_type, "user")) {
/* USER */
- if (index(name, '@'))
+ if (dbg_index(name, '@'))
return(MR_USER);
status = name_to_id(name, data_type, &id);
if (status && (status == MR_NO_MATCH || status == MR_NOT_UNIQUE))