Mike.Fulton
New User
Joined: 11 Jun 2014
Posts: 22
Location: Canada
|
|
|
|
Hi
I have been using this rexx exec (opercmd) for awhile now. Here's the source:
| Code: |
/* REXX */
arg options
trace 'o'
parse var options command
parse var command opercmd
opercmd = strip(opercmd,'L')
If (opercmd == '-?' | opercmd == '') Then Do
'mvscmdmsg opercmd 0 I'
Return 0
End
cmd.1 = opercmd
cmd.0 = 1
rc=isfcalls('ON')
if rc<>0 then do
Exit rc
end
/* Use SDSF Interface to issue console command */
Address SDSF ISFSLASH "("cmd.") (WAIT)"
if rc<>0 then do
Exit rc
end
do ix=1 to isfulog.0
say isfulog.ix
end
do ix=1 to isfmsg2.0
say isfmsg2.ix
end
rc=isfcalls('OFF')
Exit rc
|
and this works great on my z/OS 2.3 system.
On another system (which happens to be z/OS 2.2, but possibly irrelevant), it runs clean with no non-zero return codes. I am expecting I don't have the right authority, but am not sure.
The actual command I am trying to do is just:
opercmd 'd u,dasd,online'
which I can issue successfully from the sdsf log command line, e.g.
Running the REXX exec from USS I get:
| Code: |
ISF776I Processing started for action 1 of 1.
ISF769I System command issued, command text: D U,DASD,ONLINE.
ISF766I Request completed, status: COMMAND ISSUED.
|
[/code] |
|
