No cost and I was hoping for an assembler program. But if I don't get one this REXX will do the trick, thanks!
Richard, Vickie, and Randy Pinion --- [email protected] wrote: From: "McKown, John" <[email protected]> To: [email protected] Subject: Re: utility type program Date: Tue, 17 Aug 2010 09:38:52 -0500 > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Richard Pinion > Sent: Tuesday, August 17, 2010 9:16 AM > To: [email protected] > Subject: utility type program > > I am looking for a utility type program that will let me > select records from a > sequential data set, FB or VB. I need selection criteria of > starting position, > length, type, and value. I know sort has include/omit, but > at this time I > cannot use sort. I have searched the cbt tape, but I can't > find a program to > do what I'm looking for. Do you need no-cost? If not, Compuware's FileAid. Zero cost - use REXX. /* rexx */ do forever "execio 1 diskr sysut1" if rc<> 0 then leave parse pull record if 'xxx' = substr(record,10,3) then iterate /* ignore xxx records */ push record "execio 1 diskw sysut2" end "execio 0 diskr sysut1(finis" "execio 0 diskw sysut2(finis" -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-691-6183 cell [email protected] * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html _____________________________________________________________ Netscape. Just the Net You Need. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
