Hello,
Don't work, here ths JOB :
//IEBPTPCH JOB (PROD),ROTINA,CLASS=S,
// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//DITTO PROC LBL=BLP,VSER=G00698,UNT=/670
//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)
And here, the result :
STMT NO. MESSAGE
3 IEFC001I PROCEDURE DITTO WAS EXPANDED USING INSTREAM PROCEDURE DEFINIT
6 IEF604I EXPDT SUBPARAMETER OF LABEL KEYWORD SPECIFIES ZERO DAYS VALUE
ICH70001I SERGIOL LAST ACCESS AT 13:37:32 ON WEDNESDAY, MARCH 30, 2011
IEF210I IEBPTPCH IDCAMS DITTO1 UIN - UNIT FIELD SPECIFIES INCORRECT DEVICE NAME
IEF272I IEBPTPCH IDCAMS DITTO1 - STEP WAS NOT EXECUTED.
IEF373I STEP/IDCAMS /START 2011089.1350
IEF032I STEP/IDCAMS /STOP 2011089.1350
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
IEF375I JOB/IEBPTPCH/START 2011089.1350
IEF033I JOB/IEBPTPCH/STOP 2011089.1350
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
Thanks,
Sergio
> Date: Tue, 29 Mar 2011 14:09:32 -0500
> From: [email protected]
> Subject: Re: Check TAPE Contents
> To: [email protected]
>
> 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
