Testprogramm für Grenzfälle angepasst

meddfntstp.rpgle

@@ -680,25 +680,16 @@ return;
 //
 // BuildTestDefinition
 //
-// Builds:
+// Builds a TAPE0200 test definition with:
-//
-//   2 Devices
 //
 //   Device 1
-//     Media File 1
+//      Media File 1 -> 0 Volumes
-//       DAK066
+//      Media File 2 -> 1 Volume
-//       DAK067
+//      Media File 3 -> 3 Volumes
-//     Media File 2
-//       DAK079
-//       DAK080
 //
 //   Device 2
-//     Media File 1
+//      Media File 1 -> 1 Volume
-//       DAK089
+//      Media File 2 -> 3 Volumes
-//       DAK090
-//     Media File 2
-//       DAK091
-//       DAK092
 //
 //=====================================================================
 
@@ -740,19 +731,20 @@ dcl-proc BuildTestDefinition;
       2;
 
 
-   //---------------------------------------------------------------
+   //=================================================================
-   // Device 1 / Resource 1
+   // Device 1
-   //---------------------------------------------------------------
+   //=================================================================
 
    MediaDefinition.Device(1).DeviceName =
       'TAPMLBBRMS';
 
    MediaDefinition.Device(1).NumberOfMediaFiles =
-      2;
+      3;
 
 
    //---------------------------------------------------------------
    // Device 1 / Media File 1
+   // 0 Volumes
    //---------------------------------------------------------------
 
    MediaDefinition.Device(1)
@@ -763,28 +755,17 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(1)
       .MediaFile(1)
       .StartingPositionInFile =
-         'START-DEVICE1-MEDIAFILE1';
+         *ALL'0';
 
    MediaDefinition.Device(1)
       .MediaFile(1)
       .NumberOfVolumeIdentifiers =
-         2;
+         0;
-
-   MediaDefinition.Device(1)
-      .MediaFile(1)
-      .VolumeIdentifier(1)
-      .VolumeIdentifier =
-         'DAK066';
-
-   MediaDefinition.Device(1)
-      .MediaFile(1)
-      .VolumeIdentifier(2)
-      .VolumeIdentifier =
-         'DAK067';
 
 
    //---------------------------------------------------------------
    // Device 1 / Media File 2
+   // 1 Volume
    //---------------------------------------------------------------
 
    MediaDefinition.Device(1)
@@ -795,29 +776,62 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(1)
       .MediaFile(2)
       .StartingPositionInFile =
-         'START-DEVICE1-MEDIAFILE2';
+         *ALL'1';
 
    MediaDefinition.Device(1)
       .MediaFile(2)
       .NumberOfVolumeIdentifiers =
-         2;
+         1;
 
    MediaDefinition.Device(1)
       .MediaFile(2)
       .VolumeIdentifier(1)
       .VolumeIdentifier =
-         'DAK079';
+         'D1M2V1';
+
+
+   //---------------------------------------------------------------
+   // Device 1 / Media File 3
+   // 3 Volumes
+   //---------------------------------------------------------------
 
    MediaDefinition.Device(1)
-      .MediaFile(2)
+      .MediaFile(3)
+      .SequenceNumber =
+         2;
+
+   MediaDefinition.Device(1)
+      .MediaFile(3)
+      .StartingPositionInFile =
+         *ALL'2';
+
+   MediaDefinition.Device(1)
+      .MediaFile(3)
+      .NumberOfVolumeIdentifiers =
+         3;
+
+   MediaDefinition.Device(1)
+      .MediaFile(3)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+         'D1M3V1';
+
+   MediaDefinition.Device(1)
+      .MediaFile(3)
       .VolumeIdentifier(2)
       .VolumeIdentifier =
-         'DAK080';
+         'D1M3V2';
+
+   MediaDefinition.Device(1)
+      .MediaFile(3)
+      .VolumeIdentifier(3)
+      .VolumeIdentifier =
+         'D1M3V3';
 
 
-   //---------------------------------------------------------------
+   //=================================================================
-   // Device 2 / Resource 2
+   // Device 2
-   //---------------------------------------------------------------
+   //=================================================================
 
    MediaDefinition.Device(2).DeviceName =
       'TAPMLBBRMS';
@@ -828,6 +842,7 @@ dcl-proc BuildTestDefinition;
 
    //---------------------------------------------------------------
    // Device 2 / Media File 1
+   // 1 Volume
    //---------------------------------------------------------------
 
    MediaDefinition.Device(2)
@@ -838,28 +853,23 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(2)
       .MediaFile(1)
       .StartingPositionInFile =
-         'START-DEVICE2-MEDIAFILE1';
+         *ALL'3';
 
    MediaDefinition.Device(2)
       .MediaFile(1)
       .NumberOfVolumeIdentifiers =
-         2;
+         1;
 
    MediaDefinition.Device(2)
       .MediaFile(1)
       .VolumeIdentifier(1)
       .VolumeIdentifier =
-         'DAK089';
+         'D2M1V1';
-
-   MediaDefinition.Device(2)
-      .MediaFile(1)
-      .VolumeIdentifier(2)
-      .VolumeIdentifier =
-         'DAK090';
 
 
    //---------------------------------------------------------------
    // Device 2 / Media File 2
+   // 3 Volumes
    //---------------------------------------------------------------
 
    MediaDefinition.Device(2)
@@ -870,23 +880,29 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(2)
       .MediaFile(2)
       .StartingPositionInFile =
-         'START-DEVICE2-MEDIAFILE2';
+         *ALL'4';
 
    MediaDefinition.Device(2)
       .MediaFile(2)
       .NumberOfVolumeIdentifiers =
-         2;
+         3;
 
    MediaDefinition.Device(2)
       .MediaFile(2)
       .VolumeIdentifier(1)
       .VolumeIdentifier =
-         'DAK091';
+         'D2M2V1';
 
    MediaDefinition.Device(2)
       .MediaFile(2)
       .VolumeIdentifier(2)
       .VolumeIdentifier =
-         'DAK092';
+         'D2M2V2';
+
+   MediaDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(3)
+      .VolumeIdentifier =
+         'D2M2V3';
 
 end-proc;