對數(shù)據(jù)區(qū)的操作的問題

nhxingliang

我在練習(xí)對數(shù)據(jù)區(qū)的操作的編程的時候遇到下面的問題,麻煩大家給分析一下

謝謝大家!!!!!!!!!!!

首先我在我的庫里創(chuàng)建了數(shù)據(jù)區(qū) 如下:MYLIB/MYDAARA
我在網(wǎng)上找到如下程序:

*************** Beginning of data **********************
0001.00     I#DTA            DS                                      20                    
FMT J     .....I...........................PFromTo++DF i e l d+L1M1FrPlMnZr.
0002.00      I                                    1       8 CURDAT            
0003.00      I                                  11     16 CURTME            
0004.00     C                   *NAMVAR     DEFN MYDTAARA  #DTA     
0005.00     C                   *LOCK          IN#DTA                              
0006.00     C                                       TIME   DATTME 140               
0007.00     C                                        MOVE DATTME    CURDA
0008.00     C                                        MOVELDATTME    CURTME  
0009.00     C                                        OUT    #DTA                       
0010.00     C                                        UNLCK#DTA                        
0011.00     C                                        SETON                              LR  
    ****************** End of data***********************

可我在編譯的時候系統(tǒng)給出如下信息:
QRG4005    :文件名或記錄名未定義或無效

Qrg7030    :字段或指示符未定義

QRG1020  :寫至數(shù)據(jù)區(qū)域返回碼時出錯,未記錄編譯狀態(tài).

我不知道那除了出錯了? 麻煩大家給指點一下.


謝謝大家!!!!!!!!!!!!!

fairyboy

你沒有建立MYDTAARA 引起的，先建立

nhxingliang

從編譯的屏幕上看,主要是沒有有定義#DTA和DATA兩個字段.
可是我在我的庫中已經(jīng)定義了DATA數(shù)據(jù)區(qū)域.

pl421

看看庫列表什么的.中文的400,爽.

nhxingliang

我在編譯之前先把庫加入到了庫列表.

然后在編譯還是出現(xiàn)上面的情形呀?


郁悶中.......................................

qingzhou

0004.00     C                   *NAMVAR     DEFN MYDTAARA  #DTA   
—>;
0004.00     C                   *DTAARA      DEFN MYDTAARA  #DTA

kempzhang

[quote]原帖由 "qingzhou"]    DEFN MYDTAARA  #DTA[/quote 發(fā)表：

這兩個參數(shù)qinzhou大哥能講講具體的差別嗎？

qingzhou

原帖由 "kempzhang" 發(fā)表：

這兩個參數(shù)qinzhou大哥能講講具體的差別嗎？

這幾天我抽空整理成一篇文章、專講DTAARA運用的，請等待。。。

nhxingliang

謝謝了qingzhou大哥!!!!!!!!!

小弟期待著..................................

ibmas400

1. 
   
2.   列  . . . :       1  71           編輯                            LIB/QRPGSRC
   
3. SEU==>;                                                                MYDTAARA
   
4. FMT DS .....IDsname....NODsExt-file++.............OccrLen+....................
   
5.         ******************** 數(shù)據(jù)開始 *****************************************
   
6. 0001.00      I#DTA        DS                             20                     
   
7. 0003.00      I                                        1   8 CURDAT              
   
8. 0004.00      I                                       11  16 CURTME              
   
9. 0005.00      C           *NAMVAR   DEFN MYDTAARA  #DTA                          
   
10. 0006.00      C           *LOCK     IN   #DTA                                    
    
11. 0007.00      C                     TIME           DATTME140                     
    
12. 0008.00      C                     MOVE DATTME    CURDAT                        
    
13. 0009.00      C                     MOVELDATTME    CURTME                        
    
14. 0010.00      C                     OUT  #DTA                                    
    
15. 0011.00      C                     UNLCK#DTA                                    
    
16. 0012.00      C                     SETON                     LR                 
    
17. 0013.00      C                     RETRN                                       
    
18.         ******************** 數(shù)據(jù)結(jié)束 *****************************************
    
19.                                                                                 
    
20.                                                                                 
    
21.                                                                                 
    
22.                                                                                 
    
23. F3= 退出   F4= 提示   F5= 刷新   F9= 檢索   F10= 光標(biāo)   F11= 切換              
    
24. F16= 重復(fù)查找         F17= 重復(fù)更改       F24= 其余鍵                          
    
25.                                          (C) COPYRIGHT IBM CORP. 1981, 2002.   
    

復(fù)制代碼

我也本地測試了一下，先創(chuàng)建一個名為MYDTAARA的字符形的數(shù)據(jù)區(qū)，然后編譯RPG，發(fā)現(xiàn)LZ有2個比較明顯的錯誤：
1、“ C                     MOVE DATTME    CURDAT ”行應(yīng)該是CURDAT，而不是CURDA；
2、程序最后一行少一句“ C                     RETRN ”；
但編譯結(jié)果還是出現(xiàn)了一個30級別的*QRG7044的錯誤信息，也找了半天沒找出原因。
錯誤信息如下：

1. 
   
2.                                顯示假脫機文件                                   
   
3.   文件 . . . . . :   MYDTAARA                          頁／行     2/23         
   
4.   控制 . . . . . .                                     列         1 - 75        
   
5.   尋找 . . . . . .                                                              
   
6.   *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+   
   
7.        1300  C                     RETRN                                       
   
8.              * * * * *    源結(jié)束    * *                  * * *                  
   
9.              其他診斷消息                                                      
   
10.   * 7044       700   DATTME 必須是數(shù)字字段，才能進行此操作。                    
    
11.    5722WDS V5R2M0  020719                IBM RPG/400                           
    
12.                             交叉引用                                            
    
13.     字段引用：                                                                  
    
14.            字段         屬性      參考   （ M= 已修改  D= 已定義）              
    
15.           *LOCK                600                                             
    
16.           *NAMVAR              500                                             
    
17.           #DTA        DS(20)   100D  500   600  1000  1100                     
    
18.                       EXTNAME  MYDTAARA                                         
    
19.           CURDAT      A(8)     300D  800M                                       
    
20.           CURTME      A(6)     400D  900M                                       
    
21.           DATTME      A(140)   700D  800   900                                 
    
22.           MYDTAARA             500                                             
    
23.                                                                         尚有 ...
    
24. F3= 退出  F12= 取消    F19= 左    F20= 右     F24= 其余鍵                     
    
25.                                                                                 
    

復(fù)制代碼

哪位高人指點一下？