> -----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
