View previous topic :: View next topic
|
Author |
Message |
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hi,
Could you please let me know if it is possible to find the SQA size or range and the utilization of SQA using REXX.
Im assuming this maybe possible by reading the virtual storage directly by pointing to addresses, but not sure which address to read or how.
This is possible by mainview or RMF but wanted to know if it is possible with REXX.
Thanks & Regards, |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
if it can be found by chasing a chain of control blocks YES
look at SHOWMVS to see how it does it ...
then use TSO ISRDDN to lurk at the storage content
and after that You will be ready do do it in REXX |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hi Vasanth,
And the be ready to change the code that chases control blocks when they are changed due to an operating system change . . .
Many of us got hit with this when all of our COBOL code that retrieved dataset information died (or just ran wrong) when the navigation changed . . . I haven't yet seen a COBOL implementation that works in years. . .
d |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hello Enrico and D,
Thanks for your thoughts. I have some idea of few control blocks, but cannot understand why it is 'chasing a chain of control blocks'. Anyway I will try to see what the SHOWMVS does.
Quote: |
be ready to change the code that chases control blocks when they are changed due to an operating system change |
oh they change?.. eeeeeeeeh |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
chasing ==> following a chain of pointers starting from the CVT !
edited for an obvious typo
changed /CSA/CVT/ |
|
Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006 Posts: 110 Location: Germany
|
|
|
|
Extracted from a routine of Mark Zelden (http://www.mzelden.com/mvsutil.html):
Code: |
cvt = c2d(storage(10,4)) /* point to CVT */
cvtgda = c2d(storage(d2x(cvt + 560),4)) /* point to GDA */
gdasqasz = c2d(storage(d2x(cvtgda + 148),4)) /* point to SQA<16M */
gdasqasz = gdasqasz/1024 /* convert to Kbytes */
gdaesqas = c2d(storage(d2x(cvtgda + 156),4)) /* point to SQA>16M */
gdaesqas = gdaesqas/1024 /* convert to Kbytes */
say 'The SQA size <16M is 'gdasqasz'K.'
say 'The SQA size >16M is 'gdaesqas'K.' |
|
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hi Stefan,
Thanks for the pointer. Exactly what I was searching for. I would try it out.
P.S - Also thanks for your mainframe journal postings & magazines. Informative. |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Unable to get the values matched up with the values on mainview :S
Probably have to refer mainview manual to see what it exactly means.
It was informative knowing how to read memory directly. Thank you.
Mainframe SQA got for now.
Time to get Single girls with Questionable Attitude for valentines day |
|
Back to top |
|
|
|