From 01bf198b78ba14416d960827fc9c2959244aad98 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 8 Sep 2026 12:55:29 +0200
Subject: [PATCH] Test mit mehrere Media Files

---
 meddfntstp.rpgle | 43 +++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 41 insertions(+), 2 deletions(-)

diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index 60b2667..8ecd4f3 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -524,7 +524,7 @@ dcl-proc BuildTestDefinition;
       'TAPMLBBRMS';
 
    MediaDefinition.Device(1).NumberOfMediaFiles =
-      1;
+      2;
 
    MediaDefinition.Device(1)
       .MediaFile(1)
@@ -548,6 +548,26 @@ dcl-proc BuildTestDefinition;
          'DAK066';
 
 
+   MediaDefinition.Device(1)
+   .MediaFile(2)
+   .SequenceNumber = 1;
+
+   MediaDefinition.Device(1)
+   .MediaFile(2)
+   .StartingPositionInFile = *ALL'0';
+
+   MediaDefinition.Device(1)
+   .MediaFile(2)
+   .NumberOfVolumeIdentifiers = 1;
+
+   MediaDefinition.Device(1)
+   .MediaFile(2)
+   .VolumeIdentifier(1)
+   .VolumeIdentifier = 'DAK079';
+
+
+
+
    //---------------------------------------------------------------
    // Device 2 / Resource 2
    //---------------------------------------------------------------
@@ -556,7 +576,7 @@ dcl-proc BuildTestDefinition;
       'TAPMLBBRMS';
 
    MediaDefinition.Device(2).NumberOfMediaFiles =
-      1;
+      2;
 
    MediaDefinition.Device(2)
       .MediaFile(1)
@@ -579,4 +599,23 @@ dcl-proc BuildTestDefinition;
       .VolumeIdentifier =
          'DAK079';
 
+   MediaDefinition.Device(2)
+   .MediaFile(2)
+   .SequenceNumber = 1;
+
+   MediaDefinition.Device(2)
+   .MediaFile(2)
+   .StartingPositionInFile = *ALL'0';
+
+   MediaDefinition.Device(2)
+   .MediaFile(2)
+   .NumberOfVolumeIdentifiers = 1;
+
+   MediaDefinition.Device(2)
+   .MediaFile(2)
+   .VolumeIdentifier(1)
+   .VolumeIdentifier = 'DAK091';
+
+
+
 end-proc;
\ No newline at end of file