I personally don't have a particular use for it, and thus would not myself
create an RFE requesting it. But based on what I've seen discussed here I was
thinking they were looking for something like the following example:
select my-file assign using my-file-name.
01 my-file-name pic x(8). *> Populate with the DDNAME to be associated with
"my-file"
perform with test after until my-file-name = low-values
move low-values to my-file-name
accept my-file-name
if my-file-name = low-values
exit perform
end-if
open input my-file
perform process-my-file
close my-file
end-perform
(yes, I used exit perform. :-) )
With JCL being something like this:
//SYSIN DD *
FILE1
FILE2
FILE3
FILE4
/*
//FILE1 DD ...
//FILE2 DD ...
//FILE3 DD ...
//FILE4 DD ...
If this is what the OP was really looking for I'm not sure.
Frank
________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of
Bill Woodger <[email protected]>
Sent: Tuesday, January 10, 2017 4:34 PM
To: [email protected]
Subject: Re: "task level" TIOT & XTIOT? A crazy thought?
And what would you want in data-name-1? A DDNAME,like the PL/I? A data set
name? A partial data set name (with some magic for full expansion)? Something
else?
What do you feel, with your selected option for data-name-1, would be some
example uses for this?
Again, for me, just because something is in COBOL 2014, doesn't naturally mean
it should get Enterprise COBOL development resources assigned to it. Clearly,
unlike in 1985, the number of "sites" using COBOL on Linux/Unix/Windows is
greater than the number of Mainframe sites. COBOL 2014 and future developments
of the COBOL Standard will reflect this.
As you've pointed out previously, with XML, Json and UNBOUNDED, IBM is happy to
be COBOL-85-with-extesnsions-from-2002-2014-plus-our-own.
So, good choices from 2002/2014, yes. What is it that would make the ability to
use a data-name in the ASSIGN good?
On Tue, 10 Jan 2017 23:01:59 +0000, Frank Swarbrick
<[email protected]> wrote:
>For whatever its worth, the latest COBOL Standard offers the following syntax,
>which I believe meets this requirement at the language level:
>
>
>SELECT file-name-1 ASSIGN USING data-name-1.
>
>
>"3) The ASSIGN clause specifies the association of the file connector
>referenced by file-name-1 to a physical file identified by device-name-1,
>literal-1, or the content of the data item referenced by data-name-1.
>
>3b) When the USING phrase of the ASSIGN clause is specified, the file
>connector referenced by file-name-1 is associated with a physical file
>identified by the content of the data item referenced by data-name-1 in the
>runtime element that executes the OPEN, SORT, or MERGE statement."
>
>
>Someone want to open an RFE?
>
>
>Frank
----------------------------------------------------------------------
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
