Hi Jürgen,
I thought I had something similar, but it may have been SHOWMVS instead.
However, if it helps, here some basic starting code that will loop through the
AS's. You just have to find the other CB's.
Br,
Lindy
/* Rexx */
/* Lists address spaces and if started task, batch job or TSO User */
Numeric Digits 10
CVT=Get_Stor('10'x)
ASCB=Get_Stor(CVT,'234'x)
OUCB=Get_Stor(ASCB,'90'x)
Do While C2D(ASCB) /= 0
JBNI=Get_Stor(ASCB,'AC'x)
JBNS=Get_Stor(ASCB,'B0'x)
If C2D(JBNI) /= 0 Then
Jobname=Get_Stor(JBNI,0,8)
Else Jobname=Get_Stor(JBNS,0,8)
OUCB=Get_Stor(ASCB,'90'x)
OUCBYFL=Get_Stor(OUCB,'12'x,1)
OUCBYFL=X2B(C2X(OUCBYFL))
OUCBSTT=Substr(OUCBYFL,2,1)
OUCBLOG=Substr(OUCBYFL,3,1)
OUCBMNT=Substr(OUCBYFL,4,1)
If OUCBSTT Then Type='Started Task'
If OUCBLOG Then Type='TSO User'
If OUCBMNT Then Type='Mount'
If C2D(JBNI) /=0 Then Type='Batch Job'
Say Left(Jobname,8) Type
ASCB=Get_Stor(ASCB,4)
End
Return
Get_Stor: PROCEDURE
Parse Arg AREA,OFFSET,LENG
If Arg(2,'O') Then OFFSET=0
If Arg(3,'O') Then LENG=4
If DataType(AREA) = 'CHAR' Then Do
AREA = C2D(AREA)
End
If DataType(OFFSET) = 'CHAR' Then Do
OFFSET = C2D(OFFSET)
End
Return Storage((D2X(AREA+OFFSET)),LENG)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Juergen Kehr
Sent: keskiviikko 12. huhtikuuta 2017 12.14
To: [email protected]
Subject: REXX procedure needed
Hello,
on page 44 of this older SHARE presentation
https://share.confex.com/share/115/webprogram/Handout/Session6865/Understanding%20zOS%20CS%20storage%20use.pdf
a REXX procedure is mentioned, which shows several storage consumptions.
Does anybody know where to get this REXX procedure?
Thanks in advance for any help.
Kind regards
Juergen Kehr
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
