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

Test Bereingt und Korrigiert

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 13:54:34 +02:00
parent 2f85a438cc
commit 75d16ee35f
1 changed files with 161 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+161 -114
View File
@@ -118,9 +118,9 @@ MD_RetrieveMediaDefinition(
dsply 'Retrieve completed';
//---------------------------------------------------------------------
//=====================================================================
// Tests
//---------------------------------------------------------------------
//=====================================================================
dsply '----------------------------------------';
dsply 'Parser result';
@@ -166,6 +166,7 @@ else;
endif;
//=====================================================================
// General - additional fields
//=====================================================================
@@ -230,7 +231,6 @@ else;
endif;
//=====================================================================
// Device 1
//=====================================================================
@@ -238,6 +238,7 @@ endif;
dsply '----------------------------------------';
dsply 'Device 1';
if MediaDefinition.Device(1).DeviceName =
OriginalDefinition.Device(1).DeviceName;
@@ -268,6 +269,7 @@ endif;
dsply 'Media File 1';
if MediaDefinition.Device(1)
.MediaFile(1)
.SequenceNumber =
@@ -283,6 +285,7 @@ else;
endif;
if MediaDefinition.Device(1)
.MediaFile(1)
.StartingPositionInFile =
@@ -306,14 +309,33 @@ if MediaDefinition.Device(1)
.MediaFile(1)
.NumberOfVolumeIdentifiers;
dsply 'PASS Device 1 NumberOfVolumes';
dsply 'PASS Device 1 Media File 1 NumberOfVolumes';
else;
dsply 'FAIL Device 1 NumberOfVolumes';
dsply 'FAIL Device 1 Media File 1 NumberOfVolumes';
endif;
if MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
OriginalDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 1';
else;
dsply 'FAIL Device 1 Media File 1 Volume 1';
endif;
if MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
@@ -338,6 +360,7 @@ endif;
dsply 'Media File 2';
if MediaDefinition.Device(1)
.MediaFile(2)
.SequenceNumber =
@@ -404,45 +427,22 @@ else;
endif;
//=====================================================================
// Device 1 / Volume 1
//=====================================================================
dsply 'Volume 1';
if MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(1)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier =
OriginalDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(1)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Volume 1';
dsply 'PASS Device 1 Media File 2 Volume 2';
else;
dsply 'FAIL Device 1 Volume 1';
dsply 'FAIL Device 1 Media File 2 Volume 2';
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;
//=====================================================================
@@ -452,6 +452,7 @@ endif;
dsply '----------------------------------------';
dsply 'Device 2';
if MediaDefinition.Device(2).DeviceName =
OriginalDefinition.Device(2).DeviceName;
@@ -482,6 +483,7 @@ endif;
dsply 'Media File 1';
if MediaDefinition.Device(2)
.MediaFile(1)
.SequenceNumber =
@@ -489,14 +491,15 @@ if MediaDefinition.Device(2)
.MediaFile(1)
.SequenceNumber;
dsply 'PASS Device 2 SequenceNumber';
dsply 'PASS Device 2 Media File 1 SequenceNumber';
else;
dsply 'FAIL Device 2 SequenceNumber';
dsply 'FAIL Device 2 Media File 1 SequenceNumber';
endif;
if MediaDefinition.Device(2)
.MediaFile(1)
.StartingPositionInFile =
@@ -504,11 +507,11 @@ if MediaDefinition.Device(2)
.MediaFile(1)
.StartingPositionInFile;
dsply 'PASS Device 2 StartingPositionInFile';
dsply 'PASS Device 2 Media File 1 StartingPositionInFile';
else;
dsply 'FAIL Device 2 StartingPositionInFile';
dsply 'FAIL Device 2 Media File 1 StartingPositionInFile';
endif;
@@ -520,14 +523,33 @@ if MediaDefinition.Device(2)
.MediaFile(1)
.NumberOfVolumeIdentifiers;
dsply 'PASS Device 2 NumberOfVolumes';
dsply 'PASS Device 2 Media File 1 NumberOfVolumes';
else;
dsply 'FAIL Device 2 NumberOfVolumes';
dsply 'FAIL Device 2 Media File 1 NumberOfVolumes';
endif;
if MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
OriginalDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier;
dsply 'PASS Device 2 Media File 1 Volume 1';
else;
dsply 'FAIL Device 2 Media File 1 Volume 1';
endif;
if MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
@@ -537,11 +559,11 @@ if MediaDefinition.Device(2)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2';
dsply 'PASS Device 2 Media File 1 Volume 2';
else;
dsply 'FAIL Device 1 Media File 1 Volume 2';
dsply 'FAIL Device 2 Media File 1 Volume 2';
endif;
@@ -552,6 +574,7 @@ endif;
dsply 'Media File 2';
if MediaDefinition.Device(2)
.MediaFile(2)
.SequenceNumber =
@@ -627,37 +650,19 @@ if MediaDefinition.Device(2)
.VolumeIdentifier(2)
.VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2';
dsply 'PASS Device 2 Media File 2 Volume 2';
else;
dsply 'FAIL Device 1 Media File 1 Volume 2';
endif;
//=====================================================================
// Device 2 / Volume 1
//=====================================================================
dsply 'Volume 1';
if MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
OriginalDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier;
dsply 'PASS Device 2 Volume 1';
else;
dsply 'FAIL Device 2 Volume 1';
dsply 'FAIL Device 2 Media File 2 Volume 2';
endif;
//=====================================================================
// Test completed
//=====================================================================
dsply '----------------------------------------';
dsply 'Parser test completed';
dsply '----------------------------------------';
@@ -680,12 +685,20 @@ return;
// 2 Devices
//
// Device 1
// 1 Media File
// Media File 1
// DAK066
// DAK067
// Media File 2
// DAK079
// DAK080
//
// Device 2
// 1 Media File
// DAK079
// Media File 1
// DAK089
// DAK090
// Media File 2
// DAK091
// DAK092
//
//=====================================================================
@@ -737,6 +750,11 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1).NumberOfMediaFiles =
2;
//---------------------------------------------------------------
// Device 1 / Media File 1
//---------------------------------------------------------------
MediaDefinition.Device(1)
.MediaFile(1)
.SequenceNumber =
@@ -753,43 +771,48 @@ dcl-proc BuildTestDefinition;
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';
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK067';
//---------------------------------------------------------------
// Device 1 / Media File 2
//---------------------------------------------------------------
MediaDefinition.Device(1)
.MediaFile(2)
.SequenceNumber = 1;
.MediaFile(2)
.SequenceNumber =
1;
MediaDefinition.Device(1)
.MediaFile(2)
.StartingPositionInFile = *ALL'0';
.MediaFile(2)
.StartingPositionInFile =
*ALL'0';
MediaDefinition.Device(1)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 2;
.MediaFile(2)
.NumberOfVolumeIdentifiers =
2;
MediaDefinition.Device(1)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 2;
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK079';
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK079';
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK080';
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK080';
//---------------------------------------------------------------
@@ -802,6 +825,11 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(2).NumberOfMediaFiles =
2;
//---------------------------------------------------------------
// Device 2 / Media File 1
//---------------------------------------------------------------
MediaDefinition.Device(2)
.MediaFile(1)
.SequenceNumber =
@@ -813,34 +841,53 @@ dcl-proc BuildTestDefinition;
*ALL'0';
MediaDefinition.Device(2)
.MediaFile(1)
.NumberOfVolumeIdentifiers = 2;
.MediaFile(1)
.NumberOfVolumeIdentifiers =
2;
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK089';
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK089';
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK090';
MediaDefinition.Device(2)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK090';
MediaDefinition.Device(2)
.MediaFile(2)
.NumberOfVolumeIdentifiers = 2;
//---------------------------------------------------------------
// Device 2 / Media File 2
//---------------------------------------------------------------
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier = 'DAK091';
MediaDefinition.Device(2)
.MediaFile(2)
.SequenceNumber =
1;
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK092';
MediaDefinition.Device(2)
.MediaFile(2)
.StartingPositionInFile =
*ALL'0';
MediaDefinition.Device(2)
.MediaFile(2)
.NumberOfVolumeIdentifiers =
2;
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(1)
.VolumeIdentifier =
'DAK091';
MediaDefinition.Device(2)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier =
'DAK092';
end-proc;