Hello John,
In our TSO signon CLIST (I know it should be Rexx ....), at the very end,
after re-allocating libraries (etc.), we use:
/* ALL DONE */
FREE FI(TEST)
ERROR RETURN
IF &SYSLTERM EQ 0 THEN EXIT
ISPSTART &PNL NEWAPPL(ISR)
The test on &SYSLTERM will EXIT if we are using Telnet (not TN3270) to
signon. In Rexx use SYSVAR("SYSLTERM") instead of &SYSLTERM.
Best of luck.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
