Why? It fits in 12 bits, so LA will work.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Charles Mills <[email protected]> Sent: Monday, August 10, 2020 11:22 AM To: [email protected] Subject: Re: RACF ICHDEX01 Exit > LA R15,8 SET RC 16 I would call that a misleading comment. :-) FWIW, I would code RACF_Use_DES_then_Mask EQU 8 ... LHI R15,RACF_Use_DES_then_Mask Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Mark Jacobs Sent: Monday, August 10, 2020 8:19 AM To: [email protected] Subject: Re: RACF ICHDEX01 Exit Maybe try this. ICHDEX01 AMODE 31 LA R15,8 SET RC 16 * RACF IS TO ATTEMPT TO COMPARE THE DATA BY USING THE RACF * DES ALGORITHM * IF DES PROCESSING FAILS, RACF USES MASKING. BR R14 RETURN TO SYSTEM END ICHDEX01 Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://secure-web.cisco.com/13ME_bEc0SK55CRIRmJOdJ9S7YtKKHz1GqxdE5fmuRheANHb9xHcBIFWRej2jTWT0-WSnA7Ox3qk2Lo8VgL6B6JM2HqeUsIrR29eFWON2gWPv_ytEq1WC2mEo0a8n7DvlrtLr1pifbYr2-G4SdBGe9l6daEJwHygCFxUhTJv-08tOaESEDL9M-BYO92GgVTTMG8elacIhnFdfHSyslsBKp1iy7OLIRz3Wl0RkL9T0T2k5LgMmPY5fZ5TAv0Z7TzroK9z_e3vGXKMJ7U_lCQL5FDR6_i4TXHaEzXrXy0-Xu2mzYhjeB8zONfYOXCW1R-e7VtnWiv7sjBdJttU0-rzVSe492VYVybJ4S-aVTQaQan2CYWjgGbECgT5pXqNqVPKbbfQv-VWMJL86YWGWAsYksZExDblbt1ieE87AgS4ikl_OMFwOgOm2SSRvSU2wdesi/https%3A%2F%2Fapi.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40protonmail.com ‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐ On Monday, August 10, 2020 11:05 AM, Pesce, Andy <[email protected]> wrote: > Good morning everyone ! > > I am going to post this over in the RACF Listserv as well. So, I am trying to > go to z/OS 2.2 and I found this APAR OA49109. > I have a ton of accounts that were created many years ago that are not able > to login to z/OS 2.2. Of course once I go and > change the password on the account it works fine. These accounts have not had > their passwords changed since the > late 90's. Anyone have a sample "ICHDEX01" or can point me to a sample of > that exit. I want to be able to allow these > old passwords that are still using the old encryption. Thanks in advance. > > --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
