Patrick O'Keefe wrote:
I need to be able to issue a WTO from REXX running under Unix
System Services on z/OS 1.8 and beyond.
[snip]
Would somebody point me to a sample that does this, or at least
point me to a manual describing it?
message = 'Hello World!'
rc = syscalls('ON')
address syscall 'open /dev/console' O_WRONLY 666
consolefd = RETVAL
address syscall 'write' consolefd 'message'
--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
