如何检测并删除 RPGLE 数组中的重复数据？

Question

我正在基于业务逻辑在 RPGLE 程序中加载数组，这可能会导致数组中的数据重复。

我想首先知道如何检测重复。

最后我想知道如何删除数组中的重复项。

Answer 1

在添加之前，您可以使用 %LOOKUP 查看该条目是否已经在数组中。

if %lookup(newValue : array : 1 : numElems) = 0;
   // the element is not in the array yet
   numElems += 1;
   array(numElems) = newValue;
endif;