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

  免費(fèi)注冊(cè) 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫(kù)
123下一頁(yè)
最近訪問(wèn)板塊 發(fā)新帖
樓主: netdoger
打印 上一主題 下一主題

請(qǐng)問(wèn)SFLNXTCHG怎么用 [復(fù)制鏈接]

論壇徽章:
0
11樓 [報(bào)告]
發(fā)表于 2008-08-08 11:51 |只看該作者
rpg（SFR681）：

  2.      FSTATES  UF  E           K        DISK                      A   
  3.      FSFD681  CF  E                    WORKSTN                       
  4.      F                                        @RRN  KSFILE SFD681A   
  5.      ISAVDS     E DSSTATES                    2                     
  6.       *WRITE THE CMD KEY LINE                                       
  7.      C                     WRITETRAILER                              
  8.       *INITIALIZE THE SUBFILE WITH 500 NON-ACTIVE RECORDS            
  9.      C                     MOVE *ON       *IN31                     
  10.      C                     WRITESFD681B                              
  11.      C                     MOVE *OFF      *IN31                     
  12.       *LOAD RECORDS INTO THE SUBFILE                                 
  13.      C                     EXSR @LOAD                                
  14.       *DISPLAY THE SUBFILE                                          
  15.      C           @DISP     TAG                                       
  16.      C                     EXFMTSFD681B                              
  17.      C                     EXSR @CMD                                 
  18.       *VALIDATE THE STATE CODE.MAKE SURE NONE OF THEM START      
  19.       *WITH THE LETTER Q.                                         
  20.      C                     MOVE *OFF      @ERROR                  
  21.      C                     EXSR @VAL                              
  22.      C           @ERROR    IFEQ *ON                              
  23.      C                     GOTO @DISP                             
  24.      C                     ENDIF                                 
  25.       *READ THROUGH THE SUBFILE AND SEE HOW MANY RECORDS         
  26.       *WRRE MAINTAINED VERSUS HOW MANY READ OPERATIONS IT TOOK.   
  27.      C                     EXSR @UPDAT                           
  28.       ************************************************************
  29.       *      @CMD      SUBROUTINE                                 
  30.       ************************************************************
  31.      C           @CMD      BEGSR                                 
  32.       *                                                           
  33.      C           *IN03     IFEQ *ON                              
  34.      C                     MOVE *ON       *INLR                        
  35.      C                     RETRN                                       
  36.      C                     ENDIF                                       
  37.       *                                                                 
  38.      C                     ENDSR                                       
  39.       ****************************************************************  
  40.       *      @UPDAT    SUBROUTINE                                    *  
  41.       ****************************************************************  
  42.      C           @UPDAT    BEGSR                                       
  43.       *                                                                 
  44.      C                     MOVE *OFF      *IN99                        
  45.       *PROCESS ALL CHANGED SUBFILE RECORDS                              
  46.      C           *IN99     DOWEQ*OFF                                    
  47.      C                     READCSFD681A                  99            
  48.      C           *IN99     IFEQ *ON                                    
  49.      C                     LEAVE                                       
  50.      C                     ENDIF                              
  51.       *                                                      
  52.      C           @KEY      IFGT *BLANKS                       
  53.      C           2         OCUR SAVDS                        
  54.      C           @KEY      CHAINRSTATES              98      
  55.      C           *IN98     IFEQ *OFF                          
  56.      C                     DELETRSTATES                       
  57.      C                     ENDIF                              
  58.      C           1         OCUR SAVDS                        
  59.      C           STATCD    IFGT *BLANKS                       
  60.      C                     WRITERSTATES                       
  61.      C                     ENDIF                              
  62.      C                     ELSE                              
  63.      C           @KEY      CHAINRSTATES              98      
  64.      C           *IN98     IFEQ *ON                           
  65.      C                     WRITERSTATES                       
  66.      C                     ENDIF                                       
  67.      C                     ENDIF                                       
  68.      C                     ENDDO                                       
  69.       *                                                                 
  70.      C                     ENDSR                                       
  71.       ****************************************************************  
  72.       *      *INZSR    SUBROUTINE                                    *  
  73.       ****************************************************************  
  74.      C           *INZSR    BEGSR                                       
  75.       *                                                                 
  76.      C                     Z-ADD0         @RRN    50                    
  77.      C                     MOVE *ON       *IN35                        
  78.       *                                                                 
  79.      C                     ENDSR                                       
  80.       ****************************************************************  
  81.       *      @LODD     SUBROUTINE                                    *  
  82.       ****************************************************************  
  83.      C           @LOAD     BEGSR                                       
  84.       *                                                                 
  85.      C                     MOVE *OFF      *IN99                        
  86.      C                     Z-ADD0         @RRN                          
  87.      C           *LOVAL    SETLLRSTATES                                 
  88.      C           *IN99     DOWEQ*OFF                                    
  89.      C                     READ RSTATES                  99            
  90.       *                                                                 
  91.      C           *IN99     IFEQ *ON                                    
  92.      C           @RRN      OREQ 500                                    
  93.      C                     LEAVE                                       
  94.      C                     ENDIF                                       
  95.       *                                                                 
  96.      C                     ADD  1         @RRN                          
  97.      C                     MOVELSTATCD    @KEY                          
  98.      C                     WRITESFD681A                                 
  99.       *                                                                 
  100.      C                     ENDDO                                       
  101.       *                                                                 
  102.      C                     MOVE *ON       *IN30                        
  103.      C                     Z-ADD@RRN      @REC                          
  104.      C                     ADD  1         @REC                          
  105.       *                                                                 
  106.      C                     ENDSR                                       
  107.       ****************************************************************  
  108.       *      @VAL      SUBROUTINE                                    *  
  109.       ****************************************************************  
  110.      C           @VAL      BEGSR                                       
  111.       *                                                                 
  112.      C                     MOVE *OFF      *IN99                        
  113.      C           *IN99     DOWEQ*OFF                                    
  114.      C                     READCSFD681A                  99         
  115.      C           *IN99     IFEQ *ON                                 
  116.      C                     LEAVE                                    
  117.      C                     ENDIF                                    
  118.       *                                                            
  119.      C           STATCD    IFGE 'QA'                                
  120.      C           STATCD    ANDLE'Q9'                                
  121.      C                     MOVE *ON       @ERROR  1                 
  122.      C                     MOVE *ON       *IN41                     
  123.      C                     ENDIF                                    
  124.       *                                                            
  125.      C                     MOVE *ON       *IN39                     
  126.      C                     UPDATSFD681A                             
  127.      C                     MOVE *OFF      *IN41                     
  128.       *                                                            
  129.      C                     ENDDO                                    
  130.      C                     MOVE *OFF      *IN39         
  131.       *                                                  
  132.      C                     ENDSR                        
