John,
What happens if you run the exact same test, but instead of having the JCL
for your output as:
// RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS
you instead JUST coded
// DSORG=PS
i.e. you leave out the JCL (overrides) for RECCFM, LRECL, and BLKSIZE) - I
think that this is when/where the different BLOCK CONTAINS clauses make a
difference.
"John McKown" <joa...@swbell.net> wrote in message
news:<listserv%200905181308288278.0...@bama.ua.edu>...
> I just ran a quick test using Enterprise COBOL 3.4.1. I had one input FD
and
> three output FDs. The output FDs were: (1) No BLOCK CONTAINS at all; (2)
> BLOCK CONTAINS 0 RECORDS; and (3) BLOCK CONTAINS 1 RECORDS. I directed
each
> to a separate SMS managed disk dataset. On the JCL for each output file, I
> specified:
>
> // RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS
>
> I then dumped the records using IDCAMS, but with the JCL looking like:
>
> //JS010 EXEC PGM=IDCAMS,
> // REGION=20M
> //SYSPRINT DD SYSOUT=*
> //I1 DD DISP=SHR,DSN=TSH009.MYCOPY.BLOCK0,RECFM=U,BLKSIZE=32760
> //I2 DD DISP=SHR,DSN=TSH009.MYCOPY.BLOCK1,RECFM=U,BLKSIZE=32760
> //I3 DD DISP=SHR,DSN=TSH009.MYCOPY.NOBLOCK,RECFM=U,BLKSIZE=32760
> //SYSIN DD *
> PRINT INFILE(I1) DUMP COUNT(30)
> PRINT INFILE(I2) DUMP COUNT(30)
> PRINT INFILE(I3) DUMP COUNT(30)
> //
>
> All three outputs were IDENTICAL and showed that each file was identically
> blocked. That is: the BLOCK CONTAINS 1 RECORDS did not result in an
unblock
> file!
>
> This was run on z/OS 1.10.
>
> Oh, for fun, I also put the output onto non-SMS managed DASD with the same
> result.
>
> --
> John McKown
>
> ----------------------------------------------------------------------
> 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
----------------------------------------------------------------------
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
