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 <[email protected]> wrote: >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:[email protected] >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 <[email protected]> >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 [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
