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'; dsply 'Retrieve completed';
//--------------------------------------------------------------------- //=====================================================================
// Tests // Tests
//--------------------------------------------------------------------- //=====================================================================
dsply '----------------------------------------'; dsply '----------------------------------------';
dsply 'Parser result'; dsply 'Parser result';
@@ -166,6 +166,7 @@ else;
endif; endif;
//===================================================================== //=====================================================================
// General - additional fields // General - additional fields
//===================================================================== //=====================================================================
@@ -230,7 +231,6 @@ else;
endif; endif;
//===================================================================== //=====================================================================
// Device 1 // Device 1
//===================================================================== //=====================================================================
@@ -238,6 +238,7 @@ endif;
dsply '----------------------------------------'; dsply '----------------------------------------';
dsply 'Device 1'; dsply 'Device 1';
if MediaDefinition.Device(1).DeviceName = if MediaDefinition.Device(1).DeviceName =
OriginalDefinition.Device(1).DeviceName; OriginalDefinition.Device(1).DeviceName;
@@ -268,6 +269,7 @@ endif;
dsply 'Media File 1'; dsply 'Media File 1';
if MediaDefinition.Device(1) if MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.SequenceNumber = .SequenceNumber =
@@ -283,6 +285,7 @@ else;
endif; endif;
if MediaDefinition.Device(1) if MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.StartingPositionInFile = .StartingPositionInFile =
@@ -306,14 +309,33 @@ if MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.NumberOfVolumeIdentifiers; .NumberOfVolumeIdentifiers;
dsply 'PASS Device 1 NumberOfVolumes'; dsply 'PASS Device 1 Media File 1 NumberOfVolumes';
else; else;
dsply 'FAIL Device 1 NumberOfVolumes'; dsply 'FAIL Device 1 Media File 1 NumberOfVolumes';
endif; 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) if MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(2) .VolumeIdentifier(2)
@@ -338,6 +360,7 @@ endif;
dsply 'Media File 2'; dsply 'Media File 2';
if MediaDefinition.Device(1) if MediaDefinition.Device(1)
.MediaFile(2) .MediaFile(2)
.SequenceNumber = .SequenceNumber =
@@ -404,45 +427,22 @@ else;
endif; endif;
//=====================================================================
// Device 1 / Volume 1
//=====================================================================
dsply 'Volume 1';
if MediaDefinition.Device(1) if MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(2)
.VolumeIdentifier(1) .VolumeIdentifier(2)
.VolumeIdentifier = .VolumeIdentifier =
OriginalDefinition.Device(1) OriginalDefinition.Device(1)
.MediaFile(1) .MediaFile(2)
.VolumeIdentifier(1) .VolumeIdentifier(2)
.VolumeIdentifier; .VolumeIdentifier;
dsply 'PASS Device 1 Volume 1'; dsply 'PASS Device 1 Media File 2 Volume 2';
else; else;
dsply 'FAIL Device 1 Volume 1'; dsply 'FAIL Device 1 Media File 2 Volume 2';
endif; 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 '----------------------------------------';
dsply 'Device 2'; dsply 'Device 2';
if MediaDefinition.Device(2).DeviceName = if MediaDefinition.Device(2).DeviceName =
OriginalDefinition.Device(2).DeviceName; OriginalDefinition.Device(2).DeviceName;
@@ -482,6 +483,7 @@ endif;
dsply 'Media File 1'; dsply 'Media File 1';
if MediaDefinition.Device(2) if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.SequenceNumber = .SequenceNumber =
@@ -489,14 +491,15 @@ if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.SequenceNumber; .SequenceNumber;
dsply 'PASS Device 2 SequenceNumber'; dsply 'PASS Device 2 Media File 1 SequenceNumber';
else; else;
dsply 'FAIL Device 2 SequenceNumber'; dsply 'FAIL Device 2 Media File 1 SequenceNumber';
endif; endif;
if MediaDefinition.Device(2) if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.StartingPositionInFile = .StartingPositionInFile =
@@ -504,11 +507,11 @@ if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.StartingPositionInFile; .StartingPositionInFile;
dsply 'PASS Device 2 StartingPositionInFile'; dsply 'PASS Device 2 Media File 1 StartingPositionInFile';
else; else;
dsply 'FAIL Device 2 StartingPositionInFile'; dsply 'FAIL Device 2 Media File 1 StartingPositionInFile';
endif; endif;
@@ -520,14 +523,33 @@ if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.NumberOfVolumeIdentifiers; .NumberOfVolumeIdentifiers;
dsply 'PASS Device 2 NumberOfVolumes'; dsply 'PASS Device 2 Media File 1 NumberOfVolumes';
else; else;
dsply 'FAIL Device 2 NumberOfVolumes'; dsply 'FAIL Device 2 Media File 1 NumberOfVolumes';
endif; 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) if MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(2) .VolumeIdentifier(2)
@@ -537,11 +559,11 @@ if MediaDefinition.Device(2)
.VolumeIdentifier(2) .VolumeIdentifier(2)
.VolumeIdentifier; .VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2'; dsply 'PASS Device 2 Media File 1 Volume 2';
else; else;
dsply 'FAIL Device 1 Media File 1 Volume 2'; dsply 'FAIL Device 2 Media File 1 Volume 2';
endif; endif;
@@ -552,6 +574,7 @@ endif;
dsply 'Media File 2'; dsply 'Media File 2';
if MediaDefinition.Device(2) if MediaDefinition.Device(2)
.MediaFile(2) .MediaFile(2)
.SequenceNumber = .SequenceNumber =
@@ -627,37 +650,19 @@ if MediaDefinition.Device(2)
.VolumeIdentifier(2) .VolumeIdentifier(2)
.VolumeIdentifier; .VolumeIdentifier;
dsply 'PASS Device 1 Media File 1 Volume 2'; dsply 'PASS Device 2 Media File 2 Volume 2';
else; else;
dsply 'FAIL Device 1 Media File 1 Volume 2'; dsply 'FAIL Device 2 Media File 2 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';
endif; endif;
//=====================================================================
// Test completed
//=====================================================================
dsply '----------------------------------------'; dsply '----------------------------------------';
dsply 'Parser test completed'; dsply 'Parser test completed';
dsply '----------------------------------------'; dsply '----------------------------------------';
@@ -680,12 +685,20 @@ return;
// 2 Devices // 2 Devices
// //
// Device 1 // Device 1
// 1 Media File // Media File 1
// DAK066 // DAK066
// DAK067
// Media File 2
// DAK079
// DAK080
// //
// Device 2 // Device 2
// 1 Media File // Media File 1
// DAK079 // DAK089
// DAK090
// Media File 2
// DAK091
// DAK092
// //
//===================================================================== //=====================================================================
@@ -737,6 +750,11 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(1).NumberOfMediaFiles = MediaDefinition.Device(1).NumberOfMediaFiles =
2; 2;
//---------------------------------------------------------------
// Device 1 / Media File 1
//---------------------------------------------------------------
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.SequenceNumber = .SequenceNumber =
@@ -753,43 +771,48 @@ dcl-proc BuildTestDefinition;
2; 2;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(1) .VolumeIdentifier(1)
.VolumeIdentifier = 'DAK066'; .VolumeIdentifier =
'DAK066';
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(2) .VolumeIdentifier(2)
.VolumeIdentifier = 'DAK067'; .VolumeIdentifier =
'DAK067';
//---------------------------------------------------------------
// Device 1 / Media File 2
//---------------------------------------------------------------
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(2) .MediaFile(2)
.SequenceNumber = 1; .SequenceNumber =
1;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(2) .MediaFile(2)
.StartingPositionInFile = *ALL'0'; .StartingPositionInFile =
*ALL'0';
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(2) .MediaFile(2)
.NumberOfVolumeIdentifiers = 2; .NumberOfVolumeIdentifiers =
2;
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(2) .MediaFile(2)
.NumberOfVolumeIdentifiers = 2; .VolumeIdentifier(1)
.VolumeIdentifier =
'DAK079';
MediaDefinition.Device(1) MediaDefinition.Device(1)
.MediaFile(2) .MediaFile(2)
.VolumeIdentifier(1) .VolumeIdentifier(2)
.VolumeIdentifier = 'DAK079'; .VolumeIdentifier =
'DAK080';
MediaDefinition.Device(1)
.MediaFile(2)
.VolumeIdentifier(2)
.VolumeIdentifier = 'DAK080';
//--------------------------------------------------------------- //---------------------------------------------------------------
@@ -802,6 +825,11 @@ dcl-proc BuildTestDefinition;
MediaDefinition.Device(2).NumberOfMediaFiles = MediaDefinition.Device(2).NumberOfMediaFiles =
2; 2;
//---------------------------------------------------------------
// Device 2 / Media File 1
//---------------------------------------------------------------
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.SequenceNumber = .SequenceNumber =
@@ -813,34 +841,53 @@ dcl-proc BuildTestDefinition;
*ALL'0'; *ALL'0';
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.NumberOfVolumeIdentifiers = 2; .NumberOfVolumeIdentifiers =
2;
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(1) .VolumeIdentifier(1)
.VolumeIdentifier = 'DAK089'; .VolumeIdentifier =
'DAK089';
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(1) .MediaFile(1)
.VolumeIdentifier(2) .VolumeIdentifier(2)
.VolumeIdentifier = 'DAK090'; .VolumeIdentifier =
'DAK090';
MediaDefinition.Device(2) //---------------------------------------------------------------
.MediaFile(2) // Device 2 / Media File 2
.NumberOfVolumeIdentifiers = 2; //---------------------------------------------------------------
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(2) .MediaFile(2)
.VolumeIdentifier(1) .SequenceNumber =
.VolumeIdentifier = 'DAK091'; 1;
MediaDefinition.Device(2) MediaDefinition.Device(2)
.MediaFile(2) .MediaFile(2)
.VolumeIdentifier(2) .StartingPositionInFile =
.VolumeIdentifier = 'DAK092'; *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; end-proc;