Yes. Run the data set through IEBGENER, with an override for the DCB. Then, run the new data set through IDCAMS REPRO, and look at the result.
Lets say your possible short block data set is SHORT.BLOCK.DATASET and the BLKSIZE of the original data set was 27920. Use the following JCL: //STEP01 EXEC PGM=IEBGENER //* //* //SYSUT1 DD DSN=short.block.dataset,DISP=SHR, // RECFM=U,LRECL=27920,BLKSIZE=27920 //SYSUT2 DD DSN=test.file.recfm.u,DISP=(,CATLG), // SPACE=(CYL,(50,50)), // RECFM=U,LRECL=27920,BLKSIZE=27920 //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //* //* //STEP02 EXEC PGM=IDCAMS //* //* //SYSUT1 DD DSN=test.file.recfm.u,DISP=SHR, // RECFM=F,LRECL=27920,BLKSIZE=27920 //SYSUT2 DD DSN=test.file.recfm.f,DISP=(,CATLG), // SPACE=(CYL,(50,50)), // RECFM=F,LRECL=27920,BLKSIZE=27920 //SYSPRINT DD SYSOUT=* //SYSIN DD * REPRO INFILE(SYSUT1) OUTFILE(SYSUT2) Change every occurrence of 27920 in the above JCL to the actual blocksize of the original data set. Each BLOCK in the original file is a RECORD in the file TEST.FILE.RECFM.U. The second step overrides the DCB characteristics to RECFM=F. You will get an error if there is a short block. If the REPRO fails on the last record, you do not have a short block until the final record in the original data set. If the REPRO fails before the last record, you have found the first embedded short block in the original data set. You can use ISPF Browse on the file TEST.FILE.RECFM.U to look at the actual short block (switch to HEX mode to really see the short block in detail). Brian On Tue, 28 Feb 2006 11:53:23 -0600, Chase, John <[EMAIL PROTECTED]> wrote: >Hi, All, > >Is there an "easy" way to find any "short blocks" that might exist in a >FB dataset? We don't have DITTO (IBM File Manager), and I haven't found >a way with File-Aid yet. > >TIA, > > -jc- ---------------------------------------------------------------------- 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
