I don't want to parse it. That was the original point of the post. I want it parsed by IBM into a stem or something so that my code is not dependant on the format of the LISTCAT printer output, which could possibly change. It wasn't an "how do I" question. I already have REXX code to do IGGCSI00 and LISTCAT parsing. This was "blue sky" about some way for it to be easier than IGGCSI00 and more reliable than parsing. Sorry if I wasn't clear on that.
-- 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:59 AM > To: [email protected] > Subject: Re: musings on listing a catalog > > The info is in a stem variable (trap.) > > You just have to parse out what you want. > > > > /* 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 Exit 4 > > > > true = 1 > > false = 0 > > Found_ATTRIBUTES = false > > Found_Data = false > > KeyLen='?' > > CiSize='?' > > RKP ='?' > > > > Do i = 1 to trap.0 > > If Found_ATTRIBUTES then Do > > Info = strip(translate(trap.i,' ','-'),'B') > > If pos('KEYLEN',trap.i) > 0 then parse var Info . > 'KEYLEN' KeyLen . > > If pos('CISIZE',trap.i) > 0 then parse var Info . > 'CISIZE' CiSize . > > If pos('RKP',trap.i) > 0 then parse var Info . 'RKP' > RKP . > > End > > If Found_Data then > > If word(trap.i,1) = 'ATTRIBUTES' then Found_ATTRIBUTES = true > > If word(trap.i,1) = 'DATA' then Found_Data = true > > End > > Say 'KeyLen='KeyLen > > Say 'CiSize='CiSize > > Say 'RKP ='RKP > > Exit 0 > > > > Pete > > > > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of McKown, John > Sent: Tuesday, July 26, 2011 11:26 AM > To: [email protected] > 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 > > ________________________________ > 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
