On Tue, Jan 10, 2017 at 12:26 PM, David W Noon < [email protected]> wrote:
> On Tue, 10 Jan 2017 07:27:12 -0600, John Mckown > ([email protected]) wrote about ""task level" TIOT & XTIOT? A > crazy thought?" (in > <caajsdjgawmzkmaec7ngld5wjv_yyw1h9-wo+bsdqtts1xs3...@mail.gmail.com>): > > [snip] > > So, have you ever wanted to run multiple, concurrent, executions of some > > program which does not accept an alternative DD name list? For instance, > > some in-house COBOL program. > > Simply use PL/I with the TITLE() option on the OPEN statement. This > allows the program to specify the DDNAME at run time. > > If you really are wedded to COBOL, ask for the language to offer a new > facility in the ENVIRONMENT DIVISION, like: > > SELECT <fd-name> ASSIGN TO <ws-variable> > > where the <ws-variable> is something like: > > 77 WS-MY-DDNAME PIC X(8). > > This can be the target of a text unit for SVC 99, or read from input, or > passed in from a calling main program. > Already taken, but not for WORKING STORAGE or the DD name. It can refer to an existing DD name. If said DD does not exist, then it is the name of the "environment variable" (UNIX concept) which contains information to do an SVC 99. But the name remains the DD name, you can't override that, unfortunately. > > This is far more straightforward than fiddling with multiple TIOT, SIOT, > DSAB, etc. This also avoids the filth known as environment variables. > too late, as stated above. Personally, I don't find environment variables to be "filth". But I'm a long time UNIX user too. > > > Just running the idea up the flag pole to see who salutes. I don't really > > have much else to do any more. Just waiting for the axe. > > The waiting can be worse than the redundancy itself. ... :-( > -- > Regards, > > Dave [RLU #314465] > *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* > [email protected] (David W Noon) > *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- There’s no obfuscated Perl contest because it’s pointless. —Jeff Polk Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
