Check out the PDS command (CBT File 182) which has a FIXPDS command that can do that and A LOT more.
Example: PDS TEST.PDS >fixpds blksize(6160) PDS200I DISP UNIT RECFM LRECL BLKSIZE ALLOCTRK FREETRK SECONDARY FREEDIR PDS200I SHR 3390 FB 80 32720 1X 90 89 30 TRK 10 PDS392A SHOULD THIS DATA SET BE MODIFIED (Y/N) ? >y PDS200I DISP UNIT RECFM LRECL BLKSIZE ALLOCTRK FREETRK SECONDARY FREEDIR PDS200I SHR 3390 FB 80 6160 1X 90 89 30 TRK 10 -------------------------------------------------------------------------- Lionel B. Dyck <sdg>< Mainframe Systems Programmer - TRA -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: Wednesday, October 18, 2017 12:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] How to fix blocksize of PDS Hello friends...I ran some job some time in the past, and it whacked my PDS blocksize (and reset it to the LRECL). I thought I remembered that there is a slick little job I can run to reset it back to what I need, but I can't remember the particulars. I know it did not involve copying the file, but IIRC, I had only to open the file, and use a disp of old,keep with the correct DCB. Am I remembering correctly, or is my old brain showing errors? Billy -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN