How to use CSI Catalog Search Interface

[Lizette Koehler]

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 data sets. When I add in what I think is correct I get garbage. I am reading Appendix C in the DFSMS Managing Catalogs manual which is where it talks about the CSI.

Has anyone written a CSI in REXX and can help me over come my short comings in coding this?

I set up the following code (excerpt)

CSIRESRV = SUBSTR(' ',1,1) /* CLEAR RESERVE CHARACTER */
CSINUMEN = '0004'X /* INIT NUMBER OF FIELDS */
XHARBA = 'XHARBA '
XHARBADS = 'XHARBADS'
XHKRBA = 'XHKRBA '
VOLSER = 'VOLSER '
CSIFLD1 = VOLSER || XHARBA || XHARBADS || XHKRBA
/********************************************************************/
/* */
/* BUILD THE SELECTION CRITERIA FIELDS PART OF PARAMETER LIST */
/* */
/********************************************************************/
CSIOPTS = CSICLDI || CSIRESUM || CSIS1CAT || CSIRESRV
CSIFIELD = CSIFILTK || CSICATNM || CSIRESNM || CSIDTYPS || CSIOPTS
CSIFIELD = CSIFIELD || CSINUMEN || CSIFLD1

Then I issue the

ADDRESS LINKPGM 'IGGCSI00 MODRSNRC CSIFIELD DWORK'
RESUME = SUBSTR(CSIFIELD,150,1) /* GET RESUME FLAG FOR NEXT LOOP */
USEDLEN = C2D(SUBSTR(DWORK,9,4)) /* GET AMOUNT OF WORK AREA USED */
POS1=15 /* STARTING POSITION */

Then I loop through. For some reason the base code without my changes works (it only goes after the VOLSER). However with the additions of the XHARBA, XHKRBA and XHARBADS, and adjusting the CSINUNEN from '0001'x to '0004'x it is not doing what I want. All fields are 8 chars long padded with blanks on the right.

If someone would have some samples of code to share I would be appreciative.

Lizette

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Mark Zelden]

Lizette,

Even though this is a REXX example, you would probably have better luck
and a bigger audience for this sort of thing on IBM-MAIN where people
use the CSI more. If I get a chance I'll have a look later on.

Cheers,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at
http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

Lizette Koehler
<starsoul@MINDSPR
ING.COM> To
Sent by: TSO REXX TSO-...@VM.MARIST.EDU
Discussion List cc
<TSO-...@VM.MARI
ST.EDU> Subject
How to use CSI Catalog Search
Interface
03/06/2009 08:49
AM

Please respond to
Lizette Koehler
<starsoul@mindspr
ing.com>

Then I issue the

Lizette

******************* PLEASE NOTE *******************
This E-Mail/telefax message and any documents accompanying this
transmission may contain privileged and/or confidential information and is
intended solely for the addressee(s) named above. If you are not the
intended addressee/recipient, you are hereby notified that any use of,
disclosure, copying, distribution, or reliance on the contents of this
E-Mail/telefax information is strictly prohibited and may result in legal
action against you. Please reply to the sender advising of the error in
transmission and immediately delete/destroy the message and any
accompanying documents. Thank you.

[Mark Zelden]

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 Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at
http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

Mark Zelden
<mark.zelden@ZURI
CHNA.COM> To

Sent by: TSO REXX TSO-...@VM.MARIST.EDU
Discussion List cc
<TSO-...@VM.MARI
ST.EDU> Subject

Re: How to use CSI Catalog Search
Interface
03/06/2009 09:00
AM

Please respond to
TSO REXX
Discussion List
<TSO-...@VM.MARI
ST.EDU>

[Mark Zelden]

Ooops. Sorry I didn't notice you already padded those fields.

I said it was a quick glance. :-) Off to my meeting now...

Mark

--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO

mailto:mark....@zurichna.com O

z/OS Systems Programming expert at
http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

Mark Zelden
<mark.zelden@ZURI
CHNA.COM> To
Sent by: TSO REXX TSO-...@VM.MARIST.EDU
Discussion List cc
<TSO-...@VM.MARI
ST.EDU> Subject
Re: How to use CSI Catalog Search
Interface

03/06/2009 09:12

[Mark Zelden]

2nd glance:

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 Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at
http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

