home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / SqlPrint.ec < prev    next >
Encoding:
Text File  |  1997-03-27  |  1.7 KB  |  52 lines
  1. /*---------------------------------------------------------------------------
  2.  *
  3.  * Copyright (c) 1994 by Westmount Technology B.V., Delft, The Netherlands.
  4.  *
  5.  * This software is furnished under a license and may be used only in
  6.  * accordance with the terms of such license and with the inclusion of
  7.  * the above copyright notice. This software or any other copies thereof
  8.  * may not be provided or otherwise made available to any other person.
  9.  * No title to and ownership of the software is hereby transferred.
  10.  *
  11.  * The information in this software is subject to change without notice
  12.  * and should not be construed as a commitment by Westmount Technology B.V.
  13.  *
  14.  *---------------------------------------------------------------------------
  15.  *
  16.  *    File        : @(#)SqlPrint.ec    /main/hindenburg/1
  17.  *    Original date    : Mon Feb 21 14:51:12 MET 1994
  18.  *    Description    : General error handling function
  19.  *                        taken from examples in INFORMIX ESQL/C manual
  20.  *
  21.  *---------------------------------------------------------------------------
  22.  */
  23. static const char SccsId[]="@(#)SqlPrint.ec    /main/hindenburg/1 27 Mar 1997 Copyright 1994 Westmount Technology";
  24.  
  25. #ifndef SQLPRINT_HXX
  26. #include "SqlPrint.hxx"
  27. #endif
  28.  
  29. #ifndef INFORMIX_HXX
  30. #include "Informix.hxx"
  31. #endif
  32.  
  33. #include <iostream.h>
  34.  
  35. void sqlprint()
  36. {
  37.     char errmsg[400];
  38.  
  39.     int msg_num = rgetmsg((short)sqlca.sqlcode, errmsg, (short)sizeof(errmsg));
  40.     if (msg_num == 0)
  41.         cerr << errmsg ;
  42.     else
  43.         cerr << "(Unknown error message)" << endl;
  44.  
  45.     if(sqlca.sqlerrd[1] != 0) {
  46.         cerr << "The ISAM code is " << sqlca.sqlerrd[1] << endl;
  47.         rgetmsg((short)sqlca.sqlerrd[1], errmsg, sizeof(errmsg));
  48.         cerr << "The ISAM message is: " << errmsg << endl;
  49.     }
  50. }
  51.  
  52.