復(fù)制代碼

論壇徽章:
0
12樓 [報(bào)告]
發(fā)表于 2008-08-08 11:57 |只看該作者
畫(huà)面如圖：
如果state code的輸入大于等于QA小于等于Q9報(bào)錯(cuò)。

1.JPG (62.71 KB, 下載次數(shù): 77)

1.JPG

論壇徽章:
0
13樓 [報(bào)告]
發(fā)表于 2008-08-08 12:32 |只看該作者
看來(lái)兩位編寫subfile的火候很不到位。

subfile編寫有兩種模式：
系統(tǒng)模式
用戶模式

看了兩位的代碼，都屬系統(tǒng)模式。即IBM 提供的模式翻頁(yè)記錄采用dds文件定義的記錄數(shù)。根據(jù)我的編程經(jīng)驗(yàn)，采用系統(tǒng)模式比較容易快速編寫應(yīng)用程序；缺點(diǎn)就是不能任意增加程序檢測(cè)點(diǎn)，程序處理流程比較單一。

用戶模式對(duì)subfile翻頁(yè)記錄數(shù)采用程序控制，可以在程序中任意增加檢測(cè)點(diǎn)，增減多個(gè)subfile處理，多個(gè)條件判斷。缺點(diǎn)（且這么叫法）：編寫程序?qū)崿F(xiàn)比較復(fù)雜。我比較喜歡采用用戶模式。

論壇徽章:
0
14樓 [報(bào)告]
發(fā)表于 2008-08-08 12:36 |只看該作者
再一說(shuō)：

我已經(jīng)n年不用goto，tag等分支跳轉(zhuǎn)語(yǔ)句了。在北美，有些公司一看到你的程序有g(shù)oto等語(yǔ)句，你就會(huì)面臨fire。

論壇徽章:
0
15樓 [報(bào)告]
發(fā)表于 2008-08-08 12:51 |只看該作者
原帖由 passthru 于 2008-8-8 12:36 發(fā)表
再一說(shuō)：

我已經(jīng)n年不用goto，tag等分支跳轉(zhuǎn)語(yǔ)句了。在北美，有些公司一看到你的程序有g(shù)oto等語(yǔ)句，你就會(huì)面臨fire。




對(duì) RPG里我也從不用goto，tag
那CL里你用什么啊

論壇徽章:
0
16樓 [報(bào)告]
發(fā)表于 2008-08-08 13:14 |只看該作者
我GOTO我深惡痛絕

論壇徽章:
0
17樓 [報(bào)告]
發(fā)表于 2008-08-08 13:17 |只看該作者
不過(guò)用系統(tǒng)/用戶和標(biāo)題沒(méi)有關(guān)系

論壇徽章:
0
18樓 [報(bào)告]
發(fā)表于 2008-08-08 13:19 |只看該作者
GOTO的存在自有他存在的理由。
不要人家說(shuō)不好就真的不好。

論壇徽章:
0
19樓 [報(bào)告]
發(fā)表于 2008-08-08 13:21 |只看該作者
原帖由 passthru 于 2008-8-8 12:36 發(fā)表
再一說(shuō)：

我已經(jīng)n年不用goto，tag等分支跳轉(zhuǎn)語(yǔ)句了。在北美，有些公司一看到你的程序有g(shù)oto等語(yǔ)句，你就會(huì)面臨fire。


你不用并不代表所有人都不用。
還有GOTO不要亂用，不是不能用。

論壇徽章:
0
20樓 [報(bào)告]
發(fā)表于 2008-08-08 13:24 |只看該作者
原帖由 passthru 于 2008-8-8 12:32 發(fā)表
看來(lái)兩位編寫subfile的火候很不到位。


還有不要對(duì)人妄加評(píng)論。
你是很強(qiáng)，但人不能太狂傲。

[ 本帖最后由 pantierui 于 2008-8-8 14:13 編輯 ]
您需要登錄后才可以回帖 登錄 | 注冊(cè)

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

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP