Test Mehrere Volumes im Mediafile

meddfntstp.rpgle

@@ -314,6 +314,24 @@ else;
 
 endif;
 
+if MediaDefinition.Device(1)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(1)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 1 Media File 1 Volume 2';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 1 Volume 2';
+
+endif;
+
+
 //=====================================================================
 // Device 1 / Media File 2
 //=====================================================================
@@ -408,6 +426,23 @@ else;
    dsply 'FAIL Device 1 Volume 1';
 
 endif;
+if MediaDefinition.Device(1)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(1)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 1 Media File 1 Volume 2';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 1 Volume 2';
+
+endif;   
+
 
 
 //=====================================================================
@@ -493,6 +528,23 @@ else;
 
 endif;
 
+if MediaDefinition.Device(2)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(2)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 1 Media File 1 Volume 2';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 1 Volume 2';
+
+endif;
+
 
 //=====================================================================
 // Device 2 / Media File 2
@@ -566,6 +618,22 @@ else;
 endif;
 
 
+if MediaDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 1 Media File 1 Volume 2';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 1 Volume 2';
+
+endif;
 //=====================================================================
 // Device 2 / Volume 1
 //=====================================================================
@@ -682,13 +750,17 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(1)
       .MediaFile(1)
       .NumberOfVolumeIdentifiers =
-         1;
+         2;
 
    MediaDefinition.Device(1)
-      .MediaFile(1)
+   .MediaFile(1)
-      .VolumeIdentifier(1)
+   .VolumeIdentifier(1)
-      .VolumeIdentifier =
+   .VolumeIdentifier = 'DAK066';
-         'DAK066';
+
+   MediaDefinition.Device(1)
+   .MediaFile(1)
+   .VolumeIdentifier(2)
+   .VolumeIdentifier = 'DAK067';
 
 
    MediaDefinition.Device(1)
@@ -701,13 +773,22 @@ dcl-proc BuildTestDefinition;
 
    MediaDefinition.Device(1)
    .MediaFile(2)
-   .NumberOfVolumeIdentifiers = 1;
+   .NumberOfVolumeIdentifiers = 2;
+
+   MediaDefinition.Device(1)
+   .MediaFile(2)
+   .NumberOfVolumeIdentifiers = 2;
 
    MediaDefinition.Device(1)
    .MediaFile(2)
    .VolumeIdentifier(1)
    .VolumeIdentifier = 'DAK079';
 
+   MediaDefinition.Device(1)
+   .MediaFile(2)
+   .VolumeIdentifier(2)
+   .VolumeIdentifier = 'DAK080';
+
 
 
 
@@ -732,33 +813,34 @@ dcl-proc BuildTestDefinition;
          *ALL'0';
 
    MediaDefinition.Device(2)
-      .MediaFile(1)
+   .MediaFile(1)
-      .NumberOfVolumeIdentifiers =
+   .NumberOfVolumeIdentifiers = 2;
-         1;
 
-   MediaDefinition.Device(2)
+MediaDefinition.Device(2)
-      .MediaFile(1)
+   .MediaFile(1)
-      .VolumeIdentifier(1)
+   .VolumeIdentifier(1)
-      .VolumeIdentifier =
+   .VolumeIdentifier = 'DAK089';
-         'DAK079';
 
-   MediaDefinition.Device(2)
+MediaDefinition.Device(2)
+   .MediaFile(1)
+   .VolumeIdentifier(2)
+   .VolumeIdentifier = 'DAK090';
+
+
+MediaDefinition.Device(2)
    .MediaFile(2)
-   .SequenceNumber = 1;
+   .NumberOfVolumeIdentifiers = 2;
 
-   MediaDefinition.Device(2)
+MediaDefinition.Device(2)
-   .MediaFile(2)
-   .StartingPositionInFile = *ALL'0';
-
-   MediaDefinition.Device(2)
-   .MediaFile(2)
-   .NumberOfVolumeIdentifiers = 1;
-
-   MediaDefinition.Device(2)
    .MediaFile(2)
    .VolumeIdentifier(1)
    .VolumeIdentifier = 'DAK091';
 
+MediaDefinition.Device(2)
+   .MediaFile(2)
+   .VolumeIdentifier(2)
+   .VolumeIdentifier = 'DAK092';
+
 
 
 end-proc;