On Tue, 29 Mar 2011 22:04:18 +0300, Sergio Lima <sergio...@hotmail.com> 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html