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: [email protected]
> Subject: Re: Check TAPE Contents
> To: [email protected]
>
> 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
----------------------------------------------------------------------
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
