爲什麼未使用的文件字段有空白值？

EQRECORDS

爲如下─

A   R REQ                        
    A   FNAME   10A                     
    A   LNAME   10A                     
    A   K FNAME

和程序作爲如下─

fEQRECORDS if e   k disk     
d uwvar2   s    10a inz('ANKUR') 
/free            
    setll *loval req;        
    reade uwvar2 req;        
    dow not %eof(eqrecords) and not %error;   
    dsply lname;         
    reade uwvar2 req;        
    enddo;           
    *inlr = *on;          
/end-free

當第一次READE執行，如果我希望看到Fna的價值我使用Eval。它爲什麼顯示爲空白？

表中數據是如下─

**FNAME  LNAME** 
VIKASH  SHUKLA 
VIKASH  SHUKLA 
ANKUR  VERMA 
ANKUR  MEHTA 
VIKASH  MISHRA 
VIKASH  GUPTA 
ANKUR  GUPTA 
BHASKAR  MISHRA 
CHINTU    
BHUVI  GUPTA

來源

2014-10-07 Vikash Shukla

有沒有在該領域的實際價值？嘗試針對表運行查詢，而無需查看第一個結果是什麼。 – 2014-10-07 13:38:26

是Fname有價值。 – 2014-10-07 13:39:40

我的RPG正在生鏽。我不記得在使用數據結構時，是否需要使用點符號。 'req.lname' – 2014-10-07 13:46:22

郵政確切的代碼是給你的問題。這應該工作：

fEQRECORDS if e   k disk 
d uwvar2   s    10a inz('ANKUR') 
d message   s    50a inz 
    /free 
    setll *loval req; 
    reade uwvar2 req; 
    dow not %eof(eqrecords) and not %error; 
    message = %trimr(fname) + ' ' + lname; 
    dsply message; 
    reade uwvar2 req; 
    enddo; 
    *inlr = *on; 
    /end-free

來源

2014-10-07 14:11:35