On Sat, 15 Mar 2008 13:00:34 -0700, Edward Jaffe wrote:
>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.
>
> message = 'Hello World!'
> rc = syscalls('ON')
> address syscall 'open /dev/console' O_WRONLY 666
> consolefd = RETVAL
> address syscall 'write' consolefd 'message'
>
Or variants such as:
'dup2 (consolefd) 1'
say 'Message 2'
RC = BPXWDYN( 'alloc dd(SYSUDUMQ) pathopts(OWRONLY) path(''/dev/console'')
reuse' )
M.1 = 'Message 3'
address 'MVS' 'EXECIO 1 DISKW SYSUDUMQ (stem M.'
... but be aware that some shops may have chmoded /dev/console
or disabled the BPXW024I message with autoops so it is not
available to unprivileged programmers.
-- gil
----------------------------------------------------------------------
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
