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.zel...@zurichna.com
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
On Fri, 6 Mar 2009 10:01:33 -0500, Lizette Koehler <stars...@mindspring.com>
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 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 IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
