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 = if MediaDefinition.Device(DeviceIndex).DeviceName =
OriginalDefinition.Device(DeviceIndex).DeviceName; OriginalDefinition.Device(DeviceIndex).DeviceName;
dsply ('PASS Device ' + dsply ('PASS D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' DeviceName'); ' DeviceName');
else; else;
dsply ('FAIL Device ' + dsply ('FAIL D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' DeviceName'); ' DeviceName');
@@ -271,13 +271,13 @@ for DeviceIndex = 1
if MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles = if MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles =
OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles; OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles;
dsply ('PASS Device ' + dsply ('PASS D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' NumberOfMediaFiles'); ' NumberOfMediaFiles');
else; else;
dsply ('FAIL Device ' + dsply ('FAIL D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' NumberOfMediaFiles'); ' NumberOfMediaFiles');
@@ -306,17 +306,17 @@ for DeviceIndex = 1
.MediaFile(MediaIndex) .MediaFile(MediaIndex)
.SequenceNumber; .SequenceNumber;
dsply ('PASS Device ' + dsply ('PASS D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' SequenceNumber'); ' SequenceNumber');
else; else;
dsply ('FAIL Device ' + dsply ('FAIL D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' SequenceNumber'); ' SequenceNumber');
@@ -334,19 +334,19 @@ for DeviceIndex = 1
.MediaFile(MediaIndex) .MediaFile(MediaIndex)
.StartingPositionInFile; .StartingPositionInFile;
dsply ('PASS Device ' + dsply ('PASS D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' StartingPositionInFile'); ' StartPosition');
else; else;
dsply ('FAIL Device ' + dsply ('FAIL D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' StartingPositionInFile'); ' StartPosition');
endif; endif;
@@ -362,19 +362,19 @@ for DeviceIndex = 1
.MediaFile(MediaIndex) .MediaFile(MediaIndex)
.NumberOfVolumeIdentifiers; .NumberOfVolumeIdentifiers;
dsply ('PASS Device ' + dsply ('PASS D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' NumberOfVolumeIdentifiers'); ' NumberOfVolumes');
else; else;
dsply ('FAIL Device ' + dsply ('FAIL D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' NumberOfVolumeIdentifiers'); ' NumberOfVolumes');
endif; endif;
@@ -397,20 +397,20 @@ for DeviceIndex = 1
.VolumeIdentifier(VolumeIndex) .VolumeIdentifier(VolumeIndex)
.VolumeIdentifier; .VolumeIdentifier;
dsply ('PASS Device ' + dsply ('PASS D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' Volume ' + ' V' +
%char(VolumeIndex)); %char(VolumeIndex));
else; else;
dsply ('FAIL Device ' + dsply ('FAIL D' +
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' M' +
%char(MediaIndex) + %char(MediaIndex) +
' Volume ' + ' V' +
%char(VolumeIndex)); %char(VolumeIndex));
endif; endif;