检索记录问题

时间:2008-09-25 16:09:43

标签: ibm-midrange rpgle

好的,这可能不是最好的主题......

我正在应用程序中设置批准工作流程。我将用户名和美元金额传递给子程序,并找出我需要用于批准过程的工作流程。我认为我有这个工作,直到我尝试处理用户尚未设置的条件。

所以在我的表中我有:

wfid    wfuser    wfamt
1         user1      0
2         user2      0
2         user2      10000.00

现在,如果user3尝试向工作流程发送内容,则不应该这样做,因为它们没有设置。 (请注意我有另一个包含实际流程定义的表)

我有这段代码来检索正确的工作流程:

     setgt (userId:amount) ARWFR1;
     readp ARWFR1;
     return wfid;

显然,如果用户设置正确,则此功能正常。但是,将我们的user3 sinareo重新投入,它将无法正常工作。所以我试过了:

     setgt (userId:amount) ARWFR1;
     readpe (userId) ARWFR1;
     if (%eof());
       return 0;
     endif;
     return wfid;

这不像我预期的那样有效。我相信我很遗憾,你能看到吗?我希望我目前的逻辑足够清楚。

1 个答案:

答案 0 :(得分:2)

可以在http://archive.midrange.com/rpg400-l/200809/msg00509.html

找到适合我的解决方案