3 files changed, 100 insertions, 1 deletions
diff --git a/src/util/sqlinfoprint.c b/src/util/sqlinfoprint.c
new file mode 100644
index 0000000..8e0ae07
--- a/dev/null
+++ b/src/util/sqlinfoprint.c
@@ -0,0 +1,73 @@
+#include "sqlinfoprint.h"
+#include <sql.h>
+#include <string.h>
+#include <stdio.h>
+
+int
+sqlinfoprint (char *appMsg, struct sqlca *pSqlca, 
+	      const char *file, const unsigned int line)
+{
+  int rc = 0;
+  char sqlInfo[1024];
+  char sqlInfoToken[1024];
+  char sqlstateMsg[1024];
+  char errorMsg[1024];
+
+  if (pSqlca->sqlcode != 0 && pSqlca->sqlcode != 100)
+    {
+      strcpy (sqlInfo, "");
+      if (pSqlca->sqlcode < 0)
+	{
+	  sprintf (sqlInfoToken, "\n---- error report ----\n");
+	  strcat (sqlInfo, sqlInfoToken);
+	}
+      else
+	{
+	  sprintf (sqlInfoToken, "\n---- warning report ----\n");
+	  strcat (sqlInfo, sqlInfoToken);
+	}
+
+      sprintf (sqlInfoToken, " app. message = %s\n", appMsg);
+      strcat (sqlInfo, sqlInfoToken);
+      sprintf (sqlInfoToken, " line = %i\n", line);
+      strcat (sqlInfo, sqlInfoToken);
+      sprintf (sqlInfoToken, " file = %s\n", file);
+      strcat (sqlInfo, sqlInfoToken);
+      sprintf (sqlInfoToken, " SQLCODE = %li\n", pSqlca->sqlcode);
+      strcat (sqlInfo, sqlInfoToken);
+      /* get error message */
+      rc = sqlaintp (errorMsg, 1024, 80, pSqlca);
+      /* return code is the length of the errorMsg string */
+      if (rc > 0)
+	{
+	  sprintf (sqlInfoToken, " %s\n", errorMsg);
+	  strcat (sqlInfo, sqlInfoToken);
+	}
+
+      /* get SQLSTATE message */
+      rc = sqlogstt (sqlstateMsg, 1024, 80, pSqlca->sqlstate);
+      if (rc == 0)
+	{
+	  sprintf (sqlInfoToken, "%s", sqlstateMsg);
+	  strcat (sqlInfo, sqlInfoToken);
+	}
+
+      if (pSqlca->sqlcode < 0)
+	{
+	  sprintf (sqlInfoToken, "--- end error report ---\n");
+	  strcat (sqlInfo, sqlInfoToken);
+	  printf ("%s", sqlInfo);
+	  return 1;
+	}
+      else
+	{
+	  sprintf (sqlInfoToken, "-- - end warning report-- - \n ");
+	  strcat (sqlInfo, sqlInfoToken);
+	  printf ("%s", sqlInfo);
+	  return 0;
+	}
+
+    }
+
+  return 0;
+}