Fairly "simple" to achieve as a REXX external function in assembler by calling IGGCSI00 and then IRXEXCOM to create the REXX variables.
There is some decent doc on how to code REXX external functions in the "TSO/E REXX Programming Services" chapter in the TSO/E Rexx Reference manual and there a quite a few samples out there in CBTtape-land. Rob Scott Lead Developer Rocket Software 275 Grove Street * Newton, MA 02466-2272 * USA Tel: +1.617.614.2305 Email: [email protected] Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of McKown, John Sent: 26 July 2011 17:06 To: [email protected] Subject: Re: musings on listing a catalog > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Kirk Wolf > Sent: Tuesday, July 26, 2011 10:46 AM > To: [email protected] > Subject: Re: musings on listing a catalog > > On Tue, Jul 26, 2011 at 9:51 AM, McKown, John > <[email protected] > > wrote: > > > OK. I've looked at IGGCSI00. Way to complicated, IMO. REXX > is supposed to > > make things __simple__. creating and decoding buffers in a > REXX variable > > "blob" is not my idea of simple. > > > > > Isn't this how REXX deals with record/field data structures? :-) I was thinking more how the SDSF REXX and UNIX REXX work. Not with "blobs", but with stem variables and predefined named "constants". The environments are by initialized by invoking an initialization routine (ISFCALLS or SYSCALLS). Gee, for a LISTCAT, would it be "CATCALLS"? <grin> No, more likely "IDCCALLS". Example: if 3 < idccalls('on') then do say "Failed to set up catalog environment" exit 8 end cluster="'"SOME.VSAM.CLUSTER.NAME"'" address idcams "listc ent((cluster)) (stem outrec." if rc<>0 then say "LISTC ended with a return code of "rc if outrec.ENT_DSORG <> "KSDS" then say "Dataset:"cluster" is not a VSAM KSDS file!" say "avgrec is "word(outrec.ENT_RECORDSIZE,1)" max lrecl is "word(outrec.ENT_RECORDSIZE,2) Say "Volume are:" do i=1 to outrec.ENT_NUM_VOLUMES say "Volume "i" is "outrec.ENT_VOLUME.i end /* or maybe */ do i=1 to words(outrec.ENT_VOLUMES) say "Volume "i" is "word(outrec.ENT_VOLUMES,i) end Now, that is relatively simple. > > Take a look at the JZOS wrapper for CSI; it handles decoding of > fields, but still requires an understanding of how CSI works - > > http://www.ibm.com/developerworks/java/zos/javadoc/jzos/com/ib > m/jzos/CatalogSearch.html > http://www.ibm.com/developerworks/java/zos/javadoc/jzos/com/ib > m/jzos/CatalogSearch.Entry.html > http://www.ibm.com/developerworks/java/zos/javadoc/jzos/com/ib > m/jzos/CatalogSearchField.html > > An interesting coding project would be to write a Java utility that > would > provide an XML interface to CSI, using this wrapper. > Perhaps we should > consider it as a future JZOS sample program. > > Kirk Wolf > Dovetailed Technologies > http://dovetail.com -- 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 ---------------------------------------------------------------------- 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
