SYSVAR - System und TSO/E Informationen

REXX TSO und MVS Built-In Funktionen

Syntax:                                 
SYSVAR(option)
User     "SYSPREF"/"SYSPROC"/"SYSUID"
Terminal "SYSLTERM"/"SYSWTERM"/"SYSTERMID"
Command  "SYSENV"/"SYSICMD"/"SYSISPF"/"SYSNEST"/"SYSPCMD"/
"SYSSCMD"
System   "SYSCPU"/"SYSSRV"/"SYSRACF"/"SYSHSM"/"SYSJES"/
"SYSNODE"/"SYSLRACF"/"SYSTSOE"
Language "SYSPLANG"/"SYSSLANG""
Console  "SOLDISP"/"UNSDISP"/"SOLNUM"/"UNSNUM"/"MFTIME"/
"MFJOB"/"MFSNMJBX"/"MFOSNM"

/* REXX SYSVAR Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SAY LEFT("User ",70,"-")
SAY "Prefix:       " SYSVAR("SYSPREF")
                                /* Ausgabe: Data Set Prefix        */
  /* */
SAY "Logon Proc:   " SYSVAR("SYSPROC")
                                /* Ausgabe: Logon Procedure        */
  /* */
SAY "User Id:      " SYSVAR("SYSUID")
                                /* Ausgabe: User Identifier        */
  /* ---------------------------------------------------------- */
SAY LEFT("Terminal ",70,"-")
SAY "Term. Lines:  " SYSVAR("SYSLTERM")
                                /* Ausgabe: 0 = Background         */
                                /* Ausgabe: n = Anz. Zeilen        */
  /* */
SAY "Term. Char.:  " SYSVAR("SYSWTERM")
                                /* Ausgabe: n = Anz. Charaktere    */
  /* */
SAY "Terminal Id:  " SYSVAR("SYSTERMID")
                                /* Ausgabe: Terminal ID foreground */
  /* ---------------------------------------------------------- */
SAY LEFT("Command ",70,"-")
SAY "Environment:  " SYSVAR("SYSENV")
                                /* Ausgabe: FORE = Foreground      */
                                /* Ausgabe: BACK = Background      */
  /* */
SAY "Command:      " SYSVAR("SYSICMD")
                                /* Ausgabe: Implicite Commands     */
  /* */
SAY "ISPF:         " SYSVAR("SYSISPF")
                                /* Ausgabe: ACTIVE / NOT ACTIVE    */
  /* */
SAY "Unterprozedur:" SYSVAR("SYSNEST")
                                /* Ausgabe: YES / NO               */
  /* */
SAY "Last Command: " SYSVAR("SYSPCMD")
                                /* Ausgabe: letztes Kommando       */
  /* */
SAY "Last Sub CMD: " SYSVAR("SYSSCMD")
                                /* Ausgabe: letztes Subkommando    */
  /* ---------------------------------------------------------- */
SAY LEFT("System ",70,"-")
SAY "CPU Verbrauch:" SYSVAR("SYSCPU")
                                /* Ausgabe: sss.hh                 */
                                /*          Sekunden.Hunderstel    */
  /* */
SAY "Service Units:" SYSVAR("SYSSRV")
                                /* Ausgabe: Service Units Verbrauch*/
  /* */
SAY "RACF:         " SYSVAR("SYSRACF")
                                /* Ausgabe: AVAILABLE              */
                                /*          NOT AVAILABLE          */
                                /*          NOT INSTALLED          */
  /* */
SAY "HSM Version:  " SYSVAR("SYSHSM")
                                /* Ausgabe: VRRM                   */
  /* */
SAY "JES Version:  " SYSVAR("SYSJES")
                                /* Ausgabe: JESx z/OS x.y          */
  /* */
SAY "JES Node:     " SYSVAR("SYSNODE")
                                /* Ausgabe: Node Name              */
  /* */
SAY "RACF Version: " SYSVAR("SYSLRACF")
                                /* Ausgabe: VRRM                   */
  /* */
SAY "TSO/E Version:" SYSVAR("SYSTSOE")
                                /* Ausgabe: VRRM                   */
  /* ---------------------------------------------------------- */
SAY LEFT("Language ",70,"-")
SAY "Primary Lang.:" SYSVAR("SYSPLANG")
                                /* Ausgabe: Language Primary       */
  /* */
SAY "Second. Lang.:" SYSVAR("SYSSLANG")
                                /* Ausgabe: Language Secondary     */
  /* ---------------------------------------------------------- */
SAY LEFT("Console ",70,"-")
SAY "Solicited Dsp:" SYSVAR("SOLDISP")
                                /* Ausgabe: YES / NO               */
  /* */
SAY "Unsolicit Dsp:" SYSVAR("UNSDISP")
                                /* Ausgabe: YES / NO               */
  /* */
SAY "Solicited Num:" SYSVAR("SOLNUM")
                                /* Ausgabe: Number                 */
  /* */
SAY "Unsolicit Num:" SYSVAR("UNSNUM")
                                /* Ausgabe: Number                 */
  /* */
SAY "MsgTime Stamp:" SYSVAR("MFTIME")
                                /* Ausgabe: YES / NO               */
  /* */
SAY "Msg Sysname  :" SYSVAR("MFOSNM")
                                /* Ausgabe: YES / NO               */
  /* */
SAY "Msg Job      :" SYSVAR("MFJOB")
                                /* Ausgabe: YES / NO               */
  /* */
SAY "Msg Sys+Job  :" SYSVAR("MFSNMJBX")
                                /* Ausgabe: YES / NO               */