has anyone noticed that there is not any longer the JES/HASP versioning scheme
and NOW the jes version is ... guess what... the zOS version ( since zOS appearance )
time for people to start reading the manuals
SYSJES
name and level of the JES installed on your system:
A character string indicating name of the JES plus its version, release and modification level, for example
JES2 OS 2.10
where JES2 is the JES name and OS 2.10 is the JES level. These two strings are separated by a blank character. If either the JES name or the level returns an empty character string, then no blank character is inserted. Trailing blanks are removed.
-INACTIVE- (please note the delimiters) if the subsystem is not active.
-DOWNLEVEL- (please note the delimiters) if the subsystem is neither JES2 SP4.3 or later, nor JES3 SP5.1.1 or later.
here are two snippets that display what information is available by asking
SYSVARs
****** ***************************** Top of Data ******************************
000001 /*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000002 /* */
000003 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000004 Trace "O"
000005
000006 vars = "sysdfp sysmvs sysname sysopsys sysseclab syssmfid" ,
000007 "syssms sysclone sysplex"
000008 do v = 1 to words(vars)
000009 say left(word(vars,v),10) mvsvar(word(vars,v))
000010 end
000011
000012 exit
****** **************************** Bottom of Data ****************************
MVSVARs
****** ***************************** Top of Data ******************************
000001 /*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000002 /* */
000003 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000004 Trace "O"
000005
000006 vars = "syspref sysproc sysuid syslterm syswterm sysenv" ,
000007 "sysicmd sysispf sysnest syspcmd sysscmd" ,
000008 "syscpu syshsm sysjes syslracf sysnode sysracf" ,
000009 "syssrv systermid systsoe sysdterm syskterm sysplang" ,
000010 "sysslang"
000011 do v = 1 to words(vars)
000012 say left(word(vars,v),10) sysvar(word(vars,v))
000013 end
000014
000015 exit
****** **************************** Bottom of Data ****************************