Ok thanks I’ll take a different approach 

> On Apr 19, 2024, at 4:50 AM, Rob Scott 
> <00000618c90e6fdf-dmarc-requ...@listserv.ua.edu> wrote:
> 
> Joseph,
> 
> Are you 100% sure that SDWAPRIM is not actually the same as the current PASN ?
> 
> This might explain R15=0 and the ALET being zero (although I must admit I 
> have never tried ALESERV ADD for the STOKEN of my own PASN before).
> 
> I still believe you need to revisit your design. Trying to be “too clever” in 
> general purpose recovery routines is not a good idea in my opinion.
> 
> Rob
> 
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
> Rob Scott
> Sent: Friday, April 19, 2024 8:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ALESERV rc 15 = 0 and alet = 0
> 
> EXTERNAL EMAIL
> 
> 
> 
> Joseph,
> 
> If I understand your last two posts correctly, you are attempting to add an 
> ASID (that you do not control) using ALESERV CHKEAX=NO to the DU-AL of a unit 
> of work that is abending (possibly for a large variety of reasons outside of 
> your control) in order to add a small amount of diagnostic information ?
> 
> This approach seems riddled with system stability risks and I would advise 
> against it.
> 
> Rob Scott
> Rocket Software
> 
> -----Original Message-----
> From: IBM Mainframe Discussion List 
> <IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of 
> Joseph Reichman
> Sent: Friday, April 19, 2024 12:22 AM
> To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
> Subject: ALESERV rc 15 = 0 and alet = 0
> 
> EXTERNAL EMAIL
> 
> 
> 
> 
> 
> Hi
> 
> Just tried to get access list token for the GRS Address space ASID 7
> 
> Got R15 = 0 and alet = 0, as well this was both on my zpdt system and on the 
> CBT real iron I believe z15 system
> 
> As well was running under TESTAUTH
> 
> Here is the code
> 
> * JOER
> LOCASCB ASID=SDWAPRIM LOC prim to SRB JOER
> * JOER
> L R1,ASCBASSB-ASCB(R1) JOER
> MVC STOKEN,ASSBSTKN-ASSB(R1) Get Stokrn JOER
> * JOER
> ALESERV ADD, Put it on DU-AL JOERX
> ACCESS=PUBLIC, JOERX
> CHKEAX=NO, JOERX
> AL=WORKUNIT,STOKEN=STOKEN,ALET=ALET JOER
> * JOER
> * JOER
> 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
> lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with the message: 
> INFO IBM-MAIN
> 
> ================================
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
> Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support: 
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport<https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport>
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
> http://www.rocketsoftware.com/manage-your-email-preferences<http://www.rocketsoftware.com/manage-your-email-preferences>
> Privacy Policy - 
> http://www.rocketsoftware.com/company/legal/privacy-policy<http://www.rocketsoftware.com/company/legal/privacy-policy>
> ================================
> 
> This communication and any attachments may contain confidential information 
> of Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
> prohibited. If you are not the intended recipient, please notify Rocket 
> Software immediately and destroy all copies of this communication. Thank you.
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with 
> the message: INFO IBM-MAIN
> 
> ================================
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
> Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support: 
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
> http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
> ================================
> 
> This communication and any attachments may contain confidential information 
> of Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
> prohibited. If you are not the intended recipient, please notify Rocket 
> Software immediately and destroy all copies of this communication. Thank you.
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to