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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN