---------------------------------------<snip>------------------------------
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)
--------------------------------<unsnip>-----------------------------------
A EXPDT of 98000 is generally accepted as a signal to bypass any tape
management system that might be present. AFAIK, this did not change over
the Y2K transition.
Rick
----------------------------------------------------------------------
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
