diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle index 8ecd4f3..e0dd7f8 100644 --- a/meddfntstp.rpgle +++ b/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 //=====================================================================