REXX本身没有提供任何线程控制方法,它本身就不是一个支持多线程的语言。
然而,我们可以通过调用TSO的方法,来实现使一个REXX程序暂时等待。
(当然这种方法只在TSO环境中有效。)
方法如下:
Sleepawhile: Procedure
CALL SYSCALLS 'ON'
ADDRESS SYSCALL
"SLEEP" 5
CALL SYSCALLS 'OFF'
Return 0
这样,在调用这个方法时,REXX暂时居于后台(此时REXX进程仍在,但是不占用CPU资源,而其拥有的文件之类IO资源,由于程序仍未退出,因此仍然被程序占用。)