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

Testprogramm für Grenzfälle angepasst

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 16:00:20 +02:00
parent 5b0fdcc403
commit de5f094313
1 changed files with 70 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+70 -54
View File
@@ -680,25 +680,16 @@ return;
//
// BuildTestDefinition
//
// Builds:
//
// 2 Devices
// Builds a TAPE0200 test definition with:
//
// Device 1
// Media File 1
// DAK066
// DAK067
// Media File 2
// DAK079
// DAK080
// Media File 1 -> 0 Volumes
// Media File 2 -> 1 Volume
// Media File 3 -> 3 Volumes
//
// Device 2
// Media File 1
// DAK089
// DAK090
// Media File 2
// DAK091
// DAK092
// Media File 1 -> 1 Volume
// Media File 2 -> 3 Volumes
//
//=====================================================================
@@ -740,19 +731,20 @@ dcl-proc BuildTestDefinition;
2;
//---------------------------------------------------------------
// Device 1 / Resource 1
//---------------------------------------------------------------
//=================================================================
// Device 1
//=================================================================
MediaDefinition.Device(1).DeviceName =
'TAPMLBBRMS';
MediaDefinition.Device(1).NumberOfMediaFiles =
2;
3;
//---------------------------------------------------------------
// Device 1 / Media File 1
// 0 Volumes
//---------------------------------------------------------------
MediaDefinition.Device(1)
@@ -763,28 +755,17 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1)
.MediaFile(1)
.StartingPositionInFile =
'START-DEVICE1-MEDIAFILE1';
*ALL'0';
MediaDefinition.Device(1)
.MediaFile(1)
.NumberOfVolumeIdentifiers =
2;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK066';
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK067';
0;
//---------------------------------------------------------------
// Device 1 / Media File 2
// 1 Volume
//---------------------------------------------------------------
MediaDefinition.Device(1)
@@ -795,29 +776,62 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1)
.MediaFile(2)
.StartingPositionInFile =
'START-DEVICE1-MEDIAFILE2';
*ALL'1';
MediaDefinition.Device(1)
.MediaFile(2)
.NumberOfVolumeIdentifiers =
2;
1;
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK079';
'D1M2V1';
//---------------------------------------------------------------
// Device 1 / Media File 3
// 3 Volumes
//---------------------------------------------------------------
MediaDefinition.Device(1)
.MediaFile(2)
.MediaFile(3)
.SequenceNumber =
2;
MediaDefinition.Device(1)
.MediaFile(3)
.StartingPositionInFile =
*ALL'2';
MediaDefinition.Device(1)
.MediaFile(3)
.NumberOfVolumeIdentifiers =
3;
MediaDefinition.Device(1)
.MediaFile(3)
.VolumeIdentifier(1)
.VolumeIdentifier =
'D1M3V1';
MediaDefinition.Device(1)
.MediaFile(3)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK080';
'D1M3V2';
MediaDefinition.Device(1)
.MediaFile(3)
.VolumeIdentifier(3)
.VolumeIdentifier =
'D1M3V3';
//---------------------------------------------------------------
// Device 2 / Resource 2
//---------------------------------------------------------------
//=================================================================
// Device 2
//=================================================================
MediaDefinition.Device(2).DeviceName =
'TAPMLBBRMS';
@@ -828,6 +842,7 @@ dcl-proc BuildTestDefinition;
//---------------------------------------------------------------
// Device 2 / Media File 1
// 1 Volume
//---------------------------------------------------------------
MediaDefinition.Device(2)
@@ -838,28 +853,23 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(2)
.MediaFile(1)
.StartingPositionInFile =
'START-DEVICE2-MEDIAFILE1';
*ALL'3';
MediaDefinition.Device(2)
.MediaFile(1)
.NumberOfVolumeIdentifiers =
2;
1;
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK089';
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK090';
'D2M1V1';
//---------------------------------------------------------------
// Device 2 / Media File 2
// 3 Volumes
//---------------------------------------------------------------
MediaDefinition.Device(2)
@@ -870,23 +880,29 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(2)
.MediaFile(2)
.StartingPositionInFile =
'START-DEVICE2-MEDIAFILE2';
*ALL'4';
MediaDefinition.Device(2)
.MediaFile(2)
.NumberOfVolumeIdentifiers =
2;
3;
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK091';
'D2M2V1';
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK092';
'D2M2V2';
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(3)
.VolumeIdentifier =
'D2M2V3';
end-proc;