From 826c9f0ef9cd9f03075866cca5327869d390d6d8 Mon Sep 17 00:00:00 2001 From: Eckhard Gosch Date: Tue, 8 Sep 2026 16:18:56 +0200 Subject: [PATCH] Test refctored --- meddfntstp.rpgle | 60 ++++++++++++++++++++++-------------------------- 1 file changed, 28 insertions(+), 32 deletions(-) diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle index 1a35e92..44c862f 100644 --- a/meddfntstp.rpgle +++ b/meddfntstp.rpgle @@ -43,6 +43,10 @@ dcl-ds MediaDefinition dcl-ds OriginalDefinition 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 -// -// 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 '----------------------------------------'; @@ -141,6 +131,10 @@ dsply 'Parser result'; dsply '----------------------------------------'; +//===================================================================== +// General +//===================================================================== + if MediaDefinition.MediaDefinitionName = OriginalDefinition.MediaDefinitionName; @@ -250,9 +244,9 @@ for DeviceIndex = 1 %char(DeviceIndex)); - //--------------------------------------------------------------- + //------------------------------------------------------------------ // Device Name - //--------------------------------------------------------------- + //------------------------------------------------------------------ if MediaDefinition.Device(DeviceIndex).DeviceName = OriginalDefinition.Device(DeviceIndex).DeviceName; @@ -270,9 +264,9 @@ for DeviceIndex = 1 endif; - //--------------------------------------------------------------- + //------------------------------------------------------------------ // Number of Media Files - //--------------------------------------------------------------- + //------------------------------------------------------------------ if MediaDefinition.Device(DeviceIndex).NumberOfMediaFiles = OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles; @@ -290,9 +284,9 @@ for DeviceIndex = 1 endif; - //================================================================= + //================================================================== // Media Files - //================================================================= + //================================================================== for MediaIndex = 1 to OriginalDefinition.Device(DeviceIndex).NumberOfMediaFiles; @@ -301,9 +295,9 @@ for DeviceIndex = 1 %char(MediaIndex)); - //------------------------------------------------------------- + //---------------------------------------------------------------- // Sequence Number - //------------------------------------------------------------- + //---------------------------------------------------------------- if MediaDefinition.Device(DeviceIndex) .MediaFile(MediaIndex) @@ -329,9 +323,9 @@ for DeviceIndex = 1 endif; - //------------------------------------------------------------- - // Starting Position - //------------------------------------------------------------- + //---------------------------------------------------------------- + // Starting Position In File + //---------------------------------------------------------------- if MediaDefinition.Device(DeviceIndex) .MediaFile(MediaIndex) @@ -357,9 +351,9 @@ for DeviceIndex = 1 endif; - //------------------------------------------------------------- - // Number of Volumes - //------------------------------------------------------------- + //---------------------------------------------------------------- + // Number Of Volume Identifiers + //---------------------------------------------------------------- if MediaDefinition.Device(DeviceIndex) .MediaFile(MediaIndex) @@ -372,7 +366,7 @@ for DeviceIndex = 1 %char(DeviceIndex) + ' Media File ' + %char(MediaIndex) + - ' NumberOfVolumes'); + ' NumberOfVolumeIdentifiers'); else; @@ -380,14 +374,14 @@ for DeviceIndex = 1 %char(DeviceIndex) + ' Media File ' + %char(MediaIndex) + - ' NumberOfVolumes'); + ' NumberOfVolumeIdentifiers'); endif; - //============================================================= + //=============================================================== // Volume Identifiers - //============================================================= + //=============================================================== for VolumeIndex = 1 to OriginalDefinition.Device(DeviceIndex) @@ -435,6 +429,8 @@ endfor; dsply '----------------------------------------'; dsply 'Parser test completed'; dsply '----------------------------------------'; + + //===================================================================== // End //=====================================================================