TAPEMAP generator

[Sam Golob]

Hi Folks,

   To TAPEMAP a bunch of volumes, I use a PROC.  Then, to specify the 
volume list, all you have to do is have the volser as the one PROC 
variable, and it is just a list of 100 PROC executions.


   All the best...

Sam Golob

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Farley, Peter x23353]

I am surprised that no one has yet recommended the TAPEMAP program in file 299 
(or 804 for the Jump-enhanced version) on the CBT site.  This will give you 
much, much more information or each file on a tape volume than a simple 
IEBGENER of the first label file.

You will still have the problem of geenrating the TAPEMAP JCL for each volume.  
Not having used the latest TAPEMAP version myself, I don't know if it might or 
might not have facilities to analyze multiple volumes with simpler JCL, but it 
is certainly worth your time to investigate.

HTH

Peter

> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of af dc
> Sent: Tuesday, March 06, 2012 11:03 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: TAPEMAP generator
>
> Hello,
> I need to do a tapemap for about 100 tapes (virtual volumes),
> I've jcl:
>
> //V1   EXEC PGM=IEBGENER
> //SYSPRINT DD SYSOUT=*
> //SYSOUT   DD SYSOUT=*
> //SYSUT1   DD DISP=OLD,
> //DSN=AL2999.SOMETH,
> //DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
> //UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
> //VOL=SER=V1
>
> and I've volume list in format:
>
> V1
> V10001
> V10002
> ...
>
> what is the best way to generate 100 jcls ??? rexx ? icetool ?
> Many thx, A.Cecilio.
--

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[McKown, John]

For a "one off", I rather liked the simple JCL with a PROC and the volser as a 
symbol. Then, one volser, one EXEC PROC statement. 

If I were going to do this for an ongoing project, then I would consider ISPF 
file tailoring, but mainly if the input is from a user at a terminal. If the 
volser list is computer generated into a dataset, then I'd probably use REXX in 
batch to create the job(s) and write them to SYSOUT=(*,INTRDR).

I could probably write an awk program to do it as well. But that seems to be 
"overkill", to me.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Shmuel Metz (Seymour J.)
> Sent: Tuesday, March 06, 2012 2:54 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: TAPEMAP generator
> 
> In <7952198520721379.wa.paulgboulderaim@bama.ua.edu>, on
> 03/06/2012
>at 10:43 AM, Paul Gilmartin  said:
> 
> >The best way is a POSIX shell script,
> 
> Why? It looks like a perfect application for ISPF File Tailoring.
>  
> -- 
>  Shmuel (Seymour J.) Metz, SysProg and JOAT
>  ISO position; see <http://patriot.net/~shmuel/resume/brief.html> 
> We don't care. We don't have to care, we're Congress.
> (S877: The Shut up and Eat Your spam act of 2003)
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> 
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Shmuel Metz (Seymour J.)]

In <7952198520721379.wa.paulgboulderaim@bama.ua.edu>, on
03/06/2012
   at 10:43 AM, Paul Gilmartin  said:

>The best way is a POSIX shell script,

Why? It looks like a perfect application for ISPF File Tailoring.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Shmuel Metz (Seymour J.)]

In <5805879972290486.wa.elardus.engelbrechtsita.co...@bama.ua.edu>, on
03/06/2012
   at 01:19 PM, Elardus Engelbrecht 
said:

>Hehe... :-D   Variable names can be anything.

Anything? 'Çhár-(' would certainly not be a valid variable name.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Elardus Engelbrecht]

Paul Gilmartin wrote:

>(Yes, but does the OP have the Rexx Afrikaans language feature installed?)

Hehe... :-D   Variable names can be anything. I use Afrikaans words for 
variables for easy IEHBALL purposes. ;-)

Maybe I should create that feature so I can retire rich with a yatch, a 747 and 
own private island... :-D


>I wouldn't bother with counting lines; I'd write each line to the data set 
>directly with a procedure such as:

