/* REXX MVSVAR Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
SAY "MVS Level:    " MVSVAR("SYSMVS")
                                /* Ausgabe: MVS Level           */
  /* */
SAY "DFP Level:    " MVSVAR("SYSDFP")
                                /* Ausgabe: DFP Level           */
  /* */
SAY "MVS Name:     " MVSVAR("SYSNAME")
                                /* Ausgabe: MVS System Name     */
  /* */
SAY "SMF System ID:" MVSVAR("SYSSMFID")
                                /* Ausgabe: SMF ID              */
  /* */
SAY "z/OS Name:    " MVSVAR("SYSOPSYS")
                                /* Ausgabe: z/OS Name           */
  /* */
SAY "Sysplex Name: " MVSVAR("SYSPLEX")
                                /* Ausgabe: Sysplex Name        */
  /* */
SAY "Sysclone:     " MVSVAR("SYSCLONE")
                                /* Ausgabe: Sysclone Variable   */
  /* */
SAY "User Variable:" MVSVAR("SYMDEF","SYSR1")
                                /* Ausgabe: SYSR1 oder andere...*/
  /* */
SAY "TSO Seclabel: " MVSVAR("SYSSECLAB")
                                /* Ausgabe: TSO Seclabel        */
  /* */
SAY "SMS:          " MVSVAR("SYSSMS")
                                /* Ausgabe: DFSMS               */
  /* May fail if not customized! */
SAY "APPC LU:      " MVSVAR("SYSAPPCLU")
                                /* Ausgabe: APPC LU Name        */
  /* */