I'm moving/restore all focus database (focus 7.08 os390 v1.3) from DASD 3380 to 3390 and the application failed to run. It only work if it move to same 3380 dasd. Please share the step to overcome this problem ..10q

What do you mean by failed to run? Whats the error or errors?

Moving from 3380's to 3390's should not cause a problem as long as you are not changing the DCB information on the files during the transfer (e.g. LREL).

You need to check the DCB information on the new 3390 files and check for any changes.

Please note that a FOCUS database cannot be shrunk as the first page tells it where the end of the file is. If there are less records you have lost this marker and you database has been broken.

If you can supply the error messages that you are receiving - I'm sure all of us old mainframers can give you a hand

Good luck!

Thank for the tips..
Currently i'm working with application folks to simulate the problem ..will pay attention to the DCB once the databse moved to 3390. Post the outcome soon...

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!! :-)