Excellent idea. This will perhaps go good with the OP's requirement.


>Performance?  how many times will this be used?

It depends. I wonder if the OP will do his job just once or repeately with a 
new batch of volsers to work on...

Perhaps the OP has some cleanup work, migration to new media and media type or 
go over to VTS or so?

Paul, thanks for your reply. It is much appreciated. Please keep posting your 
good ideas. :-)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: RES: TAPEMAP generator

[Chip Grantham]

A.Cecilio, 

I attempted to send you my general purpose CLIST for something like this 
but it bounced on your email address.  I'd be happy to send it to you 
personally (and any one else) if you contact me off-line. 

Chip Grantham  |  Ameritas  |  Sr. IT Consultant | cgrant...@ameritas.com 
5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 
402-325-4030

 



ITURIEL DO NASCIMENTO NETO <4254.itur...@bradesco.com.br> 
Sent by: IBM Mainframe Discussion List 
03/06/2012 12:55 PM
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@bama.ua.edu
cc

Subject
RES: TAPEMAP generator






Hi,

A 100 tapes ? It's quite few.
If the number of volumes were bigger I would go with Rexx.
I think that it will be faster if you manually generate a job like this :

//JOB1 JOB
// PROC
//COPY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD SYSOUT=*
//SYSUT1   DD DISP=OLD,
//DSN=AL2999.SOMETH,
//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
//VOL=SER=&T
// PEND
//S1   EXEC  COPY,T=V10001
//S2   EXEC  COPY,T=V10002

And so...

Atenciosamente / Regards / Saludos


Ituriel do Nascimento Neto
BANCO BRADESCO S.A.
4254 / DPCD Engenharia de Software
Sistemas Operacionais Mainframes
Tel: +55 11 4197-2021 R: 22021
Fax: +55 11 4197-2814


-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
Burrell, C. Todd (CDC/OCOO/ITSO) (CTR)
Enviada em: terça-feira, 6 de março de 2012 13:09
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: TAPEMAP generator

You should be able to do this in REXX very easily (around 25 line EXEC). I 
have tons of JCL where I read in a list (like the tape list) and the write 
out the JCL.  This comes from many years of laziness...


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On 
Behalf Of af dc
Sent: Tuesday, March 06, 2012 11:03 AM
To: IBM-MAIN@bama.ua.edu
Subject: TAPEMAP generator

Hello,
I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:

//V1   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUT1   DD DISP=OLD,
//DSN=AL2999.SOMETH,
//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
//VOL=SER=V1

and I've volume list in format:

V1
V10001
V10002
...

what is the best way to generate 100 jcls ??? rexx ? icetool ?
Many thx, A.Cecilio.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email 
to lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

AVISO LEGAL ...Esta mensagem é destinada exclusivamente para a(s) 
pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou 
legalmente privilegiada. Se você não for destinatário desta mensagem, 
desde já fica notificado de abster-se a divulgar, copiar, distribuir, 
examinar ou, de qualquer forma, utilizar a informação contida nesta 
mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por 
engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a 
eliminação do seu conteúdo em sua base de dados, registros ou sistema de 
controle. Fica desprovida de eficácia e validade a mensagem que contiver 
vínculos obrigacionais, expedida por quem não detenha poderes de 
representação. 
LEGAL ADVICE...This message is exclusively destined for the people to 
whom it is directed, and it can bear private and/or legally exceptional 
information. If you are not addressee of this message, since now you are 
advised to not release, copy, distribute, check or, otherwise, use the 
information contained in this message, because it is illegal. If you 
received this message by mistake, we ask you to return this email, making 
possible, as soon as possible, the elimination of its contents of your 
database, registrations or controls system. The message that bears any 
mandatory links, issued by someone who has no representation powers, shall 
be null or void.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

***
This message may contain confidential information intended only
for the use of the addressee(s) named above and may contain
information that is legally privileged. If you are not the
addressee, or the person responsible for delivering it to the
addressee, you are hereby notified that reading, disseminating,
distributing or copying this message is strictly prohibited.  If you
have received t

