proc writerec(iter);
   format /rdn 16,0;
   print iter;; 
   format /re 16,7;
   print wtlog;;
   print pri;;
   print pdat;
   print gc;
   retp("");
endp;