/*                                                                   rexx
 Unique
 Edit macro - delete duplicate lines
*/

 Address Isredit "MACRO NOPROCESS (PRM)"
 Address Isredit
 sf.=''
 "reset"

 /* scan data */
 "(lines) = linenum .zl"
 dn=0
 Do lnr=1 to lines
   "(s) = Line (lnr)"
   s='a'strip(s,'t')
   if sf.s<>'' then do
     "label" lnr "= .xdup"
     "flip .xdup"
     dn=dn+1
   end
   else sf.s=lnr
 End
 "delete all x"

 exit xmsg(dn 'lines deleted')

XMSG:
 parse arg zedlmsg
 address ispexec"setmsg msg(isrz000)"
 return 0