ibm-midrange - 如何检测然后删除 RPGLE 数组中的重复数据？

Question

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

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

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

标签： ibm-midrangerpgle

Answer 1

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

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