Mark Zelden
<mark.zelden@ZURI
CHNA.COM> To
Sent by: TSO REXX TSO-...@VM.MARIST.EDU
Discussion List cc
<TSO-...@VM.MARI
ST.EDU> Subject
Re: How to use CSI Catalog Search
Interface

03/06/2009 09:12

[Michael Ebert]

Hi Lizette,

a couple of years ago I placed a combo REXX/SAS program on The Code Place
of idug.org. The REXX uses iggcsi00 to extract catalog info and write it
into a flat file and the SAS program parses it. Maybe it will help you
find the problem in your code. Filter by 'Ebert' on The Code Place.

Dr. Michael Ebert
DB2 & Oracle Database Administrator
aMaDEUS Data Processing
Erding / Munich, Germany

Lizette Koehler <star...@MINDSPRING.COM>
To
TSO-...@VM.MARIST.EDU
cc

bcc

Subject
[TSO-REXX] How to use CSI Catalog Search Interface

Lizette Koehler <star...@MINDSPRING.COM>
Please respond to : Lizette Koehler <star...@mindspring.com>
Sent by: TSO REXX Discussion List <TSO-...@VM.MARIST.EDU>
06-03-09 15:49

Then I issue the

Lizette

IMPORTANT - CONFIDENTIALITY NOTICE - This e-mail is intended only for
the use of the individual or entity shown above as addressees. It may
contain information which is privileged, confidential or otherwise
protected from disclosure under applicable laws. If the reader of this
transmission is not the intended recipient, you are hereby notified that
any dissemination, printing, distribution, copying, disclosure or the
taking of any action in reliance on the contents of this information is
strictly prohibited. If you have received this transmission in error,
please immediately notify us by reply e-mail or using the address below
and delete the message and any attachments from your system.

Amadeus Data Processing GmbH
Geschäftsführer: Eberhard Haag
Sitz der Gesellschaft: Erding
HR München 48 199
Berghamer Strasse 6
85435 Erding
Germany

[Lizette Koehler]

Michael,

Thanks, I will signup with IDUG and retrieve the code.

Lizette

>
>Hi Lizette,
>
>a couple of years ago I placed a combo REXX/SAS program on The Code Place
>of idug.org. The REXX uses iggcsi00 to extract catalog info and write it
>into a flat file and the SAS program parses it. Maybe it will help you
>find the problem in your code. Filter by 'Ebert' on The Code Place.
>
>

----------------------------------------------------------------------

[Gilbert Saint-Flour]

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/search?&q=iggcsi00+xdelete

--
Gilbert Saint-Flour
GSF Software
http://gsf-soft.com/

[Veilleux, Jon L]

I tried this and keep getting RC(8) on the LMOPEN even though allocation
and LMINIT get RC(0). Does anyone see what I am doing wrong?

ddnam1='PANPDS'
address tso "ALLOC FI("ddnam1") LRECL(80) BLKSIZE(8880) DIR(6) NEW REU",
"CYLINDERS SPACE(5 6) RECFM(F) UNIT(VIO)"
If RC > 0
Then do
say 'ALLOC failed for Panel lib'
End
Address ISPEXEC "LMINIT DATAID(pan) DDNAME("ddnam1")"
If RC > 0
Then do
say 'LMINIT failed for panel lib'
End
Address ISPEXEC "LMOPEN DATAID("pan") OPTION(OUTPUT)"
If RC > 0
Then do
say 'LMOPEN failed for panel lib'
End



Jon L. Veilleux
veill...@aetna.com
(860) 636-2683

This e-mail may contain confidential or privileged information. If
you think you have received this e-mail in error, please advise the
sender by reply e-mail and then delete this e-mail immediately.
Thank you. Aetna

[Lizette Koehler]

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 making are on the right track. I just have to work harder at breaking down the WORKAREA where the information is returned.

Thanks to all who offered me code and advice.

[Mark Zelden]

Yes,

RECFM(F B) not RECFM(F)

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark....@zurichna.com
z/OS Systems Programming expert at
http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

"Veilleux, Jon L"
<VeilleuxJL@AETNA

.COM> To
Sent by: TSO REXX TSO-...@VM.MARIST.EDU
Discussion List cc
<TSO-...@VM.MARI
ST.EDU> Subject
Re: How to use CSI Catalog Search
Interface

03/06/2009 11:48

[Veilleux, Jon L]

Much better! Thanks