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