RES: TAPEMAP generator

[ITURIEL DO NASCIMENTO NETO]

Hi,

A 100 tapes ? It's quite few.
If the number of volumes were bigger I would go with Rexx.
I think that it will be faster if you manually generate a job like this :

//JOB1 JOB
// PROC
//COPY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2   DD SYSOUT=*
//SYSUT1   DD DISP=OLD,
//DSN=AL2999.SOMETH,
//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
//VOL=SER=&T
// PEND
//S1   EXEC  COPY,T=V10001
//S2   EXEC  COPY,T=V10002

And so...

Atenciosamente / Regards / Saludos


Ituriel do Nascimento Neto
BANCO BRADESCO S.A.
4254 / DPCD Engenharia de Software
Sistemas Operacionais Mainframes
Tel: +55 11 4197-2021 R: 22021
Fax: +55 11 4197-2814


-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de 
Burrell, C. Todd (CDC/OCOO/ITSO) (CTR)
Enviada em: terça-feira, 6 de março de 2012 13:09
Para: IBM-MAIN@bama.ua.edu
Assunto: Re: TAPEMAP generator

You should be able to do this in REXX very easily (around 25 line EXEC).  I 
have tons of JCL where I read in a list (like the tape list) and the write out 
the JCL.  This comes from many years of laziness...


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
af dc
Sent: Tuesday, March 06, 2012 11:03 AM
To: IBM-MAIN@bama.ua.edu
Subject: TAPEMAP generator

Hello,
I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:

//V1   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUT1   DD DISP=OLD,
//DSN=AL2999.SOMETH,
//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
//VOL=SER=V1

and I've volume list in format:

V1
V10001
V10002
...

what is the best way to generate 100 jcls ??? rexx ? icetool ?
Many thx, A.Cecilio.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

AVISO LEGAL ...Esta mensagem é destinada exclusivamente para a(s) pessoa(s) 
a quem é dirigida, podendo conter informação confidencial e/ou legalmente 
privilegiada. Se você não for destinatário desta mensagem, desde já fica 
notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de 
qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. 
Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este 
E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de 
dados, registros ou sistema de controle. Fica desprovida de eficácia e validade 
a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha 
poderes de representação. 
LEGAL ADVICE...This message is exclusively destined for the people to whom 
it is directed, and it can bear private and/or legally exceptional information. 
If you are not addressee of this message, since now you are advised to not 
release, copy, distribute, check or, otherwise, use the information contained 
in this message, because it is illegal. If you received this message by 
mistake, we ask you to return this email, making possible, as soon as possible, 
the elimination of its contents of your database, registrations or controls 
system. The message that bears any mandatory links, issued by someone who has 
no representation powers, shall be null or void.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Vernooij, CP - SPLXM]

"af dc"  wrote in message
news:...
> Hello,
> I need to do a tapemap for about 100 tapes (virtual volumes), I've
jcl:
> 
> //V1   EXEC PGM=IEBGENER
> //SYSPRINT DD SYSOUT=*
> //SYSOUT   DD SYSOUT=*
> //SYSUT1   DD DISP=OLD,
> //DSN=AL2999.SOMETH,
> //DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
> //UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
> //VOL=SER=V1
> 
> and I've volume list in format:
> 
> V1
> V10001
> V10002
> ...
> 
> what is the best way to generate 100 jcls ??? rexx ? icetool ?
> Many thx, A.Cecilio.
> 

Do you have SAS?
PROC TAPELABEL DDNAME=INPUT

Gives you a nice print.

Kees.

For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message. 

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt. 
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Paul Gilmartin]

On Tue, 6 Mar 2012 10:42:57 -0600, Elardus Engelbrecht  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('') F(AFVOER) OLD REUSE"
>LYNE = 0
>
(Yes, but does the OP have the Rexx Afrikaans language feature installed?)


