erstes Volume im parser eingebaut

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;
 
 
    //---------------------------------------------------------------