CASTM5034S IMS TM message queue segment error: block queue-file-block; segment segment-number

The IMS TM message queue disk storage is corrupted.
System Action:
System attempts to correct error.
Resolution:
Asses system damage, stop and repair system if necessary.
Module:
castmc
Destination:
Console