Brian , Thats another good example as well as what Al said. I havent used java much on z/OS ...so i cant comment on it.
Scott On Wed, Mar 18, 2020 at 1:05 AM Brian Westerman < brian_wester...@syzygyinc.com> wrote: > 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 <paulgboul...@aim.com> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- *IDMWORKS * Scott Ford z/OS Dev. “By elevating a friend or Collegue you elevate yourself, by demeaning a friend or collegue you demean yourself” www.idmworks.com scott.f...@idmworks.com Blog: www.idmworks.com/blog *The information contained in this email message and any attachment may be privileged, confidential, proprietary or otherwise protected from disclosure. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, copying or use of this message and any attachment is strictly prohibited. If you have received this message in error, please notify us immediately by replying to the message and permanently delete it from your computer and destroy any printout thereof.* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
