谁能给解释一下test命令的用法呢~

fox_scg

如题谢谢~

xuguopeng

搞笑呢? 什么系统能有这个命令?

是否是自定义的命令?

[ 本帖最后由 xuguopeng 于 2007-3-23 13:14 编辑 ]

fox_scg

有的系统内部函数~

xuguopeng

那是俺孤陋寡闻了．．．．．

李海隽

我感觉这个命令没有太大用途，它需要3个指示器，很浪费。用scan和check就能实现它的功能。

胖有型

原帖由 xuguopeng 于 2007-3-23 13:10 发表
搞笑呢? 什么系统能有这个命令?

是否是自定义的命令?

楼主的意思是RPG程序里面的"TEST"操作码,我也没用过.

leason

TEST {(D | T | Z | E)} (Test
Date/Time/Timestamp)  

TESTB (Test Bit)   
TESTN (Test Numeric)
TESTZ (Test Zone)   

例子如下:

0001.00  ***********************************              
0002.00  * 服务程式：Ｘ年Ｘ月Ｘ日几日前／後为Ｙ年Ｙ月Ｙ日
0003.00  ***********************************              
0004.00 H                                                
0005.00 DSDATE1           S              8S 0            
0006.00 DSDATE2           S              8S 0            
0007.00 DPDATE1           S              8A               
0008.00 DTDATE            S              8A               
0009.00 DPDATE2           S              8A               
0010.00 DPQTY             S              7A               
0011.00 DQTY              S              7S 0            
0012.00 DOPT              S              1A               
0013.00 DRET              S              1A               
0014.00 DKDATE1           S               D   DATFMT(*ISO)
0015.00 DKDATE2           S               D   DATFMT(*ISO)
0016.00  *--------------------------------*               
0017.00 C                   EXSR      SR0000                                
0018.00 C  N99              DO                                             
0019.00 C                   EXSR      SR1000                                
0020.00 C                   ENDDO                                          
0021.00  *                                                                  
0022.00 C                   SETON                                        LR
0023.00 C                   RETURN                                          
0024.00  *                                                                  
0025.00  ********************                                               
0026.00  * SR0000           *                                               
0027.00  ********************                                               
0028.00 C     SR0000        BEGSR                                          
0029.00 C     *ENTRY        PLIST                                          
0030.00 C                   PARM                    OPT                     
0031.00 C                   PARM                    PDATE1                  
0032.00 C                   PARM                    PDATE2                  
0033.00 C                   PARM                    PQTY                    
0034.00 C                   PARM                    RET                     
0035.00  *                                                                  
0036.00 C                   MOVEL     *BLANK        PDATE2                  
0037.00 C                   SETOFF                                       99
0038.00 C                   MOVE      PDATE1        SDATE1                  
0039.00 C                   MOVE      PQTY          QTY                     
0040.00  *                                                                  
0041.00 C     OPT           IFNE      '1'                                   
0042.00 C     OPT           ANDNE     '2'                                   
0043.00 C                   SETON                                        99
0044.00 C                   MOVE      'N'           RET                     
0045.00 C                   ENDIF                                          
0046.00  *                                                                  
0047.00 C     QTY           IFLT      0                                    
0048.00 C                   SETON                                        99
0049.00 C                   MOVE      'N'           RET                     
0050.00 C                   ENDIF                                          
0051.00  *                                                                  
0052.00 C                   MOVEL     PDATE1        TDATE                    
0053.00 C     *ISO0         TEST(D)                 TDATE                  18
0054.00 C     *IN18         IFEQ      '1'                                    
0055.00 C                   SETON                                        99  
0056.00 C                   MOVE      'N'           RET                     
0057.00 C                   ENDIF                                            
0058.00 C                   ENDSR                                            
0059.00  *                                                                  
0060.00  ********************                                                
0061.00  * SR1000           *                                                
0062.00  ********************                                                
0063.00 C     SR1000        BEGSR                                            
0064.00  *                                                                  
0065.00 C     OPT           IFEQ      '1'                                    
0066.00 C                   MULT      -1            QTY                     
0067.00 C                   ENDIF                                            
0068.00 C     *ISO          MOVE      SDATE1        KDATE1                    
0069.00 C     KDATE1        ADDDUR    QTY:*D        KDATE2                    
0070.00 C                   MOVE      KDATE2        SDATE2                    
0071.00 C                   MOVE      SDATE2        PDATE2                    
0072.00 C                   MOVE      'Y'           RET                       
0073.00  *                                                                    
0074.00 C                   ENDSR

fairyboy

哈哈,这个我用过一次,当时是检查输入字段,是否有效

字符型检查,数字检查.等

fox_scg

知道了~谢谢各位

xuguopeng

晕　我还以为是说ＣＬ命令呢．．．．．．．