Just out of curiosity, why the LM? The STM might show that the exit was called if the process abended prior to a subsequent subroutine call but since no registers are changed in this code the LM should just be an expensive NOP.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden Sent: Wednesday, June 09, 2010 2:17 PM To: IBM-MAIN@bama.ua.edu Subject: Re: DFSMSdss Physical dumps of 3390 Mod 27 I've always used this sample exit, which pretty much makes DFDSS operate the way FDR full volume dumps work by default. *THIS EXIT PREVENTS DFSMSDSS FROM ENQUEUING THE VTOC *BY NOT ENQUEUING THE VTOC PERFORMANCE WILL BE INCREASED... BUT * THERE WILL BE DECREASED DATA INTEGRITY. * * SETTING THE EXIT RETURN CODE TO 4 * CAUSES DFSMSDSS TO ENQUEUE ONLY ON THE VOLUME BEING * DUMPED/COPIED AND ONLY FOR THE DURATION OF THE VTOC ACCESS * ADRUENQ CSECT ADRUENQ AMODE 31 ADRUENQ RMODE 24 STM 14,12,12(13) SAVE REGS IN PREVIOUS SAVEAREA USING ADRUENQ,15 SET ADDRESSABILITY TO THE EXIT LM 14,12,12(13) RESTORE OTHER REGISTERS LA 15,4 SET RETURN CODE TO 4 BR 14 RETURN END ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
