In reply to Werner HELM.

/* print some samples for which the tests disagree */
proc print data=Results(obs=10);
where (RejectW ^= RejectD);
run;
/* Merge the test results and the original data for SampleID in (4, 28).
Add label to identify the test results. */
data Diff;
merge Sim(where=(SampleID in (4,28)))
Results(where=(SampleID in (4,28)));
by SampleID;
if RejectW=1 & RejectD=0 then label="S-W Test Rejects; K-S Test Does Not";
if RejectW=0 & RejectD=1 then label="K-S Test Rejects; S-W Test Does Not";
run;

ods graphics / width=480px height=480px;
title "Two Samples for which Normality Tests Differ";
proc sgpanel data=Diff noautolegend;
panelby label / layout=rowlattice columns=1 novarname rowheaderpos=Right;
histogram x / binwidth=0.5;
density x;
run;