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

Test refctored

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-08 16:18:56 +02:00
parent 3e32146290
commit 826c9f0ef9
1 changed files with 28 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfntstp.rpgle
+28 -32
View File
@@ -43,6 +43,10 @@ dcl-ds MediaDefinition
dcl-ds OriginalDefinition dcl-ds OriginalDefinition
likeds(MD_MediaDefinition_T); likeds(MD_MediaDefinition_T);
dcl-s DeviceIndex int(10);
dcl-s MediaIndex int(10);
dcl-s VolumeIndex int(10);
//===================================================================== //=====================================================================
// //
@@ -119,21 +123,7 @@ dsply 'Retrieve completed';
//===================================================================== //=====================================================================
//
// Tests // Tests
//
// Compares the retrieved Media Definition with the original
// definition.
//
//=====================================================================
dcl-s DeviceIndex int(10);
dcl-s MediaIndex int(10);
dcl-s VolumeIndex int(10);
//=====================================================================
// General
//===================================================================== //=====================================================================
dsply '----------------------------------------'; dsply '----------------------------------------';
@@ -141,6 +131,10 @@ dsply 'Parser result';
dsply '----------------------------------------'; dsply '----------------------------------------';
//=====================================================================
// General
//=====================================================================
if MediaDefinition.MediaDefinitionName = if MediaDefinition.MediaDefinitionName =
OriginalDefinition.MediaDefinitionName; OriginalDefinition.MediaDefinitionName;
@@ -250,9 +244,9 @@ for DeviceIndex = 1
%char(DeviceIndex)); %char(DeviceIndex));
//--------------------------------------------------------------- //------------------------------------------------------------------
// Device Name // Device Name
//--------------------------------------------------------------- //------------------------------------------------------------------
if MediaDefinition.Device(DeviceIndex).DeviceName = if MediaDefinition.Device(DeviceIndex).DeviceName =
OriginalDefinition.Device(DeviceIndex).DeviceName; OriginalDefinition.Device(DeviceIndex).DeviceName;
@@ -270,9 +264,9 @@ for DeviceIndex = 1
endif; endif;
//--------------------------------------------------------------- //------------------------------------------------------------------
// Number of Media Files // Number of Media Files
//--------------------------------------------------------------- //------------------------------------------------------------------
if MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles = if MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles =
OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles; OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles;
@@ -290,9 +284,9 @@ for DeviceIndex = 1
endif; endif;
//================================================================= //==================================================================
// Media Files // Media Files
//================================================================= //==================================================================
for MediaIndex = 1 for MediaIndex = 1
to OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles; to OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles;
@@ -301,9 +295,9 @@ for DeviceIndex = 1
%char(MediaIndex)); %char(MediaIndex));
//------------------------------------------------------------- //----------------------------------------------------------------
// Sequence Number // Sequence Number
//------------------------------------------------------------- //----------------------------------------------------------------
if MediaDefinition.Device(DeviceIndex) if MediaDefinition.Device(DeviceIndex)
.MediaFile(MediaIndex) .MediaFile(MediaIndex)
@@ -329,9 +323,9 @@ for DeviceIndex = 1
endif; endif;
//------------------------------------------------------------- //----------------------------------------------------------------
// Starting Position // Starting Position In File
//------------------------------------------------------------- //----------------------------------------------------------------
if MediaDefinition.Device(DeviceIndex) if MediaDefinition.Device(DeviceIndex)
.MediaFile(MediaIndex) .MediaFile(MediaIndex)
@@ -357,9 +351,9 @@ for DeviceIndex = 1
endif; endif;
//------------------------------------------------------------- //----------------------------------------------------------------
// Number of Volumes // Number Of Volume Identifiers
//------------------------------------------------------------- //----------------------------------------------------------------
if MediaDefinition.Device(DeviceIndex) if MediaDefinition.Device(DeviceIndex)
.MediaFile(MediaIndex) .MediaFile(MediaIndex)
@@ -372,7 +366,7 @@ for DeviceIndex = 1
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' Media File ' +
%char(MediaIndex) + %char(MediaIndex) +
' NumberOfVolumes'); ' NumberOfVolumeIdentifiers');
else; else;
@@ -380,14 +374,14 @@ for DeviceIndex = 1
%char(DeviceIndex) + %char(DeviceIndex) +
' Media File ' + ' Media File ' +
%char(MediaIndex) + %char(MediaIndex) +
' NumberOfVolumes'); ' NumberOfVolumeIdentifiers');
endif; endif;
//============================================================= //===============================================================
// Volume Identifiers // Volume Identifiers
//============================================================= //===============================================================
for VolumeIndex = 1 for VolumeIndex = 1
to OriginalDefinition.Device(DeviceIndex) to OriginalDefinition.Device(DeviceIndex)
@@ -435,6 +429,8 @@ endfor;
dsply '----------------------------------------'; dsply '----------------------------------------';
dsply 'Parser test completed'; dsply 'Parser test completed';
dsply '----------------------------------------'; dsply '----------------------------------------';
//===================================================================== //=====================================================================
// End // End
//===================================================================== //=====================================================================