On Tue, 31 Mar 2020 17:35:52 -0400, Bob Bridges wrote:
>In any REXX I write that has to know, I include this statement at the
>beginning:
>
> fbat=(sysvar('SYSENV')='BACK')
>
Of course that works only for TSO. But a prior check of PARSE SOURCE
can detect IRXJCL and UNIX.
>Hm, no one ever told me choosing a random DD name is passé.
>
Murphy's Law. Sooner or later there will be a collision. Murphy says,
at the most critical time.
>I have a TEMPDD routine that returns a DD name guaranteed to be unused;
>otherwise many of my routines would end up conflicting whenever I use them
>recursively (sort of).
>
I suspect that uses SVC 99 (what else?) Is that easier than BPXWDYN( 'ALLOC
RTDDN(name) ...')?
(But do you want finer control of the name space, as GIMSMP does?)
What about race conditions?
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
