Duplikatsprüfung in MEDDFNSRV angepasst

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