home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / PROCWRKB.ZIP / BENCH1.ZIP / GENSUP / DOERROR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-08-07  |  1.1 KB  |  51 lines
  1. /* ==( gensup/doerror.c )== */
  2. /* ----------------------------------------------- */
  3. /* Pro-C  Copyright (C) 1988 - 1990 Vestronix Inc. */
  4. /* Modification to this source is not supported    */
  5. /* by Vestronix Inc.                               */
  6. /*            All Rights Reserved                  */
  7. /* ----------------------------------------------- */
  8. /* Written   Nig   1-Jan-90                        */
  9. /* Modified  Nig   1-Jan-90                        */
  10. /* ----------------------------------------------- */
  11. /* %W%  (%H% %T%) */
  12.  
  13.  
  14. # include <stdio.h>
  15. # include <bench.h>
  16. # include <proc.io>
  17. # include "field.h"
  18. # include "iodef.h"
  19. # include "sup.h"
  20. # include "screen.h"
  21.  
  22. /*
  23.  * Used for Error Reporting Above & Beyond
  24.  * that given by the I/O managers.
  25. */
  26. int do_error(stat)
  27. int stat;
  28. {
  29. # ifdef ERROR_REPORTING
  30.     switch (stat)
  31.     {
  32.     case IOGOOD   :
  33.         break;
  34.     case IOTOF    :
  35.         break;
  36.     case IOEOF    :
  37.         break;
  38.     case IONOKEY  :
  39.         break;
  40.     case IONONEXT :
  41.         break;
  42.     default       :
  43.         errmsg(FileErr, stat);
  44.         break;
  45.     }
  46. # endif
  47.  
  48.     return (stat);
  49. }
  50.  
  51.