RPGIV编程技巧（10）sleep 在RPGIV中的用法

sleep 在RPGIV中的用法

 

    sleep的功能相当于CL中的dlyjob功能，都是程序执行中起延时作用。前者是IBM打包在OS/400中供RPGIV调用，后者供CL调用。

 

    因为sleep是procedure编译功能，所以，在RPGIV中定义原型接口（prototype）时，需指明外部procedure，具体定义如下：

 

d sleep           PR            10I 0 ExtProc('sleep')
d                               10U 0 Value          

 

在RPGIV中如果是自由格式，调用：

 

      sleep（n）；

 

n为延时n秒。

 

如果是固定格式，调用：

 

C         callp    sleep（n）