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

Test mit mehrere Media Files

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 12:55:29 +02:00
parent ef920ea6e1
commit 01bf198b78
1 changed files with 41 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+41 -2
View File
@@ -524,7 +524,7 @@ dcl-proc BuildTestDefinition;
'TAPMLBBRMS'; 'TAPMLBBRMS';
MediaDefinition.Device(1).NumberOfMediaFiles = MediaDefinition.Device(1).NumberOfMediaFiles =
1; 2;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
@@ -548,6 +548,26 @@ dcl-proc BuildTestDefinition;
'DAK066'; 'DAK066';
MediaDefinition.Device(1)
.MediaFile(2)
.SequenceNumber = 1;
MediaDefinition.Device(1)
.MediaFile(2)
.StartingPositionInFile = *ALL'0';
MediaDefinition.Device(1)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK079';
//--------------------------------------------------------------- //---------------------------------------------------------------
// Device 2 / Resource 2 // Device 2 / Resource 2
//--------------------------------------------------------------- //---------------------------------------------------------------
@@ -556,7 +576,7 @@ dcl-proc BuildTestDefinition;
'TAPMLBBRMS'; 'TAPMLBBRMS';
MediaDefinition.Device(2).NumberOfMediaFiles = MediaDefinition.Device(2).NumberOfMediaFiles =
1; 2;
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
@@ -579,4 +599,23 @@ dcl-proc BuildTestDefinition;
.VolumeIdentifier = .VolumeIdentifier =
'DAK079'; 'DAK079';
MediaDefinition.Device(2)
.MediaFile(2)
.SequenceNumber = 1;
MediaDefinition.Device(2)
.MediaFile(2)
.StartingPositionInFile = *ALL'0';
MediaDefinition.Device(2)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK091';
end-proc; end-proc;