I agree with Christopher. I designed an Assembler Macro that built an exit exit module. A few seconds to Assemble. GET on a sequential file, pass to sort if required. RC = 8 when you get past the desired key value.
Of course if you are not sorting, add a PUT instead of a return. On Thu, Sep 17, 2020 at 10:28 AM Christopher Y. Blaicher < [email protected]> wrote: > You could also use an E15 and return an 8 when you get past the > interesting data. > > Chris Blaicher > Technical Architect > Precisely.com > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Peter Van Dyke > Sent: Wednesday, September 16, 2020 8:20 PM > To: [email protected] > Subject: Re: SORT selection question > > [ External - This message originated Externally. Use proper judgement and > caution with attachments, links, or responses. ] > > Hi Peter, > > If you have IBM File Manager you could do what you need with the Data Set > Copy (DSC) function and an enhanced processing procedure: > > $$FILEM DSC INPUT=DDIN, > $$FILEM OUTPUT=DDOUT, > $$FILEM PROC=* > IF FLDI(1,3,C,'GT',"ABC") THEN > RETURN STOP IMMEDIATE /* Stop processing */ > /+ > > Regards, > Peter Van Dyke > > On Thu, 17 Sep 2020 at 07:32, Paul Gilmartin < > [email protected]> wrote: > > > On Thu, 17 Sep 2020 08:58:59 +1000, Wayne Bickerdike > > <[email protected]> > > wrote: > > > > >Not sure how a sequential file has a "KEY". It may be a value in > > >fixed columns. > > > > > I find "KEY" used apparently in that sense in numerous places in: > > z/OS Version 2 Release 4 DFSORT Application Programming Guide IBM > > SC23-6878-40 > > > > >I'm sure it's why we've been sorting files for donkeys years. > > > > -- gil > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
