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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Juergen Kehr Sent: keskiviikko 12. huhtikuuta 2017 12.14 To: IBM-MAIN@LISTSERV.UA.EDU 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN