From eedba63fe2032750eda8bf8185c69c50f1294cd2 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 6 Oct 2026 15:02:47 +0200
Subject: [PATCH] Debug Output in meddfnhtst

---
 meddfnhtst.rpgle | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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