Pamela I think all you need is to replace the use and copy to with the selected code. Hope this helps.

SCAN
......
...
.
SELECT 0
USE (tmpfile)
COPY TO &tmpfile2 type delimited
USE IN (tmpfile)
SELECT ZoneList
ENDSCAN