It has been quite a while, so I don't have easy access to the information, so I can't check the numbers.
But, I remember problems going from 3380 to 3390 Disks. A 3380 disk track will hold 13 FOCUS pages, a 3390 disk track will hold 15 Focus pages.
If you use one of the diskpack utilities going from 3380 to 3390, there will be 13 FOCUS pages on a track. FOCUS assumes there are 15 pages on the track. When it does a page fetch for page 14, it retrieves the 14 the block, you get an error reading page. Of course the page number could be anything.
The solution:
Rename the corrupted DB, then
use IEBGENER to copy it back to the old name. Keep the DCB=(LRECL=4096,BLKSIZE=4096,RECFM=F,DSORG=PS)
The most import thing, buy the self-appointed DASD god, a coffee and donut, and tell them DON’T DO THAT AGAIN!! :-)
Jim Morrow
Web Focus 7.6.10 under Windows 2003
MVS 7.3.3