On Thu, 26 Jul 2012 16:13:12 +0000, Uriel Carrasquilla wrote:
>
>For the source_file, is it a USS file? or can it be a zOS file?
>
open() requires a USS file.
>> 'open (source_file)' O_RDONLY
>reads the file but where is it used?
>
The descriptor gets assigned to map.0
>> map.1 = 1
>> map.2 = 2
>shouldn't these two parameters be pointing to STDOUT and STDERR recpectively?
>
It was hasty. I'll attach an enhanced instance.
>Or I may have to use:
>'waitpid (spid) waitpid. 0'
>xrc = waitpid.W_EXITSTATUS
>
>To get the actual return code for the spawn child.
>
Ah, but that's error handling, left as an exercise ...
John M.: They fixed password masking ad hoc in ftp long ago.
They never fixed ioctl/fcntl/whatever where the real problem that
should have been fixed lies. They feel that getpass() is a
satisfactory circumvention.
/* ---------------------------------*/
trace R
signal on novalue
parse source sys invoked exfn exft exfm excmd subenv .
RC = SYSCALLS( 'ON' )
address 'SYSCALL'
'open (source_file)' O_RDONLY
stdin = RETVAL
if subenv=='SH' then do
stdout = 1
stderr = 2
end; else do
'pipe P.'
stdout = P.2
stderr = P.2; end
map.0 = stdin
map.1 = stdout
map.2 = stderr
arg.1 = 'ssh'
arg.2 = user_host
arg.3 = 'set -x; cat >foo-sshtest; : Done'
arg.0 = 3
env.1 = 'PATH=/bin:/usr/sbin'
env.0 = 1
'spawn /bin/ssh 3 map. arg. env.'
say RC RETVAL
'close' stdin
if subenv<>'SH' then do
'close' P.2
'readfile /dev/fd/'P.1 'L.'
'close' P.1
do I = 1 to L.0
say L.I; end I; end
exit( RC )
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
