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
