Chinaunix

标题: 谁能发下平时常用的一些小方法 [打印本页]

作者: nanpkyang    时间: 2010-02-23 13:34
标题: 谁能发下平时常用的一些小方法
例如 D                 DS                                                              
D WK_TIME                 1     14  0                                       タイム
D  WK_HMD                 1      6  0                                       時刻  
D  WK_YMD                 7     14  0                                       日付  
C                   TIME                    WK_TIME
作者: huangxkst    时间: 2010-02-23 23:22
回复 1# nanpkyang


    能吧问题说得具体些吗???
作者: nanpkyang    时间: 2010-02-24 08:28
常用的一些算法 我是菜鸟 想吸收点学习经验 就像这样的
*LOVAL  SETLL     FTESTPF                                    
               READ      FTESTPF                                82   
               IF        *IN82=*OFF                                 
               输出ID                 
                                                                    
               DO        *HIVAL                                      
ID          SETGT     FTESTPF                                    
               READ      FTESTPF                                82   
               IF        *IN82=*OFF                                 
               输出ID                                 
               ELSE                                                  
               LEAVE                                                
               ENDIF                                                
               ENDDO                                                
                                                                     
               ENDIF     
                                            
               SETON                                        LR      
               RETURN




欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2