diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle index c4e2f8f..60b2667 100644 --- a/meddfntstp.rpgle +++ b/meddfntstp.rpgle @@ -283,6 +283,21 @@ else; endif; +if MediaDefinition.Device(1) + .MediaFile(1) + .StartingPositionInFile = + OriginalDefinition.Device(1) + .MediaFile(1) + .StartingPositionInFile; + + dsply 'PASS Device 1 StartingPositionInFile'; + +else; + + dsply 'FAIL Device 1 StartingPositionInFile'; + +endif; + if MediaDefinition.Device(1) .MediaFile(1) @@ -376,6 +391,21 @@ else; endif; +if MediaDefinition.Device(2) + .MediaFile(1) + .StartingPositionInFile = + OriginalDefinition.Device(2) + .MediaFile(1) + .StartingPositionInFile; + + dsply 'PASS Device 2 StartingPositionInFile'; + +else; + + dsply 'FAIL Device 2 StartingPositionInFile'; + +endif; + if MediaDefinition.Device(2) .MediaFile(1)