Example 1

See SAMPLIB(HZSSADCK) for a sample routine which uses the HZSADDCK service and which is intended to be registered with the HZSADDCHECK dynamic exit.