Return to %ZOS.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%ZOS.m, revision 1.1

1.1     ! snw         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: