|
View previous topic :: View next topic
|
| Author |
Message |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10889
Location: italy
|
|
|
|
| Quote: |
| Then some concernful jobs can invoke this pgm to give alarms once abends occured. |
no need to reinvent the wheel
this task can be better done using Your scheduler facilities ...
for abends or chosen return codes it is perfectly capable of
sending alarms directly or
scheduling a job to send alarms
no need to have an initiator sitting there doing nothing ,
or have the scheduler schedule at interval a job todo the checking
anyway if You are unwilling to use Your scheduler facilities
the most reasonable tool would be a batch execution of SDSF
a quick and dirty search for ibm redbooks sdsf rexx will take You
to
www.redbooks.ibm.com/abstracts/sg247419.html
and a click on the additional material link
to
www.redbooks.ibm.com/redbooks/SG247419/
were You can download the sources of the samples |
|
| Back to top |
|
 |
Victor Niu
New User
Joined: 11 Mar 2010
Posts: 59
Location: China,Shanghai
|
|
|
|
hi,enrico-sorichetti
thanks for ur constructive reminder.
it is a good method to check concernful jobs' status by sdsf rexx.
but the customer emphasize to write msg to syslog.sometimes the customer not only controls project result,but steps and detail. |
|
| Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden
|
|
|
|
| dick scherrer wrote: |
Hello,
Have you asked the system support people?
Will this command find the routine if you run it in your online tso session? It might not work properly, but if it runs and fails, you know it is "there". |
I haven't touched sysrexx at all before, but I tried this on my DEMO machine and get the same error message.
I guess this means that it requires some other installation on TSO.
I do have the SYS1.PARMLIB(AXR00) member I see.
Did anyone have this running successfully on TSO?  |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2596
Location: Silicon Valley
|
|
|
|
| It does not run on your TSO session. It runs in its own address space. If you want it to do TSO stuff, it will be run differently than without. |
|
| Back to top |
|
|
Victor Niu
New User
Joined: 11 Mar 2010
Posts: 59
Location: China,Shanghai
|
|
|
|
The further research:
I found system rexx script can be invoked as a console command by rexx.
As mentioned above,the command 'rexx1ahello' can be invoked in rexx
/*REXX*/
"CONSPROF SOLDISP(NO) SOLNUM(8000) UNSOLDISPLAY(NO)"
'CONSOLE ACTIVATE NAME(TBSM01)'
CMD ='REXX1AHELLO'
MSG = "TBSM"
"CONSOLE SYSCMD("CMD") CART("MSG")"
RTMSG.0 = 0
GETCODE = GETMSG('RTMSG.','SOL',,,20)
IF GETCODE = 0 & RTMSG.0 <> 0 THEN
DO I = 1 TO RTMSG.0
SAY RTMSG.I
END
'CONSOLE DEACTIVATE'
EXIT
Then batch job excute this rexx,the output will write to syslog.
it is successfully in my work environment,but failed in my hercules.
the error msg is 'IEE345I MODIFY AUTHORITY INVALID, FAILED BY MVS'
My userid has the console and opercmds cmd authorization.and cmd REXX1AHELLO excuted successfully in sdsf
I don't know what the reason is .... |
|
| Back to top |
|
|
nevilh
Active User
Joined: 01 Sep 2006
Posts: 262
|
|
|
|
We had a similar problem on a test system we fixed it with the following
RDEFINE OPERCMDS MVS.MCSOPER.* UACC(NONE)
PERMIT MVS.MCSOPER.* CLASS(OPERCMDS) ID(ANYNAME) ACCESS(READ)
Apparently our user was authorised but the commmand did not run in our address space but in the Console address space or so I was led to believe. |
|
| Back to top |
|
|
Victor Niu
New User
Joined: 11 Mar 2010
Posts: 59
Location: China,Shanghai
|
|
|
|
have a try,the same problem
4 profiles in class opercmds
MVS.DISPLAY.* (G)
MVS.MCSOPER.* (G)
MVS.MODIFY.* (G)
** (G)
my id has alter authorization for the 4 profiles. |
|
| Back to top |
|
|
nevilh
Active User
Joined: 01 Sep 2006
Posts: 262
|
|
|
|
| If I read the docs correctly (no gurantee) the command will not be issued from your address space so it makes no difference that you are authorised . Can you change the UACC to read or authorise your consoleid for read access on the profiles. If this does not work I have no more ideas....you will have to find someone who understands RACF |
|
| Back to top |
|
|
|
|
