It's not at all difficult to keep it working. Update the initialization section 
of the EZANS REXX from around line 180-ish on. I don't think there have been 
any changes to the netstat command syntax since z/OS 1.13.

Ant. 

/**********************************************************************/
/*                                                                    */
/* Determine release of this z/OS system and initialize our           */
/* release identifier variable: z/OS VnRn                             */
/*                                                                    */
/* Also initialize a numeric representation of this release to be     */
/* used when determining which functions are available at which       */
/* releases.  Format of this is 'oovvrr' - oo is 01 for z/OS, vv is   */
/* 2-digit version, and rr is 2-digit release.  z/OS V1R4: '010104'   */
/*                                                                    */
/**********************************************************************/
                                                                        
address ISPEXEC "VGET (ZOS390RL ZSYSID) ASIS"                           
parse var ZOS390RL EZANSOS " " EZANSOSV "." EZANSOSR "." EZANSOSM .     
EZANSOSV = right(EZANSOSV,2)                                            
if ezatracei then do                                                    
   say h||'ZOS390RL='ZOS390RL                                           
   say h||'OS='EZANSOS                                                  
   say h||'VV='EZANSOSV                                                 
   say h||'RR='EZANSOSR                                                 
   say h||'MM='EZANSOSM                                                  
end                                                 
                                                    
EZANSOSV = right(EZANSOSV,1)                        
If EZANSOSR < '10' then                             
   EZANSOSR = right(EZANSOSR,1)                     
EZANSREL = EZANSOS||" V"||EZANSOSV||'R'||EZANSOSR   
                                                    
if ezatracei then say h||'EZANSREL='EZANSREL        
EZANSHDT = EZANSREL||' CS TCP/IP NETSTAT'           
                                                    
if ezatracei then say h||'EZANSHDT='EZANSHDT        
                                                    
zosv1r4 = '010104'                                  
zosv1r5 = '010105'                                  
zosv1r6 = '010106'                                  
zosv1r7 = '010107'                                  
zosv1r8 = '010108'                                  
zosv1r9 = '010109'                                  
zosv1r10 = '010110'                                 
zosv1r11 = '010111'                                 
zosv1r12 = '010112'                                 
zosv1r13 = '010113'                                 
zosv2r1  = '010201' /* Ant1 */                      
zosv2r2  = '010202' /* Ant2 */                      
                                                    
thisrel = zosv1r4                                   
                                                    
if EZANSREL = 'z/OS V1R4' then                      
   thisrel = zosv1r4                                
if EZANSREL = 'z/OS V1R5' then                      
   thisrel = zosv1r5                                
if EZANSREL = 'z/OS V1R6' then                      
   thisrel = zosv1r6                                
if EZANSREL = 'z/OS V1R7' then                      
   thisrel = zosv1r7                                
if EZANSREL = 'z/OS V1R8' then                      
   thisrel = zosv1r8                                
if EZANSREL = 'z/OS V1R9' then               
   thisrel = zosv1r9                         
if EZANSREL = 'z/OS V1R10' then              
   thisrel = zosv1r10                        
if EZANSREL = 'z/OS V1R11' then              
   thisrel = zosv1r11                        
if EZANSREL = 'z/OS V1R12' then              
   thisrel = zosv1r12                        
if EZANSREL = 'z/OS V1R13' then              
   thisrel = zosv1r13                        
if EZANSREL = 'z/OS V2R1'  then /* Ant1 */   
   thisrel = zosv2r1            /* Ant1 */   
if EZANSREL = 'z/OS V2R2'  then /* Ant2 */   
   thisrel = zosv2r2            /* Ant2 */   
                                             
EZANSCRL = thisrel                           
address ISPEXEC "VPUT (EZANSCRL) SHARED"     
                                             
If ezatracei then say h||'Thisrel='thisrel   


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of Lizette Koehler
Sent: Wednesday, 29 June 2016 1:16 AM
To: [email protected]
Subject: Re: Netstat (EZANS) for z/OS 2.2

My last conversations with IBM on this is - not supported.  It was a tool 
developed by an IBMer that retired and the Communication Server Team preferred 
not to continue with it.

So I am thinking NO.

But I have been wrong before.  So who knows.  I am not aware of an alternate at 
this time.

You might try posting on the TCPIP list.  They may have more information.  But 
back on Sep 2014, a few of us on the TCPIP list tried to get IBM to support it.

>From IBM at that time:

As noted at the bottom of the README.txt for EZANS, the EZANS tool has
not been provided as part of an IBM product.   As such the tool would not
be enhanced nor supported by IBM.  In regards to the z/OS V2R1 release, I 
believe that the tool just invokes the Netstat commands and displays the 
output.  So that feature of the tool should not be affected by the current z/OS 
release.  But support for any new Netstat report options, modifiers, and 
filters would be missing from the tool.



Lizette


> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] 
> On Behalf Of Richards, Robert B.
> Sent: Tuesday, June 28, 2016 8:31 AM
> To: [email protected]
> Subject: Netstat (EZANS) for z/OS 2.2
> 
> Has EZANS been customized for z/OS 2.2?
> 
> Bob
> 

----------------------------------------------------------------------
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

Reply via email to