diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle index e0dd7f8..20af187 100644 --- a/meddfntstp.rpgle +++ b/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) - .VolumeIdentifier(1) - .VolumeIdentifier = - 'DAK066'; + .MediaFile(1) + .VolumeIdentifier(1) + .VolumeIdentifier = '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) - .NumberOfVolumeIdentifiers = - 1; + .MediaFile(1) + .NumberOfVolumeIdentifiers = 2; - MediaDefinition.Device(2) - .MediaFile(1) - .VolumeIdentifier(1) - .VolumeIdentifier = - 'DAK079'; +MediaDefinition.Device(2) + .MediaFile(1) + .VolumeIdentifier(1) + .VolumeIdentifier = 'DAK089'; - MediaDefinition.Device(2) +MediaDefinition.Device(2) + .MediaFile(1) + .VolumeIdentifier(2) + .VolumeIdentifier = 'DAK090'; + + +MediaDefinition.Device(2) .MediaFile(2) - .SequenceNumber = 1; + .NumberOfVolumeIdentifiers = 2; - MediaDefinition.Device(2) - .MediaFile(2) - .StartingPositionInFile = *ALL'0'; - - MediaDefinition.Device(2) - .MediaFile(2) - .NumberOfVolumeIdentifiers = 1; - - MediaDefinition.Device(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