All these options have been tried but still the same error persist.
Also attached snapshot of SYSVIEW Tool gives some info regarding
ERDSA. (100%)

There are more number of Getmains than Freemains. And also it gives
some info regarding CICS Subpools Can anyone throw some light on this
?

Jobname CICSXXX   ASID 006D  Jobid STC03582  CICS TS1.3                        
Storage protection is ACTIVE                                                   
Region    User   Sys Alloc  Free   PctS  Size   PctL Limit Avail  High   SOS   
DSA                  1.03M  740K    59% 1.75M    21%    5M 1.75M 1.75M         
EDSA                  276M 41.3M    87%  318M    29%  960M   25M  318M         
PVT      5.46M  704K 6.15M 2.52M    77% 7.98M    68% 7.98M                     
E-PVT     974M 13.3M  987M 25.8M    53% 1.82G    97% 1000M                     
-------------------------------------------------------------------------------
Cmd DSAname   Size Alloc  Free MFree SOS Queued Used ...20...40...60...80..100 
    UDSA      256K  132K  124K  116K             52%                           
    CDSA      768K  632K  136K  112K             82%                           
    SDSA      256K   12K  244K  244K              5%                           
    RDSA      512K  276K  236K  196K             54%                           
    ECDSA      30M   29M  992K  636K             97%                           
    EUDSA     152M  112M 39.8M    3M             74%                           
    ESDSA                                                                      
    ERDSA     136M  135M  464K   64K            100%                           
    FreeDSA  3.25M       3.25M 3.25M              0%                           
    FreeEDSA  642M        642M  642M              0%                           



Subpool  Num DSAname  Alloc  Used  Free Getmains Freemain Elements Align 
LDENRSRO  41 ERDSA    5.63M 5.62M 11.5K      289                10    16  
LDENUCRO  37 ERDSA    2.46M 2.44M 17.6K       79        7       13    16  



Subpool  Num Address  Length DSAname  Page Free Stgv SCA      SCE      
LDENUCRO  37 0BEFDEF0    272 ERDSA     255 FREE      0BC6F728 0BC5D1A0     
LDENUCRO  37 0BF8CFF0   4528 ERDSA     142 FREE      0BC6F728 0BC98488     
LDENUCRO  37 0BF90F00    256 ERDSA     146 FREE      0BC6F728 0BC5D1E8     
LDENUCRO  37 0C3A1EF0   1456 ERDSA     163 FREE      0BC6F728 0BC98A28     
LDENUCRO  37 0C3A8950   1712 ERDSA     170 FREE      0BC6F728 0BC989F8     
LDENUCRO  37 0C3E0C40   1744 ERDSA     226 FREE      0BC6F728 0BC98A10     
LDENUCRO  37 0C3FDBC0   1088 ERDSA     255 FREE      0BC6F728 0BC5D3C8     
LDENUCRO  37 0C9D8F90    112 ERDSA     218 FREE      0BC6F728 0BC98638     
LDENUCRO  37 0C9FFAF0   1296 ERDSA     257 FREE      0BC6F728 0BC5DDE8     
LDENUCRO  37 0CDFDF10    240 ERDSA     511 FREE      0BC6F728 0BC98668     
LDENUCRO  37 0D1277B0   2128 ERDSA     808 FREE      0BC6F728 0BC98650     
LDENUCRO  37 0D143EF0    272 ERDSA     837 FREE      0BC6F728 0BCE24D0     
LDENUCRO  37 0FAE8460   2976 ERDSA     745 FREE      0BC6F728 4876E1B8     




Subpool  Num Address  Length DSAname  Page Free Stgv SCA      SCE            
LDENRSRO  41 0BEFFFF0     16 ERDSA     257 FREE      0BC6F9F8 0BC5D6E0       
LDENRSRO  41 0BFFFFF0     16 ERDSA     257 FREE      0BC6F9F8 0BC5D728       
LDENRSRO  41 0C1FFF00    256 ERDSA     513 FREE      0BC6F9F8 0BC5D7B8       
LDENRSRO  41 0C2FFFD0     48 ERDSA     257 FREE      0BC6F9F8 0BC5D7D0       
LDENRSRO  41 0C396FF0     16 ERDSA     152 FREE      0BC6F9F8 0BC5D818       
LDENRSRO  41 0C93D670   2448 ERDSA      62 FREE      0BC6F9F8 0BC98C80       
LDENRSRO  41 0C9F1C20    992 ERDSA     243 FREE      0BC6F9F8 0BC98608       
LDENRSRO  41 0D132550   2736 ERDSA     819 FREE      0BC6F9F8 0BC98DE8       
LDENRSRO  41 0D167DA0   4704 ERDSA     873 FREE      0BC6F9F8 0BC5DDB8       
LDENRSRO  41 0D512DC0    576 ERDSA     276 FREE      0BC6F9F8 0BC98770       




1.  Write reentrant code, and/or

2.  Link-edit the load module without the RENT attribute.

   -jc-

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to