Roscoe is no longer in use here but I do have an exit.
It depends on two facility classes being defined in RACF.
ROSCMD to allow access to issuing commands
ROSCON to allow access to viewing the console
This is similar to having tables of users defined in the exit but this way the
RACF admin controls access.
CHKCMD DS 0H
MVC RACNAME,=CL8'ROSCON' SET FOR CON CHK
L R3,UXCONCMD ADDRESS COMMAND CODE
CLI 0(R3),UXCO@OPE OPERATOR COMMAND
BNE RACHK NO...SKIP NEXT
MVC RACNAME,=CL8'ROSCMD' SET FOR CMD CHK
RACHK MVC RACEXEC,BGNRAC MOVE IN THE RACHECK LIST
L R7,SCBACFB GET THE ACEE
LA R7,0(0,R7)
LTR R7,R7 ACEE PRESENT?
BZ RC4 NO
MODESET MF=(E,SUPSVSL) INTO KEY ZERO
RACHECK ENTITY=RACNAME,ACEE=(R7),MF=(E,RACEXEC)
ST R15,RCODE SAVE RETURN CODE
MODESET MF=(E,PROBSVSL) RETURN TO PROBLEM PROGRAM
CLC RCODE,=X'00000000' TEST RETURN CODE
BNE RC4 FAILED
Let me know offline if you would like to have the complete exit.
Thanks,
Tim Deller
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
