[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 (6 months, 1 week 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

    1: %ZOS  ;;Stephen G Maher, Netdrive Technology Limited
    2:  ;;Return the operating specific 'uname' information.
    3:  ;;
    4:  Q
    5: INIT ;
    6:  N temp,EXEC,%
    7:  S EXEC="!<uname -a | tr ' ' ':'",temp=""
    8:  X EXEC
    9:  I % D
   10:  . S temp=%(1)
   11:  . Q
   12:  Q temp
   13:  ;
   14: EXAMPLE ;
   15:  S OS=$($ZOS,":")
   16:  I OS="AIX" S ....
   17:  I OS="SunOS" S....
   18:  I OS="HP-UX" S......
   19:  I OS="OSF1" S.....
   20:  Q
   21:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>