问个问题 ~~~！

Question

我正在看一本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）是什么含义   还有最后一行的含义  谢谢了

Answer 1

学习到了，感谢

Answer 2

2楼的回答很强大

Answer 3

楼上回答的很仔细.

Answer 4

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,至于为什么要设置延迟，就要看你的程序是干什么用的了。