nm992,
You can use DFSORT statements like this:
OPTION COPY
INCLUDE COND=(1,n,SS,EQ,C'Apple')
where n is the LRECL of your input file.
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:
http://www.ibm.com/support/docview.wss? ... g3T7000080