//S1 EXEC PGM=TESTING
//DS1 DD SYSOUT=C
//SYSABEND DD SYSOUT=A,FCB=STD3,CHARS=DUMP
//INDS DD *
.
.
(data)
.
/*
This example produces a high-density dump, if TESTING abnormally terminates.