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
