#include int sysrewc_(chnl) int *chnl; { int ierr; ierr=(int) lseek(*chnl,0L,0); return(ierr); }