For use on TEST systems to help weed out incorrect references to PSA take a look a the IGVDGNPP tool discussed in SHARE session Bit Bucket 29 x'1D' - March 2005 (Anaheim)
http://www.share.org/client_files/docupload/Bit%20Bucket%2029%20(1D).pdf http://www.share.org/Volunteer_Center/programs/mvs_archives.cfm The tool can prime several PSA locations which are normally zero but not insured to be with a pattern that may cause abends or errors in programs that reference them incorrectly. You can thank Jim Mulder for the tool I believe. Caveat Repeated! May expose problems or break code that is working today so do not do this unless you are prepared to tolerate and debug the failures that result. //******************************************************* //* //* THIS PROCEDURE WILL PRIME THE RESTART OLD PSW, THE //* MACHINE CHECK OLD PSW, AND THE MACHINE CHECK LOGOUT //* AREA AND SAVE AREAS WITH THE VALUE SPECIFIED BY THE //* V= PARAMETER, AT THE INTERVAL SPECIFIED BY THE T= //* PARAMETER (T IS IN UNITS OF HUNDREDTHS OF SECONDS, //* IN HEX). THE PURPOSE IS TO MAKE THESE AREAS NON-ZERO //* TO CATCH PROGRAMS WHICH ACCIDENTALLY REFERENCE THEM, //* AND GET LUCKY AND DO NOT ABEND BECAUSE THEY ARE //* USUALLY ZERO. //* //* IF IGVDGNPP IS TERMINATED VIA AN MVS STOP (P) //* COMMAND, IT SETS ALL MODIFIED AREAS TO ZERO BEFORE //* TERMINATING. //* //*GVDGNPP PROC T=000003E8,V='50404143,AAAAAAAA,55555555,FFFFFF7F' //IGVDGNPP PROC T=0000EA60,V='50404143,AAAAAAAA,55555555,FFFFFF7F' //IGVDGNPP EXEC PGM=IGVDGNPP,REGION=2M,TIME=NOLIMIT, // PARM='&T,&V' Best Regards, Sam Knutson, GEICO Performance and Availability Management mailto:[EMAIL PROTECTED] (office) 301.986.3574 Murphy's Computer Law 52: Badness comes in waves. ==================== This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
