You can try this REXX exec.
/* REXX -
+------------------------------------------------------------------+
¦ Name: LSTJOBS ¦
¦ Type: REXX exec ¦
¦ Purpose: Display a list of Address Spaces that are active ¦
¦ Release: MVS/ESA v4.1 and TSO/E v2.1 ¦
¦ Programmer: Paul S. Waterhouse ¦
¦ Date: 1/24/92 ¦
¦ Abstract: A REXX EXEC to list jobs or find an executing ¦
¦ address space. ¦
¦ ¦
¦ Call Format: LSTJOBS({V¦N¦S},{G¦J¦X¦D},{jobname¦asid}) ¦
¦ ¦
¦ When: Args are null LSTJOBS() ¦
¦ a list of jobs is displayed. ¦
¦ ¦
¦ V = View List ¦
¦ Displays list of address spaces on CRT. ¦
¦ N = No View ¦
¦ Nothing is displayed ¦
¦ S = Stack Table ¦
¦ Places table entries on data stack. ¦
¦ Does not display results. ¦
¦ ¦
¦ G = Generic Jobname Match ¦
¦ J = Explicit Jobname Match ¦
¦ Returns a 1 if one or more names ¦
¦ meet criteria. ¦
¦ Returns a 0 if no names meet criteria. ¦
¦ X = Hexadecimal ASID ¦
¦ D = Decimal ASID ¦
¦ Returns a 0 if ASID not active ¦
¦ Retunrs a 1 if ASID is active ¦
¦ ¦
¦ ¦
¦ ¦
¦ Logic: Extracts address of CVT (at x'10') ¦
¦ Extracts address of ASVT (CVTASVT) CVT+556 ¦
¦ Invoke GETSMFID to get SMF-ID of this system ¦
¦ Get maximum number of users. ¦
¦ Get address of masters ASCB. ¦
¦ Display all ACTIVE or UNUSEABLE ASVT entries. ¦
¦ - A Table is built containing: ¦
¦ c_ascb_name. = stc/jobname ¦
¦ c_ascb_asid. = ASID (decimal) ¦
¦ c_ascb_asix. = ASID (Hex) ¦
¦ If arg1 is null then table is displayed.. ¦
¦ If arg1 is J then table is scanned for name ¦
¦ if name not found then RC = 0 ¦
¦ else exit rc 1 ¦
¦ If arg1 is X then table is scanned for ASID x'arg2' (hex) ¦
¦ If arg1 is d then table is scanned for ASID arg2 (dec) ¦
¦ else exit rc 1 ¦
+------------------------------------------------------------------+ */
/* CLRSCRN */
"clear"
trace
/*-----------------------------------------------------------------+
¦ Parse Arguments and Verify Values ¦
*-----------------------------------------------------------------*/
parse upper arg c_view, c_type, c_value .
/*-----------------------------------------------------------------+
¦ Set numeric digits to accomodate BIG hex numbers in decimal ¦
*-----------------------------------------------------------------*/
numeric digits 10
/*-----------------------------------------------------------------+
¦ Check Syntax and Set Defaults ¦
*-----------------------------------------------------------------*/
/*-----------------------------------------------------------------+
¦ arg1 - VIEW ¦
¦ Must be null, V(iew) N(o view) or S(tack results) ¦
*-----------------------------------------------------------------*/
select
when c_view = "" then
do
c_view = "V"
end
when c_view ¬= "S" & c_view ¬= "V" & c_view ¬= "N" then
do
exit 16
end
otherwise
do
nop
end
end
/*-----------------------------------------------------------------+
¦ arg2 - type ¦
¦ Can be null and if null value must be null ¦
¦ If not null must be J(obname select) ¦
¦ or G(eneric jobname match) ¦
¦ or (he)X(adecimal ASID) ¦
¦ or D(ecimal) ASID ¦
¦ and VALUE must not be null. ¦
*-----------------------------------------------------------------*/
select
when c_type = "" & c_value ¬= "" then
do
exit 16
end
when c_type = "" then
do
c_type = "*"
end
when c_type ¬= "J" & c_type ¬= "G" ,
& c_type ¬= "X" & c_type ¬= "D" then
do
exit 16
end
otherwise
do
nop
end
end
/*-----------------------------------------------------------------+
¦ arg3 - value ¦
¦ Can be null if type is null ¦
¦ If not null: ¦
¦ when type is J must be a a jobname ¦
¦ G must be part of a jobname ¦
¦ X must be a hex number not gt that ¦
¦ 7FFF and not less than 1. ¦
¦ note: if number is greater than ¦
¦ maximum (see IEASYSnn) then ¦
¦ return is always 0. ¦
¦ D must be a decimal number gt 1 and ng ¦
¦ 32767. ¦
*-----------------------------------------------------------------*/
select
when c_type = "*" then
do
nop
end
when c_type = "J" or c_type = "G" then
do
if length(c_value) > 8 then
do
exit 16
end
c_job = c_value
end
when c_type = "X" then
do
select
when datatype(c_value,'X') ¬= 1 then
do
exit 16
end
when x2d(c_value) > 32767 then
do
exit 16
end
when x2d(c_value) < 1 then
do
exit 16
end
otherwise
do
c_dec_asid = x2d(c_value)
c_hex_asid = c_value
end
end
end
otherwise
do
select
when datatype(c_value,'N') ¬= 1 then
do
exit 16
end
when c_value > 32767 then
do
exit 16
end
when c_value < 1 then
do
exit 16
end
otherwise
do
c_dec_asid = c_value
c_hex_asid = d2x(c_value)
end
end
end
end
/*-----------------------------------------------------------------+
¦ get address pointers ¦
¦ CVT (real loc 16) ¦
¦ ASVT (CVT+22C) ¦
*-----------------------------------------------------------------*/
cvt_ptr = get_ptr(10,0)
asvt_ptr = get_ptr(cvt_ptr,'22c')
/*-----------------------------------------------------------------+
¦ get address space counts ¦
¦ ¦
¦ ASVT Disp. Desc. IEASYS00 ¦
¦ ------- -------- -------------------------------- -------- ¦
¦ ASVTAAV ASVT+1E0 Free useable user slots - ¦
¦ ASVTAST ASVT+1E4 Free START res. slots - ¦
¦ ASVTANR ASVT+1E8 Free replace unuseable slots - ¦
¦ ASVTSTRT ASVT+1EC Starting no. of start res slts RSVSTRT ¦
¦ ASVTNONR ASVT+1F0 Starting no. of unuse. rep slts RSVNONR ¦
¦ ASVTMAXI ASVT+1F4 Starting max user MAXUSER ¦
¦ ASVTMAXU ASVT+204 Total Max User - ¦
*-----------------------------------------------------------------*/
c_fre_user_hex = c2x(get_data(asvt_ptr,'1E0','4'))
c_fre_rstr_hex = c2x(get_data(asvt_ptr,'1E4','4'))
c_fre_rrep_hex = c2x(get_data(asvt_ptr,'1E8','4'))
c_ori_rstr_hex = c2x(get_data(asvt_ptr,'1EC','4'))
c_ori_rrep_hex = c2x(get_data(asvt_ptr,'1F0','4'))
c_ori_maxu_hex = c2x(get_data(asvt_ptr,'1F4','4'))
c_max_user_hex = c2x(get_data(asvt_ptr,'204','4'))
c_fre_user_dec = x2d(c2x(get_data(asvt_ptr,'1E0','4')))
c_fre_rstr_dec = x2d(c2x(get_data(asvt_ptr,'1E4','4')))
c_fre_rrep_dec = x2d(c2x(get_data(asvt_ptr,'1E8','4')))
c_ori_rstr_dec = x2d(c2x(get_data(asvt_ptr,'1EC','4')))
c_ori_rrep_dec = x2d(c2x(get_data(asvt_ptr,'1F0','4')))
c_ori_maxu_dec = x2d(c2x(get_data(asvt_ptr,'1F4','4')))
c_max_user_dec = x2d(c2x(get_data(asvt_ptr,'204','4')))
/*-----------------------------------------------------------------+
¦ get system id * REQUIRES GETSMFID FUNCTION * ¦
*-----------------------------------------------------------------*/
/* c_sys_smfid = getsmfid() */
/*-----------------------------------------------------------------+
¦ If c_view is "V" then display message ¦
¦ If c_view is "S" then stack control data ¦
¦ If c_view is "N" then do nothing ¦
*-----------------------------------------------------------------*/
select
when c_view = "V" then
do
say "*----------------------------------------------*"
say "* LSTJOBS - Starting Scan of ASVT *"
say "*----------------------------------------------*"
say "Date:" date() "Time:" time() "System:" c_sys_smfid
select
when c_type = "*" then
do
say "Looking for ALL jobs/stcs"
end
when c_type = "J" then
do
say "Looking for Job" c_job
end
when c_type = "G" then
do
say "Looking for Jobs that have names" ,
"beginning with" c_job
end
otherwise
do
say "Looking for ASID decimal" c_dec_asid ,
"hexadecimal" c_hex_asid
end
end
say "*----------------------------------------------*"
say "* Control Data *"
say "*----------------------------------------------*"
say ""
say "Control Data Description Hex Dec "
say "-------------------------------- -------- -----"
say ""
say "Maximum Possible ASID's " c_max_user_hex ,
c_max_user_dec
say "Free ASID Slots " c_fre_user_hex ,
c_fre_user_dec
say "Free STARTED Reserved Slots " c_fre_rstr_hex ,
c_fre_rstr_dec
say "Free REPLACE Reserved Slots " c_fre_rrep_hex ,
c_fre_rrep_dec
say "Original Max Users (IEASYSnn) " c_ori_maxu_hex ,
c_ori_maxu_dec
say "Original STARTED (IEASYSnn) " c_ori_rstr_hex ,
c_ori_rstr_dec
say "Original REPLACE (IEASYSnn) " c_ori_rrep_hex ,
c_ori_rrep_dec
say ""
say "- ASID - --------"
say "Hex Dec Job Name"
say "---- --- --------"
end
when c_view = "S" then
do
queue c_sys_smfid c_max_user_dec c_max_user_hex c_fre_user_dec ,
c_fre_user_hex c_fre_rstr_dec c_fre_rstr_hex ,
c_fre_rrep_dec c_fre_rrep_hex c_ori_maxu_dec ,
c_ori_maxu_hex c_ori_rstr_dec c_ori_rstr_hex ,
c_ori_rrep_dec c_ori_rrep_hex
end
otherwise
do
nop
end
end
/*-----------------------------------------------------------------+
¦ Check for out-of-range ¦
*-----------------------------------------------------------------*/
if c_type = "X" or c_type = "D" then
do
if c_dec_asid > c_max_user_dec then
do
if c_view = "V" then
do
say "Requested ASID is NOT active."
end
exit 0
end
end
/*-----------------------------------------------------------------+
¦ Initialize table of values ¦
*-----------------------------------------------------------------*/
c_ascb_unuse_count = 0 /* Unuseable count */
c_ascb_name. = "" /* Job Name */
c_ascb_asid. = "" /* Decimal ASID */
c_ascb_asix. = "" /* Hexadecimal ASID*/
c_ascb_name.0 = 1 /* Number of names */
c_ascb_asid.0 = 1 /* Number dec asids*/
c_ascb_asix.0 = 1 /* Number hex asids*/
/*-----------------------------------------------------------------+
¦ Get MASTER (ASID1) values. ¦
¦ ¦
¦ In the ASVT table (starts at ASVT+X'210') master is always ¦
¦ one. ¦
¦ ¦
¦ If the high bit is on and address is that of masters ASVT entry¦
¦ then the ASVT entry is for an unusebale ASVT entry. ¦
¦ ¦
*-----------------------------------------------------------------*/
c_end_of_list = '80000000' /* Constant */
c_curr_asvt = d2x(x2d(asvt_ptr) + x2d(210)) /* Current Entry */
c_mstr_asvt = d2x(x2d(c_end_of_list) + x2d(c_curr_asvt)) /*unuse*/
c_ascb_name.1 = "*MASTER*"
c_ascb_asid.1 = "1"
c_ascb_asix.1 = "0001"
/*-----------------------------------------------------------------+
¦ Scan ASVT routine ¦
¦ ¦
¦ High order bit on and masters address means unuseable. ¦
¦ High order bit on and another address means its free. ¦
¦ High order bit not on means its in use (active). ¦
¦ End of chain is x'80000000'. (not all the time! DRK) ¦
¦ ¦
*-----------------------------------------------------------------*/
do i = 1 to c_max_user_dec /* DRK */
c_curr_asvt = d2x(x2d(c_curr_asvt) + x2d(4)) /* Next Entry */
ascb_ptr = get_ptr(c_curr_asvt,0,4) /* Pointer Value */
select
/*--------------------------------------------+
¦ End of list check ¦
¦ Not valid because of x'80000000' holes ¦
¦ in table. Using c_max_user_dec to control ¦
¦ ASVT loop. DRK ¦
*--------------------------------------------*/
when ascb_ptr = c_end_of_list then
do
nop /* DRK */
end
/*--------------------------------------------+
¦ Unuseable check ¦
*--------------------------------------------*/
when ascb_ptr = c_mstr_asvt then
do
c_ascb_unuse_count = c_ascb_unuse_count + 1
iterate
end
/*--------------------------------------------+
¦ x'80' is decimal 128 - this checks for ¦
¦ not in use. ¦
*--------------------------------------------*/
when x2d(substr(ascb_ptr,1,1)) > 128 or,
x2d(substr(ascb_ptr,1,1)) = 128 then
do
iterate
end
/*--------------------------------------------+
¦ We got a live one! ¦
¦ Falls out of this select. ¦
*--------------------------------------------*/
otherwise
do
nop
end
end
/*-----------------------------------------------------------------+
¦ Live one found!!!!!!! ¦
¦ ¦
¦ (1) Check to make sure that ASCB pointer is valid. ¦
¦ first four characters at that address must be "ASCB" ¦
¦ ¦
¦ (2) Get ASID and JOBNAME from ASCB: ¦
¦ ASID = ASCB+X'24' H = ASCBASID ¦
¦ JOBN = ASCB+X'AC' H = ASCBJBNI (Initiated Job) ¦
¦ or = ASCB+X'B0' H = ASCBJBNS (STC/TSO) ¦
¦ ¦
¦ If we got one still, add it to table. ¦
¦ and get next. ¦
¦ ¦
¦ NOTE: No serialization is done, so system can change ¦
¦ this data while we are running. DO NOT USE DATA ¦
¦ extracted from this routine WITHOUT CHECKING IT ¦
¦ FIRST!!!!!!!!!!!!! ¦
¦ ¦
*-----------------------------------------------------------------*/
if "ASCB" ¬= get_data(ascb_ptr,0,4) then
do
iterate
end
c_jbni = get_ptr(ascb_ptr,'AC')
c_jbns = get_ptr(ascb_ptr,'B0')
c_asid = get_hlf(ascb_ptr,'24')
if c_jbni = 0 then
do
jobn_ptr = c_jbns
end
else
do
jobn_ptr = c_jbni
end
c_jobn = get_data(jobn_ptr,0,8)
/*--------------------------------------------+
¦ Test for hung user DRK ¦
*--------------------------------------------*/
if c_jbni = 0 & c_jbns = 0 then
do
c_jobn = " "
end
c_ascb_name.0 = c_ascb_name.0 + 1
x = c_ascb_name.0
c_ascb_asid.0 = x
c_ascb_asix.0 = x
c_ascb_name.x = c_jobn
c_ascb_asix.x = c_asid
c_ascb_asid.x = x2d(c_asid)
end
/*-----------------------------------------------------------------+
¦ Internal table has been built. ¦
¦ ¦
¦ (1) If selection entered then do a scan for it. ¦
¦ (2) If c_type = * (all jobs) then go straight to check for ¦
¦ view, nothing or stack. ¦
¦ ¦
¦ NOTE: If calling twerp asked for "N" and all jobs he's ¦
¦ going to get a "1" and nothing else (as in job ¦
¦ found). ¦
*-----------------------------------------------------------------*/
c_func_rc = 0
do x = 1 to c_ascb_name.0 by 1
select
/*--------------------------------------------+
¦ Single Jobname ¦
*--------------------------------------------*/
when c_type = "J" then
do
if c_job = c_ascb_name.x then
do
call proc_take_action
c_func_rc = 1
leave
end
end
/*--------------------------------------------+
¦ Generic Name (Job Name Prefix) ¦
*--------------------------------------------*/
when c_type = "G" then
do
c_len_comp = length(c_job)
if c_job = substr(c_ascb_name.x,1,c_len_comp) then
do
call proc_take_action
c_func_rc = 1
iterate
end
end
/*--------------------------------------------+
¦ Everything ¦
*--------------------------------------------*/
when c_type = "*" then
do
call proc_take_action
c_func_rc = 1
iterate
end
/*--------------------------------------------+
¦ ASID Match ¦
*--------------------------------------------*/
otherwise
do
if c_ascb_asid.x = c_dec_asid then
do
c_func_rc = 1
call proc_take_action
leave
end
end
end
end x
/*-----------------------------------------------------------------+
¦ End of Story ¦
¦ - If specific scan an rc is 0 then display error ¦
¦ Otherwise go home............................. ¦
*-----------------------------------------------------------------*/
if c_view = "V" then
do
if c_func_rc = 0 then
do
say "ASID is not active or Jobname not found"
end
say " "
say "Unuseable ASID Count:" c_ascb_unuse_count
end
exit c_func_rc
/* +-----------------------------------------+
¦ Procedures and functions defined below. ¦
+-----------------------------------------+ */
proc_take_action:
/*-----------------------------------------------------------------+
¦ Take action based on request. ¦
*-----------------------------------------------------------------*/
select
/*--------------------------------------------+
¦ Stack Results ¦
*--------------------------------------------*/
when c_view = "S" then
do
queue c_ascb_name.x c_ascb_asid.x c_ascb_asix.x
end
/*--------------------------------------------+
¦ Display Results ¦
*--------------------------------------------*/
when c_view = "V" then
do
/* zero unsuppress asid field - DRK */
if c_ascb_asid.x < 100 then
c_ascb_asid.x = insert('0',c_ascb_asid.x,0)
if c_ascb_asid.x < 10 then
c_ascb_asid.x = insert('0',c_ascb_asid.x,0)
say c_ascb_asix.x c_ascb_asid.x c_ascb_name.x
end
/*--------------------------------------------+
¦ Do nuttin' ¦
*--------------------------------------------*/
otherwise
do
nop
end
end
return
exit
get_ptr: procedure
/* +-----------------------------------------+
¦ returns a 4 byte pointer as hexadecimal ¦
¦ string at address addr+offset. ¦
¦ ADDR and OFFSET must be HEX strings. ¦
+-----------------------------------------+ */
arg addr, offset
temp = d2x(x2d(addr) + x2d(offset))
return c2x(storage(temp,4))
exit
get_hlf: procedure
/* +-----------------------------------------+
¦ returns a 2 byte field as hexadecimal ¦
¦ string at address addr+offset. ¦
¦ ADDR and OFFSET must be HEX strings. ¦
+-----------------------------------------+ */
arg addr, offset
temp = d2x(x2d(addr) + x2d(offset))
return c2x(storage(temp,2))
exit
get_data: procedure
/* +-----------------------------------------+
¦ returns LENGTH bytes at ADDR+OFFSET as ¦
¦ an EBCDIC string. ¦
¦ ADDR and OFFSET must be HEX strings. ¦
¦ LENGTH must be a decimal string. ¦
+-----------------------------------------+ */
arg addr, offset, length
temp = d2x(x2d(addr) + x2d(offset))
return storage(temp,length)
exit
/* J. KALINICH, X4521 */
/* EXEC TO LIST MVS ADDRESS SPACES (FROM NaSPA) */
Just enter the REXX name - no parms are required.
Quick dirty list but may provide the information you are looking for.
Thanks
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Rob
Scott
Sent: Wednesday, August 17, 2022 10:37 AM
To: [email protected]
Subject: Re: IEA061E replacement ASID shortage
ATTENTION: This e-mail came from an external source. Do not open attachments or
click on links from unknown or unexpected emails.
Rather than install another utility/tool, I would strongly recommend that you
configure and activate HealthChecker – there are just so many useful reports
within it.
Rob Scott
Rocket Software
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Peter
Sent: 17 August 2022 16:29
To: [email protected]
Subject: Re: IEA061E replacement ASID shortage
EXTERNAL EMAIL
Unfortunately we didn't enable the health checker
Any other utility which can report?
On Wed, Aug 17, 2022, 7:21 PM Rob Scott
<[email protected]<mailto:[email protected]>> wrote:
> These days a much easier way to find out which jobnames are
> responsible is to browse the IEA_ASIDS healthcheck (you can use the
> “S” action from the SDSF “CK” screen).
>
> Example from one of our test systems :
>
> IEAVEH010I
> Summary of ASID availability
> ASIDs Limit Avail InUse Total
> Normal 204 3219 877 4096
> Replacement 100 1568 432 2000
>
> IEAVEH061I The system has been IPLed for between 11 and 12 days. On
> the average 36 ASIDs have become non-reusable per day. At the current
> rate of depletion, the system will run out of ASIDs in 132 days.
>
> IEAVEH012I Permanently non-reusable ASIDs by jobname ADHCA91A (81)
> ADHBAC1A (20)
> ADH1QDA8 (17)
> ADH1DC1A (10)
> OMPQ33S (9)
> OMPERZ1S (9)
> L7BAIRLM (9)
>
>
> Rob Scott
> Rocket Software
>
> From: IBM Mainframe Discussion List
> <[email protected]<mailto:[email protected]>> On Behalf
> Of kekronbekron
> Sent: 17 August 2022 15:11
> To: [email protected]<mailto:[email protected]>
> Subject: Re: IEA061E replacement ASID shortage
>
> EXTERNAL EMAIL
>
>
>
> Another example of what was once findable in TechDocs, is now missing.
> A search engine found it though -
> https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> ibm.com%2Fsupport%2Fpages%2Fsystem%2Ffiles%2Finline-files%2FNon_Reusab
> le_ASIDs.pdf&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d9
> 3ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C
> 637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjo
> iV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=huld
> NHMzmnLDuCBsx8t6giita9lJqs0wTxOIHVaETbI%3D&reserved=0<https://nam0
> 4.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsu
> pport%2Fpages%2Fsystem%2Ffiles%2Finline-files%2FNon_Reusable_ASIDs.pdf
> &data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf07
> 08da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953
> 017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJ
> BTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=huldNHMzmnLDuCBs
> x8t6giita9lJqs0wTxOIHVaETbI%3D&reserved=0>
> <
> https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> ibm.com%2Fsupport%2Fpages%2Fsystem%2Ffiles%2Finline-files%2FNon_Reusab
> le_ASIDs.pdf&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d9
> 3ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C
> 637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjo
> iV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=huld
> NHMzmnLDuCBsx8t6giita9lJqs0wTxOIHVaETbI%3D&reserved=0<https://nam0
> 4.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsu
> pport%2Fpages%2Fsystem%2Ffiles%2Finline-files%2FNon_Reusable_ASIDs.pdf
> &data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf07
> 08da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953
> 017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJ
> BTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=huldNHMzmnLDuCBs
> x8t6giita9lJqs0wTxOIHVaETbI%3D&reserved=0>
> >
>
> This goes into some detail, so hopefully you'll get more info from this.
>
> - KB
>
> ------- Original Message -------
> On Wednesday, August 17th, 2022 at 7:29 PM, Peter
> <[email protected]
<mailto:[email protected]%0b>> <mailto:[email protected]>> wrote:
>
>
> > Hello
> >
> > As per the manual
> >
> > The number of ASIDs available for replacing non-reusable address
> > spaces
> has
> > dropped below 5% of the value specified in IEASYSxx with the RSVNONR
> > specification.
> >
> > Is there a way to know which resources causes this depletion of
> > replace ASID ?
> >
> > The RSVNONR value is 15 in our system
> >
> > We just did the IPL a week before and it caused this message
> >
> > As per MXI
> >
> > The total ASID number shows 3000
> > Number of free ASID : 2815
> >
> > z/OS 2.4
> >
> >
> >
> > Any pointers are appreciated
> >
> > Regards
> > Peter
> >
> > --------------------------------------------------------------------
> > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to
> > [email protected]<mailto:[email protected]<mailto:list
> > [email protected]%3cmailto:[email protected]>>
> with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to
> [email protected]<mailto:[email protected]<mailto:listse
> [email protected]%3cmailto:[email protected]>>
> with the message: INFO IBM-MAIN
>
> ================================
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA
> 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer
> Support:
> https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmy.r
> ocketsoftware.com%2FRocketCommunity%2FRCEmailSupport&data=05%7C01%
> 7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf0708da8066baaa%7Cd5f
> 618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953017967%7CUnknown%7
> CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXV
> CI6Mn0%3D%7C2000%7C%7C%7C&sdata=pCMwFRvp8WtZKLNEM0%2BvNtmfsJSvfpIR
> XU6TMbt%2B%2BxI%3D&reserved=0<https://nam04.safelinks.protection.o
> utlook.com/?url=https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%
> 2FRCEmailSupport&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7
> e9d93ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C
> 0%7C637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJ
> QIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=
> pCMwFRvp8WtZKLNEM0%2BvNtmfsJSvfpIRXU6TMbt%2B%2BxI%3D&reserved=0>
> Unsubscribe from Marketing Messages/Manage Your Subscription
> Preferences -
> https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r
> ocketsoftware.com%2Fmanage-your-email-preferences&data=05%7C01%7CS
> teely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf0708da8066baaa%7Cd5f618
> ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953017967%7CUnknown%7CTW
> FpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6
> Mn0%3D%7C2000%7C%7C%7C&sdata=j4wLfO10Rug8qYTY0C72%2B2qWOgStoKqIrYg
> mbHgVOCQ%3D&reserved=0<https://nam04.safelinks.protection.outlook.
> com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-prefe
> rences&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942
> fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963
> 475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luM
> zIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=j4wLfO10Ru
> g8qYTY0C72%2B2qWOgStoKqIrYgmbHgVOCQ%3D&reserved=0>
> Privacy Policy -
> https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r
> ocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&data=05%7C01%
> 7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf0708da8066baaa%7Cd5f
> 618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953017967%7CUnknown%7
> CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXV
> CI6Mn0%3D%7C2000%7C%7C%7C&sdata=3pqCEBJjhaor4wlASGnk%2FT40y9J%2BXR
> yzEjMTLhaAu%2Bg%3D&reserved=0<https://nam04.safelinks.protection.o
> utlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%
> 2Fprivacy-policy&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7
> e9d93ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C
> 0%7C637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJ
> QIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=
> 3pqCEBJjhaor4wlASGnk%2FT40y9J%2BXRyzEjMTLhaAu%2Bg%3D&reserved=0>
> ================================
>
> This communication and any attachments may contain confidential
> information of Rocket Software, Inc. All unauthorized use, disclosure
> or distribution is prohibited. If you are not the intended recipient,
> please notify Rocket Software immediately and destroy all copies of
> this communication. Thank you.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to [email protected]<mailto:[email protected]>
> with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected]<mailto:[email protected]> with the message:
INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support:
https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%2FRCEmailSupport&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=pCMwFRvp8WtZKLNEM0%2BvNtmfsJSvfpIRXU6TMbt%2B%2BxI%3D&reserved=0
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-preferences&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=j4wLfO10Rug8qYTY0C72%2B2qWOgStoKqIrYgmbHgVOCQ%3D&reserved=0
Privacy Policy -
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&data=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cd8d7e9d93ed942fdaf0708da8066baaa%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637963475953017967%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000%7C%7C%7C&sdata=3pqCEBJjhaor4wlASGnk%2FT40y9J%2BXRyzEjMTLhaAu%2Bg%3D&reserved=0
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
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
