论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-03-12 15:44 |只看该作者 |倒序浏览

我正在看一本cl 有些地方不是很理解希望高手能够解答
LOOP2:  RTVDTAARA DTAARA(FTPINS (&LNNO 1)) RTNVAR(&FTPINS)
               IF                COND(&FTPINS *EQ '1') THEN (DO)
                  CHGVAR VAR(&FTPINSCNT)    VALUE((&FTPINSCNT + 1)
                  DLYJOB       DLY(30)
                  IF                COND(&FTPINS *EQ '1') THEN (DO)
                     CHGDTAARA DTAARA(FTPINS (&LNNO 1)) VALUE('0')
..............................我想知道第一行是什么含义  还有 DLYJOB DLY（30）是什么含义还有最后一行的含义  谢谢了

文库|博客

ellading

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2009-03-12 16:32 |只看该作者

回复 #1 法号戒色的帖子

1. RTVDTAARA DTAARA(FTPINS (&LNNO 1)) RTNVAR(&FTPINS)
这句的意思是将 FTPINS 这个 DTAARA的值从变量&LNNO位置取1个长度赋值给变量&FTPINS
DTAARA是之前在系统中定义好的，相当于系统的公共变量。
例如：DTAARA： FTPINS ='20080903567'
变量：&LNNO=9
则变量 &FTPINS='5'
对应的 CHGDTAARA DTAARA(FTPINS (&LNNO 1)) VALUE('0')这句是改变DTAARA FTPINS的值，就是将其变量&LNNO处的值更改为'0',如果执行了这句，则 FTPINS ='20080903067'

2. DLYJOB DLY（30）这句是JOB延迟30s,至于为什么要设置延迟，就要看你的程序是干什么用的了。