On Tue, 6 Mar 2012 10:42:57 -0600, Elardus Engelbrecht <[email protected]> wrote:
>af dc wrote:
>
>>I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:
>
>>what is the best way to generate 100 jcls ??? rexx ? icetool ?
>
>First loop is for each line containing volser and second loop is generating a
>full JCL for each volser.
>
> ...
>"ALLOC DA('<DSN FOR YOUR JCL>') F(AFVOER) OLD REUSE"
>LYNE = 0
>
(Yes, but does the OP have the Rexx Afrikaans language feature installed?)
> JCL.0 = <HOW MANY LINES>
>
I wouldn't bother with counting lines; I'd write each line to
the data set directly with a procedure such as:
PutAFVOER: procedure
parse arg LYNE.1 /* Argument is one line of JCL. */
'EXECIO 1 DISKW AFVOER (stem LYNE.'
return
Performance? how many times will this be used?
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
