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