From b0c6260c379905648cfbe34aafb2c3be79e57018 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 8 Sep 2026 13:02:52 +0200
Subject: [PATCH] Test um zweites Medifile erweitert

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

diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index 8ecd4f3..e0dd7f8 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -314,6 +314,77 @@ else;
 
 endif;
 
+//=====================================================================
+// Device 1 / Media File 2
+//=====================================================================
+
+dsply 'Media File 2';
+
+if MediaDefinition.Device(1)
+      .MediaFile(2)
+      .SequenceNumber =
+   OriginalDefinition.Device(1)
+      .MediaFile(2)
+      .SequenceNumber;
+
+   dsply 'PASS Device 1 Media File 2 SequenceNumber';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 2 SequenceNumber';
+
+endif;
+
+
+if MediaDefinition.Device(1)
+      .MediaFile(2)
+      .StartingPositionInFile =
+   OriginalDefinition.Device(1)
+      .MediaFile(2)
+      .StartingPositionInFile;
+
+   dsply 'PASS Device 1 Media File 2 StartingPositionInFile';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 2 StartingPositionInFile';
+
+endif;
+
+
+if MediaDefinition.Device(1)
+      .MediaFile(2)
+      .NumberOfVolumeIdentifiers =
+   OriginalDefinition.Device(1)
+      .MediaFile(2)
+      .NumberOfVolumeIdentifiers;
+
+   dsply 'PASS Device 1 Media File 2 NumberOfVolumes';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 2 NumberOfVolumes';
+
+endif;
+
+
+if MediaDefinition.Device(1)
+      .MediaFile(2)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(1)
+      .MediaFile(2)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 1 Media File 2 Volume 1';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 2 Volume 1';
+
+endif;
+
 
 //=====================================================================
 // Device 1 / Volume 1
@@ -423,6 +494,78 @@ else;
 endif;
 
 
+//=====================================================================
+// Device 2 / Media File 2
+//=====================================================================
+
+dsply 'Media File 2';
+
+if MediaDefinition.Device(2)
+      .MediaFile(2)
+      .SequenceNumber =
+   OriginalDefinition.Device(2)
+      .MediaFile(2)
+      .SequenceNumber;
+
+   dsply 'PASS Device 2 Media File 2 SequenceNumber';
+
+else;
+
+   dsply 'FAIL Device 2 Media File 2 SequenceNumber';
+
+endif;
+
+
+if MediaDefinition.Device(2)
+      .MediaFile(2)
+      .StartingPositionInFile =
+   OriginalDefinition.Device(2)
+      .MediaFile(2)
+      .StartingPositionInFile;
+
+   dsply 'PASS Device 2 Media File 2 StartingPositionInFile';
+
+else;
+
+   dsply 'FAIL Device 2 Media File 2 StartingPositionInFile';
+
+endif;
+
+
+if MediaDefinition.Device(2)
+      .MediaFile(2)
+      .NumberOfVolumeIdentifiers =
+   OriginalDefinition.Device(2)
+      .MediaFile(2)
+      .NumberOfVolumeIdentifiers;
+
+   dsply 'PASS Device 2 Media File 2 NumberOfVolumes';
+
+else;
+
+   dsply 'FAIL Device 2 Media File 2 NumberOfVolumes';
+
+endif;
+
+
+if MediaDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 2 Media File 2 Volume 1';
+
+else;
+
+   dsply 'FAIL Device 2 Media File 2 Volume 1';
+
+endif;
+
+
 //=====================================================================
 // Device 2 / Volume 1
 //=====================================================================