I guess that is what was somewhere in the back of my mind. Seems worth trying for the OP, does it not?
Charles -----Original Message----- From: IBM Mainframe Assembler List [mailto:[email protected]] On Behalf Of Ed Jaffe Sent: Wednesday, March 29, 2023 6:07 PM To: [email protected] Subject: Re: Blocking Low core access from Assembler programs On 3/29/2023 5:21 PM, Keith Moe wrote: > Already exists from IBM: Prime PSA. Specifically: //********************************************************// //* *// //* 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. *// //* *// //IGVDGNPP PROC T=0000EA60,V='50404143,AAAAAAAA,55555555,FFFFFF7F' //IGVDGNPP EXEC PGM=IGVDGNPP,REGION=2M,TIME=1440, // PARM='&T,&V'
