ecki/MEDDFN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DSPLY verkürtzt

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 16:23:07 +02:00
parent 826c9f0ef9
commit 8d45a2fdfc
1 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+26 -26
View File
@@ -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;