insert in list body
insert(plistname,*ppredecessor,newpointer);
*pdone = TRUE;