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 <IBM-MAIN@bama.ua.edu> 03/06/2012 12:55 PM Please respond to IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> 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 //S00001 EXEC COPY,T=V10001 //S00002 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: //V10000 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=V10000 and I've volume list in format: V10000 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 <br>...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<br>...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 this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. ******* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN