/********************************************************************/  
/*                                                                  */  
/*  Member = DIAGxx                                                 */  
/*                                                                  */  
/*  Function =                                                      */  
/*    This member of SYS1.PARMLIB activates Common Storage          */  
/*    Tracking (aka CSA tracking).                                  */  
/*                                                                  */  
/*    To use this member you can do any of the following:           */  
/*    -*- Specify DIAG=01 in SYS1.PARMLIB(IEASYSxx),                */  
/*    -*- Specify DIAG=01 in response to the message that says      */  
/*        "Specify System Parameters".                              */  
/*    -*- Enter the operator command "SET DIAG=xx".                 */  
/*                                                                  */  
/*  change-activity =                                               */  
/*   $L0=DKB0029 ,HBB4430,920212,PDF5: Provide a Parmlib member     */  
/*                that activates CSA tracking.                      */  
/********************************************************************/
 TRAPS                                                              
   NAME(IEACMSETV,                                                  
        IEASCHEDULETRACE,                                           
        IEASCHEDULEV,IEASPINLOCKV,                                  
        IEAINITARSRB,IGVINITCPOOL,                                  
        IXLDUPOUTOFSYNCH,                                           
        IOSPROTCAPTUCB)                                             
        REUSASID(YES)                                               
 VSM ALLOWUSERKEYCSA(NO)                                            
 VSM USEZOSV1R9RULES(NO)                                            
 CBLOC VIRTUAL31(IHALCCA,IHAPCCA)                                   
 AUTOIPL SADMP(8005,0000) MVS(LAST)                                 
 VSM BESTFITCSA(YES)