/* REXX */
Say 'Sysplex Name...........' Mvsvar("SYSPLEX")
Say 'System Name............' Mvsvar("SYSNAME")
Say 'OS Version.............' Mvsvar("SYSOPSYS")
Say 'MVS Version............' Mvsvar("SYSMVS")
Say 'DFP Level..............' Mvsvar("SYSDFP")
Say 'SMS?...................' Mvsvar("SYSSMS")
Say 'SMF Name...............' Mvsvar("SYSSMFID")
Say 'System Clone-ID........' Mvsvar("SYSCLONE")
Say 'JES Version............' Sysvar("SYSJES")
Say 'JES Nodename...........' Sysvar("SYSNODE")
Say 'HSM Version............' Sysvar("SYSHSM")
Say 'RACF Version...........' Sysvar("SYSLRACF")
Say 'TSO/E Version..........' Sysvar("SYSTSOE")
Say ' '
Say '-For TSO User' Sysvar("SYSUID") ' prefix set to' Sysvar("SYSPREF")
Say '  Executing in.........' Sysvar("SYSENV")
Say '  Using LOGON Proc.....' Sysvar("SYSPROC")
Say '  Terminal-ID..........' Strip(Sysvar("SYSTERMID"),'L')
Say '  Terminal Lines.......' Strip(Sysvar("SYSLTERM"),'L')
Say '  Screen Width.........' Strip(Sysvar("SYSWTERM"),'L')
Say '  ISPF?................' Sysvar("SYSISPF")
Say '  CPU Time Used........' Strip(Sysvar("SYSCPU"),'L')
Say '  SRM Time Used........' Strip(Sysvar("SYSSRV"),'L')