From 6e49d1fab85e2adff0f6ef3147629766c50a0403 Mon Sep 17 00:00:00 2001
From: Eckhard Gosch <eckhard@eckipost.de>
Date: Tue, 6 Oct 2026 13:40:50 +0200
Subject: [PATCH] =?UTF-8?q?Duplikatspr=C3=BCfung=20in=20MEDDFNSRV=20angepa?=
 =?UTF-8?q?sst?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 meddfnsrv.rpgle | 66 -------------------------------------------------
 1 file changed, 66 deletions(-)

diff --git a/meddfnsrv.rpgle b/meddfnsrv.rpgle
index 638aad3..df1b3f5 100644
--- a/meddfnsrv.rpgle
+++ b/meddfnsrv.rpgle
@@ -66,9 +66,6 @@ dcl-pr MD_ParseRetrieveBuffer;
       char(32767) const
       options(*varsize);
 
-   ReceiverLength
-      int(10) const;
-
    MediaDefinition
       likeds(MD_MediaDefinition_T);
 
@@ -219,17 +216,6 @@ dcl-pr MD_SendDiagnostic;
 
 end-pr;
 
-dcl-pr MD_CheckDuplicateDevices;
-
-   MediaDefinition
-      likeds(MD_MediaDefinition_T) const;
-
-   Error
-      likeds(MD_Error_T);
-
-end-pr;
-
-
 dcl-pr MD_CheckDuplicateSequences;
 
    MediaDefinition
@@ -862,10 +848,6 @@ dcl-proc MD_ValidateCreate;
    // Duplicate Checks
    //--------------------------------------------------------------
 
-   MD_CheckDuplicateDevices(
-      MediaDefinition :
-      Error);
-
    MD_CheckDuplicateSequences(
       MediaDefinition :
       Error);
@@ -1106,54 +1088,6 @@ dcl-proc MD_SendMessage;
 
 end-proc;
 
-//=====================================================================
-//
-// MD_CheckDuplicateDevices
-//
-//=====================================================================
-
-dcl-proc MD_CheckDuplicateDevices;
-
-   dcl-pi *n;
-
-      MediaDefinition
-         likeds(MD_MediaDefinition_T) const;
-
-      Error
-         likeds(MD_Error_T);
-
-   end-pi;
-
-
-   dcl-s DeviceIndex1 int(10);
-   dcl-s DeviceIndex2 int(10);
-
-
-   for DeviceIndex1 = 1
-      to MediaDefinition.NumberOfDevices - 1;
-
-      for DeviceIndex2 = DeviceIndex1 + 1
-         to MediaDefinition.NumberOfDevices;
-
-         if %trim(
-               MediaDefinition.Device(DeviceIndex1).DeviceName)
-            =
-            %trim(
-               MediaDefinition.Device(DeviceIndex2).DeviceName);
-
-            MD_SetError(
-               Error :
-               'MDF0007' :
-               MediaDefinition.Device(DeviceIndex1).DeviceName);
-
-         endif;
-
-      endfor;
-
-   endfor;
-
-end-proc;
-
 //=====================================================================
 //
 // MD_CheckDuplicateSequences