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:[email protected]] On Behalf Of Patrick Lyon Sent: Tuesday, March 29, 2011 2:10 PM To: [email protected] Subject: Re: Check TAPE Contents On Tue, 29 Mar 2011 22:04:18 +0300, Sergio Lima <[email protected]> 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 [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
