putinpub
putinpub(filename, Dfile, W_USER);
putinpub(filename, Dfile, W_USER);
extern int wmesg(), rmesg(), expfile(), putinpub(), stptcl();
putinpub(filename, Dfile, BASENAME(W_USER,'!'));
status = putinpub(filename, Dfile,
if (putinpub(fout, dfile, origuser) == 0)
if (putinpub(ferr, errDfile, origuser) == 0) {