/* Rexx
 |
 | Name: Z (you might prefer X)
 |
 | Author: David Alcock
 |
 | Purpose: Easy logoff for ISPF and TSO ready mode
 |
 */

if address() <> "TSO" then do
   say "This Command must be executed under TSO"
   exit 12
   end
if sysvar("SYSISPF") == "ACTIVE" then do
   address "ISPEXEC" "CONTROL NONDISPL END"
   address "ISPEXEC" "SELECT PANEL(ZPANEL) OPT(X)"
   address TSO "LOGOFF"
   exit 12
   end
/* Silly goodbye message if you use this command in the READY mode */
dow = date('w')
if substr(dow,1,1) <> "S" then do  /* Not Saturday or Sunday */
   parse value time() with hour ":" .
   if hour > 17 then do /* is it after 5:00? */
      say " "
      say "         Grant me the Serenity to prioritize things"
      say "         I cannot delegate, the Courage to say No"
      say "         when I need to, and the Wisdom to know when"
      say "         to go home."
      say " "
      end
   end

address TSO "LOGOFF"