在REXX中使程序暫時等待的方法

REXX本身沒有提供任何線程控制方法，它本身就不是一個支持多線程的語言。

然而，我們可以通過調用TSO的方法，來實現使一個REXX程序暫時等待。

（當然這種方法只在TSO環境中有效。）

方法如下：

 

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

 

這樣，在調用這個方法時，REXX暫時居於後臺（此時REXX進程仍在，但是不佔用CPU資源，而其擁有的文件之類IO資源，由於程序仍未退出，因此仍然被程序佔用。）