I think that sample is a perfect example why you shouldn't use REXX for
processing complex records!
All the magic number offsets and data conversions will only get worse as
the complexity of the program increases.
On 2020-03-18 1:04 PM, Brian Westerman 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 <[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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
