From 8d45a2fdfce5898d27a9129d5c307f2954d99279 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 8 Sep 2026 16:23:07 +0200
Subject: [PATCH] =?UTF-8?q?DSPLY=20verk=C3=BCrtzt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 meddfntstp.rpgle | 52 ++++++++++++++++++++++++------------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

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;