SQTMP
if ((ret = access(SQTMP, 0)) != 0) {
ret = link(SQTMP, SQFILE);
unlink(SQTMP);
unlink(SQTMP);
if ((fp1 = fopen(SQTMP, "w")) == NULL) {
chmod(SQTMP, DFILEMODE);
unlink(SQTMP);