If it works, great. But since I was all primed to offer another kind of solution, I'm remembering an explanation I sent once about how to ask RACF (and I take it from your symptoms that you are running RACF) whether you have READ access to a particular dataset. It seems to me it can be adapted to check whether you have UPDATE access. It's more complicated than the below, but if you're interested....
--- Bob Bridges, [email protected], cell 336 382-7313 /* When I was ten, I read fairy tales in secret and would have been ashamed if I had been found doing so. Now that I am fifty I read them openly. When I became a man I put away childish things, including the fear of childishness and the desire to be very grown up. -C.S. Lewis */ -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Cameron Conacher Sent: Tuesday, January 17, 2023 15:41 Thank you. This looks like just what I needed. Appreciate the assistance. --- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Seymour J Metz Sent: Tuesday, January 17, 2023 3:03 PM Did you try CONTROL ERRORS RETURN? ________________________________________ From: Cameron Conacher Sent: Tuesday, January 17, 2023 2:48 PM I have some REXX statements that use LMCOPY to copy members from one library to another. This is pretty straight forward stuff. Recently, I ran into a situation where I was not authorized to access the output library. And when the REXX ran, it ABENDed with a 913 error message. My REXX checks the return code value from the LMCOPY, but apparently, the LMCOPY does not return. I can't seem to trap the not authorized error, and generate a polite message for the JOB. After issuing the LMCOPY command, I check, and if the return code is not one of 0, 8, or 12 I generate an error message. On the other hand if it is zero I generate a success message if it is 8 I generate a success message if it is 12 I generate a message indicating I did not replace the member in the target library because the member already existed and the REPLACE flag was not set. The other return codes documented for LMCOPY are 16 = TRUNCATION Error 20 = Sever Error; unable to continue. I was kind of expecting to see the LMCOPY return set as 20. Is there something I can set to trap the 913 (Not Authorized error) ? I can live with what I have. I was just looking to polish things up a little bit. I wanted to send out a message that literally says "You do not have the authority to access Library ..... Please reach out to the Security team at... and have them authorize your RACF ID. Then restart this JOB at step.... If you have additional questions, please see ....." ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
