Chinaunix

标题: 谁能给解释一下test命令的用法呢~ [打印本页]

作者: fox_scg 时间: 2007-03-23 12:38
标题: 谁能给解释一下test命令的用法呢~
如题谢谢~

作者: xuguopeng 时间: 2007-03-23 13:10
搞笑呢? 什么系统能有这个命令?

是否是自定义的命令?

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

作者: fox_scg 时间: 2007-03-23 13:17
有的系统内部函数~

作者: xuguopeng 时间: 2007-03-23 13:54
那是俺孤陋寡闻了．．．．．

作者: 李海隽 时间: 2007-03-23 18:39
我感觉这个命令没有太大用途，它需要3个指示器，很浪费。用scan和check就能实现它的功能。

作者: 胖有型 时间: 2007-03-24 21:37

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

是否是自定义的命令?

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

作者: leason 时间: 2007-03-25 11:35
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 时间: 2007-03-26 08:48
哈哈,这个我用过一次,当时是检查输入字段,是否有效

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

作者: fox_scg 时间: 2007-03-26 09:11
知道了~谢谢各位

作者: xuguopeng 时间: 2007-03-26 09:42
晕　我还以为是说ＣＬ命令呢．．．．．．．

作者: fox_scg 时间: 2007-03-26 16:04
在问一下~free格式中如何定义的？？谢谢

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)