Delete the lists.
TERM:
   call putlist(datalist,'Contents of list 
                after updates',0);

   if datalist then datalist=dellist
               (datalist,'y');
   if attrs then attrs=dellist(attrs);
return;