Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
REXX exec (opercmd) failing quietly on new system

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
Mike.Fulton

New User


Joined: 11 Jun 2014
Posts: 22
Location: Canada

PostPosted: Sat Aug 03, 2019 4:45 am    Post subject: REXX exec (opercmd) failing quietly on new system
Reply with quote

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.
Code:

/d u,dasd,online

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]
Back to top
View user's profile Send private message

steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 797
Location: The Universe

PostPosted: Sat Aug 03, 2019 9:36 am    Post subject:
Reply with quote

And what message do you see in LOG or ULOG? What value do you see in RC?
Back to top
View user's profile Send private message
Mike.Fulton

New User


Joined: 11 Jun 2014
Posts: 22
Location: Canada

PostPosted: Sat Aug 03, 2019 10:51 pm    Post subject: Reply to: REXX exec (opercmd) failing quietly on new system
Reply with quote

rc of 0 for all calls.
Ulog.0 has 0 entries - so nothing printed.
I didn’t know about log - will check!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts New Parameter should be added to the ... spizen556 CLIST & REXX 28 Fri Apr 03, 2020 5:37 pm
No new posts Need help in REXX code to list the af... chavinash2004 CLIST & REXX 3 Wed Apr 01, 2020 12:53 pm
No new posts Can I use EXEC CICS START instead of ... smenjoge CICS 1 Sat Mar 21, 2020 1:41 am
No new posts Rexx STRIP Equivalent function in CLIST upendrasri CLIST & REXX 5 Mon Mar 16, 2020 9:57 pm
No new posts Execute DSNTEP2 in REXX which is call... sushanth bobby CLIST & REXX 4 Wed Mar 04, 2020 3:27 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us