On 2014-06-03 14:10, retired mainframer wrote:
> Why don't you show us the job that built the archive and the job that tried
> to read it.
>
> :>: -----Original Message-----
> :>: From: On Behalf Of Paul Gilmartin
> :>: Sent: Tuesday, June 03, 2014 9:10 AM
> :>:
> :>: On 2014-06-03, at 10:01, Dougie Lawson wrote:
> :>: >
> :>: Well, you say it works for you with the archive on tape. I tried it
> :>: with the archive on disk, and it didn't work.
>
JCL:
//IEBCNULL JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//* Doc: IEBCOPY with SYSUT2 DUMMY
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=(,)
//SYSUT1 DD DISP=SHR,DSN=SYS1.PARMLIB
//SYSUT2 DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(1000,(1000,1000))
//*
//STEP2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=(,)
//SYSUT1 DD DISP=OLD,DSN=*.STEP1.SYSUT2
//SYSUT2 DD DISP=OLD,DSN=NULLFILE,DSORG=PO
//*
//
SYSPRINT from STEP2:
********************************* TOP OF DATA
***************************************************************************
IEBCOPY MESSAGES AND CONTROL
STATEMENTS PAGE 1
IEB1135I IEBCOPY FMID HDZ1D10 SERVICE LEVEL UA67459 DATED 20121210 DFSMS
01.13.00 z/OS 01.13.00 HBB7780 CPU 2818
PUT1307 10/01/13
IEB1035I IEBCNULL STEP2 14:21:45 TUE 03 JUN 2014 PARM=''
STEP2 COPY INDD=SYSUT1,OUTDD=SYSUT2 GENERATED STATEMENT
IEB120I SYSUT2 VALIDATION ERROR
IEB187I NOT A DIRECT ACCESS OR TAPE DATA SET
IEB1030I DDNAME SYSUT1 REFERS TO PDSU DATA SET ON VOLUME WORK02 NAMED
SYS14154.T142143.RA000.IEBCNULL.R0183068
IEB1030I DDNAME SYSUT2 REFERS TO PDS? DATA SET ON VOLUME NAMED NULLFILE
IEB166I NO MEMBERS COPIED TO DATA SET REFERENCED BY SYSUT2
IEB151I JOB HAS TERMINATED WITH ERROR(S)
IEB147I END OF JOB - 8 WAS HIGHEST SEVERITY CODE
******************************** BOTTOM OF DATA
*************************************************************************
-- gil
