How about the rexx exec IGGCSIRX in SYS1.SAMPLIB? There is also a share handout from 2014 that you can probably find on the internet.
RESUME = 'Y' Do While RESUME = 'Y' /* Call the Catalog Search Interface */ ADDRESS LINKPGM 'IGGCSI00 RETAREA CSIFIELD WORKAREA' ... RESUME = SUBSTR(CSIFIELD,150,1) /* GET RESUME FLAG FOR NEXT LOOP */ ... End /* UNTIL NO MORE DATA */ CSIOPTS – Option Flags 0 CSICLDI blank | Y Return D and I info for non-matching Cluster name 1 CSIRESUM blank | Y More data exists to be returned (set by CSI) 2 CSIS1CAT blank | Y Search only 1 catalog 3 CSIOPTNS any | F Returned data lengths will be halfwords / fullwords Brian On Tue, 17 Mar 2020 09:58:43 -0500, Paul Gilmartin <[email protected]> wrote: >On Tue, 17 Mar 2020 13:17:13 +0000, Lennie Dymoke-Bradshaw wrote: > >>I have a need to make use of IGGCSI00. >>It would make my life a lot easier if I could work in REXX rather than >>assembler. I see that IBM have supplied a sample routine called IGGCSIRX >>showing how it can be used from REXX, though it looks a little cludgy; not as >>elegant as the RACF interface to REXX, IRRXUTIL. >> >>Has anyone done any work in this area that they can share? >>For example a more general REXX interface either written in assembler, or >>even in REXX? >> >There's an ICSF Rexx example in SAMPLIB. A trick it taught me is that >ADDRESS LINKPGM closely emulates HLASM CALL. Halfword length >is optional; you must craft it yourself. It both issues requests and >receives replies in the HLASM parameter list. > >-- gil > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
