Great: it works on my 1.10 system. Just watch the wraps.
Kees.
"CraigH" <craig.he...@dds.co.uk> wrote in message
news:<540f9353-0384-4f37-8f66-96bdea422...@z41g2000yqz.googlegroups.com>...
On Oct 30, 9:02 am, CraigH <craig.he...@dds.co.uk> wrote:
> A REXX routine, or Z/OS tool of sorts, anything that would give us
> information as to the current usage of Paging area (started task
> names, batch processes, userid etc.)
>
> Thanks all.
> Craig....
I've found some REXX code posted to this group way back in 2001 (I
cannot work out they authors name from their profile), but thanks to
whomever you are, as this works a treat. I've posted REXX code here
again for anyone else who might find it useful (I can't see who
wouldn't to be honest!).
* REXX */
/*--------------------------------------------------------------------
*/
trace 0
inc = 1
address tso
numeric digits 10
cvt = c2d(storage(10,4))
cvtasvt = c2d(storage(d2x(cvt+556),4))
asvtmaxu = c2d(storage(d2x(cvtasvt+516),4))
asvtenty = c2d(storage(d2x(cvtasvt+528),4))
do cntr = 0 to asvtmaxu
offset = cntr * 4
in_use_flag = storage(d2x(cvtasvt+528+offset),1)
if bitand(in_use_flag,'80'x) = '80'x then iterate
ascb = c2d(storage(d2x(cvtasvt+528+offset),4))
if ascb = '0' then leave
call get_assb
end
maxlines = inc - 1
outline.0 = maxlines
call Sort
say " Auxilary Storage Usage "sysn
say "Init. Job/STC/UserId. VIO Non-VIO Total"
do inc = 1 to maxlines
say outline.inc
end
exit
/*------------- get VIO and non-VIO page usage -----------------------
*/
get_assb:
assb = c2d(storage(d2x(ascb+336),4)) /* address of ASSB
*/
assbvsc = c2d(storage(d2x(assb+32),4)) /* VIO Aux pages used
*/
assbnvsc = c2d(storage(d2x(assb+36),4)) /* non-VIO Aux pages
*/
assbjbni = storage(d2x(assb+336),8) /* initial jon name
*/
assbjbns = storage(d2x(assb+344),8) /* job name
*/
vio_pages = right(assbvsc,8)
non_vio_pages = right(assbnvsc,8)
total_aux = right(assbvsc + assbnvsc,8)
init_name = right(assbjbni,8)
job_name = right(assbjbns,8)
outline.inc = init_name' 'job_name' 'vio_pages' 'non_vio_pages'
'total_aux
inc = inc + 1
return
/*------------------ sort descending ---------------------------------
*/
Sort: Procedure Expose outline.
do pntr1 = outline.0 to 1 by -1 until sort_done = 1
sort_done = 1
do pntr2 = 2 to pntr1
pntr3 = pntr2 - 1
if substr(outline.pntr3,36,8) << substr(outline.pntr2,36,8)
then
do
xchg_field = outline.pntr3
outline.pntr3 = outline.pntr2
outline.pntr2 = xchg_field
sort_done = 0
end
end
end
return
----------
**********************************************************************
For information, services and offers, please visit our web site:
http://www.klm.com. This e-mail and any attachment may contain
confidential and privileged material intended for the addressee
only. If you are not the addressee, you are notified that no part
of the e-mail or any attachment may be disclosed, copied or
distributed, and that any other action related to this e-mail or
attachment is strictly prohibited, and may be unlawful. If you have
received this e-mail by error, please notify the sender immediately
by return e-mail, and delete this message.
Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries
and/or its employees shall not be liable for the incorrect or
incomplete transmission of this e-mail or any attachments, nor
responsible for any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal
Dutch Airlines) is registered in Amstelveen, The Netherlands, with
registered number 33014286
**********************************************************************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
