No idea whether any of this would work (from 20+ years ago):
 
*A.*
//<jobcard, submitted on LPAR A>                                       
00004000
/*ROUTE XEQ <LPAR B>                                                  
00005000
//*********************************************************************
00006000
//* ISSUE MVS COMMANDS IN BATCH                                       *
00007000
//* - VIA FREEFORM JCL CARD                                           *
00007100
//* - VIA INTERNAL READER                                             *
00007200
//*                                                                   *
00007300
//*********************************************************************
00007400
//*                                                                    
00007500
//INTRDR  EXEC PGM=IEBGENER                                            
00007600
//SYSPRINT  DD SYSOUT=*                                                
00007700
//SYSIN     DD DUMMY                                                   
00007800
//SYSUT2    DD SYSOUT=(*,INTRDR)                                       
00007900
//SYSUT1    DD *,DLM=@@                                                
00008000
/*$VS,'CANCEL <TSO USERID>'                                            
00009000
@@                                                                     
00040000
//*                                                                    
00050000
//                                                                     
00060000
 
*B.*
(In Netview, though I cannot remember the syntax and parameters)
V NET INACT <whatever it is>
<Delete the Userid>
V NET ACT <whatever it is>
 
HTH Chris Poncelet (retired sysprog)
 
 

On 07/02/2019 22:29, John Szura wrote:
> In the past we were able to reconnect to a TSO session when our VPN 
> disconnected via the use of Gilbert St Flour's IKJEFLN2.  The implementation 
> of LOGONHERE made this exit unnecessary.  However, now we can no longer 
> reconnect to a session when the VPN disconnects, due to a network issue or it 
> just goes down, even though we have an S for RECONNECT in the USS display.   
> Now we immediately get the following messages:
>
> IKT100I USERID userid       CANCELED DUE TO UNCONDITIONAL LOGOFF
> IKT122I IPADDR..PORT nnn.nnn.nnn.nnn..50569
> IEF450I userid proc procstep - ABEND=S622 U0000 REASON=00000000
>
> Both LOGONHERE and RECONLIM are defaulted (YES and 20 respectively).  I am 
> able to switch a TSO session to another TN3270 session without a problem but 
> not when the VPN connection goes down (after it comes back up well within the 
> 20 minutes, of course).  All I can think is that some TCPIP parameter like 
> DISCONNECTABLE or INACTIVE was not carried forward when we upgraded our z/OS 
> even though the defaults for these parameters seem fine.   
>
> I logon using the DNS name of one of our z/OS systems.  I know I could logon 
> to the system using a VM DIAL command but when I do that, I lose the the use 
> of the ATTN on the keyboard to interrupt a long running REXX or program.  
>
> Any help would be appreciated but I need a fix not a workaround.
>
> j
>
> ----------------------------------------------------------------------
> 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