Universe 基本将 select 列表转换为数组？

Question

我在一个程序中有一个主要的 select 列表

执行 'SELECT PRODUCTS WITH DEL.DATE <= "':EOM.DATE;'"' 捕获输出

然后我想将 select 列表转换为数组，是否有 Universe 基本函数可以执行此操作，或者我是否需要编写一个函数？

Answer 1

使用 READLIST 将活动 select 列表的内容读入字段分隔 (@FM) 动态数组。这是我在处理多个 select 列表时使用的范例，有效负载不是太大。你也可以 select 到一个不同的列表而不是默认的 0 但这在智力上有点混乱。

EXECUTE 'SELECT PRODUCTS WITH DEL.DATE <= "':EOM.DATE;'"' CAPTURING OUTPUT
READLIST PRODUCTS.LIST ELSE PRODUCTS.LIST = ''
PRODUCTS.COUNT = DCOUNT(PRODUCTS.LIST,@FM)
FOR X=1 TO PRODUCTS.COUNT
   ID.PRODUCTS = PRODUCTS.LIST<X>
   ;* Your per ID magic goes here
NEXT X

祝你好运！

Universe 基本将 select 列表转换为数组？

Universe basic convert a select list to an array?

select

universe