Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

SQA range or SQA size.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Thu Jan 24, 2013 2:22 pm    Post subject: SQA range or SQA size.
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Jan 24, 2013 2:57 pm    Post subject: Reply to: SQA range or SQA size.
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

Site Director


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

PostPosted: Thu Jan 24, 2013 10:08 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Thu Jan 24, 2013 11:29 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Jan 25, 2013 1:55 am    Post subject: Reply to: SQA range or SQA size.
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    Post subject:
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: 1445
Location: Azeroth

PostPosted: Fri Jan 25, 2013 3:05 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Wed Jan 30, 2013 12:16 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Increase the screen size after split mistah kurtz TSO/ISPF 2 Fri Sep 02, 2016 6:39 pm
No new posts ALTER of an IDMS AREA with NEW/OLD pa... Awanti IDMS/ADSO 2 Mon Mar 14, 2016 10:01 pm
No new posts To determine the range on a Alphanume... Prasanth Kumar COBOL Programming 3 Mon Feb 15, 2016 9:35 am
No new posts Add Trailing Zeroes depending upon th... Rohit Umarjikar DFSORT/ICETOOL 3 Fri Oct 23, 2015 1:47 am
No new posts Expand a numeric range Donnov DFSORT/ICETOOL 5 Fri Sep 18, 2015 6:27 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us