Restliche Werte aus Struktur testen z.b.

TextDescription, Replace, DeviceAllocation, SaveFormat sowie die Parallel-Ressourcen.

meddfntstp.rpgle

@@ -166,6 +166,70 @@ else;
 
 endif;
 
+//=====================================================================
+// General - additional fields
+//=====================================================================
+
+if MediaDefinition.TextDescription =
+      OriginalDefinition.TextDescription;
+
+   dsply 'PASS TextDescription';
+
+else;
+
+   dsply 'FAIL TextDescription';
+
+endif;
+
+
+if MediaDefinition.DeviceAllocation =
+      OriginalDefinition.DeviceAllocation;
+
+   dsply 'PASS DeviceAllocation';
+
+else;
+
+   dsply 'FAIL DeviceAllocation';
+
+endif;
+
+
+if MediaDefinition.SaveFormat =
+      OriginalDefinition.SaveFormat;
+
+   dsply 'PASS SaveFormat';
+
+else;
+
+   dsply 'FAIL SaveFormat';
+
+endif;
+
+
+if MediaDefinition.MaximumParallelResources =
+      OriginalDefinition.MaximumParallelResources;
+
+   dsply 'PASS MaximumParallelResources';
+
+else;
+
+   dsply 'FAIL MaximumParallelResources';
+
+endif;
+
+
+if MediaDefinition.MinimumParallelResources =
+      OriginalDefinition.MinimumParallelResources;
+
+   dsply 'PASS MinimumParallelResources';
+
+else;
+
+   dsply 'FAIL MinimumParallelResources';
+
+endif;
+
+
 
 //=====================================================================
 // Device 1