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

Test Mehrere Volumes im Mediafile

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 13:29:17 +02:00
parent b0c6260c37
commit 2f85a438cc
1 changed files with 107 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+107 -25
View File
@@ -314,6 +314,24 @@ else;
endif;
if MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
OriginalDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2';
else;
dsply 'FAIL Device 1 Media File 1 Volume 2';
endif;
//=====================================================================
// Device 1 / Media File 2
//=====================================================================
@@ -408,6 +426,23 @@ else;
dsply 'FAIL Device 1 Volume 1';
endif;
if MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
OriginalDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2';
else;
dsply 'FAIL Device 1 Media File 1 Volume 2';
endif;
//=====================================================================
@@ -493,6 +528,23 @@ else;
endif;
if MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
OriginalDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2';
else;
dsply 'FAIL Device 1 Media File 1 Volume 2';
endif;
//=====================================================================
// Device 2 / Media File 2
@@ -566,6 +618,22 @@ else;
endif;
if MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier =
OriginalDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2';
else;
dsply 'FAIL Device 1 Media File 1 Volume 2';
endif;
//=====================================================================
// Device 2 / Volume 1
//=====================================================================
@@ -682,13 +750,17 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1)
.MediaFile(1)
.NumberOfVolumeIdentifiers =
1;
2;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK066';
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK066';
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK067';
MediaDefinition.Device(1)
@@ -701,13 +773,22 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 1;
.NumberOfVolumeIdentifiers = 2;
MediaDefinition.Device(1)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 2;
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK079';
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK080';
@@ -732,33 +813,34 @@ dcl-proc BuildTestDefinition;
*ALL'0';
MediaDefinition.Device(2)
.MediaFile(1)
.NumberOfVolumeIdentifiers =
1;
.MediaFile(1)
.NumberOfVolumeIdentifiers = 2;
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK079';
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK089';
MediaDefinition.Device(2)
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK090';
MediaDefinition.Device(2)
.MediaFile(2)
.SequenceNumber = 1;
.NumberOfVolumeIdentifiers = 2;
MediaDefinition.Device(2)
.MediaFile(2)
.StartingPositionInFile = *ALL'0';
MediaDefinition.Device(2)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(2)
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK091';
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK092';
end-proc;