home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMOFLS.ZIP / GETERR.C < prev    next >
Text File  |  1991-06-01  |  1KB  |  34 lines
  1. /*****************************-DIRECTIVES-**********************************/
  2.     #include <stdio.h>
  3.     #include <stdlib.h>
  4.     #include <sql.h>
  5.     #include <sqlenv.h>
  6.     #include <sqlca.h>
  7. #define MESG_BUFSIZE 512
  8. #define LINE_WIDTH 80
  9. /*****************************************************************************/
  10. void far pascal get_error(sqlca, instr )
  11. struct sqlca *sqlca;
  12. char instr[];
  13. {
  14. unsigned char mesgtxt[MESG_BUFSIZE];
  15. short mesg_len;
  16.     printf("\nQUERY %s", instr);
  17.     /* retreive error message */
  18.     if (sqlca->sqlcode != 0l) {
  19.         mesg_len = sqlaintp(mesgtxt, MESG_BUFSIZE, LINE_WIDTH, sqlca);
  20.         if (mesg_len > 0) {
  21.            if(sqlca->sqlcode = 100)
  22.                printf("has no more rows");
  23.            else {
  24.            printf( "\n%s",  mesgtxt);
  25.            }
  26.         } /* error message retreived */
  27.         else
  28.            printf("\n>>>error retreival error len =%d", mesg_len);
  29.     }
  30.     else printf("completed successfully");
  31.  return;
  32. } /* end get_error */
  33. /*****************************************************************************/
  34.