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:[email protected]
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 <[email protected]> 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:[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
----------------------------------------------------------------------
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
