My solution, coded many years ago:-
WORKLEN = 2048
- - - - - - - - - - - - - - - - - - 15 Line(s) not Displayed
DO WHILE RESUME = 'Y'
You should get an error code if your workarea is too small and a value of what
size you need. Bigger is better.
Hanging? Did you cause it to scan all your catalogs which takes a fair amount
of time?
Not working? It has always worked for me, but I did not always get the results
I wanted if I a
It may be that your WORK area is too small. I had issues with the CSI code
hanging or just plain not working. I used the following values and it helped.
WORKLEN = 64000
dwork = 'FA00'X || COPIES('00'X,WORKLEN-4)
LDO
SYS1.SAMPLIB(IGGCSIRX) is the IBM sample I started with and found it does
not handle multiple catalogs well. To help myself with breaking down the
workarea I coded this:
http://www.ktomiak.biz/ORG/STUFF/tips/REXX003.html
--
For
The z/OS Java SDK - JZOS toolkit contains a nice wrapper for IGGCSI00 and
also an api for reading DSCBs. There are sample programs available (see
IBM link below).
We also plan on releasing an update to the JZOS Cookbook which contains a
z/OS Java web service to using IGGCSI00, and a sample rich
Thanks to Dr. Michael Ebert from the DB2 world, I have a good example of what I
am trying to do with CSI. His code is located on www.idug.org.
His process combines CSI REXX with SAS to produce a nice report. I will use
that as a base and continue from there.
The modifications I had been makin
Lizette,
File 183 of the CBT tape contains two REXX execs (called XDELETE and XRENAME)
which use IGGCSI00 to retrieve VSAM and non-VSAM info.
They're both available here : http://gsf-soft.com/Freeware/
XDELETE was published on TSO-REXX in 1998 - you'll find it here :
http://www.google.com/sea
Thanks for the response.
I am working with just VSAM at this time. However, I will enhance the code to
verify if it vsam or non-vsam and then call the appropriate routines (either
IGGCSI00 or LISTDSI).
Lizette
>On Friday 06 March 2009, Lizette Koehler wrote:
>> I am cross posting this to IBM
On Friday 06 March 2009, Lizette Koehler wrote:
> I am cross posting this to IBM Main incase there are folkes out there that
> use CSI more than the TSO REXX group does.
>
> Lizette
>
> >I have been working with the sample in SYS1.SAMPLIB as well as Mark
> > Zelden's version called catsearch. I wa
Unless you completely changed the code that loops though the work area,
what you changed will not work.
Have a really good look at CSI user guide in z/OS DFSMS Managing
Catalogs appendix C section 5:
C.5 Return Work Area Format
Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Te
Ooops. Sorry I didn't notice you already padded those fields.
I said it was a quick glance. :-)Off to my meeting now...
Mark
On Fri, 6 Mar 2009 09:13:51 -0600, Mark Zelden wrote:
>Just at first glance...
>
>I know the requested filed names must be 8 bytes or padded.
>The sample and my
Just at first glance...
I know the requested filed names must be 8 bytes or padded.
The sample and my exec have:
CSIFLD1= SUBSTR('VOLSER',1,8)
But you can use:
CSIFLD1 = 'VOLSER '|| 'XHARBA '|| 'XHARBADS' || 'XHKRBA '
I don't know if that is your only problem.
--
Mark Zelde
I am cross posting this to IBM Main incase there are folkes out there that use
CSI more than the TSO REXX group does.
Lizette
>
>I have been working with the sample in SYS1.SAMPLIB as well as Mark Zelden's
>version called catsearch. I want to include the information on High RBA on
>VSAM dat
13 matches
Mail list logo
