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

renle2007

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

huangxkst

回复 1# renle2007


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

renle2007

回复 2# huangxkst


    {:3_187:}  谢谢

huangxkst

回复 3# renle2007


    一起学习

renle2007

回复 4# huangxkst


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

JmLei

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

比较笨的方法。呵呵

huangxkst

回复 5# renle2007


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

renle2007

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

jiangyuyun

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

/free
sleep(60);
/end-free

也可以在RPGLE中这么写

wht196503933

学习一下，