wrform
wrform (pf->name, pf, 1, onerror, which_set);
int wrform ( char * , FORM * , int , err_hndlr , int * );
if (wrform(name, formp, fd, 0, (int *)0) == -1) {