這個(gè)dspf我怎么調(diào)試不過(guò)啊,請(qǐng)大哥們指點(diǎn)指點(diǎn)

zhancd

各位好,
      我是新手,剛學(xué).編個(gè)完整的RPG還不會(huì).于是在http://www.texas400.com/BSacddspfil.html 找了個(gè)RPG的程序來(lái)抄著試試!

隨便有很多大哥寫(xiě)了程序員培訓(xùn)什么的,我太菜了,看不大懂. 簡(jiǎn)單的沒(méi)人教啊.只好在此請(qǐng)教,煩勞大家看看:
代碼如下:也可以直接打開(kāi)上面的網(wǎng)址看這個(gè)DISPLAY FILE,  我核對(duì)了多便,好西哪個(gè)沒(méi)有輸入錯(cuò),"14"就是不過(guò).
This is the DDS for the Display Program named CUSTD01.



     A                                      REF(CUST)                  
     A                                      CA03(03 'F3=EXIT')         
     A          R SCR1                                                
     A                                  1  2USER                       
     A                               O  1 28'ADD/UPDATE/DELETE/INQUIRE'
     A                                      DSPATR(HI)                 
     A                                  1 72DATE                       
     A                                      EDTCDE(Y)                  
     A                                  2  2'CUSTR01'                  
     A                                  2 72TIME                       
     A                               O  6  8'(A)dd, (U)pdate, (D)elete'
     A                               O  6 34'(I)nquire, (N)ext'        
     A            ACTION         1   B  6 53DSPATR(HI)                 
     A                               O  8 28'Cust#'                    
     A            CUS#      R        B  8 35DSPATR(HI) EDTCDE(4)      
     A            ERRLIN        78   O 22  2                           
     A  90                                  DSPATR(RI)                 
     A                               O 23 14'F3=EXIT'                  
     A*----------------------------------------------------------------
     A          R SCR2                                                
     A                                      CA09(09 'F9=DELETE')      
     A                                  1  2USER                       
     A                                  1 28'CUSTOMER FILE MAINTENANCE'
     A                                  1 72DATE                       
     A                                      EDTCDE(Y)                  
     A                                  2  2'CUSTR01'                  
     A            MODE           7   O  2 37                           
     A                                  2 72TIME                       
     A                                  3 28'Cust#'                    
     A            CUS#      R        O  3 37EDTCDE(4) DSPATR(RI)      
     A                                  8 28'Name'                     
     A            CUSNAM    R        B  8 42                           
     A N80                                  DSPATR(HI)                 
     A  80                                  DSPATR(PR)                 
     A                                  9 28'Address 1'               
     A            CUSAD1    R        B  9 42                           
     A N80                                  DSPATR(HI)                 
     A  80                                  DSPATR(PR)                 
     A                                 10 28'Address 2'               
     A            CUSAD2    R        B 10 42                           
     A N80                                  DSPATR(HI)                 
     A  80                                  DSPATR(PR)                 
     A                                 11 28'City'                     
     A            CUSCTY    R        B 11 42                           
     A N80                                  DSPATR(HI)                 
     A  80                                  DSPATR(PR)                 
     A                                 12 28'State'                    
     A            CUSSTA    R        B 12 42                           
     A N80                                  DSPATR(HI)                 
     A  80                                  DSPATR(PR)                 
     A                                 13 28'Zip'                     
     A            CUSZIP    R     Y  B 13 42                           
     A N80                                  DSPATR(HI)                 
     A  80                                  DSPATR(PR)                 
     A            ERRLIN        78   O 22  2                           
     A  90                                  DSPATR(RI)                 
     A                               O 23 14'F3=EXIT'


SPOOLED FILE 如圖



[ 本帖最后由 zhancd 于 2008-7-1 14:51 編輯 ]

fxf_china

一個(gè)一個(gè)解決,可以在SPOOLED FILE 中找錯(cuò)誤

如找CPD5252,可能會(huì)定位到具體的出錯(cuò)語(yǔ)句,結(jié)合他的提示,應(yīng)該會(huì)對(duì)錯(cuò)誤有所了解

zhancd

我還不怎么會(huì)寫(xiě),我照著抄都錯(cuò),我不知道是我抄錯(cuò)了,還是程序本身有問(wèn)題.能不能幫忙測(cè)試以下程序本身有沒(méi)有錯(cuò)啊?

zhancd

怎么給分給你啊?我只有7分

wdz315

REF(CUST)      

這是引用其他文件的字段名稱(chēng)，你看看環(huán)境里面是否有cust

zhancd

有啊,CUST是PF,編譯已經(jīng)通過(guò)了,而且在一個(gè)庫(kù)中

fxf_china

在SPOOLED FILE 中找CPD5252,應(yīng)該會(huì)找到出錯(cuò)的那一行,
你的pf里定義的是CUNAM,dspf里定義的是CUSNAM

一個(gè)一個(gè)查,沒(méi)有別的辦法,先查錯(cuò)誤級(jí)別高的,庫(kù)列表先要加好

wdz315

首先是5252錯(cuò)誤


A            CUSNAM    R        B  8 42                           
A N80                                  DSPATR(HI)                 
A  80                                  DSPATR(PR)     
這個(gè)5250是和引用文件的名字不一致。
dds里面是
A            CUNAM         30A     

第二個(gè)5252和上面一樣  畫(huà)面為CUSSTAdds里面是CUSCTA

我照著網(wǎng)頁(yè)和你給的dds寫(xiě)的，就這么兩個(gè)錯(cuò)誤。

簡(jiǎn)單畫(huà)面的錯(cuò)誤一般都是手誤引起的。你自己仔細(xì)的找找吧！

zhancd

多謝指點(diǎn),我已經(jīng)調(diào)好了.辛苦2位了.

之前我的PF中有了數(shù)據(jù),我再改正了錯(cuò)誤,結(jié)果不能刪除原來(lái)的文件了,我是復(fù)制了PF,重新編譯就好了.

有沒(méi)有辦法刪除原來(lái)的數(shù)據(jù)啊? 請(qǐng)教2位大哥!

wdz315

刪除數(shù)據(jù)，還是obj？