Did you change the RECFM from FA to FBA? FA says "unblocked" and won't allow BLKSIZE of anything other than 133. Optimal on 3390 should be 27930. But I just use DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0,DSORG=PS) and allow DFP to determine the best BLKSIZE.
-- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Norgauer > Sent: Friday, May 04, 2012 3:44 PM > To: IBM-MAIN@bama.ua.edu > Subject: Old timer question > > We have a dataset that is as follows: > > Management class . . :,**None**, ,,Allocated cylinders :,114 > Storage class . . . :,**None**, ,,Allocated extents . :,4 > ,Volume serial . . . :,SGP103, , ,,, , > ,Device type . . . . :,3390 , ,, , > Data class . . . . . :,**None**, ,, , > ,Organization . . . :,PS , ,Current Utilization, > ,Record format . . . :,FA , ,,Used cylinders . . :,80 > ,Record length . . . :,133 , ,,Used extents . . . :,1 > ,Block size . . . . :,133 , ,,, , > ,1st extent cylinders:,90 ,,, , > ,Secondary cylinders :,8 ,,Dates, > ,Data set name type :, , ,,Creation date . . . > :,1996/08/01 > ,SMS Compressible. . :,NO , ,,Referenced date . . > :,2012/05/04 > > Truly an ugly dataset... 133 by 133 and FA recform created in > the 1996. > > I wanted to re-block the dataset for obvious reasons. I > thought that 13300 > blksize would work but DFP did not like that size. > > it said " Record length is inconsistent with block size for > this record > format" > > What would be a good blksize? > > > > John Norgauer > Senior Systems Programmer > Mainframe Technical Support Services > University of California Davis Medical Center > 2315 Stockton Blvd > ASB 1300 > Sacramento, Ca 95817 > 916-734-0536 > > SYSTEMS PROGRAMMING...... Guilty, until proven innocent !! > " JN 2004 > ........ > "Hardware eventually breaks - Software eventually works" anon > ........ > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
