使用max函数转换rpgle中readpe操作码

前几天写了一个维护交易，有这样的一个需求：在增加数据的时候，每条数据都有序号，这个序号值由程序生成，非柜员输入；

生成规则是，根据键值排序，类似这样的数据：

     C/EXEC-SQL     C+    SELECT MAX(SEQNO) + 1 INTO :V_SEQNO     C+      FROM CDTD     C+     WHERE ACTYP = :V_ACTYP     C+       AND ACTNO = :V_ACTNO     C+  GROUP BY ACTYP,ACTNO     C/END-EXEC