Setgt和Readpe没有获取任何记录?

时间:2014-10-10 08:06:46

标签: ibm-midrange rpgle

我正在编写以下代码。逻辑上应该提取一些记录,但事实并非如此。代码如下 -

uweid = 1;                            
uwefname = 'VIKASH';                  
setgt(e) (uweid:uwefname) rempdtl2;
readpe(e) (uweid:uwefname) rempdtl2;  
dow not %eof(EMPDTL2) and not %error; 
  uwaddress = eaddress;               
  readpe(e) (uweid:uwefname) rempdtl2;
enddo;  

文件来源如下 -

A          R REMPDTL2          
A            EID            5P 
A            EFNAME        10A 
A            EADDRESS      30A 
A            ECNTCT        10P 
A          K EID               
A          K EFNAME            
A          K ECNTCT            

表格中的日期如下 -

EID   EFNAME      EADDRESS                               ECNTCT
  1   VIKASH      CHOUK                                   9,532
  2   ANKUR       DELHI                                   9,415
  3   RAVI        NOIDA                                   9,696
  1   VIKASH      Lko                                     9,540
  1   VIKASH      BAREILY                                 9,530
  1   VIKASH      AGRA                                    9,525
  1   VIKASH      Lko                                     9,540

应提取逻辑记录。但它没有发生。请帮我理解这种情况。

0 个答案:

没有答案