From 714662d2128669d1266b3c7c28dd9dc762de45e7 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Sat, 22 Aug 2026 16:50:15 +0200
Subject: [PATCH] erstes Volume im parser eingebaut

---
 meddfnbld.rpgle  | 12 ++++++------
 meddfntstp.rpgle | 32 ++++++++++++++++----------------
 2 files changed, 22 insertions(+), 22 deletions(-)

diff --git a/meddfnbld.rpgle b/meddfnbld.rpgle
index c6ba18a..f39bbed 100644
--- a/meddfnbld.rpgle
+++ b/meddfnbld.rpgle
@@ -151,7 +151,7 @@ dcl-proc MD_BuildCreateBuffer export;
       MediaDefinition);
 
 
-      for DeviceIndex = 1 to MediaDefinition.NumberOfDevices;
+   for DeviceIndex = 1 to MediaDefinition.NumberOfDevices;
 
 
       MD_BuildTape0200Device(
@@ -520,20 +520,20 @@ dcl-proc MD_BuildTape0200Media;
 
 
 
-  if MediaIndex < MediaDevice.NumberOfMediaFiles;
+   if MediaIndex < MediaDevice.NumberOfMediaFiles;
 
-    Media0200.OffsetToNextMediaFileDefinition =
+      Media0200.OffsetToNextMediaFileDefinition =
        BuilderContext.BufferLength
      + %size(MD_Tape0200MediaFileDefinition_T)
      + (MD_AlignLength(
         MediaFile.NumberOfVolumeIdentifiers
         * MD_VOLUME_ID_LENGTH));
 
-  else;
+   else;
 
-     Media0200.OffsetToNextMediaFileDefinition = 0;
+      Media0200.OffsetToNextMediaFileDefinition = 0;
 
-  endif;
+   endif;
 
 
    //---------------------------------------------------------------
diff --git a/meddfntstp.rpgle b/meddfntstp.rpgle
index 8e798a3..dfd6550 100644
--- a/meddfntstp.rpgle
+++ b/meddfntstp.rpgle
@@ -86,35 +86,35 @@ dcl-proc BuildTestDefinition;
    MediaDefinition.TextDescription     = 'Test MEDDFN';
 
    MediaDefinition.MaximumParallelResources = 2;
-MediaDefinition.MinimumParallelResources = 2;
+   MediaDefinition.MinimumParallelResources = 2;
 
-MediaDefinition.DeviceAllocation = MD_DeviceAllocateAll;
-MediaDefinition.SaveFormat       = MD_SaveFormatParallel;
+   MediaDefinition.DeviceAllocation = MD_DeviceAllocateAll;
+   MediaDefinition.SaveFormat       = MD_SaveFormatParallel;
 
-MediaDefinition.NumberOfDevices = 2;
+   MediaDefinition.NumberOfDevices = 2;
 
 
 //---------------------------------------------------------------
 // Device 1 / Resource 1
 //---------------------------------------------------------------
 
-MediaDefinition.Device(1).DeviceName = 'TAPMLBBRMS';
+   MediaDefinition.Device(1).DeviceName = 'TAPMLBBRMS';
 
-MediaDefinition.Device(1).NumberOfMediaFiles = 1;
+   MediaDefinition.Device(1).NumberOfMediaFiles = 1;
 
-MediaDefinition.Device(1)
+   MediaDefinition.Device(1)
    .MediaFile(1)
    .SequenceNumber = 0;
 
-MediaDefinition.Device(1)
+   MediaDefinition.Device(1)
    .MediaFile(1)
    .StartingPositionInFile = *ALL'0';
 
-MediaDefinition.Device(1)
+   MediaDefinition.Device(1)
    .MediaFile(1)
    .NumberOfVolumeIdentifiers = 1;
 
-MediaDefinition.Device(1)
+   MediaDefinition.Device(1)
    .MediaFile(1)
    .VolumeIdentifier(1)
    .VolumeIdentifier = 'DAK066';
@@ -124,23 +124,23 @@ MediaDefinition.Device(1)
 // Device 2 / Resource 2
 //---------------------------------------------------------------
 
-MediaDefinition.Device(2).DeviceName = 'TAPMLBBRMS';
+   MediaDefinition.Device(2).DeviceName = 'TAPMLBBRMS';
 
-MediaDefinition.Device(2).NumberOfMediaFiles = 1;
+   MediaDefinition.Device(2).NumberOfMediaFiles = 1;
 
-MediaDefinition.Device(2)
+   MediaDefinition.Device(2)
    .MediaFile(1)
    .SequenceNumber = 0;
 
-MediaDefinition.Device(2)
+   MediaDefinition.Device(2)
    .MediaFile(1)
    .StartingPositionInFile = *ALL'0';
 
-MediaDefinition.Device(2)
+   MediaDefinition.Device(2)
    .MediaFile(1)
    .NumberOfVolumeIdentifiers = 1;
 
-MediaDefinition.Device(2)
+   MediaDefinition.Device(2)
    .MediaFile(1)
    .VolumeIdentifier(1)
    .VolumeIdentifier = 'DAK079';