Ibm midrange 检索记录问题

Ibm midrange 检索记录问题,ibm-midrange,rpgle,Ibm Midrange,Rpgle,好吧,那可能不是最好的主题 我正在应用程序中设置审批工作流。我将用户名和美元金额传递给子流程,并找出审批流程需要使用的工作流。我想我已经有了这个工作,直到我试图处理的条件时,用户还没有被设置 因此,在我的表格中,我有: wfid wfuser wfamt 1 user1 0 2 user2 0 2 user2 10000.00 显然,如果用户设置正确,这是可行的。然而,把我们的user3 sinareo放回

好吧,那可能不是最好的主题

我正在应用程序中设置审批工作流。我将用户名和美元金额传递给子流程,并找出审批流程需要使用的工作流。我想我已经有了这个工作,直到我试图处理的条件时,用户还没有被设置

因此,在我的表格中,我有:

wfid wfuser wfamt 1 user1 0 2 user2 0 2 user2 10000.00 显然,如果用户设置正确,这是可行的。然而,把我们的user3 sinareo放回去,它就不能正常工作了。于是我试着:

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

这并不像我预期的那样有效。我肯定我错过了明显的,你能看到吗?我希望我目前的逻辑足够清晰。

我的解决方案可以在以下位置找到:

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