Xh$WHO056.A]WHO056.A3BACKUP/NOASSIST/NODISMOUNT/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY USER$DISK:[DAVIS.WHO.WHO056]KITINSTAL.COM,VWHO056.OBJ,AWHO056.OBJ,WHO056.HLP,WHO056.CLD,WHO056.RELEASE_NOTES,WHO_SENDMAIL.COM,GET_ADDRESS.COM,NODE_NUM.COM USER$DISK:[DAVIS.WHO.WHO056]WHO056.A/LABEL=(WHO)/SAVE/BLOCK=9000/GROUP=25VAX/VMS SPKITBLD Procedure DAVIS $ zS݇V6.1 _DIVING::  _DIVING$DKA200: V6.1 $!*[DAVIS.WHO.WHO056]KITINSTAL.COM;1+,$./$ 4TL-0123KPWO56ƩR݇7R݇89G$HJJ$!************************************************************************$! $! Written by: Stephen N. Davis"$! Digital Equipment Corporation$! 6406 Ivy Lane / COP4-2$! Greenbelt, MD 20770-1443$! $! Revision date: 05 April 1994 $!G$! (Modified to install on both OpenVMS VAX V6.1 & OpenVMS Alpha V6.1)$!K$!*************************************************************************$! $! set up ...$!0$WHO_VERSION=="V5.6" ! Current product version$!3$ARCH = f$getsyi("ARCH_TYPE") ! 1 = VAX, 2 = ALPHA*$ENET==2 ! define an even (false) value+$NMAIL==2 ! define an even (false) valueB$WV=="0" + f$extract(1,1,WHO_VERSION) + f$extract(3,1,WHO_VERSION)$say = "write sys$output"'$on control_Y then goto cntrl_y_handler!$on warning then goto bad_install$!$! legal functions...$!1$if p1 .eqs. "VMI$_INSTALL" then goto WHO_INSTALL)$if p1 .eqs. "VMI$_IVP" then goto WHO_IVP$exit VMI$_UNSUPPORTED$! $! begin product installation...$! $WHO_INSTALL:$!:$! Check for proper version of OpenVMS Operating System...C$! (VAX must be at V6.0 or higher, Alpha must be at least T1.0)$!$if (ARCH .eq. 1)$thenG$ if f$element(1,",",vmi$vms_version) .ges. "060" then goto check_space$ say ""O$ say " This kit requires OpenVMS VAX V6.0 or later for proper installation."$ say ""$elseG$ if f$element(1,",",vmi$vms_version) .ges. "015" then goto check_space$ say ""T$ say " This kit requires OpenVMS Alpha V1.5 or later for proper installation."$ say ""$endif$!$goto bad_install$!!$! check for needed disk space...$! $CHECK_SPACE:-$VMI$CALLBACK CHECK_NET_UTILIZATION WHO$ 2300&$if (.not. WHO$) then goto bad_install$!-$! see if we are part of a VAXcluster...$!6$if (f$getsyi("CLUSTER_MEMBER",f$getsyi("NODENAME"))) $then$ cluster == "TRUE"H$ VMI$CALLBACK ASK CLSINS "Do you want WHO installed cluster wide" YES B$ if (CLSINS) $ then$ cluster == "TRUE"$ else$ cluster == "FALSE"$ endif$else$ cluster == "FALSE"$endif$$VMI$CALLBACK SET PURGE $VMI$CALLBACK SET IVP ASK)$!VMI$CALLBACK SET SHUTDOWN ASK WHO$ EXIT$!<$! comment out the next (2) lines to build a customer kit...$!L$VMI$CALLBACK ASK ENET "Is this system on the DIGITAL corporate E-net" YES B$!$say "".$say " No more questions will be asked ..."$say ""$!.$! link the product on the users local node...$!$if (ARCH .eq. 1)$then @$ link/exec=VMI$KWD:WHO'wv'.EXE/notrace/nodebug VMI$KWD:vwho'wv'$ say ""5$ say " WHO''wv' image for OpenVMS VAX created..."$else@$ link/exec=VMI$KWD:WHO'wv'.EXE/notrace/nodebug VMI$KWD:awho'wv'$ say ""7$ say " WHO''wv' image for OpenVMS Alpha created..."$endif$!*$! move the product image to sys$system...$!N$! VMI$CALLBACK PROVIDE_IMAGE WHO$FILE VMI$KWD:WHO'wv'.EXE SYS$COMMON:[SYSEXE]:$ copy vmi$kwd:who'wv'.exe sys$common:[sysexe]who'wv'.exe #$ purge sys$common:[sysexe]who*.exe/$ set prot=(w:r) sys$common:[sysexe]who'wv'.exe$!$say ""6$say " WHO''wv' executable copied to SYS$SYSTEM..."$!2$! modify DCLtables for addition of WHO command...$!.$ VMI$CALLBACK PROVIDE_DCL_COMMAND WHO'wv'.CLD$!$say ""*$say " WHO''wv' DCL table installed..."$!'$! move dcl help file to sys$library...$!*$VMI$CALLBACK PROVIDE_DCL_HELP WHO'wv'.HLP$!$say ""*$say " WHO''wv' help file installed..."$!$$! create WHO startup procedure ....$!&$open/write f5 vmi$kwd:who$startup.comN$write f5 "$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"$write f5 "$! !"B$write f5 "$! who$startup.com (WHO Version ''who_version') !"$write f5 "$! !"K$write f5 "$! This file should be invoked at system startup from: !"$write f5 "$! !"D$write f5 "$! SYS$MANAGER:SYSTARTUP_VMS.COM !"$write f5 "$! !"N$write f5 "$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"$write f5 "$!"$write f5 "$set noon";$write f5 "$install add/prot/open/priv=(WORLD)/head/exec -"+$write f5 "sys$common:[sysexe]who''wv'.exe"-$write f5 "$mc ncp set object who number 0 -"2$write f5 "file sys$common:[sysexe]who''wv'.exe -"/$write f5 "user WHO$SERVER password WHO$SERVER"$write f5 "$!" $close f5$!/$! move the startup procedure to sys$startup...$!F$ copy vmi$kwd:who$startup.com sys$common:[sys$startup]who$startup.com/$ purge sys$common:[sys$startup]who$startup.com$!$!$say "">$say " WHO''wv' startup procedure copied to SYS$STARTUP..."$say ""J$say " +------------------------------------------------------+J$say " | |J$say " | Note: |J$say " | Please edit your startup file SYSTARTUP_VMS.COM, |J$say " | to invoke the WHO startup command procedure at |J$say " | system startup by adding the line: |J$say " | |J$say " | $ @sys$startup:who$startup |J$say " | |J$say " | Remember to remove any commands you may have |J$say " | used to start any previous version of WHO. |J$say " | |J$say " +------------------------------------------------------+$say ""$say ""$!$say ""7$say " Creating WHO$SERVER account and directory..."$!A$create/directory sys$sysdevice:[who$server] /owner_uic=[576,576]5$set prot=(w:re) sys$sysdevice:[000000]who$server.dir$!$! Create an account...$!)$define/user sysuaf sys$system:sysuaf.dat1$define/user rightslist sys$system:rightslist.dat$run SYS$SYSTEM:authorizeOadd who$server /password=who$server /owner="WHO Remote Access" /uic=[576,576] -O/defpriv=(NETMBX,TMPMBX) /priv=(NETMBX,TMPMBX) /lgicmd=NL: /direct=WHO$SERVER -/DEVICE=SYS$SYSDEVICE -J/flags=(DisCtlY,DefCLI,LockPwd,Restricted,DisWelcome,DisNewMail,DisMail, -"DisReport,DisReconnect,nodisuser) $!'$! determine DECnet node name if any...$! $node_name==f$getsyi("NODENAME")!$node_length==f$length(node_name)$!$if (node_length .ne. 0) $then$ decnet == "TRUE"$else$ decnet = "FALSE" $ goto no_net$endif$!$say ""7$say " DECnet is installed; Checking parameters..."$!$! check SCS sysgen parameters$!,$scsnode==f$edit(f$getsyi("scsnode"),"trim")$if (node_name .nes. scsnode) $then$ say ""J$ say " The sysgen parameter SCSNODE does not match the DECnet node name."$ goto bad_sysgen_params$endif%$scssystemid==f$getsyi("scssystemid")!$@vmi$kwd:get_address 'node_name'#$if (scssystemid .nes. node_answer)$then$ say ""Q$ say " The sysgen parameter SCSSYSTEMID does not match the DECnet node address."$ goto bad_sysgen_params$endif$goto params_ok$bad_sysgen_params:$type sys$input$deckE WHO requires that for DECnet support the following sysgen parametersHmust be set to specific default values. This installation procedure has Jdetermined that the values of the sysgen parameters SCSNODE or SCSSYSTEMIDKhave not been correctly set for WHO operation. Please read the WHO releaseMnotes for instructions on how to correctly set your DECnet sysgen parameters.$eod$goto bad_install $params_ok:$! $! Create SYSMAN command file...$!-$open/write whoout vmi$kwd:who'wv'_sysman.com'$write whoout "$run sys$system:sys.M$WHO056.A$![DAVIS.WHO.WHO056]KITINSTAL.COM;1Tman" $if (cluster)$then($ write whoout "set environment/cluster"$else2$ write whoout "set environment/node=''node_name'"$endif;$write whoout "do @sys$common:[sys$startup]who$startup.com"$write whoout "exit"$write whoout "$"$close whoout F$copy VMI$KWD:who'wv'_sysman.com sys$common:[sysmgr]who'wv'_sysman.com$!.$! remove any old references to WHO objects...$!$say ""3$say " Clean up any previous WHO installations..."@$say " (Please ignore any NCP or NML informational messages.)"$say ""$! $NCP = "$NCP" $set noon$ncp clear object who all$ncp purge object who all$!$no_net:$!J$! Search the system directory for previously installed WHOxxx images...$! $who_check:$who_file = ""5$who_file = f$search("sys$common:[sysexe]who*.exe;*")$if (who_file .nes. "")$then$ scol = f$locate(";",who_file)'$ new_file = f$extract(0,scol,who_file)$!($ if f$file_attributes(new_file,"KNOWN")$ then$ install remove 'new_file'$ endif$else$ goto end_search$endif$goto who_check $end_search:$!$type sys$input$deckA Your OpenVMS system will now be updated to include the following new and modified files:' SYS$COMMON:[SYSEXE]:WHO056.EXE [New]' SYS$HELP:WHO056.RELEASE_NOTES [New] 0 SYS$COMMON:[SYS$STARTUP]WHO$STARTUP.COM [New] * SYS$SYSTEM:NETNODE_LOCAL.DAT [Modified]; SYS$SYSTEM:SYSUAF.DAT [Modified]' SYS$LIBRARY:DCLTABLES.EXE [Modified]# SYS$HELP:HELPLIB.HLB [Modified]D Please be sure and read the WHO release notes that have been placedNin SYS$HELP. The release notes contain additional information you will need to/insure correct operation of WHO on your system.  $eod$!'$! execute the who$startup procedure...$!#$!spawn @vmi$kwd:who'wv'_sysman.com'$@sys$common:[sysmgr]who'wv'_sysman.com/$delete sys$common:[sysmgr]who'wv'_sysman.com;*$!$goto ok_install$!$! run the IVP...$! $WHO_IVP:$!$say ""J$say " +------------------------------------------------------+J$say " | |J$say " | WHO V5.6 Installation Verification Procedure |J$say " | |J$say " +------------------------------------------------------+$say ""$say "".$say " Checking WHO interactive function..."$say ""$!/$who /version /output=VMI$KWD:who_ivp_local.dat,$open/read ivpldat vmi$kwd:who_ivp_local.dat$read ivpldat ivplin$close ivpldat4$if f$locate("%WHO-I-IDENT, WHO V5.6",ivplin) .ne. 1$then$ type sys$input6 WHO Interactive installation verification error ...$ eod$ goto bad_install$endif$!*$say " Checking WHO network function..."$say ""$!3$who 0 /version /output=VMI$KWD:who_ivp_network.dat.$open/read ivpldat vmi$kwd:who_ivp_network.dat$read ivpldat ivplin$close ivpldat7$if f$locate("%WHO-I-REMIDENT, WHO V5.6",ivplin) .ne. 1$then$ type sys$input2 WHO Network installation verification error ...$ eod$ goto bad_install$endif$!$say ""J$say " +------------------------------------------------------+J$say " | |J$say " | WHO V5.6 IVP Successfuly Completed! |J$say " | |J$say " +------------------------------------------------------+$say ""$! $ok_install:"$if (.not. ENET) then goto no_mail+$if (DECNET .nes. "TRUE") then goto no_mail$$@vmi$kwd:WHO_sendmail 'who_version' $no_mail:$exit vmi$_success$! $bad_install:$! vmi$callback set shutdown no$ exit vmi$_failure$!$cntrl_y_handler:$ set noon$ set nocontrol=Y$ vmi$callback CONTROL_Y$exitϮ$WHO056.AR0 [DAVIS.WHO.WHO056]VWHO056.OBJ;13* *[DAVIS.WHO.WHO056]VWHO056.OBJ;13+,R0.*/$ 4*)-0123KPWO+56bO݇7`cR݇89G$HJ1WHO05601 5-Dec-1994 15:28DEC Fortran V6.2-108P5 %WHO-I-CRENETLINK, establishing DECnet link to node @ ...3 %WHO-I-NONODE, unable to reach target node or task [H[2J+[1m(0lMqk(B[0m [1m(0x(B[0m,Term Process Name User Name Pri  State EPID Image Name[1m(0x(B[0m [1m(0mMqj(B[0m. Term Process Name User Name Pri  State EPID Image Name2 ---- ------------ --------- --- ---  ----- ---- ----------8 %WHO-F-NOPRIV, WHO not installed with proper privileges7 %WHO-F-SYIERR, WHO unable to obtain system information    ( + 7 = F@  [1m  [0m 0 3 ? E N@  A total of @ interactive @@@. %WHO-I-IDENT, WHO  @ on OpenVMS@ @  Host CPU: @+[4;r[3;1H+[1;r[;1H  %WHO-I-REMIDENT, WHO  @ on OpenVMS@ @  Host CPU: @. %WHO-I-BADREMVER, remote WHO version mismatch %WHO-I-REMPRVERR, /remote WHO not installed with proper privileges+[28C[7mPress RETURN to continue [0m)+[A[K   @5 %WHO-E-OPENERR, Unable to open specified output file< %WHO-I-BADNODE, Remote Node name incorrect syntax or length -No interactive users matching search criteria@@. No current interactive users@@. SYS$NETOUTPUTUSERNAMEIMAGENAMEALLCPUPAGENOSCROLLSUBPROCESSVERSIONREMOTE_NODEwho_output.dat.]P     8G@v6 x FOR$OPEN@ #WHO_AST  \8H CLI$PRESENT@X CLI$GET_VALUE@P!l! CLI$PRESENT@!|! CLI$GET_VALUE@      ** CLI$PRESENT@ ** CLI$GET_VALUE@88844 CLI$PRESENT@88 CLI$PRESENT@<< CLI$PRESENT@AA CLI$PRESENT@ J J CLI$PRESENT@U0U CLI$PRESENT@ ]@] CLI$PRESENT@ ]P] CLI$GET_VALUE@p @  i Pi FOR$OPEN@zHzx( 0 00T \ <@<@Q 7QmQQQQQQQ PP PPQQQ PPTTQQ PPQQ`QQ PWHO$SERVER 'WHO$SERVER '0 'Q P8[<^˒˛˚˗ЫD˓ˑ˞˝Ы|ЫpV˘ЫPXЫLW˖Ы4Y˕̐˔|, P`HQaJRbLScPT˔dTUeVP`XQޫ a\Rb`ScbTddP`QhRabˡlScnTedPpU`etQaxR bzS c|P`4UˀQea˄RbH0  SYS$GETSYIWPX FOR$WRITE_SF FOR$IO_END1ѫ ĞScSS, ˵P`PP(˵,n ˵HFOR$OPENPtѫt1x SYS$ASSIGNЏ2˔ˌSYS$QIOPk 1GET_TERMkѫ$` CLI$PRESENTP( CLI$GET_VALUE< CLI$PRESENTPL CLI$GET_VALUEX STR$UPCASEdSTR$TRIM| CLI$PRESENTPˌ CLI$GET_VALUE˘STR$TRIM˰ CLI$PRESENTPˠˠ CLI$PRESENTP˜(8˨˜(˨ CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP˟˟ CLI$PRESENTP˙˙ CLI$PRESENTP1}  CLI$GET_VALUE, STR$UPCASEYYZJ: JJ0J9JAJZZ FOR$WRITE_SF FOR$IO_END1Y@ LIB$INDEXPZZ8ZZ FOR$WRITE_SF FOR$IO_END1 FOR$WRITE_SFZLPL FOR$IO_T_DS FOR$IO_END^(n^(,n\ݏ"::"\Y^(nY\ ~\Y^( nY\"~\YZ^(ZnYZ\,\n @>PQ^ZZZ ZiPޫ@`QޫaSޫ0cT˘dUˠeː\ˀl˜Z˄jˀRb˴YiPˈ`QaScTdUe\lZjRb Yi$P`(Q a*Sc,Td0Ue4\lܞ6Zj8RbP1 PPP PPP PP PWP\PjP tPP PPOPPrPiP[PPDP P- P:P FP%MPRP ]PePgPiPuP; }PP9P"XPmP uPP/PPPNPPPPPOP"P,P1P8PDPLPYPWaPiP PE*P4PSJP VP,]P%PDPP,PPPPPP =$WHO056.AR0 [DAVIS.WHO.WHO056]VWHO056.OBJ;13** "PPPP P,P8PDPPP\PmhPtPUPP=PP%PP P PPP P PPP |PPP"P*P1PDP[PrPP3PPPPPLPJaPiPoPuPPPP PPAPPP PP 3GET_TERM01 5-Dec-1994 15:28DEC Fortran V6.2-108PTT(P( SYS$GETDVIW@P [P`QaPk`QaP`QaPޫ`QaP` ޼ R SYS$GETDVIWPb޼QbakaЫY GET_TERM SYS$GETDVIWq$CODE$PDATAT$LOCAL aPeP 2WHO_AST01 5-Dec-1994 15:28DEC Fortran V6.2-108PP 0Q;1HP[   FOR$ENCODE_MF~ FOR$IO_L_V FOR$IO_END\\2\ kSYS$QIOW WHO_ASTSYS$QIOWg$CODE$PDATAL$LOCAL WHO_STATE FOR$IO_END FOR$IO_L_V FOR$ENCODE_MFPNP0LP5 SET_MARGIN01 5-Dec-1994 15:28DEC Fortran V6.2-108P+P [ FOR$ENCODE_MFݼ FOR$IO_L_V FOR$IO_END FOR$ENCODE_MFݼ FOR$IO_L_V FOR$IO_END FOR$WRITE_SFRS FOR$IO_B_RR FOR$IO_END  SET_MARGIN$CODE $PDATA$LOCAL FOR$IO_END FOR$IO_B_R FOR$IO_L_V FOR$WRITE_SF FOR$ENCODE_MFU7 SET_GRAPHICS01 5-Dec-1994 15:28DEC Fortran V6.2-108P+(PQP [}PQPk-k  0-k B FOR$WRITE_SF~ FOR$IO_B_V FOR$IO_T_DS FOR$IO_END Ponoff  SET_GRAPHICSi$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_B_V FOR$IO_T_DS FOR$WRITE_SF P&P4P3ePT6 UIC_CONVERT01 5-Dec-1994 15:28DEC Fortran V6.2-1081P P P [} PQ,n ռռ1 FOR$ENCODE_MFݼ FOR$IO_L_V FOR$IO_END, FOR$ENCODE_MFݼ FOR$IO_L_V FOR$IO_ENDVWWTD0 DVWWWTD0 D WVWVVTD WWPD@ V|  UIC_CONVERT$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_L_V FOR$ENCODE_MF8P#PP PP PP 5 CVT_CPUTIM01 5-Dec-1994 15:28DEC Fortran V6.2-108PP PO([}PQ޼PǏփ`QQVŏփVQQ`QǏ@~QRRWŏ@~WRRQǏpQRRXŏpXRRQǏdQRRYŏdYRRQQ`QZ( FOR$ENCODE_MFV FOR$IO_L_V FOR$IO_END FOR$ENCODE_MFW FOR$IO_L_V FOR$IO_END FOR$ENCODE_MFX FOR$IO_L_V FOR$IO_END FOR$ENCODE_MFY FOR$IO_L_V FOR$IO_END FOR$ENCODE_MFZ FOR$IO_L_V FOR$IO_END( V( VV X( HV Vc( VcVZ( JVW( GXXYXZJ0J:XY,n YP0000 00:00:00.00 y O CVT_CPUTIM$CODE#$PDATA$LOCAL FOR$IO_END FOR$IO_L_V FOR$ENCODE_MFdy3P;Pc?PDPPPNXPaP iP5tP}PPP PPPFFOR$IO_END1ѫ ĞScSS, ˵P`PP(˵,n ˵HFORC$WHO056.A[DAVIS.WHO.WHO056]AWHO056.OBJ;3{*[DAVIS.WHO.WHO056]AWHO056.OBJ;3+,./$ 4-0123KPWO56ȗ7@R݇89G$HJ ??WHO056 5-APR-1994 14:24DEC Fortran T6.2-477 $DATA$\$BSS$ $IODATA$iI$CODE$X$LINK$ WHO_STATE/ WHO_ACCESS(J`WHO056 SYS$GETSYIW DFOR$OPEN DFOR$HANDLER SYS$ASSIGNSYS$QIO(J>WHO_AST0J=GET_TERM CLI$PRESENT CLI$GET_VALUE STR$UPCASESTR$TRIM SYS$GETJPIWSTR$MATCH_WILD0JpE CVT_CPUTIM0JxB UIC_CONVERT DFOR$CLOSE DFOR$EXIT DFOR$WRITE_SEQ_FMT DFOR$WRITE_SEQ_FMT_XMIT DFOR$WRITE_INT_FMT DFOR$READ_SEQ_FMT DFOR$READ_SEQ_FMT_XMIT DFOR$READ_INT_FMT SYS$GETDVIWSYS$QIOW0Jp? SET_MARGIN0J(8A SET_GRAPHICSOTS$MOVE OTS$MOVEMOTS$FILLOTS$STRCMP_LSSSOTS$STRCMP_LEQS OTS$INDEXOTS$STRCMP_EQLP7 7==== =(=0=8=@=H=P=X=`=h=p=x== =TT=(7== [= ;1H = 6V76W765 %WHO-I-CRENETLINK, establishing DECnet link to node   ...76 %WHO-I-NETTASK, activating...  (V)763 %WHO-I-NONODE, unable to reach target node or task76 Q[HQ[2JE76+Q[1mQ(0l8Mq9kQ(BQ[0mG Q[1mQ(0xQ(BQ[0m,Term Process Name User Name Pri Q State EPID Image NameQ[1mQ(0xQ(BQ[0mG Q[1mQ(0m8Mq9jQ(BQ[0m76G. Term Process Name User Name Pri Q State EPID Image Name762 ---- ------------ --------- --- ---  ----- ---- ----------768 %WHO-F-NOPRIV, WHO not installed with proper privileges767 %WHO-F-SYIERR, WHO unable to obtain system information76 QA QAQ A(VA+Q A7QA=\AF 76 QA QQ[1mAQ Q[0mA0VA3Q A?QAE\AN 76G  9 A total of $  interactive    .76 %WHO-I-IDENT, WHO Q   on OpenVMS   GA Host CPU:  76+Q[4;WrQ[3;1HE76+Q[1;WrQ[Q;1H76 76W76 %WHO-I-REMIDENT, WHO Q   on OpenVMS   GA Host CPU:  76. %WHO-I-BADREMVER, remote WHO version mismatch76C %WHO-I-REMPRVERR, remote WHO not installed with proper privileges76G+Q[28CQ[7mPress RETURN to continue Q[0mE76H76+Q[AQ[KE76QQVVQVQ VX76QQVVQVQ V76QQQ VYY[[V[V" V763 %WHO-I-ILLUSER, VMS username incorrectly specified764 %WHO-I-ILLIMAG, VMS imagename incorrectly specified766 %WHO-I-BADFILE, Output pathname incorrectly specified765 %WHO-E-OPENERR, Unable to open specified output file76< %WHO-I-BADNODE, Remote Node name incorrect syntax or length76GA -No interactive users matching search criteria$ & .76\76\76GANo current interactive users( * .769 %WHO-F-BADOBJ, Object number must be in range of (0-255)76W76W76+QE76+Q(QE76Z76W76W7 =kG4kGkGkG(kG8kGHkGXkGhkGxkGkGkGkGkG0kGkG,kGkGkGkG(kG8kG#.6&V5"~G^^~޴ >(^0~8@H޵PXcGG "@B"="b="pc B="="="="="="="=" (="08=`"@H=X"PX=P"`h="px="="=x"=p"=h"="="@Zkb?$! 0B?&0s" 3P"1" 3G_'Z# "Se?$G(c# s! $3 B ?&(#, 1"03,"4L"8@ bG<GGGGG@Zk_&BG0""R"bb"G "G@Zk G0G" 8Fb= @'5 @8Q1"2XJSBQlâGB"XFzZ#F!xKG0JXF0D:4FlcB"H]GB4G@%PݵtGXݵ!`= TGhݵ"btGpGb"@"G@ZkG0D0@"G#D `B$ @ݰ"Dhb@"GGG@Zk#"& "BG! pB1Hxb^#_">&JGGGG (@ZkG H b$0"+&@ݰ&B(3(s""b"3!>HS"D6WJ#2AJ4@3 "VBGSG@]"GG@Zk0 ܴ G"0 $! B)0CB$ @ݰb"bD}@"4G@Zk0? B&<""0"@ݰ"D=@"HH="@"LTGb@ZkG0B%!@ bDݰ@"4G@Zk)@%Dݰ !¤? B@"HH=" bP<TGLݰ@ZkB@"@H="DݰTGHbLݰ@ZkB@"pBH="@tGDݰR"HLݰxb@ZkàPB% !@  bDݰ@"4G@Zk0@? @"BH="Dݰ$ Hݰ!b<TGL@ZkB@"pBH="@ݰtGDR"HݰLxb@Zk¤0B$!b @ݰD@"4G@Zk00DB C" @ݰb@"4GD=@Zk0C$U?$0DBUI bCP! D Ch0G3`Jh"2?J&SF0"@"D@"4G@Zk0D0 CB` @@"b4GDݰ@Zk?$00DB ! 5@@= b@"Dݰ4G@Zk?$B0D! @= Cb@ Dݰ@"4G@Zk0DB C%b !@@ Dݰ@"4G@ZkTG}¤0@""B?  @D=@"HH="bhB@4GPB"@Zk@B4GB"@ZkhB@4GB"@Zk@B4GB"@Zk! ,@0AG_&B"bGR"b"G"G@Zk GB4GGGXB"@Zkh_&h"hGR" ACb" EBbG"G@Zk 0_&h"R"`b"0,IP"B@"HݴG@V.v"RSJGJDBOB@v/G`J[vK`Gv?BhB+A4GXB"@Zk+AB4G0B"@Zk.GqKPJF>"B 0`A_B4GGGB"@ZkBP@91CG1@4Gy@B"@Zk@0@B91@1@4Gy@B"@ZkTG¤p @0@ @ 1@TT&T ?@]B0D T&0bx@.#JFFsFF`4GGbGܲG HC+XK`ET&b"_&"P|R"09#8b"8"X"0`G\B@=8K0B1fHPs"&JG G(G8b@ZkcGP]X]`}hp#k`#G~`^h^p~x޴cGG8=TGb$8 ¤B"H#Hc B@}" b1-JG B#"@H=GP"@Zk B"@B"H@}"8=GbGP=G@Zk4GBG8 "@}"XGP=Gb0b"H8"G@ZkGc`]h]p}xݤ#kG#~H^P^XcG0,G0H@C0BTG8B"GG@Zk@@#FB0BCtGG@B"G@Zk @8@#?DT(@8_&"8BG "@b8R"b"8""G@Zk4G""XB8]"`btG@ @8"@ZkcGH]P]X`#k0.Q 0J!F`#G~P^X^`~hpx޴cGG G#hBGXB"!FtG@Zk8 @B$0¤G 8Hb"@ݴGHPB"8}"GG@Zk ? !W%H@B"Hb HG@8PB"@"H}8}"GG@ZkG?$! "DD-G&DDG0IGE"GxqJeJD0DGP J&F FtGSF R&FGpJFTG7JFGِ K&G F4G;]KeGG` Ht HH&D'" _#$0IFG'J&F f2oJTF&FFGGG0JF &6GFGƶP`KfG`D $G#A ",HD@0`@@"3,wHA4H7D4< @GcP]X]`}hpxݤ#k0#G~h^p^x~޴>^~cG0G?%@#HB)!2DB3rBbtN!D J!fJrF#rB37aH4WbH2aHC5bHSsB2B3BSB!2@Hb#H4D5BNVfJtF$tBS@2H5HSB4WHssBB3BSB!2@#Hv&s"5D3`J4BNeJuF%uB2H4wH@SBBSsB2SB!2@0b#H5D4BNdJuF&uB8bR@P4HrRB2Bh!2@0GH="PGXB"`P}"GD}@ZkB TG P}X@="`="b"@GB"P}"G@ZkB P}<"X"`"bG<B"P}"G@Zk B8= P}"X"`=GbB"8ݰP}"G@ZkB P}H X"`"bGB"P}"G@ZkBGhB"tG@ZkG`H"tGä C=a@"DH"G=a@}l@GDH"tG?!}l@ i@" *E H"4GGc `"GTGB@Zk4G' G.GJ F`XF"B0@XB91 CGGxB"4G@Zk`BG@ZkGch]p]x}ݤ=]}#k4GOTS$MOVE4@OTS$MOVE4 lG SYS$GETSYIW4b# SYS$GETSYIW4 @ SYS$GETSYIW<!GDFOR$WRITE_SEQ_FMT<"b#DFOR$WRITE_SEQ_FMT<!@DFOR$WRITE_SEQ_FMT4-G DFOR$OPEN4.b# DFOR$OPEN4-@ DFOR$OPEN4/GD SYS$ASSIGN40(b# SYS$ASSIGN4/@@D SYS$ASSIGN,1dGSYS$QIO,2lb#SYS$QIO,1@SYS$QIO4 GP SYS$GETDVIW4 b# SYS$GETDVIW4 L@P SYS$GETDVIW4G CLI$PRESENT4 b# CLI$PRESE w`$WHO056.A[DAVIS.WHO.WHO056]AWHO056.OBJ;3J4"3NT4@ CLI$PRESENT4G CLI$GET_VALUE4b# CLI$GET_VALUE4@ CLI$GET_VALUE4G@ CLI$PRESENT4 ,b# CLI$PRESENT 4<@@ CLI$PRESENT4`G CLI$GET_VALUE4tb# CLI$GET_VALUE4@ CLI$GET_VALUE4G STR$UPCASE4b# STR$UPCASE4@ STR$UPCASE4GSTR$TRIM4b#STR$TRIM4@STR$TRIM4G CLI$PRESENT4 b# CLI$PRESENT4@ CLI$PRESENT40G` CLI$GET_VALUE4Lb# CLI$GET_VALUE4\@` CLI$GET_VALUE4hGSTR$TRIM4b#STR$TRIM4@STR$TRIM4G CLI$PRESENT4 b# CLI$PRESENT4@ CLI$PRESENT4G CLI$PRESENT4 b# CLI$PRESENT4@ CLI$PRESENT4 Gd CLI$PRESENT4  b# CLI$PRESENT4` @d CLI$PRESENT4p G CLI$PRESENT4  b# CLI$PRESENT4 @ CLI$PRESENT4 G CLI$PRESENT4  b# CLI$PRESENT4 @ CLI$PRESENT4 G CLI$PRESENT4  b# CLI$PRESENT4 @ CLI$PRESENT4 G4 CLI$PRESENT4  b# CLI$PRESENT40 @4 CLI$PRESENT4H G CLI$GET_VALUE4p b# CLI$GET_VALUE4| @ CLI$GET_VALUE4 G STR$UPCASE4 b# STR$UPCASE4 @ STR$UPCASE4 G OTS$STRCMP_LSSS4 @ OTS$STRCMP_LSSS4 G OTS$STRCMP_LEQS4 @ OTS$STRCMP_LEQS4 G$ OTS$STRCMP_LSSS4 @$ OTS$STRCMP_LSSS4, G< OTS$STRCMP_LEQS48 @< OTS$STRCMP_LEQS<!` G DFOR$WRITE_SEQ_FMT<"h b#DFOR$WRITE_SEQ_FMT<! @ DFOR$WRITE_SEQ_FMT4+ G OTS$INDEX4+ @ OTS$INDEX<! G DFOR$WRITE_SEQ_FMT<" b#DFOR$WRITE_SEQ_FMT<! @ DFOR$WRITE_SEQ_FMT<!( GH DFOR$WRITE_SEQ_FMT<"@ b#DFOR$WRITE_SEQ_FMT<!D @H DFOR$WRITE_SEQ_FMT4P G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G4 OTS$MOVEM40 @4 OTS$MOVEM 48 GD OTS$MOVEM4@ @D OTS$MOVEM4H GX OTS$MOVE4T @X OTS$MOVE4d G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 GOTS$MOVE4@OTS$MOVE4 G4 OTS$MOVEM40@4 OTS$MOVEM48GD OTS$MOVEM4@@D OTS$MOVEM4PGp OTS$MOVEM4l@p OTS$MOVEM4pG OTS$MOVEM4|@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4-G DFOR$OPEN4.b# DFOR$OPEN4-@ DFOR$OPEN<! GDDFOR$WRITE_SEQ_FMT<"(b#DFOR$WRITE_SEQ_FMT<!@@DDFOR$WRITE_SEQ_FMT<!`GDFOR$WRITE_SEQ_FMT<"tb#DFOR$WRITE_SEQ_FMT<!@DFOR$WRITE_SEQ_FMT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#G DFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@ DFOR$WRITE_SEQ_FMT_XMIT<#G8DFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<#4@8DFOR$WRITE_SEQ_FMT_XMIT<#8G\DFOR$WRITE_SEQ_FMT_XMIT<$@b#DFOR$WRITE_SEQ_FMT_XMIT<#X@\DFOR$WRITE_SEQ_FMT_XMIT<#`GDFOR$WRITE_SEQ_FMT_XMIT<$pb#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<# G@DFOR$WRITE_SEQ_FMT_XMIT<$(b#DFOR$WRITE_SEQ_FMT_XMIT<#<@@DFOR$WRITE_SEQ_FMT_XMIT<)@GtDFOR$READ_SEQ_FMT<*Pb#DFOR$READ_SEQ_FMT<)p@tDFOR$READ_SEQ_FMT <%|GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b# [DD$WHO056.A[DAVIS.WHO.WHO056]AWHO056.OBJ;3"DDFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%$GDDFOR$READ_SEQ_FMT_XMIT<&,b#DFOR$READ_SEQ_FMT_XMIT<%@@DDFOR$READ_SEQ_FMT_XMIT<%LGpDFOR$READ_SEQ_FMT_XMIT<&Xb#DFOR$READ_SEQ_FMT_XMIT<%l@pDFOR$READ_SEQ_FMT_XMIT<%tGDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<'GTDFOR$READ_INT_FMT<(0b#DFOR$READ_INT_FMT<'P@TDFOR$READ_INT_FMT<'XGDFOR$READ_INT_FMT<(xb#DFOR$READ_INT_FMT<'@DFOR$READ_INT_FMT<!GDFOR$WRITE_SEQ_FMT<"b#DFOR$WRITE_SEQ_FMT<!@DFOR$WRITE_SEQ_FMT<!G,DFOR$WRITE_SEQ_FMT<"b#DFOR$WRITE_SEQ_FMT<!(@,DFOR$WRITE_SEQ_FMT4-XG DFOR$OPEN4.`b# DFOR$OPEN4-@ DFOR$OPEN<!GDFOR$WRITE_SEQ_FMT<"b#DFOR$WRITE_SEQ_FMT<!@DFOR$WRITE_SEQ_FMT<)G@DFOR$READ_SEQ_FMT<*b#DFOR$READ_SEQ_FMT<)<@@DFOR$READ_SEQ_FMT<%DGpDFOR$READ_SEQ_FMT_XMIT<&Tb#DFOR$READ_SEQ_FMT_XMIT<%l@pDFOR$READ_SEQ_FMT_XMIT<%tGDFOR$READ_SEQ_FMT_XMIT<&|b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GHDFOR$READ_SEQ_FMT_XMIT<&,b#DFOR$READ_SEQ_FMT_XMIT<%D@HDFOR$READ_SEQ_FMT_XMIT<%LGpDFOR$READ_SEQ_FMT_XMIT<&Tb#DFOR$READ_SEQ_FMT_XMIT<%l@pDFOR$READ_SEQ_FMT_XMIT<%xGDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT <%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<%GDFOR$READ_SEQ_FMT_XMIT<&b#DFOR$READ_SEQ_FMT_XMIT<%@DFOR$READ_SEQ_FMT_XMIT<!GPDFOR$WRITE_SEQ_FMT<",b#DFOR$WRITE_SEQ_FMT<!L@PDFOR$WRITE_SEQ_FMT<#PGxDFOR$WRITE_SEQ_FMT_XMIT<$`b#DFOR$WRITE_SEQ_FMT_XMIT<#t@xDFOR$WRITE_SEQ_FMT_XMIT<#xGDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#G DFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@ DFOR$WRITE_SEQ_FMT_XMIT<#G4DFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<#0@4DFOR$WRITE_SEQ_FMT_XMIT<#8GXDFOR$WRITE_SEQ_FMT_XMIT<$@b#DFOR$WRITE_SEQ_FMT_XMIT<#T@XDFOR$WRITE_SEQ_FMT_XMIT<'`GDFOR$READ_INT_FMT<(xb#DFOR$READ_INT_FMT<'@DFOR$READ_INT_FMT<'GDFOR$READ_INT_FMT<(b#DFOR$READ_INT_FMT<'@DFOR$READ_INT_FMT<!PGDFOR$WRITE_SEQ_FMT<"\b#DFOR$WRITE_SEQ_FMT<!|@DFOR$WRITE_SEQ_FMT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#(GLDFOR$WRITE_SEQ_FMT_XMIT<$@b#DFOR$WRITE_SEQ_FMT_XMIT<#H@LDFOR$WRITE_SEQ_FMT_XMIT<!xGDFOR$WRITE_SEQ_FMT<"b#DFOR$WRITE_SEQ_FMT<!@DFOR$WRITE_SEQ_FMT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#G8DFOR$WRITE_SEQ_FMT_XMIT<$$b#DFOR$WRITE_SEQ_FMT_XMIT<#4@8DFOR$WRITE_SEQ_FMT_XMIT<#@GhDFOR$WRITE_SEQ_FMT_XMIT<$Xb#DFOR$WRITE_SEQ_FMT_XMIT<#d@hDFOR$WRITE_SEQ_FMT_XMIT<!GDFOR$WRITE_SEQ_FMT <"b#DFOR$WRITE_SEQ_FMT<!@DFOR$WRITE_SEQ_FMT4G SYS$GETJPIW4b# SYS$GETJPIW4@ SYS$GETJPIW4G SYS$GETJPIW4b# SYS$GETJPIW4@ SYS$GETJPIW<!PGxDFOR$WRITE_SEQ_FMT<"hb#DFOR$WRITE_SEQ_FMT<!t@xDFOR$WRITE_SEQ_FMT<#xGDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#G B)$WHO056.A[DAVIS.WHO.WHO056]AWHO056.OBJ;3sG"UDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#GDFOR$WRITE_SEQ_FMT_XMIT<$b#DFOR$WRITE_SEQ_FMT_XMIT<#@DFOR$WRITE_SEQ_FMT_XMIT<#G DFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<# @ DFOR$WRITE_SEQ_FMT_XMIT<# G@ DFOR$WRITE_SEQ_FMT_XMIT<$( b#DFOR$WRITE_SEQ_FMT_XMIT<#< @@ DFOR$WRITE_SEQ_FMT_XMIT<#H Gh DFOR$WRITE_SEQ_FMT_XMIT<$P b#DFOR$WRITE_SEQ_FMT_XMIT<#d @h DFOR$WRITE_SEQ_FMT_XMIT<#p G DFOR$WRITE_SEQ_FMT_XMIT<$x b#DFOR$WRITE_SEQ_FMT_XMIT<# @ DFOR$WRITE_SEQ_FMT_XMIT<# G DFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<# @ DFOR$WRITE_SEQ_FMT_XMIT<# G DFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<# @ DFOR$WRITE_SEQ_FMT_XMIT<# G !DFOR$WRITE_SEQ_FMT_XMIT<$ b#DFOR$WRITE_SEQ_FMT_XMIT<#!@ !DFOR$WRITE_SEQ_FMT_XMIT<#!G4!DFOR$WRITE_SEQ_FMT_XMIT<$ !b#DFOR$WRITE_SEQ_FMT_XMIT<#0!@4!DFOR$WRITE_SEQ_FMT_XMIT<#@!G\!DFOR$WRITE_SEQ_FMT_XMIT<$H!b#DFOR$WRITE_SEQ_FMT_XMIT<#X!@\!DFOR$WRITE_SEQ_FMT_XMIT<!!G"DFOR$WRITE_SEQ_FMT<""b#DFOR$WRITE_SEQ_FMT<! "@"DFOR$WRITE_SEQ_FMT<!"G<"DFOR$WRITE_SEQ_FMT<" "b#DFOR$WRITE_SEQ_FMT<!8"@<"DFOR$WRITE_SEQ_FMT<!"G"DFOR$WRITE_SEQ_FMT<""b#DFOR$WRITE_SEQ_FMT<!"@"DFOR$WRITE_SEQ_FMT<#"G"DFOR$WRITE_SEQ_FMT_XMIT<$"b#DFOR$WRITE_SEQ_FMT_XMIT<#"@"DFOR$WRITE_SEQ_FMT_XMIT<!"G#DFOR$WRITE_SEQ_FMT<""b#DFOR$WRITE_SEQ_FMT<!#@#DFOR$WRITE_SEQ_FMT<! #GP#DFOR$WRITE_SEQ_FMT<",#b#DFOR$WRITE_SEQ_FMT<!L#@P#DFOR$WRITE_SEQ_FMT<#`#G#DFOR$WRITE_SEQ_FMT_XMIT<$h#b#DFOR$WRITE_SEQ_FMT_XMIT<#|#@#DFOR$WRITE_SEQ_FMT_XMIT <##G#DFOR$WRITE_SEQ_FMT_XMIT<$#b#DFOR$WRITE_SEQ_FMT_XMIT<##@#DFOR$WRITE_SEQ_FMT_XMIT<##G#DFOR$WRITE_SEQ_FMT_XMIT<$#b#DFOR$WRITE_SEQ_FMT_XMIT<##@#DFOR$WRITE_SEQ_FMT_XMIT<##G$DFOR$WRITE_SEQ_FMT_XMIT<$#b#DFOR$WRITE_SEQ_FMT_XMIT<# $@$DFOR$WRITE_SEQ_FMT_XMIT<!@$Gt$DFOR$WRITE_SEQ_FMT<"`$b#DFOR$WRITE_SEQ_FMT<!p$@t$DFOR$WRITE_SEQ_FMT<#x$G$DFOR$WRITE_SEQ_FMT_XMIT<$$b#DFOR$WRITE_SEQ_FMT_XMIT<#$@$DFOR$WRITE_SEQ_FMT_XMIT<#$G$DFOR$WRITE_SEQ_FMT_XMIT<$$b#DFOR$WRITE_SEQ_FMT_XMIT<#$@$DFOR$WRITE_SEQ_FMT_XMIT4$G %OTS$STRCMP_LSSS4%@ %OTS$STRCMP_LSSS4%G$%OTS$STRCMP_LEQS4 %@$%OTS$STRCMP_LEQS4%G%OTS$STRCMP_LSSS4%@%OTS$STRCMP_LSSS4%G%OTS$STRCMP_LEQS4%@%OTS$STRCMP_LEQS4+%G% OTS$INDEX4+%@% OTS$INDEX4+%G& OTS$INDEX4+&@& OTS$INDEX4+ &G@& OTS$INDEX4+<&@@& OTS$INDEX4'G<'OTS$MOVE48'@<'OTS$MOVE4@'G\' OTS$MOVEM4X'@\' OTS$MOVEM4`'Gh'OTS$FILL4d'@h'OTS$FILL<)(G(DFOR$READ_SEQ_FMT<*(b#DFOR$READ_SEQ_FMT<)(@(DFOR$READ_SEQ_FMT<%(G(DFOR$READ_SEQ_FMT_XMIT<&(b#DFOR$READ_SEQ_FMT_XMIT<%(@(DFOR$READ_SEQ_FMT_XMIT<%)G,)DFOR$READ_SEQ_FMT_XMIT<&)b#DFOR$READ_SEQ_FMT_XMIT<%()@,)DFOR$READ_SEQ_FMT_XMIT<%8)G\)DFOR$READ_SEQ_FMT_XMIT<&@)b#DFOR$READ_SEQ_FMT_XMIT<%X)@\)DFOR$READ_SEQ_FMT_XMIT<%h)G)DFOR$READ_SEQ_FMT_XMIT<&p)b#DFOR$READ_SEQ_FMT_XMIT<%)@)DFOR$READ_SEQ_FMT_XMIT<%)G)DFOR$READ_SEQ_FMT_XMIT<&)b#DFOR$READ_SEQ_FMT_XMIT<%)@)DFOR$READ_SEQ_FMT_XMIT<%)G)DFOR$READ_SEQ_FMT_XMIT<&)b#DFOR$READ_SEQ_FMT_XMIT<%)@)DFOR$READ_SEQ_FMT_XMIT<%)G*DFOR$READ_SEQ_FMT_XMIT<&*b#DFOR$READ_SEQ_FMT_XMIT<%*@*DFOR$READ_SEQ_FMT_XMIT<%(*GL*DFOR$READ_SEQ_FMT_XMIT<&0*b#DFOR$READ_SEQ_FMT_XMIT<%H*@L*DFOR$READ_SEQ_FMT_XMIT<%X*G|*DFOR$READ_SEQ_FMT_XMIT<&`*b#DFOR$READ_SEQ_FMT_XMIT<%x*@|*DFOR$READ_SEQ_FMT_XMIT<%*G*DFOR$READ_SEQ_FMT_XMIT<&*b#DFOR$READ_SEQ_FMT_XMIT <%*@*DFOR$READ_SEQ_FMT_XMIT<%*G*DFOR$READ_SEQ_FMT_XMIT<&*b#DFOR$READ_SEQ_FMT_XMIT<%*@*DFOR$READ_SEQ_FMT_XMIT<%*G+DFOR$READ_SEQ_FMT_XMIT<&+b#DFOR$READ_SEQ_FMT_XMIT<%+@+DFOR$READ_SEQ_FMT_XMIT4`+Gt+ OTS$MOVEM4p+@t+ OTS$MOVEM4x+G+OTS$FILL4|+@+OTS$FILL4+G,STR$TRIM4+b#STR$TRIM4,@,STR$TRIM40,Gd,STR$MATCH_WILD4<,b#STR$MATCH_WILD4`,@d,STR$MATCH_WILD4,G,STR$TRIM4,b#STR$TRIM4,@,STR$TRIM4,G-STR$MATCH_WILD4,b#STR$MATCH_WILD4-@-STR$MATCH_WILD<!-G-DFOR$WRITE_SEQ_FMT<"-b#DFOR$WRITE_SEQ_FMT<!-@-DFOR$WRITE_SEQ_FMT<# [:$WHO056.A[DAVIS.WHO.WHO056]AWHO056.OBJ;3K"f-G.DFOR$WRITE_SEQ_FMT_XMIT<$-b#DFOR$WRITE_SEQ_FMT_XMIT<#-@.DFOR$WRITE_SEQ_FMT_XMIT<#.G(.DFOR$WRITE_SEQ_FMT_XMIT<$.b#DFOR$WRITE_SEQ_FMT_XMIT<#$.@(.DFOR$WRITE_SEQ_FMT_XMIT<#0.GP.DFOR$WRITE_SEQ_FMT_XMIT<$8.b#DFOR$WRITE_SEQ_FMT_XMIT<#L.@P.DFOR$WRITE_SEQ_FMT_XMIT<#P.Gt.DFOR$WRITE_SEQ_FMT_XMIT<$X.b#DFOR$WRITE_SEQ_FMT_XMIT<#p.@t.DFOR$WRITE_SEQ_FMT_XMIT<#x.G.DFOR$WRITE_SEQ_FMT_XMIT<$.b#DFOR$WRITE_SEQ_FMT_XMIT<#.@.DFOR$WRITE_SEQ_FMT_XMIT<#.G.DFOR$WRITE_SEQ_FMT_XMIT<$.b#DFOR$WRITE_SEQ_FMT_XMIT<#.@.DFOR$WRITE_SEQ_FMT_XMIT<#.G.DFOR$WRITE_SEQ_FMT_XMIT<$.b#DFOR$WRITE_SEQ_FMT_XMIT<#.@.DFOR$WRITE_SEQ_FMT_XMIT<#.G/DFOR$WRITE_SEQ_FMT_XMIT<$.b#DFOR$WRITE_SEQ_FMT_XMIT<#/@/DFOR$WRITE_SEQ_FMT_XMIT<#/G(/DFOR$WRITE_SEQ_FMT_XMIT<$/b#DFOR$WRITE_SEQ_FMT_XMIT<#$/@(/DFOR$WRITE_SEQ_FMT_XMIT<#0/GT/DFOR$WRITE_SEQ_FMT_XMIT<$8/b#DFOR$WRITE_SEQ_FMT_XMIT<#P/@T/DFOR$WRITE_SEQ_FMT_XMIT<#`/G/DFOR$WRITE_SEQ_FMT_XMIT<$h/b#DFOR$WRITE_SEQ_FMT_XMIT<#/@/DFOR$WRITE_SEQ_FMT_XMIT<00Gd0DFOR$WRITE_INT_FMT<P0b#DFOR$WRITE_INT_FMT<`0@d0DFOR$WRITE_INT_FMT<!P3G3DFOR$WRITE_SEQ_FMT<"h3b#DFOR$WRITE_SEQ_FMT<!3@3DFOR$WRITE_SEQ_FMT<#3G3DFOR$WRITE_SEQ_FMT_XMIT<$3b#DFOR$WRITE_SEQ_FMT_XMIT<#3@3DFOR$WRITE_SEQ_FMT_XMIT<#3G3DFOR$WRITE_SEQ_FMT_XMIT<$3b#DFOR$WRITE_SEQ_FMT_XMIT <#3@3DFOR$WRITE_SEQ_FMT_XMIT<#3G3DFOR$WRITE_SEQ_FMT_XMIT<$3b#DFOR$WRITE_SEQ_FMT_XMIT<#3@3DFOR$WRITE_SEQ_FMT_XMIT<!4G4DFOR$WRITE_SEQ_FMT<"4b#DFOR$WRITE_SEQ_FMT<!4@4DFOR$WRITE_SEQ_FMT<#4G4DFOR$WRITE_SEQ_FMT_XMIT<$4b#DFOR$WRITE_SEQ_FMT_XMIT<#4@4DFOR$WRITE_SEQ_FMT_XMIT<#4G 5DFOR$WRITE_SEQ_FMT_XMIT<$5b#DFOR$WRITE_SEQ_FMT_XMIT<#5@ 5DFOR$WRITE_SEQ_FMT_XMIT<#5G45DFOR$WRITE_SEQ_FMT_XMIT<$ 5b#DFOR$WRITE_SEQ_FMT_XMIT<#05@45DFOR$WRITE_SEQ_FMT_XMIT<#85G\5DFOR$WRITE_SEQ_FMT_XMIT<$H5b#DFOR$WRITE_SEQ_FMT_XMIT<#X5@\5DFOR$WRITE_SEQ_FMT_XMIT<#`5G5DFOR$WRITE_SEQ_FMT_XMIT<$p5b#DFOR$WRITE_SEQ_FMT_XMIT<#5@5DFOR$WRITE_SEQ_FMT_XMIT<#5G5DFOR$WRITE_SEQ_FMT_XMIT<$5b#DFOR$WRITE_SEQ_FMT_XMIT<#5@5DFOR$WRITE_SEQ_FMT_XMIT<#5G5DFOR$WRITE_SEQ_FMT_XMIT<$5b#DFOR$WRITE_SEQ_FMT_XMIT<#5@5DFOR$WRITE_SEQ_FMT_XMIT<!H6Gt6DFOR$WRITE_SEQ_FMT<"`6b#DFOR$WRITE_SEQ_FMT<!p6@t6DFOR$WRITE_SEQ_FMT<#6G6DFOR$WRITE_SEQ_FMT_XMIT<$6b#DFOR$WRITE_SEQ_FMT_XMIT<#6@6DFOR$WRITE_SEQ_FMT_XMIT<#6G6DFOR$WRITE_SEQ_FMT_XMIT<$6b#DFOR$WRITE_SEQ_FMT_XMIT<#6@6DFOR$WRITE_SEQ_FMT_XMIT<)6G7DFOR$READ_SEQ_FMT<*6b#DFOR$READ_SEQ_FMT<)6@7DFOR$READ_SEQ_FMT<!7G87DFOR$WRITE_SEQ_FMT<"7b#DFOR$WRITE_SEQ_FMT<!47@87DFOR$WRITE_SEQ_FMT<#@7G`7DFOR$WRITE_SEQ_FMT_XMIT<$H7b#DFOR$WRITE_SEQ_FMT_XMIT<#\7@`7DFOR$WRITE_SEQ_FMT_XMIT<!7G7DFOR$WRITE_SEQ_FMT<"7b#DFOR$WRITE_SEQ_FMT<!7@7DFOR$WRITE_SEQ_FMT<!7G7DFOR$WRITE_SEQ_FMT<"7b#DFOR$WRITE_SEQ_FMT<!7@7DFOR$WRITE_SEQ_FMT48G8OTS$MOVE48@8OTS$MOVE48G8OTS$FILL48@8OTS$FILL48G8OTS$STRCMP_LEQS48@8OTS$STRCMP_LEQS<!9G9DFOR$WRITE_SEQ_FMT<"9b#DFOR$WRITE_SEQ_FMT<!9@9DFOR$WRITE_SEQ_FMT<!:G<:DFOR$WRITE_SEQ_FMT<",:b#DFOR$WRITE_SEQ_FMT<!8:@<:DFOR$WRITE_SEQ_FMT<!:G:DFOR$WRITE_SEQ_FMT<":b#DFOR$WRITE_SEQ_FMT<!:@:DFOR$WRITE_SEQ_FMT<#:G ;DFOR$WRITE_SEQ_FMT_XMIT <$:b#DFOR$WRITE_SEQ_FMT_XMIT<#;@ ;DFOR$WRITE_SEQ_FMT_XMIT<# ;G@;DFOR$WRITE_SEQ_FMT_XMIT<$4;b#DFOR$WRITE_SEQ_FMT_XMIT<#<;@@;DFOR$WRITE_SEQ_FMT_XMIT<#X;Gt;DFOR$WRITE_SEQ_FMT_XMIT<$`;b#DFOR$WRITE_SEQ_FMT_XMIT<#p;@t;DFOR$WRITE_SEQ_FMT_XMIT<!;G;DFOR$WRITE_SEQ_FMT<";b#DFOR$WRITE_SEQ_FMT<!;@;DFOR$WRITE_SEQ_FMT<<G<<DFOR$WRITE_INT_FMT<<b#DFOR$WRITE_INT_FMT<8<@<<DFOR$WRITE_INT_FMT<!P<Gt<DFOR$WRITE_SEQ_FMT<"\<b#DFOR$WRITE_SEQ_FMT<!p<@t<DFOR$WRITE_SEQ_FMT<#x<G<DFOR$WRITE_SEQ_FMT_XMIT<$<b#DFOR$WRITE_SEQ_FMT_XMIT<#<@<DFOR$WRITE_SEQ_FMT_XMIT<#<G<DFOR$WRITE_SEQ_FMT_XMIT<$<b#DFOR$WRITE_SEQ_FMT_XMIT<#<@<DFOR$WRITE_SEQ_FMT_XMIT<#<G<DFOR$WRITE_SEQ_FMT_XMIT<$<b#DFOR$WRITE_SEQ_FMT_XMIT<#<@<DFOR$WRITE_SEQ_FMT_XMIT4<G= DFOR$CLOSE4=b# DFOR$CLOSE4=@= DFOR$CLOSE4<=G\= DFOR$CLOSE4D=b# DFOR$CLOSE4X=@\= DFOR$CLOSE4 \=Gp= DFOR$EXIT4 `=b# DFOR$EXIT4 l=@p= DFOR$EXIT AW$WHO056.A[DAVIS.WHO.WHO056]AWHO056.OBJ;38"w4 >Gx> SYS$GETDVIW4 h>b# SYS$GETDVIW4 t>@x> SYS$GETDVIW<H?Gp?DFOR$WRITE_INT_FMT<h?b#DFOR$WRITE_INT_FMT<l?@p?DFOR$WRITE_INT_FMT45?G?SYS$QIOW46?b#SYS$QIOW45?@?SYS$QIOW<P@G@DFOR$WRITE_INT_FMT<\@b#pDFOR$WRITE_INT_FMT<@@@DFOR$WRITE_INT_FMT<@G@DFOR$WRITE_INT_FMT<@b#pDFOR$WRITE_INT_FMT<@@@DFOR$WRITE_INT_FMT<!@GADFOR$WRITE_SEQ_FMT<"@b#pDFOR$WRITE_SEQ_FMT<!A@ADFOR$WRITE_SEQ_FMT43pAGAOTS$STRCMP_EQLP43A@AOTS$STRCMP_EQLP43AGAOTS$STRCMP_EQLP43A@AOTS$STRCMP_EQLP<!AGBDFOR$WRITE_SEQ_FMT<"Ab#(DFOR$WRITE_SEQ_FMT<!B@BDFOR$WRITE_SEQ_FMT<#(BGLBDFOR$WRITE_SEQ_FMT_XMIT<$0Bb#(DFOR$WRITE_SEQ_FMT_XMIT<#HB@LBDFOR$WRITE_SEQ_FMT_XMIT4BGBOTS$MOVE4B@BOTS$MOVE<BG(CDFOR$WRITE_INT_FMT<Cb#DFOR$WRITE_INT_FMT<$C@(CDFOR$WRITE_INT_FMT<4CGtCDFOR$WRITE_INT_FMT< ף0000 00:'%i00:00.008 OTS$MOVEM8OTS$FILL= = =0 =;=@  SYS$GETDVIW=TT(=Z0=A8= SUSP "H= MWAITPAGEX=CPU`=ALLh= SUSP0SUBPROCESS=.==PDCUR * sub * * BAT * FPG HIB HIBO 8 8 =COMO h;x;;;;(;;H;;;;= on node;=SYS$NET DFOR$EXIT SYS$GETSYIW=OUTPUT=] STR$UPCASE=/AXP  DFOR$CLOSE SYS$GETJPIW= REMOTE_NODESTR$MATCH_WILD=8OTS$STRCMP_LSSSSTR$TRIM CLI$GET_VALUE=(8OTS$STRCMP_LEQS=@ CLI$PRESENT= ` !DFOR$WRITE_SEQ_FMT= (#DFOR$WRITE_SEQ_FMT_XMIT=0`;=` 7 DFOR$HANDLER=;=8; %DFOR$READ_SEQ_FMT_XMIT=8=;=  'DFOR$READ_INT_FMT )DFOR$READ_SEQ_FMT= 8 OTS$INDEX= P- DFOR$OPEN=(8     = USERNAME= /VAX == (idle)IMAGENAME=~=( on remo(5 April 1992) / SYS$ASSIGN1SYS$QIO=te node ;;;8;(;;8;;H;;X;=(COM CEF who_output.dat=H?LEF COLPG* NET * * DET * * SUB * = VERSIONusers0= user NOSCROLL=LEFO =WHO"="::"=9 =PFW =0H8A;=` 7 DFOR$HANDLER=8OTS$STRCMP_EQLP=onh=offp=0`?;=| 7 DFOR$HANDLER= ==0P>;=p 7 DFOR$HANDLER=5SYS$QIOW@ @= =0P;=0@;=00;=0 ;=0;=0;=0;=0;=0;=0;=0;=0;=0;=0;=0p;=0`;=0P;=0@;=00;=0 ;=0;=0;G G= = O O=7/ WHO$SERVER WHO$SERVER 0 M V$WHO056.A[DAVIS.WHO.WHO056]WHO056.HLP;1P 3*[DAVIS.WHO.WHO056]WHO056.HLP;1+,. /$ 4P -0123KPWO 5'6]ҕ7 R݇89G$HJ1 WHOI OpenVMS WHO is a utility to display information about interactive and Hsystem processes. When invoked, WHO provides the following information:F Terminal Id Process Name Base Priority Username F UIC CPU Time Process State CPU numberG EPID Image Name Login count DECnet Node2 WHO version OpenVMS version CPU Type 9 Format: WHO [Command_Qualifier(s)] [Remote_node] 2 Command_Qualifiers/VERSIONM Display the current OpenVMS version and WHO version with date. No process L information is returned. The "/VERSION" qualifier has precedence over all  other switches.$ Format: WHO /VERSION [Remote_node]E The current OpenVMS version will be shown in the display for "local" and "remote" systems./PAGEH WHO will break the output on the screen at appropriate page lengths asH defined in the terminal characteristics. This action is similar to the7 OpenVMS utility TYPE with the /PAGE option specified.! Format: WHO /PAGE [Remote_node] /NOSCROLLM This qualifier instructs WHO not to create a scrolling window on ANSI videoN terminals. The WHO display data will be printed on the screen in a standardN roll-up fashion. In addition, the terminal screen will not be cleared before the display begins. & Format: WHO /NOSCROLL [Remote_node] /SUBH When specified, the /SUB qualifier instructs WHO to display the activeD sub-processes in addition to the default interactive user display.L Sub-processes will be denoted by "* sub *" replacing the terminal-id field in the display.& Format: WHO /SUB [Remote_node]/ALLN The /ALL qualifier instructs WHO to display information on all the processes in the system.F Detached non-interactive processes will be denoted in the display byK "* det *" replacing the terminal-id field. Sub-processes will be denotedJ by "* sub *" in the terminal-id field. This display provides information2 similar to that produced by OpenVMS SHOW SYSTEM.& Format: WHO /ALL [Remote_node] /CPUI The /CPU qualifier commands WHO to display the process elapsed CPU timeI in place of the UIC field. The format of the CPU time field is the sameK as used by the OpenVMS SHOW SYSTEM command with the exception that in the+ WHO display the field is zero suppressed.' Format: WHO /CPU [Remote_node]  /USERN The /USER qualifier allows a WHO user to selectively request certain OpenVMSP usernames in the output display. An example of this would be using WHO to findL out if a specific user was logged into a remote node. The standard OpenVMSL pattern matching criteria will be used. This switch is not case sensitive.2 Format: WHO /USER=DAVIS (display username DAVIS)3 WHO /USER=D* (display usernames beginning with D)= WHO /USER=D%%%% (display 5 char usernames beginning with D)7 WHO /USER=*D* (displays those usernames containing D); WHO /USER=* (displays all usernames: default WHO display)K The /USER qualifier may be used in combination with a DECnet node name orO the /ALL, /SUB and /IMAGE switches. Please note that it's possible to specifyL a search for mutually exclusive qualifiers. In these cases WHO will return@ a message indicating that your request could not be satisfied./IMAGEN The /IMAGE qualifier allows WHO users to selectively request certain OpenVMSN imagenames in the WHO display. An example of this would be using WHO to findJ out if a specific user running a specific utility. The standard OpenVMS K pattern matching criteria will be followed. The /IMAGE qualifier is case sensitive.@ Format: WHO /IMAGE=A1 (display users running ALL-IN-ONE)3 WHO /IMAGE="(idle)" (display users that are idle)8 WHO /IMAGE="*$*" (display user images containing $)6 WHO /IMAGE=%%%%%% (display all 6 character images)< WHO /IMAGE=* (display all images: default WHO display)L Please note that it is possible to specify a search for mutually exclusiveK qualifiers. In these cases WHO will return a message indicating that yourI request could not be satisfied. Note: If you wish to specify a matchingJ pattern in lowercase, the pattern must be enclosed in double-quotes "x"./OUTPUTM The default output device for the WHO display is always the users terminal.K If you wish to obtain a hardcopy listing of the WHO display the "/OUTPUT"I qualifier may be specified to direct the WHO output to a file. When the@ "/OUTPUT" is specified there will be no interactive display. Format:; WHO /OUTPUT=FILE.TXT [Remote_node] ! output to "FILE.TXT"< WHO /OUTPUT [Remote_node] ! output to default filespecM WHO will write a "hardcopy" version of the display into the specified inputL file. You may specify any valid OpenVMS pathname for the output file spec.J The default file name "WHO_OUTPUT.DAT" will be used if the user does not3 specify a filename with the "/OUTPUT" qualifier. 2 Remote_nodeD WHO may be used to obtain information about a remote OpenVMS node.1 Format: WHO [Command_qualifier] [Remote_node] K In the above example WHO would connect to the specified remote system andK then display the remote process information on your terminal. Please noteL that the use of remote WHO requires DECnet software. WHO must be installed( on the remote system for this feature. _f$WHO056.A [DAVIS.WHO.WHO056]WHO056.CLD;3>W*[DAVIS.WHO.WHO056]WHO056.CLD;3+, ./$ 4>-0123KPWO56vzȗ7R݇89G$HJMODULE WHO_TABLEIDENT "WHO V5.6 05 April 1994"DEFINE VERB WHO& IMAGE "SYS$COMMON:[SYSEXE]WHO056.EXE" PARAMETER P1, LABEL=REMOTE_NODE QUALIFIER VERSION,  NONNEGATABLE  QUALIFIER SUBPROCESS,  NONNEGATABLE ! QUALIFIER OBJECT,! VALUE(REQUIRED,TYPE=$NUMBER)! NONNEGATABLE QUALIFIER CPU, NONNEGATABLE QUALIFIER ALL,  NONNEGATABLE  QUALIFIER NOSCROLL, NONNEGATABLE  QUALIFIER PAGE,  NONNEGATABLE  QUALIFIER IMAGENAME,  VALUE(REQUIRED) NONNEGATABLE QUALIFIER OUTPUT,, VALUE(TYPE=$FILE,DEFAULT="WHO_OUTPUT.DAT") NONNEGATABLE  QUALIFIER USERNAME, VALUE(REQUIRED)  NONNEGATABLE '! DISALLOW OBJECT AND (NOT REMOTE_NODE)! DISALLOW CPU AND REMOTE_NODE DISALLOW PAGE AND OUTPUT DISALLOW PAGE AND NOSCROLL DISALLOW OUTPUT AND NOSCROLL DISALLOW ALL AND SUBPROCESS DISALLOW VERSION AND > (SUBPROCESS OR ALL OR PAGE OR IMAGENAME OR USERNAME) ! invoke installation A WHO may optionally be installed across the E-net from your node. Login as SYSTEM ... then:4 $@sys$update:vmsinstal who056 DIVING""::sys$public:3 (If your node is far away, don't do it this way!)Installation notes:I1) The WHO V5.6 kit will install on either VAX or ALPHA platforms. I haveLincluded objects for both CPU types. Since OpenVMS/AXP T6.1-FT4 is still in Ifield test, things are still in flux. This kit will correctly install on KT6.1-FT4 which is all I had to test with. You may find bugs in the install Lprocedure. I reasoned that having access to a WHO kit NOW was better than 3 @months of regression testing on all the possible configurations.K2) WHO is written in FORTRAN. Your ALPHA system may not have the DEC$FORRTLOshareable image library installed. If NOT the WHO IVP will fail and the productFwill not work. You must manually install the FORTRAN run time library.7I suggest that you edit VMSIMAGES.DAT and add the line:) sys$share:dec$forrtl /open/header/sharedE after the line for the "C" run-time library. I can only assume that Momission will be fixed in a later resease of ALPHA/VMS.This problem does not occur on VAX/VMS based systems. F3) WHO V5.6 requires WORLD priviliges. This is required by sys$getjpi.JWHO does NOT allow remote users to gain access to your system at elevated -access and is therefor NOT a security "hole".I4) WHO V5.6 is a new baselevel of the code and will not interoperate withVversions of WHO prior to WHO V5.5. If you have older versions of WHO installed on yourIsystem(s) please upgrade to this kit. Also Note that WHO V5.6 requires at/least OpenVMS/VAX V6.0 or OpenVMS/AXP T6.1-FT4.D5) When using the WHO /ALL command with V5.x of WHO the Null processMwill have the "state" field blanked out. On VMS V4.x systems the Null processMwas always in "COM" state. On OpenVMS V5.x systems the Null process is alwaysJmarked as "CUR". You will note that the "SHO SYS" command on VMS V5.x doesLnot show the Null process at all. In order to avoid user confusion, WHO V5.x!will blank out the Null process. D6) On Multi-processors (3520/40,8350,6000,7000,8800,9000,10000) the Lprocessor number of each current process will be displayed. The STATE field Gwill show "CUR x" where "x" is the cpu number (in hex) that process is Kexecuting on. This is similar to the display produced by the "SHOW SYSTEM" Jcommand. Due to the time required for WHO to display the process list, on Msystems with a large number of processes, it may be possible for more than 1 Jprocess to "appear" scheduled on an individual processor. This is a normalFoccurence as WHO does not BLOCK the system to obtain a single coherentIsnapshot of the process list. The CPU numbers are listed as installed andIwill appear differently on some VAX processors. Note that the numbers areONOT usually linear (ie.. 1,2,3). If you do not have a multiprocessor, you haveNstopped CPU's using STOP/CPU or if the SYSGEN parameter MULTIPROCESSING is set,to "0" the cpu number will not be displayed.C7) Th WHO installation procedure requires that the sysgen parameterJSCSSYSTEMID be set to your DECnet node address. Also the SCSNODE parameterEmust be set to the DECnet node name. Please insure that these sysgen Mparameters are set properly before beginning the WHO installation. Take note Mthat all the system queues (batch & print) MUST be empty when the SCSSYSTEMID<parameter is changed or the system will hang during re-boot.D To determine the required value of the SCSSYSTEMID parameter if not*already set -- use the following formula:3 new_scssystemid = (area_number*1024) + node_numberD If your DECnet node address is 36.155 the new SCSSYSTEMID would be:" scssystemid = (36 * 1024) + 155 / scssystemid = 37019 ! new scssystemid value A +--------------------------------------------------------------+; | *** Note: |; | You must manually delete each entry in every queue |; | on your system if you are changing either SCSNODE or |; | SCSSYSTEMID. Your system will hang on re-boot if you |; | fail to do this!!!! |A +--------------------------------------------------------------+A Issue the following commands to change the parameters if needed: $run sys$system:sysgen sysgen> use current1 sysgen> sho scsnode ! verify current setting < system> set scsnode "NODE" ! set to your DECnet node name.3 sysgen> sho scssystemid ! verify current setting4 sysgen> set scssystemid xxxxx ! set to new value sysgen> write current sysgen> exit/ $! ( delete all queue entries here if needed )5 $@sys$system:shutdown.com ! system must be rebootedE8) The installation procedure makes WHO a known file (installed) onlyNuntil the system is rebooted. WHO must be installed as a known image at systemFstartup. Please edit SYS$MANAGER:SYSTARTUP_V5.COM to include the line: @SYS$SYARTUP:WHO$STARTUP.COMD9) The WHO installation procedure will remove all files from the VMSHknown file list that are named: "SYS$COMMON:[SYSEXE]WHO*.EXE". ANY FILESGTHAT MEET THE ABOVE CRITERIA WILL BE DELETED FROM THE KNOWN FILE LIST!!LThe files will NOT be deleted from your system. They will just be removed orFun "installed" from the known file list maintained by the "MC INSTALL" utility. F10) The WHO IVP can only verify correct operation of WHO on your localMsystem. However, WHO access to your node via DECnet will be tested within theMIVP. If you are installing WHO onto a cluster or onto adjacent network nodes 9please test the network functions by issuing the command: $WHO  F If you only have a single node, you may test the network functions bytesting WHO with my node:$WHO /ver DIVING>%WHO-I-CRENETLINK, establishing DECnet link to node DIVING ...<%WHO-I-REMIDENT, WHO V5.6 (5 April 1994) on OpenVMS/VAX V6.0. Host CPU: VAXstation 4000-M90@ ( above shows what you should see as a return message )H11) WHO will not recognize cluster alias names, therefore you must use a>"physical" node name when refering to cluster nodes using WHO. F12) If installing WHO to a mixed architecture cluster (ie. VAX and AXPMsystFRm$WHO056.A(([DAVIS.WHO.WHO056]WHO056.RELEASE_NOTES;3Vems mixed) please be aware that the installation procedure builds the WHOMexecutable as WHO05x.EXE in SYS$SYSTEM on both CPU types. The WHO ".EXE" fileNbuilt on a VAX will not run on the ALPHA and vise-versa. Please take note thatPyou must build the WHO kit on both processor types and that you should thereforePNOT place the WHO executable in the cluster common sys$common:[sysexe] directory?on a mixed architecture cluster. System managers take note!!!!!F13) The installation procedure will NOT work correctly on system with PDECnet Phase V (OSI) installed. The actual executable should still work, but youKwill have to do the installation manually. I suggest that you print out andMread the kitinstal.com file included in the kit for the steps necessary for aproper installation.N------------------------------------------------------------------------------Release Notes:%Version Release Date ChangesN--------+-------------------+-------------------------------------------------2 V2.7 08 September 1986 initial kit released: V2.9 16 October 1986 modified version match algorithm+ addition of DECnet object number access; V3.0 20 October 1986 fix bugs in username/image searchM make new V3.0 easynet kit & install procedure= V3.1 27 October 1986 allow 5 char UIC group & member #'s& New features added to help library baseline new version !!!. Note: WHO V3.1 incompatible with previous  releases of WHO... (sorry)/ V3.2 14 November 1986 internal test version6 V3.3 12 December 1986 add hardcopy terminal support add base priority in display baseline new version !!!. Note: WHO V3.3 incompatible with previous  releases of WHO... (sorry)E V3.4 23 December 1986 add control-y-c-o handlers to restore screen2 fix installation procedure for correct install on LAVC clusters0 make a new network kit, compatible with V3.3K V3.5 19 May 1987 use leading zero suppression on UIC display+ compatible with both V3.4 & V3.3 of WHOJ V3.6 06 October 1987 Changed DECnet access so that object TASK 5 is no longer required. This should fix WHO0 for compliance with SECURPACK restrictions. 0 This version is compatible with V3.3,3.4,3.5: VMSINSTAL kit released. B V3.7 08 October 1987 Added the /PAGE option like VAX/VMS TYPE/ Use defined terminal page size for displays4 so that scrolling works correctly on VAXstations* with non standard window page lengths.E V3.8 14 January 1987 Fix intermittent bug in kitinstal.com No code changesK V4.0 20 April 1988 change the /ID switch to /VERSION and added1 the /OUTPUT command. Modified AST routines...@ V4.1 02 June 1988 fixed non-existant directory error on open! of lun 3, last VMS V4 releaseB V5.0 27 July 1988 removed brackets around UIC's, changed IPID2 to process state, now use DCL command parsing,- add multiprocessing support, VMS pattern , matching for username and image strings.) WHO V5.0 requires VMS version 5 !!!!!> V5.1 10 October 1988 Added "/CPU" qualifier. See help file! New Baseline released...A V5.3 13 August 1991 Fixed bug in "/CPU" option; tested on X5.5B V5.4 19 November 1991 CMKRNL privilige no longer needed for the, support of VAX multiprocessors. Requires at least VMS V5.4 or above.A V5.5 7 July 1992 ALPHA Support. This WHO kit is functionally3 the same as WHO V5.4 but will correctly install% on either VAX or ALPHA cpu types.- The network password has been changed to:2 WHO$SERVER. Multi-processing on ALPHA has not 1 been tested, this release might not work, but2 it won't crash you system. New Baselevel made.G V5.6 5 April 1994 Tested on OpenVMS/VAX V6.0; OpenVMS/AXP T6.1-FT49 5 December 1994 OpenVMS/AXP changed to OpenVMS Alpha.M-----------------------------------------------------------------------------9Known problems/bug reports as of current version (V5.6): "Version Date reported/by StatusM-----------------------------------------------------------------------------@4.0 01 June 1988 Fixed in V4.1 (something always slips by!) 50283::SONNENTAG B When WHO fails to translate "SYS$NET" it aborts with an errorEof Open failure on unit 3 file FOR003. This happens when your defaultOdirectory is set to rooted searchlisted directories. Workaround: Don't do that!FThis error can be artifically created by defining SYS$NET to anything.KOther people have reported that this quirk doesn't appear when running V4.xof WHO on VMS V5.0.'V5.1 10 August 1991 Fixed in V5.3  Paul Gallo= When using the WHO/CPU option on processes that have been Lactive for MORE that 99 hours. WHO will display an error on the screen whereIit would have printed the value. WHO V5.3 will truncate the CPUtime field?appropriately and can accomodate uptimes as large as 9999 days.KWHO V5.3 is compatible with the V5.1 release but not the previous releases.V5.2 Kit never released... V5.3 None reported...V5.4 None reported... V5.5 New kit V5.6 New kitM-----------------------------------------------------------------------------End of release notes. C%$WHO056.A"%[DAVIS.WHO.WHO056]WHO_SENDMAIL.COM;10L%*[DAVIS.WHO.WHO056]WHO_SENDMAIL.COM;10+,"./$ 4LP-0123KPWO56Msه7TS݇89G$HJ $!#$! send notice to WHO developer... $!$who_version==p1 $NMAIL==2 $say = "write sys$output"$!=$node_name==f$edit(f$logical("sys$node") - "_" - "::","trim")!$node_length==f$length(node_name)E$scsnode==f$edit(f$extract(0,node_length,f$getsyi("scsnode")),"trim")%$scssystemid==f$getsyi("scssystemid"),$vmsver = f$edit(f$getsyi("version"),"trim")"$arch_type = f$getsyi("ARCH_TYPE")$hw_name = f$getsyi("HW_NAME")$!$if (arch_type .eq. 1)$then$ arch_name = " VAX"$else$ arch_name = " Alpha"$endif$! $jpi_ctx = ""$look:$ pid = f$pid(jpi_ctx)#$ if pid .eqs."" then goto nmail_no!$ prcnam = f$getjpi(pid,"PRCNAM").$ if prcnam .eqs. "NMAIL" then goto nmail_yes $ goto look $nmail_yes: $NM=="NM%"$goto done_nmail $nmail_no:$NM=="" $done_nmail:$!$! get system and user data$!"$username==f$getjpi("","USERNAME")"$area_number == scssystemid / 10242$node_number == scssystemid - (area_number * 1024)D$node_address == f$string(area_number) + "." + f$string(node_number)$!%$weekday=f$cvtime("TODAY",,"WEEKDAY")$tim_string=f$time()!$date = f$extract(0,2,tim_string)"$month = f$extract(3,3,tim_string)0$if month .eqs. "JAN" then month_str = "January"1$if month .eqs. "FEB" then month_str = "February".$if month .eqs. "MAR" then month_str = "March".$if month .eqs. "APR" then month_str = "April",$if month .eqs. "MAY" then month_str = "May"-$if month .eqs. "JUN" then month_str = "June"-$if month .eqs. "JUL" then month_str = "July"/$if month .eqs. "AUG" then month_str = "August"2$if month .eqs. "SEP" then month_str = "September"0$if month .eqs. "OCT" then month_str = "October"1$if month .eqs. "NOV" then month_str = "November"1$if month .eqs. "DEC" then month_str = "December"!$year = f$extract(7,4,tim_string)%$hour = f$integer(f$cvtime(,,"HOUR"))$if (hour .ge. 13) then goto pm$am: meridian = "AM"$ goto time_ok$pm: hour = hour - 12$ meridian = "PM"#$time_ok: hour_str = f$string(hour)$min = f$cvtime(,,"MINUTE")$time = hour_str + ":" + min4$date_string = month_str + " " + date + ", " + year L$out_string = weekday + " - " + date_string + " at " + time + " " + meridian$!$nmail_msg = ""0$if NM .eqs. "NM%" then nmail_msg = " via NMAIL"$say ""C$say " Sending installation notice to WHO developer''nmail_msg'..."$say ""'$open/write output vmi$kwd:who_mail.txt($write output "WHO Installation report:"$write output "",$write output " WHO Version: ''who_version'":$write output " OS Version: OpenVMS''arch_name' ''vmsver'"%$write output " CPU type: ''hw_name'"8$write output " On Node: ''node_name' (''node_address')"&$write output " Username: ''username'"%$write output " When: ''out_string'" $close output$!4$mail/noself vmi$kwd:who_mail.txt 'nm'37538::davis -./subj="WHO ''who_version' installation report"$!delete vmi$kwd:who_mail.txt;*$!$WHO056.A$[DAVIS.WHO.WHO056]GET_ADDRESS.COM;13:Kb$*[DAVIS.WHO.WHO056]GET_ADDRESS.COM;13+,./$ 4:<-0123KPWO5Q6Ք7 S݇89G$HJ $NCP = "$NCP"$say = "write sys$output" $set noon'$define/user sys$output vmi$kwd:ncp.tmp$define/user sys$error nla0:$ncp list node 'p1'$set on0$open /read /error=who_no_net f3 vmi$kwd:ncp.tmp$rloop:$read /end=who_no_net f3 line:$if f$locate("=",line) .eq. f$length(line) then goto rloop$a1 = f$locate("=",line) + 2$a2 = f$locate("(",line) - 1 $a3 = (a2-a1)"$n_address = f$extract(a1,a3,line)$close/nolog f3$delete vmi$kwd:ncp.tmp;*'$@vmi$kwd:node_num 'n_address' SUPPRESS $goto done $who_no_net:$node_answer == "000000"$done:{v$WHO056.A%![DAVIS.WHO.WHO056]NODE_NUM.COM;18m'!*[DAVIS.WHO.WHO056]NODE_NUM.COM;18+,%./$ 4m~-0123KPWO5^6NHӔ7{S݇89G$HJP$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!P$! !K$! Command procedure to convert DECnet addresses to their !K$! internal format and back again. !P$! !m$! Written by: Stephen N. Davis !P$! !P$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$!$$! get node address/number from user$!$if p1 .eqs. "" $then 1$ inquire node "Node Address "$else$ node = "''p1'"$endif$!($! determine the proper converion format$!$len = f$length(node)$dot = f$locate(".",node)"$if dot .eq. len then goto int2ext$!3$! external to internal conversion$! $ext2int:$!$$! break up parts of the node string$!$a = f$extract(0,dot,node)($b = f$extract(dot+1,(len-(dot+1)),node)$!$! convert to integer$!$i1 = f$integer(a)$i2 = f$integer(b)$!#$! compute internal network address$!$address = (i1*1024)+i2$! $! report it$!$node_answer == "''address'"$if p2 .nes. "SUPPRESS"$then6$write sys$output "DECnet internal address = ",address$endif$!$! finished, exit...$! $goto done$!3$! internal to external conversion$! $int2ext:$!#$! compute external network address$!$i3 = f$integer(node)$i1 = i3 / 1024$i4 = i1 * 1024 $i2 = i3 - i4$!$! report result$!$caddress = "''i1.''i2'"$node_answer == "''caddress'"$if p2 .nes. "SUPPRESS"$then8$write sys$output "DECnet network address = ''caddress'"$endif$!$! finished, exit...$!$done:8L ![DAVIS.WHO.WHO056]C\CC3)=?%)\Y*5 v 0>I 2{3R3V1)K@l%-FX\z6G]Ga <]'U.A =.N2l:j= D(9V7ucI 45cqYsȠ& ]]P2neRKYiR<۷d^5&?9c5dGimtv2b.0#jWWwP7Ƚ<~ՏvY#ڼs`25m7PyHZM]d`cfh[6>ZҋOPI1Xu(Mܦ\sqtYe5<@/Wmj~Z0-V@DG0]^}jG}g""U1- %Y㖵 Vw(K9u7ݗڎ>Q~TnN̒*q+61b_# R2o:.'޵2S>N ul7lt,թIS >a9ۂ3n{M Kr9^ d7B^2Ue(6*`FKK{!ZA};p@(yRabݷSb 0B=1NƄ\D6wUr:.6 yE'8=d ~ΛMhFxYy{M$ tlcR8+,)}1h|OS^4.>2YmM7E{ӑ \[8%HS,E-~2+668CU4?W{ fOVEw{0k *BbAA֭Pt᫖zήwRZ쐘!zz_~5:t/W)(oV%o!As9_u9c^oGxr LI9st=Tڜ`T {3NuگiIf̄֙-bw yb3A"sť@~Qv"v!dz\&+iPE[ZTGKj#瞾aClnŧ7dϼ,ͦR]7m.}\hr }' _ALEUu&<ʌ(")oA`+IzG*=s3*D>nq)m|H]pM80)5:RW&Bp9k!Ii퍩qo\hc@['-h (Zg4D7:|Z+떜-Gɤ!o=)xl9*n;z<M,K!D PeH fd"4>?_9O{,0%uSukAo:] mAP] 9kp2$/zVhÚ}/dD-I|[~7Nghz5iU Nͨ]d"J#ޯWדvdd]&O@ZN Bm㼕6hHk[BtS_< ᨍ{Lu| ϋzUnևhP,TB]ad[wЄnE,~@1N@1r!!3RzH=tw{s 3<4 uV3_B(<J0J x- 5;X1Ae6J_Ơc |-gXTL϶tPQ}+7qo^Yy\hg]%|B^yRdı:~9-=^A=E K Eֲl"ŭIO{M‘(22Jn:D`Z* IQ(-eՋۣ=P:m=pCǀfV2C@2h 5d&|_A8kUQdڣD G746I)~K䙔Lq"/ ˀ^i;Fdyw4Wgċd ؏y{X{sf=e_xh 2H͗ya*%N``nGRJ_+M?>̛YitjvL"& -9gjڴl6` ",-"r@=HLZiWVz Y]y)~"kΐMƌ;kCW?KaU쎲HUGʔX)rS IbAڦ{}xθ>0a1~`a, !VHy ?=E>_9T.c#2Wl(dT-#y山u:#c_Փ ha6S{4Lg>`ُRAzORdN?tS>U찿(kҽʜ gz@FʖW VNsgzS*V䭣pˎ΃EYȌ$t?p ~a,kG6xL4k mN(;c(K4gͨ e/c @T+{FPaUR*8iE%}fp&:He2;6k[h"qUXnn(w5B%W٭H3F*F%dBLi | Rii% 49ak.J^_//׸Nyn-& q7=[^y.wbTe(NYq?T˴>+B_Man30vnЊx"Rx"%z+@|B08Z^]D~?tm58b9DM -tddvD2cً3zn\I{cO:_x[݅l!R`FS9`#͵y\;n^6TK.C_Z[.dѢ[wS7"#U`D;2)zJM8@RÎrtqxr8 [m'ϸ3E#?,YEN[QgL$JJjP04+o?U{Ago1U=/uTIxNxDuH'YϞKqSQ tCLo(21f`%qөwAX#ybWESrM2Q#mo:cN7>}DP'O_GC6h2ŦDYo!x1mWn4ns4Xyb{͞ ];?35Jy<զ=j+jI;cNyyt%]]*vN?쿸&Ӭ@R4kx0=Zu51l^ @d(ET4p]-e@g笰0aTRk#p> @.7gy\aWSUs1LHoۘwE?ZS0ײ³cN|qM~ lH-P纆ȩH9lQaeiCE `CZdy&HQLis$E4Nkif?! fgqwp}{b1(+O;Y][.9oC*HeRsŠJ1Q4&fHs!='qMB`}-\s~o*Lݮz[}WE-Awefeq^bł`ƴ3|wJiLFI0Dg:V:mX1s$ soyշ.|+g9OYfG oa͛k0HԒ߯]M؞Ќx/#`BXF:&iVkZN- &s"LOYKF3rYei@:.'ZJĸx"/243qCGsI$LM$UbNS06Bpyw,zgM>y"w:3pV9$ >cˑXNE-qP׳ox0]֔vWu+Y`7>l"o>݀Ɂb9ݛh2}A 4^8NTWg56<3X܊"P"2_rvjg=!%x.%wBDB\$F>Mq;[>t!C3]HH^ x25" }X^yZ 6&5+6pQj?;R9N`UH&ObV ved(8D5zţ8lJhg]iC}z- Z| ZV.r`A VBJ|Ы\.٦18*^싘{cF\aK]zc;O'?@M²^V Вo x$"ow,N1h&`'0_0i]Bډ M;2H rfGGKgKJ(>~-ʦLO IcfOq+|'MwLO'mQ:SLh\͢ѡTBLnDif} +Ӈ…fƨRNKLMFofij>=:s!]Ҟ*Ϡ@+ZgsuR}7?}~ JFEsʇ߅Q`*?_rn86rm`:iOfhg ͎z%IB,{4 XQNT8rߚυyYC9 u,3]᠁}sk^Mv0ݺUum=,:Ǚ%Ȍ `7"G- +YbՕxԟ0R#g 2-7ׄ)ch0݀('tb$]'|x/a%VS g/H-m&cVV=6,=_ɖ M \Qlr?SWHꒀ]Q/Ƈ~vG4xzҺM99z$PAh9g(qSjdeP%~>8puYA(!LA!$?ypd>腡E`R\0ϭXi hZu`C{r~^kXL@\Fzƌ бEr.!#ř}L,`q՞qCcu:%u/X"R ;ď %kDx_'9>mv,C}$y ;CʌT[p": ?K5˓ޑEU13MNLW:[pϓU6|4k;Q{?0w+$1bfmj'izA}٧$Ud7G p13X/ #(37O*DoےP*WkmީZ;4bUIUlMIg/Op%?̜".RzaSpKQN9@[$R$ ħ V|yX~uPc-'ܘAQ\Jµ>t|RАH hoׯ=JQ9k_% BE+8bXzo Cu• }`^E YM,q|*EkX3|Lӏ`“s[&s趣#HWc. .s}"(d.OW&qzNeSsq%\4v6T{#Qؐ$gD)ܜ<7a L7w Wo(e]֩F `Idz[弰 qn\H]FF#ꛚDxvC!٧~4 W6; ZB\Ȫ@Pzݳm[$(6eބ\FJ;]rG뚾g7