Hello Mr. Mark Zelden, First thanks very much from your help, and i must say, that We have some of their programs, that is very good for us, like LPROG, IPLINFO and others. Learned a lot with this programs, very good. Now about this question, We try do what you said, then , our job is this : //IEBPTPCH JOB (PROD),ROTINA,CLASS=S, // NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T //* //MPROC PROC HP=1 //PS10 EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=F1, // DISP=(SHR,KEEP,KEEP), // UNIT=/670, // LABEL=(&HP,BLP,EXPDT=98000), // VOL=SER=G00698, // DCB=(RECFM=F,LRECL=80,BLKSIZE=80) //SYSUT2 DD SYSOUT=* //SYSIN DD DDNAME=SYSIN1 //MPROC PEND //***************************** //* HP=1 FOR VOL1 HDR1 HDR2 * //* HP=3 FOR EOF1 EOF2 * //***************************** //JS10 EXEC PROC=MPROC,HP=1 //SYSPRINT DD SYSOUT=* //SYSIN1 DD * PRINT MAXFLDS=1 TITLE ITEM=('TAPE LABEL INFO',30) RECORD FIELD=(80,1) LABELS DATA=YES /* And the result is this : PRINT/PUNCH DATA SET UTILITY PRINT MAXFLDS=1 IEB435I MISSING COMMAND PRECEDING COL 14 TITLE ITEM=('TAPE LABEL INFO',30) IEB435I MISSING COMMAND PRECEDING COL 11 RECORD FIELD=(80,1) IEB435I MISSING COMMAND PRECEDING COL 13 LABELS DATA=YES IEB435I MISSING COMMAND PRECEDING COL 12 IEB420I SYSIN IS EMPTY Apologize for not knowing very well. Sergio
> Date: Tue, 29 Mar 2011 15:37:59 -0500 > From: m...@mzelden.com > Subject: Re: Check TAPE Contents > To: IBM-MAIN@bama.ua.edu > > If just want labels, I usually use IEBPTPCH. TAPEMAP and other > similar utilities read the entire tape. > > This JCL will also print the EOF1 / EOF2 easily. > > //TAPELBL JOB (ACCT),CLASS=A,... > //* > //MPROC PROC HP=1 > //PS10 EXEC PGM=IEBPTPCH > //SYSPRINT DD SYSOUT=* > //SYSUT1 DD DSN=ZELDEN.TAPE, > // DISP=(SHR,KEEP,KEEP), > // UNIT=TAPE, > // LABEL=(&HP,BLP,EXPDT=98000), > // VOL=SER=vvvvvv, > // DCB=(RECFM=F,LRECL=80,BLKSIZE=80) > //SYSUT2 DD SYSOUT=* > //SYSIN DD DDNAME=SYSIN1 > //MPROC PEND > //***************************** > //* HP=1 FOR VOL1 HDR1 HDR2 * > //* HP=3 FOR EOF1 EOF2 * > //***************************** > //JS10 EXEC PROC=MPROC,HP=1 > //SYSPRINT DD SYSOUT=* > //SYSIN1 DD * > PRINT MAXFLDS=1 > TITLE ITEM=('TAPE LABEL INFO',30) > RECORD FIELD=(80,1) > LABELS DATA=YES > /* > // > > > -- > Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS > mailto:m...@mzelden.com > Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html > Systems Programming expert at http://expertanswercenter.techtarget.com/ > > *** Please note the new URL for Mark's MVS Utilities *** > > > On Tue, 29 Mar 2011 19:13:45 +0000, Brian Farley <brian.far...@sas.com> wrote: > > >If you have SAS software on site try the tapelablel procedure. > > > > > >//jobname JOB acct,name > >/*JOBPARM FETCH > >//TLABEL EXEC SAS > >//OURTAPE DD UNIT=TAPE,DISP=OLD,VOL=SER=MVSV9 > >//SYSIN DD * > > proc tapelabel ddname=ourtape; > > run; > >/* > >// > > > >-----Original Message----- > >From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf > Of Patrick Lyon > >Sent: Tuesday, March 29, 2011 2:10 PM > >To: IBM-MAIN@bama.ua.edu > >Subject: Re: Check TAPE Contents > > > >On Tue, 29 Mar 2011 22:04:18 +0300, Sergio Lima <sergio...@hotmail.com> > >wrote: > > > >>Hello, > >> > >>We also tried use IDCAMS here from see tape contents and don't work. > >>Can you please say what can I get a sample JOB ? > >> > >>Thanks, > >> > >>Sergio > > > >Not sure if this works or not, the date on the member is prior Y2K... > > > >//DITTO PROC LBL=BLP,VSER=XXXXXX,UNT=TAPE > >//IDCAMS EXEC PGM=IDCAMS > >//UIN DD DISP=OLD, > >// DSN=FILE01, > >// UNIT=(&UNT), > >// VOL=(,RETAIN,SER=&VSER), > >// LABEL=(&FN,&LBL,,EXPDT=98000), > >// DCB=(BLKSIZE=32760,RECFM=U) > >//* DCB=(RECFM=FB,LRECL=81,BLKSIZE=4050) > >//SYSPRINT DD SYSOUT=* > >// PEND > >//DITTO1 EXEC DITTO,VSER=000297,FN=01,LBL=BLP,UNT=ETAPE > >//SYSIN DD * > > PRINT INFILE(UIN) COUNT(000020) > > > >---------------------------------------------------------------------- > >For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the > archives at http://bama.ua.edu/archives/ibm-main.html > > > >---------------------------------------------------------------------- > >For IBM-MAIN subscribe / signoff / archive access instructions, > >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > >Search the archives at http://bama.ua.edu/archives/ibm-main.html > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html