On Mon, 18 May 2009 13:08:28 -0500, John McKown <[email protected]> wrote:
>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. Those results agree with all of my tests. Frank ---------------------------------------------------------------------- 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