>JCL.0 = 
>
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 lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Paul Gilmartin]

On Tue, 6 Mar 2012 16:03:05 +, af dc wrote:

>Hello,
>I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:
>
>//V1   EXEC PGM=IEBGENER
>//SYSPRINT DD SYSOUT=*
>//SYSOUT   DD SYSOUT=*
>//SYSUT1   DD DISP=OLD,
>//DSN=AL2999.SOMETH,
>//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
>//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
>//VOL=SER=V1
>
>and I've volume list in format:
>
>V1
>V10001
>V10002
>...
>
>what is the best way to generate 100 jcls ??? rexx ? icetool ?
> 
The best way is a POSIX shell script, but Rexx would do.  (I don't
know ICETOOL or perl.)

100 jobs?  Or one job with 100 steps?  Would it be better to direct
the output to various data sets with the tape volsers as qualifiers,
or even to a PDS or UNIX directory with the tape volsers as member
names?

IEBGENER?  Are you going to dump the entire tape data set content?
"SYSOUT DD"??  Did you mean SYSUT2?

CABAListically,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Elardus Engelbrecht]

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 ?

REXX, like this (you will need seriously heavy editing before putting it in use 
:-D ):

First loop is for each line containing volser and second loop is generating a 
full JCL for each volser.

"ALLOC DA('') F(IN) SHR REUSE"
"EXECIO * DISKR IN (STEM LYS. FINIS"
"FREE F(IN)"  
"ALLOC DA('') F(AFVOER) OLD REUSE"
LYNE = 0
DO J = 1 TO LYS.0
VOLSER = SUBSTR(LYS.J,1,6)
JCL.0 = 
JCL.1  = "//??? JOB ..."
JCL.2  = "//... ETC"
JCL.3  = ... ETC ...
DO I = 1 TO JCL.0   
   LYNE = LYNE + 1  
   AF.LYNE = JCL.I
END 
END 
AF.0 = LYNE   
"EXECIO * DISKW AFVOER (STEM AF. FINIS" 
"FREE F(AFVOER)"
RETURN

Perhaps not the best solution, but a good start...

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Lizette Koehler]

>Hello,
>I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:
>
>//V1   EXEC PGM=IEBGENER
>//SYSPRINT DD SYSOUT=*
>//SYSOUT   DD SYSOUT=*
>//SYSUT1   DD DISP=OLD,
>//DSN=AL2999.SOMETH,
>//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
>//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
>//VOL=SER=V1
>
>and I've volume list in format:
>
>V1
>V10001
>V10002
>...
>
>what is the best way to generate 100 jcls ??? rexx ? icetool ?


And yes, a simple REXX,CLIST using ISPF Skels will be very easy to generate the 
needed JCL.

Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: TAPEMAP generator

[Burrell, C. Todd (CDC/OCOO/ITSO) (CTR)]

You should be able to do this in REXX very easily (around 25 line EXEC).  I 
have tons of JCL where I read in a list (like the tape list) and the write out 
the JCL.  This comes from many years of laziness...  


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
af dc
Sent: Tuesday, March 06, 2012 11:03 AM
To: IBM-MAIN@bama.ua.edu
Subject: TAPEMAP generator

Hello,
I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:

//V1   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUT1   DD DISP=OLD,
//DSN=AL2999.SOMETH,
//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
//VOL=SER=V1

and I've volume list in format:

V1
V10001
V10002
...

what is the best way to generate 100 jcls ??? rexx ? icetool ?
Many thx, A.Cecilio.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

TAPEMAP generator

[af dc]

Hello,
I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl:

//V1   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUT1   DD DISP=OLD,
//DSN=AL2999.SOMETH,
//DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50),
//UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000),
//VOL=SER=V1

and I've volume list in format:

V1
V10001
V10002
...

what is the best way to generate 100 jcls ??? rexx ? icetool ?
Many thx, A.Cecilio.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN