Test um zweites Medifile erweitert

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
 //=====================================================================