What if you don't know the internal DSN or VOLSER?
Have a Nice Day !
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.
On Fri, 20 Apr 2007 08:46:01 -0500, Field, Alan C.
<[EMAIL PROTECTED]> wrote:
>If this is all they need to do:
>
>//AMSPRT EXEC PGM=IDCAMS
>//SYSPRINT DD SYSOUT=*
>//DD1 DD DISP=OLD,LABEL=(1,BLP,EXPDT=98000),
>// RECFM=FB,LRECL=80,BLKSIZE=80,
>// DSN=??????,
>// UNIT=?????,VOL=SER=??????
>//SYSIN DD *
> PRINT INFILE(DD1) DUMP COUNT(3)
>/*
>
>Alan
>
Or use IEBPTPCH:
//PRTLBL JOB (ACCT),CLASS=A,..
//*
//MPROC PROC HP=1
//PS10 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=MY.TAPE,
// DISP=(SHR,KEEP,KEEP),
// UNIT=TAPE,
// LABEL=(&HP,BLP,EXPDT=98000),
// VOL=SER=999999,
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSUT2 DD SYSOUT=*
//SYSIN DD DDNAME=SYSIN1
//MPROC PEND
//*****************************
//* 1 FOR VOL1 HDR1 HDR2 *
//* 3 FOR EOF1 EOF2 *
//*****************************
//JS10 EXEC PROC=MPROC,HP=1
//SYSPRINT DD SYSOUT=*
//SYSIN1 DD *
PRINT MAXFLDS=1
TITLE ITEM=('ABC COMPANY TAPE LABEL INFO',30)
RECORD FIELD=(80,1)
LABELS DATA=YES
/*
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead Zurich North America
/ Farmers Insurance Group: G-ITO mailto:[EMAIL PROTECTED] z/OS
and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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
