truncate(fname,fsize)
char *fname;
long fsize;
{
  int whandle;

  whandle = jzopnfil(fname,2);

  if (whandle < 0) return(-1);
  else {
    chsize(whandle,fsize);
    jzclsfil(whandle);
    return(0);
  }
}
