)COMMENT
***********************************************************************
***********************************************************************
** Licensed Materials - Property of IBM                              **
** 5698-CL3 (C) Copyright IBM Corp. 2005, 2020.                      **
** US Government Users Restricted Rights - Use, duplication or       **
** disclosure restricted by GSA ADP Schedule Contract with IBM Corp. **
***********************************************************************
***********************************************************************
)Comment
***********************************************************************
*                                                                     *
* Member:                                                             *
*   KLSTERME                                                          *
*                                                                     *
* Function:                                                           *
*   EPILOGUE for KLSTERM1. Refer to KLSTERM1 for a complete module    *
*   description.                                                      *
*                                                                     *
*                                                                     *
* Revision History: (see columns 73-80 for changed lines)             *
* -----------------                                                   *
*                                                                     *
* MM/DD/YY  Mod-id   Description                                      *
* --------  -------  -----------------------------------------------  *
* 02/01/94  QLS1107  Delete the vig_flg use, set the vigstrg with     *
*                    the scope of session.                            *
* 03/09/94  QLS1135  No changes, MCS fix only.                        *
*                                                                     *
***********************************************************************
)Epilogue
set msgarea ''

dialog KLSVKEYS '&fkeys'                 /* valid input key */
if (&rc = 1) reshow                      /* no */

else if &cmd!='' and &syskey=ENTER dialog 'KLSCMD' /* command? */

else if (&syskey = ENTER)
   do
     if (set a &a) set choice &a
     else
     do
       PSMLOCAT((PSMROW()),(PSMCOL())+2) /* get selection number */
       set choice (PSMFIELD(1))
     end
     if &choice = 1 or &choice = &c1     /* terminate active sessions */
        do
          if (set numsess (VSSINFO('SESSIONS')))
            set rc (VSSVLIST('KLSTERM' 'KLSTERMA' &numsess))
            COMMAND('AS ''*SYSVLG*'' CLOSE &VIRTTERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &TSOATERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &TSOBTERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &TSOCTERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &TSODTERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &TSOSTERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &DBUBTERM')      /* kk01 */
            COMMAND('AS ''*SYSVLG*'' CLOSE &DBUDTERM')      /* kk01 */
          select KLSCLOS
        end
     else
     if &choice = 2 or &choice = &c2 select KLSCLOS /* keep sessions */
     else
     if &choice = 3 or &choice = &c3 return       /* resume */
     set vvvmsgtk smsglisc
   end
else if (&syskey = pf12) return                   /* return */
else if (&syskey = pf1)                           /* help */
   do
     if &sysvar = cmd
       do
         set cmd '&vchelp &cmd'
         dialog 'KLSCMD'
         set syscsr cmd
       end
     else

       do
         PSMCURSR((PSMHGHT())-1,(PSMWIDTH())-1)   /* bottom right */
         dialog KLSSHELP 'KLS264H&vsplang'
         set syscsr a
       end
   end

error1:
if &vvvmsgtk dialog 'KLSSMSG&vsplang' &vvvmsgtk
reshow
)Term                                                                   /*S107*/
if &vigstrg = ENABLE                   /* If storage reduction enable*/ /*S107*/
   dialog KLSUNIN                      /* Uninitialize NLS variables */ /*S107*/