[BACK]Return to %ZOS.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / contrib
File:  [Coherent Logic Development] / freem / contrib / %ZOS.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (2 months, 2 weeks ago) by snw
Branches: MAIN, CoherentLogicDevelopment
CVS tags: v0-63-1-rc1, v0-63-0-rc1, v0-63-0, v0-62-3, v0-62-2, v0-62-1, v0-62-0, start, HEAD
FreeM

%ZOS  ;;Stephen G Maher, Netdrive Technology Limited
 ;;Return the operating specific 'uname' information.
 ;;
 Q
INIT ;
 N temp,EXEC,%
 S EXEC="!<uname -a | tr ' ' ':'",temp=""
 X EXEC
 I % D
 . S temp=%(1)
 . Q
 Q temp
 ;
EXAMPLE ;
 S OS=$($ZOS,":")
 I OS="AIX" S ....
 I OS="SunOS" S....
 I OS="HP-UX" S......
 I OS="OSF1" S.....
 Q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>