home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / iutil / batchxtra.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-23  |  577 b   |  36 lines
  1. # include    <ingres.h>
  2. # include    <aux.h>
  3. # include    <symbol.h>
  4. # include    <access.h>
  5. # include    <batch.h>
  6. # include    <sccs.h>
  7.  
  8. SCCSID(@(#)batchxtra.c    8.1    12/31/84)
  9.  
  10. rmbatch()
  11. {
  12.     char        *batchname();
  13.     register char    *p;
  14.     register int    i;
  15.  
  16.     p = batchname();
  17.     if (i = close(Batch_fp))
  18.         syserr("rmbatch:can't close %s %d", p, i);
  19.     if (i = unlink(p))
  20.         syserr("rmbatch:can't unlink %s %d", p, i);
  21.     Batchhd.mode_up = 0;
  22.     return (0);
  23. }
  24. /*
  25. **  BATCHNAME -- create batch file name
  26. */
  27.  
  28. char *
  29. batchname()
  30. {
  31.     extern char    *Fileset;
  32.     extern char    *ztack();
  33.  
  34.     return(ztack("_SYSbatch", Fileset));
  35. }
  36.