John: I dont see why you couldnt do this is Rexx. Rexx is good for filtering data, have used it for a lot of system day like SYSLOGs, STC logs..etc ...
Scott J Ford Software Engineer http://www.identityforge.com ________________________________ From: "McKown, John" <[email protected]> To: [email protected] Sent: Tuesday, July 26, 2011 11:25 AM Subject: Re: musings on listing a catalog Interesting, thanks. But I want to take action in the script based on things such as KEYS, RKP, percentfree, and so on. Just presenting the LISTC output in a screen doesn't help. I can get that from 3.4 and doing an "I" in front of the cluster. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * [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 > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Pete Hartung > Sent: Tuesday, July 26, 2011 10:08 AM > To: [email protected] > Subject: Re: musings on listing a catalog > > 1) REXX - It would be nice if I could do the equivalent of a > LISTCAT and get the parsed output back in a stem variable. Or > super enhance LISTDSI to work with VSAM cluster. > > Save this REXX as LCXX. > Go to 3.4 > Issue command LCXX > Stem variable trap. Contains LISTCAT output > > /* REXX - LCX - Display listcat results */ > /*----------------------------------------------------------------*/ > Dsn = strip(arg(1),'B',"'") > Call Outtrap(trap.) > "LISTCAT ENT('"Dsn"') ALL " > Call outtrap("OFF") > If trap.0>0 Then > Do > Address ispexec 'VGET (ZSCREEN) SHARED' > ddn='$TRAP$'zscreen > 'ALLOC F('ddn') UNIT(VIO) DSO(PS) RECFM(V B) LRECL(255) > NEW DEL REU' > 'EXECIO 'trap.0' DISKW 'ddn' (FINIS STEM TRAP.' > Address ispexec 'LMINIT DATAID(TRAP) DDNAME('ddn') ENQ(SHR)' > Address ispexec 'VIEW DATAID('trap')' > Address ispexec 'LMFREE DATAID('trap')' > 'FREE F('ddn')' > End > > Pete > > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of McKown, John > Sent: Tuesday, July 26, 2011 9:51 AM > To: [email protected] > Subject: musings on listing a catalog > > > Disclaimer: This e-mail message is intended only for the > personal use of > the recipient(s) named above. If you are not an intended > recipient, you > may not review, copy or distribute this message. If you have > received this > communication in error, please notify us immediately by > e-mail and delete > the original message. > > This e-mail expresses views only of the sender, which are not to be > attributed to Rite Aid Corporation and may not be copied or > distributed > without this statement. > > ---------------------------------------------------------------------- > 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 > > ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
