Awesome!

Thanks much!

CM

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Rob Scott
Sent: Monday, April 04, 2011 8:41 AM
To: [email protected]
Subject: Re: Determining if address space is swapped out

I use something along the lines of :

MVC   ASID_POS,=CL3'IN'                     Assume IN   
IF (TM,OUCBQFL,OUCBGOO+OUCBGOI+OUCBGOB,NZ)                    
  MVC   ASID_POS,=CL3'<->'                  indicate transition          
ELSEIF (TM,OUCBQFL,OUCBOUT+OUCBLSW,NZ)                        
  MVC   ASID_POS,=CL3'OUT'                  indicate OUT      
ELSEIF (TM,OUCBSFL,OUCBNSW,O)                                 
  MVC   ASID_POS,=CL3'N/S'                  indicate non-swap         
ENDIF                                                         

----------------------------------------------------------------------
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

Reply via email to