home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8707 / 62 / vmsperror.c < prev   
Encoding:
C/C++ Source or Header  |  1990-07-13  |  491 b   |  27 lines
  1. #include <stdio.h>
  2.  
  3. #include "dsc.h"
  4.  
  5. extern int vmserrno;
  6.  
  7. vmsperror(s)
  8.     char *s;
  9. {
  10.     int status;
  11.     unsigned short len;
  12.     struct dsc dsc;
  13.     char buf[128];
  14.  
  15.     dsc.d_buf = buf;
  16.     dsc.d_len = sizeof(buf);
  17.     len = 0;
  18.     if (((status = sys$getmsg(vmserrno, &len, &dsc, 0xf, 0)) & 1) == 0) {
  19.         sprintf(buf, "0x%x (0x%x)", vmserrno, status);
  20.         len = strlen(buf);
  21.     }
  22.     write(fileno(stderr), s, strlen(s));
  23.     write(fileno(stderr), ": ", 2);
  24.     write(fileno(stderr), buf, len);
  25.     write(fileno(stderr), "\n", 1);
  26. }
  27.