proc writerec(iter);
   format /rdn 16,0;
   print iter;; 
   format /re 16,7;
   print wtlog;;
   print dum;;
   print dum;
   print g;
   retp("");
endp;