diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index 20af187..e82a628 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -118,9 +118,9 @@ MD_RetrieveMediaDefinition(
 dsply 'Retrieve completed';
 
 
-//---------------------------------------------------------------------
+//=====================================================================
 // Tests
-//---------------------------------------------------------------------
+//=====================================================================
 
 dsply '----------------------------------------';
 dsply 'Parser result';
@@ -166,6 +166,7 @@ else;
 
 endif;
 
+
 //=====================================================================
 // General - additional fields
 //=====================================================================
@@ -230,7 +231,6 @@ else;
 endif;
 
 
-
 //=====================================================================
 // Device 1
 //=====================================================================
@@ -238,6 +238,7 @@ endif;
 dsply '----------------------------------------';
 dsply 'Device 1';
 
+
 if MediaDefinition.Device(1).DeviceName =
       OriginalDefinition.Device(1).DeviceName;
 
@@ -268,6 +269,7 @@ endif;
 
 dsply 'Media File 1';
 
+
 if MediaDefinition.Device(1)
       .MediaFile(1)
       .SequenceNumber =
@@ -283,6 +285,7 @@ else;
 
 endif;
 
+
 if MediaDefinition.Device(1)
       .MediaFile(1)
       .StartingPositionInFile =
@@ -306,14 +309,33 @@ if MediaDefinition.Device(1)
       .MediaFile(1)
       .NumberOfVolumeIdentifiers;
 
-   dsply 'PASS Device 1 NumberOfVolumes';
+   dsply 'PASS Device 1 Media File 1 NumberOfVolumes';
 
 else;
 
-   dsply 'FAIL Device 1 NumberOfVolumes';
+   dsply 'FAIL Device 1 Media File 1 NumberOfVolumes';
 
 endif;
 
+
+if MediaDefinition.Device(1)
+      .MediaFile(1)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(1)
+      .MediaFile(1)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 1 Media File 1 Volume 1';
+
+else;
+
+   dsply 'FAIL Device 1 Media File 1 Volume 1';
+
+endif;
+
+
 if MediaDefinition.Device(1)
       .MediaFile(1)
       .VolumeIdentifier(2)
@@ -338,6 +360,7 @@ endif;
 
 dsply 'Media File 2';
 
+
 if MediaDefinition.Device(1)
       .MediaFile(2)
       .SequenceNumber =
@@ -404,45 +427,22 @@ else;
 endif;
 
 
-//=====================================================================
-// Device 1 / Volume 1
-//=====================================================================
-
-dsply 'Volume 1';
-
 if MediaDefinition.Device(1)
-      .MediaFile(1)
-      .VolumeIdentifier(1)
+      .MediaFile(2)
+      .VolumeIdentifier(2)
       .VolumeIdentifier =
    OriginalDefinition.Device(1)
-      .MediaFile(1)
-      .VolumeIdentifier(1)
+      .MediaFile(2)
+      .VolumeIdentifier(2)
       .VolumeIdentifier;
 
-   dsply 'PASS Device 1 Volume 1';
+   dsply 'PASS Device 1 Media File 2 Volume 2';
 
 else;
 
-   dsply 'FAIL Device 1 Volume 1';
+   dsply 'FAIL Device 1 Media File 2 Volume 2';
 
 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;   
-
 
 
 //=====================================================================
@@ -452,6 +452,7 @@ endif;
 dsply '----------------------------------------';
 dsply 'Device 2';
 
+
 if MediaDefinition.Device(2).DeviceName =
       OriginalDefinition.Device(2).DeviceName;
 
@@ -482,6 +483,7 @@ endif;
 
 dsply 'Media File 1';
 
+
 if MediaDefinition.Device(2)
       .MediaFile(1)
       .SequenceNumber =
@@ -489,14 +491,15 @@ if MediaDefinition.Device(2)
       .MediaFile(1)
       .SequenceNumber;
 
-   dsply 'PASS Device 2 SequenceNumber';
+   dsply 'PASS Device 2 Media File 1 SequenceNumber';
 
 else;
 
-   dsply 'FAIL Device 2 SequenceNumber';
+   dsply 'FAIL Device 2 Media File 1 SequenceNumber';
 
 endif;
 
+
 if MediaDefinition.Device(2)
       .MediaFile(1)
       .StartingPositionInFile =
@@ -504,11 +507,11 @@ if MediaDefinition.Device(2)
       .MediaFile(1)
       .StartingPositionInFile;
 
-   dsply 'PASS Device 2 StartingPositionInFile';
+   dsply 'PASS Device 2 Media File 1 StartingPositionInFile';
 
 else;
 
-   dsply 'FAIL Device 2 StartingPositionInFile';
+   dsply 'FAIL Device 2 Media File 1 StartingPositionInFile';
 
 endif;
 
@@ -520,14 +523,33 @@ if MediaDefinition.Device(2)
       .MediaFile(1)
       .NumberOfVolumeIdentifiers;
 
-   dsply 'PASS Device 2 NumberOfVolumes';
+   dsply 'PASS Device 2 Media File 1 NumberOfVolumes';
 
 else;
 
-   dsply 'FAIL Device 2 NumberOfVolumes';
+   dsply 'FAIL Device 2 Media File 1 NumberOfVolumes';
 
 endif;
 
+
+if MediaDefinition.Device(2)
+      .MediaFile(1)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+   OriginalDefinition.Device(2)
+      .MediaFile(1)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier;
+
+   dsply 'PASS Device 2 Media File 1 Volume 1';
+
+else;
+
+   dsply 'FAIL Device 2 Media File 1 Volume 1';
+
+endif;
+
+
 if MediaDefinition.Device(2)
       .MediaFile(1)
       .VolumeIdentifier(2)
@@ -537,11 +559,11 @@ if MediaDefinition.Device(2)
       .VolumeIdentifier(2)
       .VolumeIdentifier;
 
-   dsply 'PASS Device 1 Media File 1 Volume 2';
+   dsply 'PASS Device 2 Media File 1 Volume 2';
 
 else;
 
-   dsply 'FAIL Device 1 Media File 1 Volume 2';
+   dsply 'FAIL Device 2 Media File 1 Volume 2';
 
 endif;
 
@@ -552,6 +574,7 @@ endif;
 
 dsply 'Media File 2';
 
+
 if MediaDefinition.Device(2)
       .MediaFile(2)
       .SequenceNumber =
@@ -627,37 +650,19 @@ if MediaDefinition.Device(2)
       .VolumeIdentifier(2)
       .VolumeIdentifier;
 
-   dsply 'PASS Device 1 Media File 1 Volume 2';
+   dsply 'PASS Device 2 Media File 2 Volume 2';
 
 else;
 
-   dsply 'FAIL Device 1 Media File 1 Volume 2';
-
-endif;
-//=====================================================================
-// Device 2 / Volume 1
-//=====================================================================
-
-dsply 'Volume 1';
-
-if MediaDefinition.Device(2)
-      .MediaFile(1)
-      .VolumeIdentifier(1)
-      .VolumeIdentifier =
-   OriginalDefinition.Device(2)
-      .MediaFile(1)
-      .VolumeIdentifier(1)
-      .VolumeIdentifier;
-
-   dsply 'PASS Device 2 Volume 1';
-
-else;
-
-   dsply 'FAIL Device 2 Volume 1';
+   dsply 'FAIL Device 2 Media File 2 Volume 2';
 
 endif;
 
 
+//=====================================================================
+// Test completed
+//=====================================================================
+
 dsply '----------------------------------------';
 dsply 'Parser test completed';
 dsply '----------------------------------------';
@@ -680,12 +685,20 @@ return;
 //   2 Devices
 //
 //   Device 1
-//     1 Media File
+//     Media File 1
 //       DAK066
+//       DAK067
+//     Media File 2
+//       DAK079
+//       DAK080
 //
 //   Device 2
-//     1 Media File
-//       DAK079
+//     Media File 1
+//       DAK089
+//       DAK090
+//     Media File 2
+//       DAK091
+//       DAK092
 //
 //=====================================================================
 
@@ -737,6 +750,11 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(1).NumberOfMediaFiles =
       2;
 
+
+   //---------------------------------------------------------------
+   // Device 1 / Media File 1
+   //---------------------------------------------------------------
+
    MediaDefinition.Device(1)
       .MediaFile(1)
       .SequenceNumber =
@@ -753,43 +771,48 @@ dcl-proc BuildTestDefinition;
          2;
 
    MediaDefinition.Device(1)
-   .MediaFile(1)
-   .VolumeIdentifier(1)
-   .VolumeIdentifier = 'DAK066';
+      .MediaFile(1)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+         'DAK066';
 
    MediaDefinition.Device(1)
-   .MediaFile(1)
-   .VolumeIdentifier(2)
-   .VolumeIdentifier = 'DAK067';
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+         'DAK067';
 
 
+   //---------------------------------------------------------------
+   // Device 1 / Media File 2
+   //---------------------------------------------------------------
+
    MediaDefinition.Device(1)
-   .MediaFile(2)
-   .SequenceNumber = 1;
+      .MediaFile(2)
+      .SequenceNumber =
+         1;
 
    MediaDefinition.Device(1)
-   .MediaFile(2)
-   .StartingPositionInFile = *ALL'0';
+      .MediaFile(2)
+      .StartingPositionInFile =
+         *ALL'0';
 
    MediaDefinition.Device(1)
-   .MediaFile(2)
-   .NumberOfVolumeIdentifiers = 2;
+      .MediaFile(2)
+      .NumberOfVolumeIdentifiers =
+         2;
 
    MediaDefinition.Device(1)
-   .MediaFile(2)
-   .NumberOfVolumeIdentifiers = 2;
+      .MediaFile(2)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+         'DAK079';
 
    MediaDefinition.Device(1)
-   .MediaFile(2)
-   .VolumeIdentifier(1)
-   .VolumeIdentifier = 'DAK079';
-
-   MediaDefinition.Device(1)
-   .MediaFile(2)
-   .VolumeIdentifier(2)
-   .VolumeIdentifier = 'DAK080';
-
-
+      .MediaFile(2)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+         'DAK080';
 
 
    //---------------------------------------------------------------
@@ -802,6 +825,11 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.Device(2).NumberOfMediaFiles =
       2;
 
+
+   //---------------------------------------------------------------
+   // Device 2 / Media File 1
+   //---------------------------------------------------------------
+
    MediaDefinition.Device(2)
       .MediaFile(1)
       .SequenceNumber =
@@ -813,34 +841,53 @@ dcl-proc BuildTestDefinition;
          *ALL'0';
 
    MediaDefinition.Device(2)
-   .MediaFile(1)
-   .NumberOfVolumeIdentifiers = 2;
+      .MediaFile(1)
+      .NumberOfVolumeIdentifiers =
+         2;
 
-MediaDefinition.Device(2)
-   .MediaFile(1)
-   .VolumeIdentifier(1)
-   .VolumeIdentifier = 'DAK089';
+   MediaDefinition.Device(2)
+      .MediaFile(1)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+         'DAK089';
 
-MediaDefinition.Device(2)
-   .MediaFile(1)
-   .VolumeIdentifier(2)
-   .VolumeIdentifier = 'DAK090';
+   MediaDefinition.Device(2)
+      .MediaFile(1)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+         'DAK090';
 
 
-MediaDefinition.Device(2)
-   .MediaFile(2)
-   .NumberOfVolumeIdentifiers = 2;
+   //---------------------------------------------------------------
+   // Device 2 / Media File 2
+   //---------------------------------------------------------------
 
-MediaDefinition.Device(2)
-   .MediaFile(2)
-   .VolumeIdentifier(1)
-   .VolumeIdentifier = 'DAK091';
+   MediaDefinition.Device(2)
+      .MediaFile(2)
+      .SequenceNumber =
+         1;
 
-MediaDefinition.Device(2)
-   .MediaFile(2)
-   .VolumeIdentifier(2)
-   .VolumeIdentifier = 'DAK092';
+   MediaDefinition.Device(2)
+      .MediaFile(2)
+      .StartingPositionInFile =
+         *ALL'0';
 
+   MediaDefinition.Device(2)
+      .MediaFile(2)
+      .NumberOfVolumeIdentifiers =
+         2;
+
+   MediaDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(1)
+      .VolumeIdentifier =
+         'DAK091';
+
+   MediaDefinition.Device(2)
+      .MediaFile(2)
+      .VolumeIdentifier(2)
+      .VolumeIdentifier =
+         'DAK092';
 
 
 end-proc;
\ No newline at end of file