diff --git a/meddfnhtst.rpgle b/meddfnhtst.rpgle
index 6f878ca..6c65e3c 100644
--- a/meddfnhtst.rpgle
+++ b/meddfnhtst.rpgle
@@ -216,11 +216,23 @@ MediaDefinition.Replace =
 
 clear Error;
 
+dsply 'MEDDFNHTST START';
+
 MD_CreateMediaDefinition(
    MediaDefinition :
    Error);
 
 
+if Error.HasError;
+
+   dsply ('ERROR ' + Error.MessageID);
+
+else;
+
+   dsply 'MEDDFN CREATE OK';
+
+endif;
+
 //=====================================================================
 //
 // End