/* SS  Start Multiple ISPF Logical Sessions       11/17/1998-08/31/2000
/* --------------------------------------------------------------------
/* Copyright (C) 1998-2000 by Vladimir & Victor Veytsel   www.davar.net
/* Requires that commands used are defined via SC prior to SS execution

/* 1. G1  - Gen session #1  (ISPF primary menu)
/* 2. G2  - Gen session #2  (ISPF primary menu)
/* 3. G3  - Gen session #3  (ISPF primary menu)
/* 3. G4  - Gen session #4  (ISPF primary menu)
/* 5. PG  - PGMR Data List  (&SYSUID..PGMR prefixed; becomes CURRent)
/* 6. DL  - User Data List  (&SYSUID       prefixed)
/* 7. WP  - ISPF WorkPlace
/* 8. SD  - SDSF held outp  (becomes PREVious session)

   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME G2  PERM;        SWAP) SUSPEND
   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME G3  PERM;        SWAP) SUSPEND
   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME G4  PERM;        SWAP) SUSPEND
   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME PG  PERM; DL P;; SWAP) SUSPEND
   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME DL  PERM; DL *;; SWAP) SUSPEND
   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME WP  PERM; WP  ;; SWAP) SUSPEND
   ISPEXEC SELECT PGM(ISPSTRT) +
                  PARM(SCRNAME SD  PERM; SD H;; SWAP) SUSPEND

   SET     ZCMD=  &STR(SCRNAME G1  PERM;        +
                       SCRNAME ON; SWAP PG)
   ISPEXEC DISPLAY PANEL(ISR@PRIM) COMMAND(ZCMD)
