亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費注冊 查看新帖 |

Chinaunix

  平臺 論壇 博客 文庫
最近訪問板塊 發(fā)新帖
查看: 7073 | 回復(fù): 8
打印 上一主題 下一主題

DSPF中修改數(shù)據(jù)，與之關(guān)聯(lián)的文件同步的問題 [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1樓 [收藏(0)] [報告]
發(fā)表于 2012-08-28 20:08 |只看該作者 |倒序瀏覽
FPGTstDsPL1UF A E           K DISK                    
FPGTstDsP@ CF   E             WORKSTN SFile(@@SFL:RRN)
                                                      
*                                                   
DRRN              S              6S 0 INZ(0)         
*                                                   
C                   EXSR      #MAIN                  
C                   EVAL      *INLR='1'               
C                   RETURN                           
*                                                   
*                                                   
*                                                   
CSR   #MAIN         BEGSR                             
C                   WRITE     FOOT                    
C                   EXSR      #ClrSfl                 
C                   EXSR      #LodSfl                 
C                   EXSR      #LodSfl                              
C                   Dow       *IN03      <> '1'                    
C                   Exfmt     @@SFLC                              
C                   EXSR      #PrcSfl                              
C                   EndDo                                          
CSR               ENDSR                                          
*                                                                                                      
*                                                                 
*                                                                 
CSR   #ClrSfl       BEGSR                                          
C                   SETON                                        80
C                   WRITE     @@SFLC                              
C                   SETOFF                                       80
C                   Z-Add     0             wNum              6 0  
CSR                 ENDSR                                          

CSR   #LodSfl BEGSR                                             
C     *Loval     SetLL     FDSPR                                    
C                   Read      FDSPR                                  30
C                   Dow       *IN30='0'                                
*                                                                     
C                   Add       1             wNum                       
C                   Eval      RRN         = wNum                       
C                   Eval      @@SFPG      = wNum                       
C                   Write     @@SFL                                    
*                                                                     
C                   Read      FDSPR                                  30
C                   EndDo                                             
*                                                                     
CSR               EndSr        


  *                        
  *                        
CSR   #PrcSfl       BegSr  
* 修改數(shù)據(jù)                                         
C                   When      Opt         = 2      
C                   Reset                   Opt     
C                   Eval      @@SFPG      = RRN     
C                   Exfmt     @@WIDEDT              
C                   If        *IN12       = '0'     
C                   Update    @@SFL                 
C                   Exfmt     @@WIDSUC              
*                                                  
C     DSPNO         Chain     FDSPR                 
C                   If        %Found()              
C                   Update    FDSPR                 
C                   EndIf                           
C                   Else                           
C                   Update    @@SFL                 
C                   EndIf                  
*                                                                     
CSR               EndSr        
        

論壇徽章:
0
2樓 [報告]
發(fā)表于 2012-08-28 20:08 |只看該作者
請大家?guī)兔聪拢蚁雽崿F(xiàn)在屏幕文件中修改記錄，同時也修改與之關(guān)聯(lián)的PF中對應(yīng)的記錄，屏幕文件中記錄修改后正確顯示，但是PF修改后，正常運行，F(xiàn)D  PF時該記錄卻仍是修改前的值，Debug進(jìn)去，到這一步也正常通過

論壇徽章:
0
3樓 [報告]
發(fā)表于 2012-08-28 20:31 |只看該作者
沒太懂，修改子例程#PrcSfl是干嘛的？

論壇徽章:
0
4樓 [報告]
發(fā)表于 2012-08-28 21:46 |只看該作者
#PrcSfl是用來修改記錄的呀

論壇徽章:
1
操作系統(tǒng)版塊每日發(fā)帖之星 日期:2015-11-05 06:20:00
5樓 [報告]
發(fā)表于 2012-08-28 23:52 |只看該作者
C     DSPNO         Chain     FDSPR                 
C                   If        %Found()              
C                   Update    FDSPR                 
C                   EndIf

這里沒對PF 的FD進(jìn)行修改值呀，這只是個空的UPDATE

論壇徽章:
0
6樓 [報告]
發(fā)表于 2012-08-29 08:35 |只看該作者
修改了吧，因為@@WIDEDT 這個窗口里的字段是引用PF字段定義的，連名字都沒換，
A          R @@WIDEDT                                                  
A                                                   CF12(12 'Cancel')               
A                                                    WINDOW(5 15 11 50)              
A            DSPNO     R        O  2 10  REFFLD(FDSPR/DSPNO   MYLIB/PGTSTDSPP)
A            DSPNAM    R        B  3 10  REFFLD(FDSPR/DSPNAM MYLIB/PGTSTDSPP)
...............................

論壇徽章:
0
7樓 [報告]
發(fā)表于 2012-09-03 13:43 |只看該作者
沒有修改。
因為CHAIN了一下

論壇徽章:
0
8樓 [報告]
發(fā)表于 2012-09-03 13:46 |只看該作者
一般來說，畫面和DB里的字段名應(yīng)該是不一樣的。
如果你非要這么偷懶，可以先讀一下畫面，再更新。

論壇徽章:
0
9樓 [報告]
發(fā)表于 2012-09-03 21:11 |只看該作者
嗯，謝謝樓上！修改了，把字段名換了就好了
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報專區(qū)
中國互聯(lián)網(wǎng)協(xié)會會員  聯(lián)系我們：huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP