Open Exchange App snapshot to JSON

Primary tabs

This is a sample to use the new %JSON.Adaptor class available in IRIS
to produce a snapshot of your object.The sample consists of 2 classes that are variations of what was
known in Caché/SAMPLES as Sample.Person.
Be aware that the possibilities are limited by %JSON.Adapter
and how you make use of it.

Once in place you create some test data by Populate(). You select an object and take a snapshot.
You apply changes to your object take another snapshot.
And see the difference.

BINGO! 

You may argue:
   "Uhh. We could have done this with %XML.Adapter in Caché since ever !"
RIGHT!
But who of you really did it ???