Hi John,
A long time ago, we had a lot of these in my shop. COBOL programs that wrote labels at 133/133 FA, printed on continous form label stock, generally 3 labels wide . The RECFM was set in the COBOL program, and that was where it had to be fixed. At that time, the big advantage was that the labels could be unspooled from tape direct to printer, so it gave the operator very tight control on back space, etc. if a label peeled off in the printer and needed to be recovered. If the print ran through JES2, there would always be a lot fewer 'pages' in the buffer if the printer had to be backspaced there. There were some attempts made to change the DCB after the dataset was built, but they were not successful. I don't know exactly what they tried - I was at the printing end in those days. HTH, Linda ----- Original Message ----- From: "John Norgauer" <[email protected]> To: [email protected] Sent: Friday, May 4, 2012 1:44:10 PM 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 [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
