diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle index 44c862f..69e83d7 100644 --- a/meddfntstp.rpgle +++ b/meddfntstp.rpgle @@ -251,13 +251,13 @@ for DeviceIndex = 1 if MediaDefinition.Device(DeviceIndex).DeviceName = OriginalDefinition.Device(DeviceIndex).DeviceName; - dsply ('PASS Device ' + + dsply ('PASS D' + %char(DeviceIndex) + ' DeviceName'); else; - dsply ('FAIL Device ' + + dsply ('FAIL D' + %char(DeviceIndex) + ' DeviceName'); @@ -271,13 +271,13 @@ for DeviceIndex = 1 if MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles = OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles; - dsply ('PASS Device ' + + dsply ('PASS D' + %char(DeviceIndex) + ' NumberOfMediaFiles'); else; - dsply ('FAIL Device ' + + dsply ('FAIL D' + %char(DeviceIndex) + ' NumberOfMediaFiles'); @@ -306,17 +306,17 @@ for DeviceIndex = 1 .MediaFile(MediaIndex) .SequenceNumber; - dsply ('PASS Device ' + + dsply ('PASS D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + ' SequenceNumber'); else; - dsply ('FAIL Device ' + + dsply ('FAIL D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + ' SequenceNumber'); @@ -334,19 +334,19 @@ for DeviceIndex = 1 .MediaFile(MediaIndex) .StartingPositionInFile; - dsply ('PASS Device ' + + dsply ('PASS D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + - ' StartingPositionInFile'); + ' StartPosition'); else; - dsply ('FAIL Device ' + + dsply ('FAIL D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + - ' StartingPositionInFile'); + ' StartPosition'); endif; @@ -362,19 +362,19 @@ for DeviceIndex = 1 .MediaFile(MediaIndex) .NumberOfVolumeIdentifiers; - dsply ('PASS Device ' + + dsply ('PASS D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + - ' NumberOfVolumeIdentifiers'); + ' NumberOfVolumes'); else; - dsply ('FAIL Device ' + + dsply ('FAIL D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + - ' NumberOfVolumeIdentifiers'); + ' NumberOfVolumes'); endif; @@ -397,20 +397,20 @@ for DeviceIndex = 1 .VolumeIdentifier(VolumeIndex) .VolumeIdentifier; - dsply ('PASS Device ' + + dsply ('PASS D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + - ' Volume ' + + ' V' + %char(VolumeIndex)); else; - dsply ('FAIL Device ' + + dsply ('FAIL D' + %char(DeviceIndex) + - ' Media File ' + + ' M' + %char(MediaIndex) + - ' Volume ' + + ' V' + %char(VolumeIndex)); endif;