Für solche Fälle verwende ich in der per Definition:

dcl-ds $SvBefore likeds (SavRec);
dcl-ds $SvAfter likeds (SavRec);
Dann kann ich verschieben und vergleichen bis ich lustig bin.