Ted,
The only point I am making is that it is not necessarily IDCAMS that is
at fault. I got the same results using IEFBR14 and the original JCL.
Both
//STEP1 EXEC PGM=IEFBR14
//DD2 DD DSN=MY.SEQ.DFHCMACD,UNIT=SYSDA,DISP=(,CATLG,DELETE),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB),DSORG=PS,
// SPACE=(CYL,(7,1),RLSE)
And
//STEP1 EXEC PGM=IEFBR14
//DD2 DD DSN=MY.SEQ.DFHCMACD,UNIT=SYSDA,DISP=(,CATLG,DELETE),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB),
// SPACE=(CYL,(7,1),RLSE)
Gives me a PDS with 0(zero) Directory Blocks the same as
//STEP1 EXEC PGM=IDCAMS,REGION=8M
//SYSPRINT DD SYSOUT=*
//DD1 DD DISP=SHR,DSN=CICPTS31.CICS.DFHCMACD
//DD2 DD DSN=MY.SEQ.DFHCMACD,UNIT=SYSDA,DISP=(,CATLG,DELETE),
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB),
// SPACE=(CYL,(7,1,43),RLSE)
//SYSIN DD *
REPRO IFILE(DD1) OFILE(DD2)
What is strange though is that in the last case it says that 98% used,
yet as originally stated, it is not accessible.
REPRO IFILE(DD1) OFILE(DD2)
IDC0005I NUMBER OF RECORDS PROCESSED WAS 6569
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
And
Command - Enter "/" to select action Tracks %Used XT
Device
------------------------------------------------------------------------
------
X00354.SE3.DFHCMACD 315 98 15
3390
Herbie
Elavon Financial Services Limited
Registered in Ireland: Number 418442
Registered Office: Block E, 1st Floor, Cherrywood Business Park, Loughlinstown,
Co. Dublin, Ireland
Directors: Robert Abele (USA), John Collins, Terrance Dolan (USA), Pamela
Joseph (USA), Declan Lynch, John McNally, Malcolm Towlson
Elavon Financial Services Limited, trading as Elavon, is regulated by the
Financial Regulator
----------------------------------------------------------------------
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
