From ef920ea6e19fea1aed66491b171dbd20c5a86261 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 8 Sep 2026 12:36:53 +0200
Subject: [PATCH] MEDDFNTEST test von StartingPositionInFile

---
 meddfntstp.rpgle | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index c4e2f8f..60b2667 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -283,6 +283,21 @@ else;
 
 endif;
 
+if MediaDefinition.Device(1)
+      .MediaFile(1)
+      .StartingPositionInFile =
+   OriginalDefinition.Device(1)
+      .MediaFile(1)
+      .StartingPositionInFile;
+
+   dsply 'PASS Device 1 StartingPositionInFile';
+
+else;
+
+   dsply 'FAIL Device 1 StartingPositionInFile';
+
+endif;
+
 
 if MediaDefinition.Device(1)
       .MediaFile(1)
@@ -376,6 +391,21 @@ else;
 
 endif;
 
+if MediaDefinition.Device(2)
+      .MediaFile(1)
+      .StartingPositionInFile =
+   OriginalDefinition.Device(2)
+      .MediaFile(1)
+      .StartingPositionInFile;
+
+   dsply 'PASS Device 2 StartingPositionInFile';
+
+else;
+
+   dsply 'FAIL Device 2 StartingPositionInFile';
+
+endif;
+
 
 if MediaDefinition.Device(2)
       .MediaFile(1)