persistent 1 %Persistent 0 SerialBase Do ##class(zTryout.PRA.PolymorphEmbedded.Persistent1).TestSaveLoad() 1 %Library.CacheStorage ^zTryout.PRA.PolB24.Persistent1D Persistent1DefaultData ^zTryout.PRA.PolB24.Persistent1D ^zTryout.PRA.PolB24.Persistent1I ^zTryout.PRA.PolB24.Persistent1S listnode %%CLASSNAME SomeSerialObject