IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SQA range or SQA size.


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Thu Jan 24, 2013 2:22 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Jan 24, 2013 2:57 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Jan 24, 2013 10:08 pm
Reply with quote

Hi Vasanth,

And the be ready to change the code that chases control blocks when they are changed due to an operating system change . . . icon_cool.gif

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
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Thu Jan 24, 2013 11:29 pm
Reply with quote

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 icon_confused.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Jan 25, 2013 1:55 am
Reply with quote

chasing ==> following a chain of pointers starting from the CVT !

edited for an obvious typo
changed /CSA/CVT/
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Fri Jan 25, 2013 2:52 pm
Reply with quote

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
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Fri Jan 25, 2013 3:05 pm
Reply with quote

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
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Wed Jan 30, 2013 12:16 am
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts To get the count of rows for every 1 ... DB2 3
No new posts Generate random number from range of ... COBOL Programming 3
No new posts Using Java/C/C++ to retrieve dataset ... Java & MQSeries 6
No new posts Find the size of a PS file before rea... COBOL Programming 13
No new posts Masking variable size field - min 10 ... DFSORT/ICETOOL 4
Search our Forums:

Back to Top