在REXX中使程序暂时等待的方法

REXX本身没有提供任何线程控制方法，它本身就不是一个支持多线程的语言。

然而，我们可以通过调用TSO的方法，来实现使一个REXX程序暂时等待。

（当然这种方法只在TSO环境中有效。）

方法如下：

 

Sleepawhile: Procedure
   CALL SYSCALLS 'ON' 
   ADDRESS SYSCALL    
   "SLEEP" 5          
   CALL SYSCALLS 'OFF'
   Return 0           

 

这样，在调用这个方法时，REXX暂时居于后台（此时REXX进程仍在，但是不占用CPU资源，而其拥有的文件之类IO资源，由于程序仍未退出，因此仍然被程序占用。）