Hi CBT file 953 has TRYAUTH a REXX program and CHKAUTH a REXX function written in Assembler.
TRYAUTH calls CHKAUTH with a dataset name and CHKAUTH uses RACROUTE to check the access of the ID running the program. For your purposes you would need to change TRYAUTH to pass a facility name and remove the code in CHKAUTH where LOCATE is used to get the VOLSER and the subsequent check for MIGRAT, also change the CLASS in the RACROUTE macro. I hope you find this useful. John ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN