!x = array()
do
id@
handle any
golabel /finish
endhandle
enhance ce
!x.append(!!ce.refno.nam)
enddo
label /finish
!alert = !!alert.Confirm('Are you sure')
if !alert eq 'YES' then
do !z values !x
$!z
!typ = !!ce.type
delete $!typ
enddo
endif