请问如何在RPGLE中加一段代码，让程序等待10秒再执行下一步操作？

Question

rpg 程序中请问如何在RPGLE中加一段代码，让程序等待10秒再执行下一步操作？
最好能举一个完整的WAIT 处理模块。。{:3_194:}

Answer 1

学习一下，

Answer 2

d sleep pr 10u 0 extproc('sleep')
d secs 10u 0 value

/free
sleep(60);
/end-free

也可以在RPGLE中这么写

Answer 3

哥们儿们谢勒。。。别答勒。。这个问题我已经解决勒。。谢谢。。。现在主要是API和MSG的问题。。。。

Answer 4

回复 5# renle2007

    一个能在程序中执行cl命令的程序，在cl program书中也有讲到

Answer 5

C                   TIME                    xxTIMEa  
C     xxTIMEa       ADDDUR    10:*S          xxTIMEb  
C     xxTIMEa       DOWLE     xxTIMEb               
C                   TIME                    xxTIMEa  
C                   ENDDO                           

比较笨的方法。呵呵

Answer 6

回复 4# huangxkst

    可是你  call     ’qcmdexc‘
       中的  qcmdexc 是什么东西？？

Answer 7

回复 3# renle2007

    一起学习

Answer 8

回复 2# huangxkst

    {:3_187:}  谢谢

Answer 9

回复 1# renle2007

    ....
//加入的代码
   C    eval    qcmd='dlyjob DLY(秒数)‘
   c     call     ’qcmdexc‘
   c    parm                     qcmd           200
    C    parm   200             qcmdlen        15 5
。。。。。。。。。。