使用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--the end--