Re: SIGNOFF ENDCNN(*YES) without disconnecting iSeries Access

Hi, Dave:

You could call your version of the LOGOFF command SIGNOFF, and change the command processing program as follows:

PGM PARM(&LIST) DCL VAR(&LIST) TYPE(*CHAR) LEN(7) DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(8) /* attempt to end an SNA pass-through session ... */ ENDPASTHR LOG(&LIST) MONMSG MSGID(CPF0000) EXEC(DO) RCVMSG PGMQ(*SAME *) MSGTYPE(*EXCP) MSGKEY(*NONE) +
WAIT(0) RMV(*YES) ENDDO /* if that fails, sign off, and end TCP connection ... */ RTVNETA SYSNAME(&SYSNAME) IF (&SYSNAME *EQ 'S103X29M') + QSYS/SIGNOFF LOG(&LIST) ENDCNN(*NO) ELSE + QSYS/SIGNOFF LOG(&LIST) ENDCNN(*YES) ENDPGM
The idea here is to retrieve the system name, and if it is the name of your "normal" primary system, issue the "real" SIGNOFF command with ENDCNN(*NO), otherwise (you must have done a telnet to some other system, so) issue the "real" SIGNOFF with ENDCNN(*YES).

Would that work better for you?

Mark

> Dave Kahn wrote:

2009/7/2 Mark S. Waterbury <mark.s.waterbury@xxxxxxx>:

Hi, Dave:

But, that is precisely what ENDCNN(*YES) means. It will drop the telnet
connection. :-o

Hi Mark. I didn't say it wasn't working correctly, only that it wasn't
quite the behaviour we desired. Ideally we want the default to be
ENDCNN(*YES) except where that would leave the user staring at a blank
screen. In that case we'd like it to be ENDCNN(*NO). An alternative
LOGOFF command is a good idea but not acceptable in our environment.