1 INFO-VAX	Tue, 16 May 2000	Volume 2000 : Issue 273       Contents:4 %AUDSRV-W-NOACTION, no alarm or audit name specified8 Re: %AUDSRV-W-NOACTION, no alarm or audit name specified Re: alpha problem  Re: alpha problem  Re: Any PAWZ users out there? ( AUDSRV-W-NOACTION - oper message - why ?? Change DEC Windows Pointer Shape (was Re: Changing the prompt!)  Re: Changing the prompt! Re: Changing the prompt! Re: Changing the prompt! Re: Changing the prompt!, Re: Compaq Bets Big on New Web Servers (WSJ), Re: Compaq Bets Big on New Web Servers (WSJ) Re: CPU Temperature from DCL Re: CPU Temperature from DCL% Re: Deadlock problems have me stumped % Re: Deadlock problems have me stumped % Re: Deadlock problems have me stumped 
 Debug problem  Re: Debug problem  Re: EDT macros Re: EDT macros Re: EDT macros( good price for a used MicroVAX 3100 M90?, Re: good price for a used MicroVAX 3100 M90?) Re: HELP on calculating percentage in DCL % HELP on calculating percentage in DCL ) Re: HELP on calculating percentage in DCL ) Re: HELP on calculating percentage in DCL ) Re: HELP on calculating percentage in DCL  Help with ACL's (file security) # Re: Help with ACL's (file security) F Re: How do I disable opcom messages between cluster nodes on VMS 7.2 ? Re: How Do I Enable Mail? > Re: How to connect to a MS SQL Server database from VMS system> Re: How to connect to a MS SQL Server database from VMS system% Re: How to make a loop in .com files? " how to reset a DS90M to flash boot& Re: how to reset a DS90M to flash boot- HSJ50 V5.7 firmware  (RE DS20-caused crashes)  Re: Initializing all drives  Re: Initializing all drives  Re: Initializing all drives  INSVIRMEM when linking Re: INSVIRMEM when linking Re: INSVIRMEM when linking% Re: Is "The GNU on VMS Project" dead? % Re: Is "The GNU on VMS Project" dead? % Re: Is "The GNU on VMS Project" dead? % Re: Is "The GNU on VMS Project" dead? % Re: Is "The GNU on VMS Project" dead? ) Re: Length of Username - Was RE: Username  Re: Licenses Re: Licenses Re: MONITOR on VMS 7.2( Re: Multinet postscript  printing broken! Re: Pitch of the Margin bell Beep % Re: problem with tape expiration date  Re: Recreating Queues and Forms ) Re: RMS indexed files + decc$record_write 3 Re: sharing large amounts of data between processes  String Descriptors, BASIC and C # Re: String Descriptors, BASIC and C  Re: the latest billybox virus " Re: Utility to track device errors Utility to track device errors VAX servers for sale Re: Verifying username password  Re: Verifying username password  Re: Verifying username password  Re: Verifying username password  re: verifying username password  Re: Verifying username password  Re: Verifying username password ) Re: VMS and Ole for Process Control (OPC) + Re: VMS compared to other operating systems $ Re: VMS Knowledge testing on the web  VMS Knowledge testing on the web$ Re: VMS Knowledge testing on the web waking up:    new GS series . Re: What type of memory does a 3000-300lx use?+ Re: Where to start with motif programming ?  Wildfire Announcement  Re: Wildfire Announcement   F ----------------------------------------------------------------------  # Date: Tue, 16 May 2000 12:43:42 GMT  From: andrewr@nait.co.za= Subject: %AUDSRV-W-NOACTION, no alarm or audit name specified ) Message-ID: <8frfpq$vgh$1@nnrp1.deja.com>    Hi,   % I am getting the operator messages :-   8 %%%%%%%%%%%  OPCOM   5-APR-2000 07:48:19.00  %%%%%%%%%%%( Message from user AUDIT$SERVER on LAB001D %AUDSRV-W-NOACTION, no alarm or audit name specified; requestor PID: 0000713A   The process 713A is :-   $ sho proc/id=713a  G  5-APR-2000 07:50:31.75   User: SYSTEM           Process ID:   0000713A >                           Node: LAB001           Process name: "ORA_SSFB1510"  	 Terminal:  User Identifier:    [SSF]  Base priority:      4 ! Default file spec:  Not available  Number of Kthreads: 1   = Any ideas what this message means, or how I can turn it off ?    Thanks Andrew    & Sent via Deja.com http://www.deja.com/ Before you buy.    ------------------------------  # Date: Tue, 16 May 2000 13:52:41 GMT 1 From: "Mark D. Jilson" <jilly@clarityconnect.com> A Subject: Re: %AUDSRV-W-NOACTION, no alarm or audit name specified 2 Message-ID: <3921529C.5BC1A270@clarityconnect.com>  F You don't say what version of VMS this is on but a similar problem was; fixed by the ALPSYS20_071 patch kit for OpenVMS Alpha V7.1.    andrewr@nait.co.za wrote:  >  > Hi,  > ' > I am getting the operator messages :-  > : > %%%%%%%%%%%  OPCOM   5-APR-2000 07:48:19.00  %%%%%%%%%%%* > Message from user AUDIT$SERVER on LAB001F > %AUDSRV-W-NOACTION, no alarm or audit name specified; requestor PID:
 > 0000713A >  > The process 713A is :- >  > $ sho proc/id=713a > I >  5-APR-2000 07:50:31.75   User: SYSTEM           Process ID:   0000713A @ >                           Node: LAB001           Process name: > "ORA_SSFB1510" >  > Terminal:  > User Identifier:    [SSF]  > Base priority:      4 # > Default file spec:  Not available  > Number of Kthreads: 1  > ? > Any ideas what this message means, or how I can turn it off ?  >  > Thanks > Andrew > ( > Sent via Deja.com http://www.deja.com/ > Before you buy.    --  D Jilly	- Working from Home in the Chemung River Valley - Lockwood, NY0 	- jilly@clarityconnect.com			- Brett Bodine fan. 	- Mark.Jilson@Compaq.com			- since 1975 or so, 	- http://www.jilly.baka.com               -   ------------------------------   Date: 15 May 2000 17:37:23 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman) Subject: Re: alpha problem6 Message-ID: <8fpckj$gq5$1@mailint03.im.hou.compaq.com>  o In article <20000512052939.26807.qmail@newmail6.rediffmail.com>, Joseph Antony <tonijoe@rediffmail.com> writes: / :This is a multi-part message in MIME format...       Please turn off MIME.  Thanks!  ! :Please find attached the problem   E   Looked more like a big pile of characters than a problem statement. F   (I don't have the time to haul this over to a Microsoft box, unpack D   it, scan it for virii, and dig through it right now -- I probably E   shouldn't even be reading news this afternoon, given that I have a  G   pair of presentations to produce plus a pile of pending programming.)   G   I'll assume this was a discussion of linking, based on other replies.   I   For information on linking, please see (of course) the OpenVMS manuals  F   (such as the programming concepts and the linker manuals), and also F   please see available stuff like the shareable image cookbook -- the *   latter is referenced in the OpenVMS FAQ.   	--   G   If you want to try the question again in a format I can read, please  H   feel free to do so -- I'm always interested in weird LINKER questions.H   (Not that I can answer all of them -- some of the questions are ratherG   creative. :-)  I'd also encourage you to pick a subject line that is  E   specific to the topic of the question, as "Alpha problem" covers a  I   tremendously large territory.  The better you can target your question  F   (and the easier you make it for folks to read it!), the more likely D   somebody that knows the answer will see it and answer it, and the 7   quicker you get an answer.  (No offense is intended.)   N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  # Date: Mon, 15 May 2000 03:41:00 GMT 7 From: "David J. Dachtera" <djesys.nospam@earthlink.net>  Subject: Re: alpha problem- Message-ID: <391F72E7.8EB15096@earthlink.net>    Joseph Antony wrote: > " > Please find attached the problem  D Content of attachment extracted using Windows Notepad (W/95-OSR2)...  6 >In reply to your fax, I have some other questions and4 >information. First of all, the linking methodology l >that was used on the Alpha was recommended by Digital >at the time we developed this product in 1992. This 0 >was about the time the Alpha machine was first 7 >released and was running version 1.5 of OpenVMS. Since 6 >then, we have upgraded to version 7.1 of OpenVMS and 6 >wonder if there have been any new methodologies that k >we should use for linking. I wasnt sure from your fax >whether you were eluding to another way of linking 8 >these executables to make it work like the VAX or that 5 >this issue is inherent to the Alpha. Please provide  6 >any other information you may have in regards to the % >linking of executables on the Alpha.  >  >Thank you,  >Marnie Green  >  > joe   G Repeat: others' warnings about attachements to a text-only mailing list  / newgroup.   E From what little I was able to gathere about the issue in question, I F believe the best answer is to refer to the OpenVMS-Alpha documentationH regarding the linker, the run time-libraries, etc. If you have a support6 contract, please refer to your account representative.  B One comment: The OpenVMS Alpha version jumped from VMS/AXP V1.5 to> OpenVMS-Alpha V6.0, I believe - my information may be somewhatC incomplete. There aren't really THAT many versions between V1.5 and G V7.x. Existing techniques may not necessarily be invalid, but there may ! be better ways to do some things.    --   David J. Dachtera  dba DJE Systems " http://home.earthlink.net/~djesys/  : Unofficial Affordable OpenVMS Home Page and Message Board:+ http://home.earthlink.net/~djesys/vms/soho/    ------------------------------  # Date: Tue, 16 May 2000 13:10:49 GMT 1 From: "Mark D. Jilson" <jilly@clarityconnect.com> & Subject: Re: Any PAWZ users out there?2 Message-ID: <392148CB.29A721F7@clarityconnect.com>  E They PAWZ and ECP suite can only use older .CPD files, approx. before H 2.1.5, and it really depends on the version of the PSPA$READ.EXE image. C It is a tangled mess but there may be workarounds depending on what C version PSDC collected the .CPD file and whether you have a correct 9 PSPA$READ and if you still have the appropriate licenses.   
 "P.Lj" wrote:  >  > Hi,  > H > * Had a few problems with the licensefile that followed the April 2000 > CD, 7 >     CPQ sent me new ones that seems to work fine now.  > ? > * Got ACCVIO when trying to load UNICenter CPD-files into the  > REDUCE/MOTIF,  >  click [CA UNICENTER] box # >  click [Select Data File...]  box B >  and then choose a file (if you got PSDC-running, and/or logical > PSDC$DATABASE defined 4 >  and there's a some  *.CPD file in that directory)A >  mark it and press [OK] button and then set time frame and do a  > Analyze/Graph crash! > F > * Even got a "%SYSTEM-F-NOHANDLER, no condition handler found", when > just pressing $ > then [Select Data File...] button. > G > It's my testsystem and I got a few things running, but.... not a good  > start. >  > /P.Lj  >  > Scott Vieth wrote: >  > > Hi:  > > E > > Is anyone using PAWZ to monitor performance on their VMS systems? . > > I'm looking for any feedback, good or bad. > >  > > Thanks,  > >  > > -Scott Vieth :^)   --  D Jilly	- Working from Home in the Chemung River Valley - Lockwood, NY0 	- jilly@clarityconnect.com			- Brett Bodine fan. 	- Mark.Jilson@Compaq.com			- since 1975 or so, 	- http://www.jilly.baka.com               -   ------------------------------  # Date: Tue, 16 May 2000 12:38:07 GMT  From: awrycroft0001@my-deja.com 1 Subject: AUDSRV-W-NOACTION - oper message - why ? ) Message-ID: <8frffc$vcc$1@nnrp1.deja.com>    Hi,   F From time to time I am getting the following operator messages appear. Any ideas as to what it means ?   8 %%%%%%%%%%%  OPCOM   5-APR-2000 07:48:19.00  %%%%%%%%%%%( Message from user AUDIT$SERVER on LAB001D %AUDSRV-W-NOACTION, no alarm or audit name specified; requestor PID: 0000713A   The requestor process is :-    $ sho proc/id=713a  G  5-APR-2000 07:50:31.75   User: SYSTEM           Process ID:   0000713A >                           Node: LAB001           Process name: "ORA_SSFB1510"  	 Terminal:  User Identifier:    [SSF]  Base priority:      4 ! Default file spec:  Not available  Number of Kthreads: 1    Is it a bug in the process ?   Thanks Andrew    & Sent via Deja.com http://www.deja.com/ Before you buy.    ------------------------------  % Date: Tue, 16 May 2000 07:42:50 -0400 * From: Chuck Chopp <ChuckChopp@rtfmcsi.com>H Subject: Change DEC Windows Pointer Shape (was Re: Changing the prompt!)+ Message-ID: <3921343A.21FB297B@rtfmcsi.com>    Adrian Birkett wrote:   D > If I remember, this was done by defining characters on a VT at bitH > level(?) There was a smiley face, train, extended middle digit amongst	 > others.  > : > Have you tried the freeware site or FAQ on Compaqs site? >  > Just a thought.  >  > Ade   H I also remember being able to change the DEC Windows mouse pointer shapeH at one time, but I've not only forgotten exactly how this was done, I'veI also forgotten what the different types of pointer shapes were available. E I do distinctly remember that it involved a negative number which was I possibly defined as the value for a logical name when the session manager D was started.  I used to change the shape to the starship Enterprise.  D Is this still possible under the new desktop environment in Open VMSH v7.x?  If so, what is the method used to change the pointer shape and is" there a listing of pointer shapes?     TIA,   Chuck  -- Chuck Chopp   8 ChuckChopp@rtfmcsi.com            http://www.rtfmcsi.com0                                   ICQ # 22321532@ RTFM Consulting Services Inc.     864 801 2795 voice & voicemail2 103 Autumn Hill Road              864 801 2774 fax4 Greer, SC  29651                  800 400 4935 pagerC                                   8004004935@alphapage.airtouch.com    ------------------------------  % Date: Tue, 16 May 2000 10:04:39 +0100 4 From: Adrian Birkett <abirkett.@unnecessary.csc.com>! Subject: Re: Changing the prompt! 3 Message-ID: <39210F27.80819B0B@unnecessary.csc.com>   B If I remember, this was done by defining characters on a VT at bitF level(?) There was a smiley face, train, extended middle digit amongst others.   8 Have you tried the freeware site or FAQ on Compaqs site?   Just a thought.    Ade    ------------------------------  # Date: Tue, 16 May 2000 15:42:35 GMT # From: "Oberon" <io@cableinet.co.uk> ! Subject: Re: Changing the prompt! 5 Message-ID: <L%dU4.109$Vr6.11273@news3.cableinet.net>    Antonio   5 Just what I was after thanks, now to see if it works!    Cheers
 Mark Lawrence   ; Antonio Carlini <carlini@true.lkg.dec.com> wrote in message $ news:8frp3j$4ai@usenet.pa.dec.com...= > In article <3920c7e8.524144494f47414741@radiogaga.harz.de>,  MARTIN@RADIOGAGA.HARZ.DE wrote:  > > % > >Oberon (io@cableinet.co.uk) wrote: , > >: can't remember how the prompt was done. > >  > >  $ SET PROMPT="newprompt"  > >  >  > I > But the bit you missed is that this stuff worked on VT220s and used the J > downloadable font feature. So you downloaded a font such that "ABC" (forL > example) in the new font would come out as a car. Then you set prompt to aG > sequence that changes to the new font, does the car (or whatever) and  changes  > back to the normal font. > G > Then there was the "upside down" font. And a few more I've forgotten.  > L > All of this only works on VT220s (and maybe the later VTs too if the fonts/ > look the same). It does NOT work on DECterms.  > I > I've included one such file below. I just cut and paste it in so it may  haveK > become mangled by the time it reaches you. Traditionally (i.e. when I was  sentL > one) these files would have embedded escape codes. I recall changing these soI > that I could print out the files. It looks like I have done this below,  but ifD > I've goofed - err, sorry! You'll have to smooth out the bits where unwanted  > line breaks creep in (or out). > 	 > Antonio  > Reading UK >  > $! > $       DCS[0,8] = 144 > $       ESC[0,8] = 27 % > $       SAY     := WRITE SYS$OUTPUT F > $       CLEAR   := "''ESC'[2J''ESC'[1;1H" ! ALL TERM. ATTRIBUTES OFF; > $       OFF     := "''ESC'[0m" ! ALL TERM. ATTRIBUTES OFF - > $       BOLD    := "''ESC'[1m" ! TERM. BOLD  > $!, > $       IF P1 .EQS. "" THEN GOTO NOT_VT220 > $!C > $       IF .NOT. F$GETDVI("TT:","TT_DECCRT2") THEN GOTO NOT_VT220  > $!& > $       KE_UZE = F$EDIT(P1,"UPCASE") > $! > $ PROMPT_CODES: / > $       IF KE_UZE .EQS. "BA" THEN GOTO BAROOM2. > $       IF KE_UZE .EQS. "CR" THEN GOTO CROWN. > $       IF KE_UZE .EQS. "GA" THEN GOTO GATOR/ > $       IF KE_UZE .EQS. "GU" THEN GOTO GUITAR . > $       IF KE_UZE .EQS. "PH" THEN GOTO PHONE. > $       IF KE_UZE .EQS. "QU" THEN GOTO QUACK/ > $       IF KE_UZE .EQS. "RA" THEN GOTO RAISINe. > $       IF KE_UZE .EQS. "SN" THEN GOTO SNOOP, > $       IF KE_UZE .EQS. "SU" THEN GOTO SUN/ > $       IF KE_UZE .EQS. "SP" THEN GOTO SPLASHo- > $       IF KE_UZE .EQS. "TR" THEN GOTO TREKp- > $       IF KE_UZE .EQS. "V2" THEN GOTO VAX2e- > $       IF KE_UZE .EQS. "WI" THEN GOTO WINDL. > $       IF KE_UZE .EQS. "WO" THEN GOTO WOODY- > $       IF KE_UZE .EQS. "XM" THEN GOTO XMASp/ > $       IF KE_UZE .EQS. "TEST" THEN GOTO TESTu5 > $       IF KE_UZE .EQS. "WHAT" THEN GOTO SHOW_CODESr% > $       SAY "Prompt Code Not Found"  > $       GOTO OUT > $! > $ SHOW_CODES:0' > $       SAY "Valid Prompt Codes are:"e# > $       SAY "        BA - BAROOM"a" > $       SAY "        CR - CROWN"" > $       SAY "        GA - GATOR"# > $       SAY "        GU - GUITAR"o" > $       SAY "        PH - PHONE"" > $       SAY "        QU - QUACK"# > $       SAY "        RA - RAISIN" # > $       SAY "        SN - SNOOPY"e  > $       SAY "        SU - SUN"# > $       SAY "        SP - SPLASH"n+ > $       SAY "        TR - USS ENTERPRISE"t! > $       SAY "        V2 - VAX2"S( > $       SAY "        WI - WIND SURFER"& > $       SAY "        WO - WOODSTOCK"! > $       SAY "        XM - XMAS"o# > $       SAY "        TEST - TEST"5 > $       SAY ""8 > $       INQUIRE/NOPUNCT PMT_CODE "Enter Prompt Code: "7 > $       IF "''PMT_CODE'" .EQS. "" THEN GOTO NOT_VT220V1 > $       KE_UZE = F$EDIT("''PMT_CODE'","UPCASE")  > $       GOTO PROMPT_CODESs > $!
 > $ CROWN:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAY"H > "''DCS'1;65;0{#1OggO????/??N?ACG?;???????O/??????GC;ggO?????/A@ACG???;9 > ?????Ogg/???GCA@A;O???????/CG?????G;??OggO??/CA?N????;"e
 > $       SAYnK > "?wNGgGGX/?BAAAABA;IkGKIHWG/AAAAAABA;GWgGGHYK/AAAAABAA;KIhGWGGG/AAAAABAA;r' > GgXIKIXg/AABAABAA;GGWNw???/AABAB???;"r' > $       SET PROMPT = "''ESC'(#1abcdefi > ghijkl(B> " > $       GOTO OUT > $!
 > $ GATOR:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"n
 > $       SAY H > "''DCS'1;65;1{#1w{}q?_o_/???@@@@@;o___o__o/@@@@@@@@;WWoo_GWo/B??FNGGB; > wwooowwo/BBBBBBBB;" 
 > $       SAYt >lK "WWoo_GWw/B??FNGGB;{kKSSSSW/@@@BAABA;WGGWGGWK/BAABAABA;WG??????/BA??????;"oE > $       SET PROMPT = "''BOLD'''ESC'(#1abcddefgh(B''OFF' ''node'> "n > $       GOTO OUT > $! > $ GUITAR:r- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAY H > "''DCS'1;65;1{#1__??????/N???@??A;????????/??C??G??;????????/????G???;' > ????????/C???M???;????????/????????;" 
 > $       SAY K > "????????/????????;????????/G???????;~?MMMMmM/BA?@????;MM]MMM]M/????????;e > NNMmMMMM/???????@;"t
 > $       SAY L > "MMMM~MMM/????B???;MMMMMMMM/????????;MMMMMMMM/????????;NK[HWI[G/????????;"( > $       SET PROMPT = "''ESC'(#1abcdefg > hijklmn(B> "t > $       GOTO OUT > $!
 > $ PHONE:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"-
 > $       SAY-H > "''DCS'1;65;1{#1________/N???N???;________/????NNNN;________/NNNN??NN; > _______?/NNNN??N?;"r
 > $       SAY L > "??????oO/??????BA;OOOOOOo?/AM????N?;~_wooow_/?????@?A;________/AAAAAAAA;"
 > $       SAYpL > "__}_}_}_/AAAAAAAA;______~?/AAAAAAAA;??????[S/AAAAA@@@;SVOoOO^?/@@@?????;". > $       SET PROMPT = "''BOLD'''ESC'(#1abcdef > ghijkl(B ''OFF' ''node'> "  > $       GOTO OUT > $! > $ RAISIN: - > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAY1H > "''DCS'1;65;1{#1??????_W/GGGGGM@@;SOQOPPPP/@@@@@@@@;PppPPPOQ/@?GJL@@@;' > SWO_?Ooo/@@@@MGGH;?}}}ooo?/FBJFB@??;" 
 > $       SAY K > "^w}YYBC?/????????;?GBOcccc/EEEFFF??;cccccao@/?????FFF;GCAABAAA/EEE?????;e > ?@??????/????????;"e- > $       SET PROMPT = "''BOLD'''ESC'(#1abcdei > fghij(B''OFF' ''node'> "  > $       GOTO OUT > $!
 > $ SNOOP:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAYjH > "''DCS'1;65;1{#1??__OOGG/??@@IIKK;CCCCGGOO/NN????II;________/????????; > ????????/HHEEAA??;"a
 > $       SAY L > "bbVVVVJJ/@@AACCCC;EEwwEEGG/DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????;", > $       SET PROMPT = "''BOLD'''ESC'(#1abcd > efgh''esc'(B''OFF' ''node'> "c > $       GOTO OUT > $!	 > $ TREK:h- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"l
 > $       SAYyH > "''DCS'1;65;1{#1OOooOOoo/??@@@@@@;OOooOOoo/@@@@@@@@;OOooo???/BFLG@???; > ????????/????????;" 
 > $       SAYgL > "?????___/???@@JMM;________/FBAABAAB;oogoo___/AABAABAA;_______?/BAABA@@@;"
 > $       SAY L > "????????/????????;????????/????????;?{]]~}cc/????????;{cc{cc{c/????????;"
 > $       SAYiL > "c{ce~rr~/????????;{{{{g???/????????;????????/????????;????????/????????;") > $       SET PROMPT = "''ESC'(#1abcdefghs > ijklmno(B > " > $       GOTO OUT > $!	 > $ VAX2: - > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"s
 > $       SAYSH > "''DCS'1;65;1{#1wCAAAAC?/?@AAAAAA;?WcAAcW?/AAA@@AAA;?_o????o/@??@AA@?; > OO_OOOo?/??@AAA@A;"eF > $       SAY "??_OO__O/A@??A@@A;????CAaQ/A???ABAA;K???????/A???????;"E > $       SET PROMPT = "''BOLD'''ESC'(#1abcdefg(B> ''OFF' ''node'> "  > $       GOTO OUT > $!	 > $ WIND:j- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"k
 > $       SAYnH > "''DCS'1;65;1{#1????????/????????;????????/????????;????????/????GCA@;' > _OG{????/???N????;????????/????????;"o
 > $       SAY5K > "________/????????;_______o/????????;gcqbaaia/????????;aeab____/??????@A;- > __??????/@???????;"y- > $       SET PROMPT = "''BOLD'''ESC'(#1abcdec > fghij(B''OFF' ''node'> "c > $       GOTO OUT > $!
 > $ WOODY:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"t
 > $       SAY5F > "''DCS'1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD; > ????????/CCGG????o"i
 > $       SAYrF > "''DCS'1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????; > OOGGFF??/????????o"r, > $       SET PROMPT = "''BOLD'''ESC')1#$%&  > '()*''esc')1''OFF' ''node'> " > $       GOTO OUT > $!	 > $ XMAS:i- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"i
 > $       SAYdH > "''DCS'1;65;1{#1?????_OG/??CEL???;GO_?????/???LEC??;?cUL????/@@@@@@F?; > ????LUc?/?F@@@@@@;"t* > $       SET PROMPT = "''BOLD'''ESC'(#1ab > cd(B ''OFF' ''node'> "n > $       GOTO OUT > $! > $ sun:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"r
 > $       SAYoI > "''DCS'1;65;1{#1FFFFNNNN/????????;N^^^^^~~/????????;~~~~~~~}/???@@@@@;"sF > $       SAY "}{{wwOO_/BBHKMNNN;__ooooov/NNNNNNNN;vvvvvfnn/NNNNNNNN;"F > $       SAY "^^NNFFBB/NNMKGAEM;@@????__/MNNNNNNN;___oooow/NNNNNNNN;"F > $       SAY "~~~~~~~~/FFBBBBB@;~~~~~~~~/@@@@????;~^^^^^NN/???????G;"F > $       SAY "KGBFN^^~/GKKMMNNM;~~~~~~~~/MKLLLLLL;~~~~~~~~/@@@@@???;"F > $       SAY "^^nfrwwp/@@BBFFNN;pppp````/NNNNNNNN;`@@@@@@@/NNNNNNMM;"* > $       SET PROMPT = "''ESC'(#1abcdefghi > jklmnopqr(B " > $       GOTO OUT > $! > $ SPLASH:c- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"oC > $       SAY "''DCS'1;65;1{#1W[{{[]MM/??GKKKMM;MMM][{{{/MMMMMKKL;"rF > $       SAY "{{wwyzz~/NNNNNNNN;~~~~}}}}/NNNNNNNN;{{wow{{}/NNNNNNNN;"F > $       SAY "}}}}}~zz/NNNNNNNN;zzzroww{/NNNNNNNN;{{{[[[[[/NNNNNNNN;"F > $       SAY "[[WG????/NNE?????;??@@@BRr/????????;rrb`@???/???@B???;"F > $       SAY "@@BBBFFN/????????;^~~~~~~~/?@NNNNNN;~~~~~~~~/NNNNNNNN;"F > $       SAY "~~~~~^NF/NNNN@???;FBB@`oOW/????@???;WWG?@```/??EB@@@@;"" > $       SAY "`???????/????????;"* > $       SET PROMPT = "''ESC'(#1abcdefghi > jklmnopqr(B " > $       GOTO OUT > $! > $ BAROOM: - > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"t
 > $       SAY:I > "''DCS'1;65;1{#1}}}uuuuu/NNNKKKKK;uuuu}{K?/KKKKNFF?;_ow{meee/NNN@@@@@;"t4 > $       SAY "eem{wo_?/@@@@NNN?;_______?/@@@@@@@?;"F > $       SAY "}}}uuuuu/NNN?????;uuuu}{[?/??@BFMKG;ow{KKEEE/@BFEEKKK;"F > $       SAY "EEKK{wo?/KKEEFB@?;ow{KKEEE/@BFEEKKK;EEKK{wo?/KKEEFB@?;"F > $       SAY "}}}{wo_?/NNN?@BFN;_ow{}}}?/FB@?NNN?;??}}}}??/??LLLL??;"4 > $       SET PROMPT = "''ESC'(#1abcdefghijklmn(B " > $       GOTO OUT > $!
 > $ QUACK:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" C > $       SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;"o4 > $       SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;"* > $       SET PROMPT = "''ESC'(#1abcd(B " > $       GOTO OUT > $!	 > $ TEST:u- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"oC > $       SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;" 4 > $       SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;"* > $       SET PROMPT = "''ESC'(#1abcd(B " > $       GOTO OUT > $! > $ NOT_VT220:9 > $       NODE = F$STRING(F$LOGICAL("SYS$NODE")-"_"-"::")   > $       SET PROMPT="''NODE'$ " > $! > $ OUT: > $       EXIT >sK > Antonio Carlini                            Mail: carlini@true.lkg.dec.com % > DECnet-Plus for OpenVMS Engineerings8 > COMPAQ                                     Reading, UK   ------------------------------  # Date: Tue, 16 May 2000 15:32:38 GMTl0 From: carlini@true.lkg.dec.com (Antonio Carlini)! Subject: Re: Changing the prompt!j* Message-ID: <8frp3j$4ai@usenet.pa.dec.com>  [ In article <3920c7e8.524144494f47414741@radiogaga.harz.de>, MARTIN@RADIOGAGA.HARZ.DE wrote:o >b# >Oberon (io@cableinet.co.uk) wrote:n* >: can't remember how the prompt was done. >  >  $ SET PROMPT="newprompt"m >h    H But the bit you missed is that this stuff worked on VT220s and used the I downloadable font feature. So you downloaded a font such that "ABC" (for tK example) in the new font would come out as a car. Then you set prompt to a  N sequence that changes to the new font, does the car (or whatever) and changes  back to the normal font.  E Then there was the "upside down" font. And a few more I've forgotten.o  K All of this only works on VT220s (and maybe the later VTs too if the fonts .- look the same). It does NOT work on DECterms.e  M I've included one such file below. I just cut and paste it in so it may have nO become mangled by the time it reaches you. Traditionally (i.e. when I was sent  N one) these files would have embedded escape codes. I recall changing these so O that I could print out the files. It looks like I have done this below, but if  L I've goofed - err, sorry! You'll have to smooth out the bits where unwanted  line breaks creep in (or out).   AntonioC
 Reading UK   $! $       DCS[0,8] = 144 $       ESC[0,8] = 27 # $       SAY     := WRITE SYS$OUTPUT E $       CLEAR   := "''ESC'[2J''ESC'[1;1H" ! ALL TERM. ATTRIBUTES OFF  : $       OFF     := "''ESC'[0m" ! ALL TERM. ATTRIBUTES OFF + $       BOLD    := "''ESC'[1m" ! TERM. BOLDu $!* $       IF P1 .EQS. "" THEN GOTO NOT_VT220 $!A $       IF .NOT. F$GETDVI("TT:","TT_DECCRT2") THEN GOTO NOT_VT220a $!$ $       KE_UZE = F$EDIT(P1,"UPCASE") $! $ PROMPT_CODES:.- $       IF KE_UZE .EQS. "BA" THEN GOTO BAROOMa, $       IF KE_UZE .EQS. "CR" THEN GOTO CROWN, $       IF KE_UZE .EQS. "GA" THEN GOTO GATOR- $       IF KE_UZE .EQS. "GU" THEN GOTO GUITAR , $       IF KE_UZE .EQS. "PH" THEN GOTO PHONE, $       IF KE_UZE .EQS. "QU" THEN GOTO QUACK- $       IF KE_UZE .EQS. "RA" THEN GOTO RAISIN , $       IF KE_UZE .EQS. "SN" THEN GOTO SNOOP* $       IF KE_UZE .EQS. "SU" THEN GOTO SUN- $       IF KE_UZE .EQS. "SP" THEN GOTO SPLASHi+ $       IF KE_UZE .EQS. "TR" THEN GOTO TREK:+ $       IF KE_UZE .EQS. "V2" THEN GOTO VAX2-+ $       IF KE_UZE .EQS. "WI" THEN GOTO WIND , $       IF KE_UZE .EQS. "WO" THEN GOTO WOODY+ $       IF KE_UZE .EQS. "XM" THEN GOTO XMASs- $       IF KE_UZE .EQS. "TEST" THEN GOTO TESTe3 $       IF KE_UZE .EQS. "WHAT" THEN GOTO SHOW_CODESe# $       SAY "Prompt Code Not Found"  $       GOTO OUT $!
 $ SHOW_CODES:%% $       SAY "Valid Prompt Codes are:"0! $       SAY "        BA - BAROOM"U  $       SAY "        CR - CROWN"  $       SAY "        GA - GATOR"! $       SAY "        GU - GUITAR"   $       SAY "        PH - PHONE"  $       SAY "        QU - QUACK"! $       SAY "        RA - RAISIN"P! $       SAY "        SN - SNOOPY"  $       SAY "        SU - SUN"! $       SAY "        SP - SPLASH" ) $       SAY "        TR - USS ENTERPRISE"a $       SAY "        V2 - VAX2"e& $       SAY "        WI - WIND SURFER"$ $       SAY "        WO - WOODSTOCK" $       SAY "        XM - XMAS"D! $       SAY "        TEST - TEST"e $       SAY ""6 $       INQUIRE/NOPUNCT PMT_CODE "Enter Prompt Code: "5 $       IF "''PMT_CODE'" .EQS. "" THEN GOTO NOT_VT220o/ $       KE_UZE = F$EDIT("''PMT_CODE'","UPCASE")s $       GOTO PROMPT_CODES  $! $ CROWN:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"e $       SAY F "''DCS'1;65;0{#1OggO????/??N?ACG?;???????O/??????GC;ggO?????/A@ACG???;7 ?????Ogg/???GCA@A;O???????/CG?????G;??OggO??/CA?N????;"d $       SAY I "?wNGgGGX/?BAAAABA;IkGKIHWG/AAAAAABA;GWgGGHYK/AAAAABAA;KIhGWGGG/AAAAABAA; % GgXIKIXg/AABAABAA;GGWNw???/AABAB???;" % $       SET PROMPT = "''ESC'(#1abcdefD ghijkl(B> " $       GOTO OUT $! $ GATOR:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"a $       SAY F "''DCS'1;65;1{#1w{}q?_o_/???@@@@@;o___o__o/@@@@@@@@;WWoo_GWo/B??FNGGB; wwooowwo/BBBBBBBB;"e $       SAY K "WWoo_GWw/B??FNGGB;{kKSSSSW/@@@BAABA;WGGWGGWK/BAABAABA;WG??????/BA??????;"oC $       SET PROMPT = "''BOLD'''ESC'(#1abcddefgh(B''OFF' ''node'> "t $       GOTO OUT $!	 $ GUITAR:s+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"s $       SAY F "''DCS'1;65;1{#1__??????/N???@??A;????????/??C??G??;????????/????G???;% ????????/C???M???;????????/????????;"i $       SAY I "????????/????????;????????/G???????;~?MMMMmM/BA?@????;MM]MMM]M/????????;t NNMmMMMM/???????@;"  $       SAY J "MMMM~MMM/????B???;MMMMMMMM/????????;MMMMMMMM/????????;NK[HWI[G/????????;"& $       SET PROMPT = "''ESC'(#1abcdefg
 hijklmn(B> "  $       GOTO OUT $! $ PHONE:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"  $       SAY F "''DCS'1;65;1{#1________/N???N???;________/????NNNN;________/NNNN??NN; _______?/NNNN??N?;"e $       SAY J "??????oO/??????BA;OOOOOOo?/AM????N?;~_wooow_/?????@?A;________/AAAAAAAA;" $       SAY J "__}_}_}_/AAAAAAAA;______~?/AAAAAAAA;??????[S/AAAAA@@@;SVOoOO^?/@@@?????;", $       SET PROMPT = "''BOLD'''ESC'(#1abcdef ghijkl(B ''OFF' ''node'> "( $       GOTO OUT $!	 $ RAISIN:,+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"a $       SAY F "''DCS'1;65;1{#1??????_W/GGGGGM@@;SOQOPPPP/@@@@@@@@;PppPPPOQ/@?GJL@@@;% SWO_?Ooo/@@@@MGGH;?}}}ooo?/FBJFB@??;"  $       SAY I "^w}YYBC?/????????;?GBOcccc/EEEFFF??;cccccao@/?????FFF;GCAABAAA/EEE?????;n ?@??????/????????;"g+ $       SET PROMPT = "''BOLD'''ESC'(#1abcdet fghij(B''OFF' ''node'> "  $       GOTO OUT $! $ SNOOP:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"o $       SAY F "''DCS'1;65;1{#1??__OOGG/??@@IIKK;CCCCGGOO/NN????II;________/????????; ????????/HHEEAA??;"e $       SAY J "bbVVVVJJ/@@AACCCC;EEwwEEGG/DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????;"* $       SET PROMPT = "''BOLD'''ESC'(#1abcd efgh''esc'(B''OFF' ''node'> "t $       GOTO OUT $! $ TREK:O+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"  $       SAY F "''DCS'1;65;1{#1OOooOOoo/??@@@@@@;OOooOOoo/@@@@@@@@;OOooo???/BFLG@???; ????????/????????;"d $       SAY J "?????___/???@@JMM;________/FBAABAAB;oogoo___/AABAABAA;_______?/BAABA@@@;" $       SAY J "????????/????????;????????/????????;?{]]~}cc/????????;{cc{cc{c/????????;" $       SAY J "c{ce~rr~/????????;{{{{g???/????????;????????/????????;????????/????????;"' $       SET PROMPT = "''ESC'(#1abcdefght ijklmno(B > " $       GOTO OUT $! $ VAX2:T+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"  $       SAY F "''DCS'1;65;1{#1wCAAAAC?/?@AAAAAA;?WcAAcW?/AAA@@AAA;?_o????o/@??@AA@?; OO_OOOo?/??@AAA@A;"eD $       SAY "??_OO__O/A@??A@@A;????CAaQ/A???ABAA;K???????/A???????;"C $       SET PROMPT = "''BOLD'''ESC'(#1abcdefg(B> ''OFF' ''node'> "I $       GOTO OUT $! $ WIND:h+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"  $       SAY F "''DCS'1;65;1{#1????????/????????;????????/????????;????????/????GCA@;% _OG{????/???N????;????????/????????;"k $       SAY I "________/????????;_______o/????????;gcqbaaia/????????;aeab____/??????@A;  __??????/@???????;" + $       SET PROMPT = "''BOLD'''ESC'(#1abcde  fghij(B''OFF' ''node'> "' $       GOTO OUT $! $ WOODY:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"L $       SAY D "''DCS'1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD; ????????/CCGG????"E $       SAY D "''DCS'1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????; OOGGFF??/????????" * $       SET PROMPT = "''BOLD'''ESC')1#$%& '()*''esc')1''OFF' ''node'> " $       GOTO OUT $! $ XMAS:2+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"O $       SAY F "''DCS'1;65;1{#1?????_OG/??CEL???;GO_?????/???LEC??;?cUL????/@@@@@@F?; ????LUc?/?F@@@@@@;" ( $       SET PROMPT = "''BOLD'''ESC'(#1ab cd(B ''OFF' ''node'> "  $       GOTO OUT $! $ sun:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'"  $       SAY G "''DCS'1;65;1{#1FFFFNNNN/????????;N^^^^^~~/????????;~~~~~~~}/???@@@@@;"ND $       SAY "}{{wwOO_/BBHKMNNN;__ooooov/NNNNNNNN;vvvvvfnn/NNNNNNNN;"D $       SAY "^^NNFFBB/NNMKGAEM;@@????__/MNNNNNNN;___oooow/NNNNNNNN;"D $       SAY "~~~~~~~~/FFBBBBB@;~~~~~~~~/@@@@????;~^^^^^NN/???????G;"D $       SAY "KGBFN^^~/GKKMMNNM;~~~~~~~~/MKLLLLLL;~~~~~~~~/@@@@@???;"D $       SAY "^^nfrwwp/@@BBFFNN;pppp````/NNNNNNNN;`@@@@@@@/NNNNNNMM;"( $       SET PROMPT = "''ESC'(#1abcdefghi jklmnopqr(B " $       GOTO OUT $!	 $ SPLASH: + $       IF P2 .NES. "1" THEN SAY "''CLEAR'" A $       SAY "''DCS'1;65;1{#1W[{{[]MM/??GKKKMM;MMM][{{{/MMMMMKKL;"OD $       SAY "{{wwyzz~/NNNNNNNN;~~~~}}}}/NNNNNNNN;{{wow{{}/NNNNNNNN;"D $       SAY "}}}}}~zz/NNNNNNNN;zzzroww{/NNNNNNNN;{{{[[[[[/NNNNNNNN;"D $       SAY "[[WG????/NNE?????;??@@@BRr/????????;rrb`@???/???@B???;"D $       SAY "@@BBBFFN/????????;^~~~~~~~/?@NNNNNN;~~~~~~~~/NNNNNNNN;"D $       SAY "~~~~~^NF/NNNN@???;FBB@`oOW/????@???;WWG?@```/??EB@@@@;"  $       SAY "`???????/????????;"( $       SET PROMPT = "''ESC'(#1abcdefghi jklmnopqr(B " $       GOTO OUT $!	 $ BAROOM: + $       IF P2 .NES. "1" THEN SAY "''CLEAR'"  $       SAY G "''DCS'1;65;1{#1}}}uuuuu/NNNKKKKK;uuuu}{K?/KKKKNFF?;_ow{meee/NNN@@@@@;"/2 $       SAY "eem{wo_?/@@@@NNN?;_______?/@@@@@@@?;"D $       SAY "}}}uuuuu/NNN?????;uuuu}{[?/??@BFMKG;ow{KKEEE/@BFEEKKK;"D $       SAY "EEKK{wo?/KKEEFB@?;ow{KKEEE/@BFEEKKK;EEKK{wo?/KKEEFB@?;"D $       SAY "}}}{wo_?/NNN?@BFN;_ow{}}}?/FB@?NNN?;??}}}}??/??LLLL??;"2 $       SET PROMPT = "''ESC'(#1abcdefghijklmn(B " $       GOTO OUT $! $ QUACK:+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'";A $       SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;"/2 $       SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;"( $       SET PROMPT = "''ESC'(#1abcd(B " $       GOTO OUT $! $ TEST:>+ $       IF P2 .NES. "1" THEN SAY "''CLEAR'" A $       SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;"S2 $       SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;"( $       SET PROMPT = "''ESC'(#1abcd(B " $       GOTO OUT $! $ NOT_VT220:7 $       NODE = F$STRING(F$LOGICAL("SYS$NODE")-"_"-"::")  $       SET PROMPT="''NODE'$ " $! $ OUT: $       EXIT  I Antonio Carlini                            Mail: carlini@true.lkg.dec.com1# DECnet-Plus for OpenVMS Engineering 6 COMPAQ                                     Reading, UK   ------------------------------  % Date: Tue, 16 May 2000 06:00:40 +0200 2 From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)! Subject: Re: Changing the prompt!M; Message-ID: <3920c7e8.524144494f47414741@radiogaga.harz.de>/  " Oberon (io@cableinet.co.uk) wrote:) : can't remember how the prompt was done.a     $ SET PROMPT="newprompt"   cu,O   Martin --D                        |  Martin Vorlaender  |  VMS & WNT programmer1   OpenVMS: When you    |  work: mv@pdv-systeme.de?H   KNOW where you want  |        http://www.pdv-systeme.de/users/martinv/8   to go today.         |  home: martin@radiogaga.harz.de   ------------------------------  # Date: Tue, 16 May 2000 15:43:35 GMT? From: itjck01@my-deja.com?5 Subject: Re: Compaq Bets Big on New Web Servers (WSJ) ) Message-ID: <8frqb5$c4a$1@nnrp1.deja.com>O  ) In article <8fovp5$67t$1@nnrp1.deja.com>,S   jgessling@yahoo.com wrote: >  > A > See page B8 of today's WSJ for this article.  Some high and lowQ lights.; > E > - "This technology is not too late to get them on the growth path",?# > says Richard Fichera, Giga group.F >G2 > - company has orders for 200 of the new machines >EG > - Online brokerage house E*Trade Group Inc, will spend $15 million on B > four of the new and existing Alpha computers to process customer trades.  > G > - Don Young, ... Paine Webber... "The game is already up, I wish they_9 > had cut their losses and quit wasting their time."  :-(V >/ > JimC  C I think, if anyone is interested in a more accurate line item list,  E*Trade is getting:C    GS160				4 - 12proc./32gb		$5.4M  GS140				3 - 8 proc./16gb		$2.7M DS20				10			        $726k ES40				1			        $177k'  EV67 Boards			12			        $576k ESA 12000			8 - 6 TB			$5.2M  ES40 Cab.			Inc.			        $127k  # 					            Total       $14.9M?   :) jck    & Sent via Deja.com http://www.deja.com/ Before you buy."   ------------------------------  # Date: Mon, 15 May 2000 17:42:28 GMT?- From: young_r@eisner.decus.org (Robert Young)r5 Subject: Re: Compaq Bets Big on New Web Servers (WSJ)/+ Message-ID: <LP8LLcZ0$yPO@eisner.decus.org>a  E In article <8fovp5$67t$1@nnrp1.deja.com>, jgessling@yahoo.com writes:  > G > - Don Young, ... Paine Webber... "The game is already up, I wish theyA9 > had cut their losses and quit wasting their time."  :-(O >   > 	But Itanium isn't set to ship until later this year.  I don't9 	know how any respected analyst can really say that Intelb: 	won't do well in the server space with Itanium as Itanium; 	based servers aren't even shipping yet nor due to ship for " 	at least another 4 or 5 months...  8 	Oh... he is referring to the new high-end AlphaServers?  : 	How can he be so pessimistic?  Maybe he has Intel inside?   				Rob_   ------------------------------  % Date: Tue, 16 May 2000 16:47:10 +0100 - From: Tim Llewellyn <tim.llewellyn@bbc.co.uk> % Subject: Re: CPU Temperature from DCLO) Message-ID: <39216D7E.A9E49CB7@bbc.co.uk>N  C when WILL people stop talking farenheit, it confuses me these days.G   "Richard D. Piccard" wrote:g   > Hoff Hoffman wrote:C > [snip]F > >   (There are some bits of conflicting information around -- again,J > >   this area is not documented and is subject to change.  If you reallyJ > >   want to pursue this, you'll need the service manual for the platformK > >   and the OpenVMS source listings.  I don't know if the values returnedDK > >   are in fahrenheit, centigrade, or something else -- though the values?L > >   circa 70 does certainly look reasonable for a computer in centigrade.) > @ > Fahrenheit more likely.  70 Celsius would be 158 Fahrenheit, aJ > temperature at which I would expect most modern electronics to exhibit a > very short working life. >@% >                                 RDP_ >o > --D > ==================================================================D > Dick Piccard                           Academic Technology ManagerD > piccard@ohio.edu                                 Computer ServicesD > http://oak.cats.ohiou.edu/~piccard/                Ohio University   --6 Tim Llewellyn, OpenVMS Infrastructure, Remarcs Project0 MedAS at the BBC, Whiteladies Road, Bristol, UK.A Email tim.llewellyn@bbc.co.uk. Home tim.llewellyn@cableinet.co.ukA  A I speak for myself only and my views in no way represent those ofK MedAS or the BBC.    ------------------------------  % Date: Tue, 16 May 2000 17:24:25 +0100}* From: "Richard Brodie" <R.Brodie@rl.ac.uk>% Subject: Re: CPU Temperature from DCL?, Message-ID: <8frso0$1g2k@newton.cc.rl.ac.uk>  [ "Richard D. Piccard" <piccard@ohio.edu> wrote in message news:3921542C.5F30EF6A@ohio.edu...N  @ > Fahrenheit more likely.  70 Celsius would be 158 Fahrenheit, aJ > temperature at which I would expect most modern electronics to exhibit a > very short working life.  E It depends exactly where you are measuring. 70C on chip is not really H that hot at all. Even Transmeta's cool new processor is running at ~50C.   ------------------------------  # Date: Tue, 16 May 2000 11:54:34 GMT}/ From: "John Nixon" <jorlnixon@worldnet.att.net>K. Subject: Re: Deadlock problems have me stumpedG Message-ID: <_FaU4.13077$XO1.708180@bgtnsc06-news.ops.worldnet.att.net>?  H DECamds, (or Availability Manager)  is great for helping determine which$ lock is blocked, and which processesF are waiting for the lock, and for finding which process is holding the) blocking lock.  Try it, you'll like it...N    K "Russell E. Owen" <owen@astroNOJNK.washington.edu.invalid> wrote in message=, news:8fq3o2$182e$1@nntp6.u.washington.edu...J > I have software that makes extensive use of locks to coordinate multipleJ > processes. Roughly once a month a lock conversion request fails due to aH > deadlock error. I haven't found the problem in the code, so I modifiedD > the code to call SYS$GETLKI and return information about all locksH > whenever a deadlock is detected. Even examining that output I am stillE > stumped. If anyone has any suggestions what to look for, I would be  > grateful.r >iH > In English, T_TRACK was updating Obj data in a simple global database.H > It was holding Obj in the PW state while it prepared the changes, thusB > allowing read-only users access to Obj. T_TRACK then requested aG > conversion from PW to EX so it could write the updated data -- it was J > this request that failed.T_GUIDE also wanted to update the Obj data, and( > so was waiting until T_TRACK was done. >oJ > Note that normally a request to convert from NL to PW should not block aI > request to convert from PW to EX. And indeed, my explicit tests of thisiE > sequence do not fail. So something else must be going on, but what?n >e >r >SH > Here is a summary of the data, showing locks held by the process whoseF > conversion was denied (T_PTERR) and locks held by other process thatH > share one or more locks with T_PTERR. I omitted locks that are grantedH > null and have no change request queued. However, a complete listing of@ > all locks is appended, as well as a listing of process quotas. >TJ > Lock Name   Lock ID     Parent ID  Grnt  Req  Que  ProcName   State NoteD > Obj         385877418   1811940707  NL    PW   1   T_PTERR       5 >nI > Obj         16778329    16777659    PW    EX   1   T_TRACK      14    1 D > tgm_Parent  16777659    0           CR    NL   1   T_TRACK      14 >iI > Obj         318767854   1275069623  NL    PW   0   T_GUIDE       5    2hD > tgm_Parent  1275069623  0           CR    NL   1   T_GUIDE       5 >hD > TCCUSER2    1241515749  0           PW    EX   1   TCCUSER       5 >nD > TCCUSER1    201328362   0           PW    EX   1   _TNA483:      5 > D > prt_LTA3:   1073743248  0           EX    EX   1   T_STATUS      5D > TCC_ROT     16779245    0           PR    NL   1   T_STATUS      5 >I > Where:( > Grnt is the granted state for the lockJ > Req is the requested state for the lock (irrelevant if the lock has been
 > granted)  > Que is the lock queue, one of: > * 0: lock conversion waiting, > * 1: lock granted (ignore requested state)? > * 255: new lock request waiting (but there are none of these)"% > State is the process state, one of:S+ > * SCH$C_LEF = 5;  ! LOCAL EVENT FLAG WAITS$ > * SCH$C_HIB = 7;  ! HIBERNATE WAIT+ > * SCH$C_CUR = 14; ! CURRENT PROCESS STATEK >Z > Notes:? > 1: this is the lock whose conversion from PW to EX was denied ( > 2: this ithe only pending lock request >P > -- Russell >Z >E >  > Process quotas:  > ; > Maxjobs:         0  Fillm:       100  Bytlm:        64000 ; > Maxacctjobs:     0  Shrfillm:      0  Pbytlm:           0 ; > Maxdetach:       0  BIOlm:       150  JTquota:       4096 ; > Prclm:          20  DIOlm:       150  WSdef:         2000E; > Prio:            4  ASTlm:       250  WSquo:         4000 ; > Queprio:         0  TQElm:        50  WSextent:     16384E; > CPU:        (none)  Enqlm:      2000  Pgflquo:      50000! >  >W >DC > A complete listing of locks in the order the data was returned by  > SYS$GETLKIW: > E > Lock Name   Lock ID     Parent ID  Grnt  Req  Que  ProcName   State D > AppGeo      1090520919  1275069623  NL    NL   1   T_GUIDE       5D > AppGeo      1577059685  654312684   NL    NL   1   T_COMPAPPGEO  7D > AppGeo      16777767    1811940707  NL    NL   1   T_PTERR       5D > AppGeo      16777821    16777659    NL    NL   1   T_TRACK      14D > AppGeo      16778980    738199524   NL    NL   1   TCCUSER       5D > AxeLim      1073743122  1275069623  NL    NL   1   T_GUIDE       5D > AxeLim      16777323    16777659    NL    NL   1   T_TRACK      14D > AxeLim      16777793    1811940707  NL    NL   1   T_PTERR       5D > AxeLim      419431895   1140850855  NL    NL   1   _TNA483:      5D > AxeLim      452985367   738199524   NL    NL   1   TCCUSER       5D > Earth       16777331    16777659    NL    NL   1   T_TRACK      14D > Earth       16778822    738199524   NL    NL   1   TCCUSER       5D > Earth       16778990    1811940707  NL    NL   1   T_PTERR       5D > Earth       2046821439  989857107   NL    NL   1   T_SLOW        7D > Earth       234881607   1275069623  NL    NL   1   T_GUIDE       5D > GHist       1241515146  1275069623  NL    NL   1   T_GUIDE       5D > GS          16777314    1811940707  NL    NL   1   T_PTERR       5D > GS          16778393    1275069623  NL    NL   1   T_GUIDE       5D > GS          16779150    1140850855  NL    NL   1   _TNA483:      5D > GS          285214043   738199524   NL    PW   1   TCCUSER       5D > Inst        1241515574  587203074   NL    NL   1   T_STATUS      5D > Inst        134219300   1140850855  NL    NL   1   _TNA483:      5D > Inst        16777592    16777659    NL    NL   1   T_TRACK      14D > Inst        16778133    16777800    NL    NL   1   T_COLLIMATE   7D > Inst        16778361    1811940707  NL    NL   1   T_PTERR       5D > Inst        318768379   1275069623  NL    NL   1   T_GUIDE       5D > Inst        570426618   587202836   NL    NL   1   T_GCAMUSER    5D > Inst        788530133   738199524   NL    NL   1   TCCUSER       5D > LouvPos     1392509428  1140850855  NL    NL   1   _TNA483:      5D > LouvPos     16778975    16778893    NL    NL   1   T_AUTOLOUVER  7D > Mir         16777655    16777800    NL    NL   1   T_COLLIMATE   7D > Mir         385876831   738199524   NL    NL   1   TCCUSER       5D > Obj         117441294   1140850855  NL    PW   1   _TNA483:      5D > Obj         16778329    16777659    PW    EX   1   T_TRACK      14D > Obj         16778675    16777800    NL    NL   1   T_COLLIMATE   7D > Obj         16778869    16778893    NL    NL   1   T_AUTOLOUVER  7D > Obj         2013267463  587203074   NL    NL   1   T_STATUS      5D > Obj         268436861   738199524   NL    PW   1   TCCUSER       5D > Obj         318767854   1275069623  NL    PW   0   T_GUIDE       5D > Obj         385877418   1811940707  NL    PW   1   T_PTERR       5D > prt_LTA11:  16777393    0           NL    NL   1   TCCUSER       5D > prt_LTA11:  83887510    0           NL    NL   1   _TNA483:      5D > prt_LTA12:  1660946130  0           NL    NL   1   T_MOCKCTRL    5D > prt_LTA15:  234881153   0           NL    NL   1   TCCUSER       5D > prt_LTA15:  33555484    0           NL    NL   1   T_COLLIMATE   7D > prt_LTA2:   1358955846  0           NL    NL   1   T_SLOW        7D > prt_LTA3:   1073743248  0           EX    EX   1   T_STATUS      5D > prt_LTA3:   1593836673  0           NL    EX   1   _TNA483:      5D > prt_LTA3:   16778641    0           NL    EX   1   T_PTERR       5D > prt_LTA3:   201327497   0           NL    EX   1   T_GUIDE       5D > prt_LTA3:   83887074    0           NL    EX   1   T_TRACK      14D > prt_LTA3:   922747755   0           NL    EX   1   TCCUSER       5D > prt_LTA4:   1207961040  0           NL    EX   1   TCCUSER       5D > prt_LTA4:   1275070423  0           NL    EX   1   _TNA483:      5D > prt_LTA4:   1291846701  0           NL    EX   1   T_STATUS      7D > prt_LTA4:   16777327    0           NL    EX   1   T_PTERR       5D > prt_LTA4:   16777491    0           NL    EX   1   T_TRACK      14D > prt_LTA4:   637535938   0           NL    EX   1   T_GUIDE       5D > prt_LTA5:   16777944    0           NL    EX   1   T_TRACK      14D > prt_LTA5:   16778229    0           NL    EX   1   T_PTERR       5D > prt_LTA5:   16779200    0           NL    NL   1   T_STATUS      5D > prt_LTA5:   352323383   0           NL    EX   1   T_GUIDE       5D > prt_LTA5:   385876739   0           NL    EX   1   TCCUSER       5D > prt_LTA5:   50332827    0           NL    EX   1   _TNA483:      5D > prt_LTA6:   16778852    0           NL    NL   1   _TNA483:      5D > prt_LTA6:   16779225    0           NL    NL   1   T_COLLIMATE   7D > prt_LTA6:   318768826   0           NL    NL   1   TCCUSER       5D > prt_LTA7:   150996770   0           NL    NL   1   _TNA483:      5D > prt_LTA7:   16777858    0           NL    NL   1   T_GCAMUSER    5D > prt_LTA7:   16778276    0           NL    NL   1   T_GUIDE       5D > prt_LTA7:   33556244    0           NL    NL   1   T_PTERR       5D > prt_LTA8:   1593836284  0           NL    NL   1   TCCUSER       5D > prt_LTA8:   16778353    0           NL    NL   1   T_COLLIMATE   7D > TCCUSER1    201328362   0           PW    EX   1   _TNA483:      5D > TCCUSER2    1241515749  0           PW    EX   1   TCCUSER       5D > TCC_GCAM    1342179281  0           NL    NL   1   T_SLOW        7D > TCC_GCAM    16777695    0           NL    NL   1   T_GUIDE       5D > TCC_GCAM    16778488    0           NL    NL   1   T_GCAMUSER    5D > TCC_GCAM    218104887   0           NL    NL   1   _TNA483:      5D > TCC_GCAM    33555131    0           NL    NL   1   T_PTERR       5D > TCC_GMECH   1174406602  0           NL    NL   1   T_SLOW        7D > TCC_GMECH   16778570    0           NL    NL   1   T_COLLIMATE   7D > TCC_GMECH   318768626   0           NL    NL   1   TCCUSER       5D > TCC_GMECH   50333343    0           NL    NL   1   _TNA483:      5D > TCC_ROT     1442841884  0           NL    NL   1   T_GUIDE       5D > TCC_ROT     1493172643  0           NL    NL   1   T_SLOW        7D > TCC_ROT     16777973    0           NL    NL   1   T_PTERR       5D > TCC_ROT     16779245    0           PR    NL   1   T_STATUS      5D > TCC_ROT     184550157   0           NL    NL   1   T_TRACK      14D > TCC_ROT     50333344    0           NL    NL   1   _TNA483:      5D > TCC_ROT     838862039   0           NL    NL   1   TCCUSER       5D > TelMod      1543504427  1811940707  NL    NL   1   T_PTERR       5D > TelMod      16777652    16777659    NL    NL   1   T_TRACK      14D > TelMod      2013266441  1275069623  NL    NL   1   T_GUIDE       5D > TelMod      251659105   738199524   NL    NL   1   TCCUSER       5D > TelMod      50333687    1140850855  NL    NL   1   _TNA483:      5D > tgm_Parent  1140850855  0           NL    NL   1   _TNA483:      5D > tgm_Parent  1275069623  0           CR    NL   1   T_GUIDE       5D > tgm_Parent  16777659    0           CR    NL   1   T_TRACK      14D > tgm_Parent  16777800    0           NL    NL   1   T_COLLIMATE   7D > tgm_Parent  16778893    0           NL    NL   1   T_AUTOLOUVER  7D > tgm_Parent  1811940707  0           NL    NL   1   T_PTERR       5D > tgm_Parent  587202836   0           NL    NL   1   T_GCAMUSER    5D > tgm_Parent  587203074   0           NL    NL   1   T_STATUS      7D > tgm_Parent  654312684   0           NL    NL   1   T_COMPAPPGEO  7D > tgm_Parent  738199524   0           NL    NL   1   TCCUSER       5D > tgm_Parent  989857107   0           NL    NL   1   T_SLOW        7D > Tune        16778022    1811940707  NL    NL   1   T_PTERR       5D > Tune        16778544    16777800    NL    NL   1   T_COLLIMATE   7D > Tune        16778742    16777659    NL    NL   1   T_TRACK      14D > Tune        1862271737  587203074   NL    NL   1   T_STATUS      7D > Tune        201326927   738199524   NL    NL   1   TCCUSER       5D > Tune        419432291   989857107   NL    NL   1   T_SLOW        7D > Tune        50331886    1140850855  NL    NL   1   _TNA483:      5D > Tune        603980145   1275069623  NL    NL   1   T_GUIDE       5D > Weath       16777970    16778893    NL    NL   1   T_AUTOLOUVER  7D > Weath       16778166    16777800    NL    NL   1   T_COLLIMATE   7D > Weath       285214074   738199524   NL    NL   1   TCCUSER       5   ------------------------------  % Date: Tue, 16 May 2000 08:56:01 -0700T@ From: "Russell E. Owen" <owen@astroNOJNK.washington.edu.invalid>. Subject: Re: Deadlock problems have me stumped1 Message-ID: <8frr2h$kek$1@nntp6.u.washington.edu>   = In article <39210B92.398FD3DE@CCAgroup.co.uk>, Chris Sharman n% <Chris.Sharman@CCAgroup.co.uk> wrote:p   >Russell E. Owen wrote:t >>  K >> I have software that makes extensive use of locks to coordinate multipleiK >> processes. Roughly once a month a lock conversion request fails due to aiI >> deadlock error. I haven't found the problem in the code, so I modified E >> the code to call SYS$GETLKI and return information about all locks8I >> whenever a deadlock is detected. Even examining that output I am still F >> stumped. If anyone has any suggestions what to look for, I would be >> grateful. > E >Was the failed $enq call using lck$m_quecvt ? That would explain theDH >deadlock error (t_track would wait behind t_guide, which is waiting forA >t_track). If not, please post the $enq call details - do you user >unblockingo >ASTs, etc.   F I didn't use lck$m_quecvt, in fact I'd never heard of it before -- it I isn't described in my old (April 1986) system services reference manual. sF Looks like it's time to check out modern lock manager, now that we're ' finally upgrading our operating system.   E Here is the call. I've included the error handling in case something tI there is relevant. Statement 999 prints out information about the failed s4 conversion and about all locks; in this case it ran.  4 flags was 0, so the only flag used was lck$m_Convert lockMode was lck$k_ExMode = 5s lockStat is one of these:      STRUCTURE /lck__Stat_type/        INTEGER*2 vmsCond, null        INTEGER*4 lockIDh        INTEGER value(16)     END STRUCTUREd8 lockStat.lockID was set to the ID of the lock to convertB the other fields in lockStat were probably zero when the call was F initiated, but conceivably could have been something else (especially 	 vmsCond).7       vmsCond = SYS$ENQW ( ,B     2  %val (lockMode), lockStat, %val (flags .OR. lck$m_Convert),     2  , , , , , , )     IF (.NOT. vmsCond) THENi+        IF (vmsCond .EQ. ss$_NotQueued) THEN            GOTO 919        ELSE (           CALL msg_OutVMSError (vmsCond)           GOTO 999        ENDIF	     ENDIFu$     IF (.NOT. lockStat.vmsCond) THEN6        IF (lockStat.vmsCond .EQ. ss$_ValNotValid) THENA           CALL tut_Error (ModName, 2, 'lock value block invalid'),           valBad = .TRUE.l        ELSEt1           CALL msg_OutVMSError (lockStat.vmsCond)o           GOTO 999        ENDIF	     ENDIFa  F This is on an Alpha, and this particular error was seen on VMS 7.2-1, . though we also have the problem on VMS 1.5-1H1   ------------------------------  % Date: Tue, 16 May 2000 08:49:22 +0100 2 From: Chris Sharman <Chris.Sharman@CCAgroup.co.uk>. Subject: Re: Deadlock problems have me stumped. Message-ID: <39210B92.398FD3DE@CCAgroup.co.uk>   Russell E. Owen wrote: > J > I have software that makes extensive use of locks to coordinate multipleJ > processes. Roughly once a month a lock conversion request fails due to aH > deadlock error. I haven't found the problem in the code, so I modifiedD > the code to call SYS$GETLKI and return information about all locksH > whenever a deadlock is detected. Even examining that output I am stillE > stumped. If anyone has any suggestions what to look for, I would be1 > grateful.:  D Was the failed $enq call using lck$m_quecvt ? That would explain theG deadlock error (t_track would wait behind t_guide, which is waiting for @ t_track). If not, please post the $enq call details - do you use
 unblocking
 ASTs, etc.   Chrisa   ------------------------------  # Date: Tue, 16 May 2000 12:36:09 GMTr From: rickytiki@my-deja.comt Subject: Debug problem) Message-ID: <8frfbn$vbb$1@nnrp1.deja.com>d   Hi everyonew  G I'm migrating some applications from VAX OpenVMS 5.5-2 to Alpha OpenVMSr 7.2;> these applications contain some SQL code for the RDBMS Ingres.  H Here is my problem: when I try to debug the code the debugger of OpenVMSD says that it doesn't find the source code: I'm executing the program from1 the directory where thera are the C and SC files.p   Thanks for the help    Bye, Riccardo    & Sent via Deja.com http://www.deja.com/ Before you buy.i   ------------------------------  % Date: Tue, 16 May 2000 06:09:00 -0700h5 From: "cstranslations" <cstranslations@email.msn.com>' Subject: Re: Debug problem) Message-ID: <#CKHpfzv$GA.244@cpmsnbbsa04>n  L <rickytiki@my-deja.com> wrote in message news:8frfbn$vbb$1@nnrp1.deja.com...
 > Hi everyonem >sI > I'm migrating some applications from VAX OpenVMS 5.5-2 to Alpha OpenVMS  > 7.2;@ > these applications contain some SQL code for the RDBMS Ingres. >oJ > Here is my problem: when I try to debug the code the debugger of OpenVMSF > says that it doesn't find the source code: I'm executing the program > from3 > the directory where thera are the C and SC files.h  G Was it compiled and linked with the debug qualifiers and if so have thegK files been moved director(ies) other than the one(s) were they were locatedlJ when the code was compiled. If it's a different location then once you getL into the debugger you will have to tell it where the source file is located., Off the top of my head I don't remember how.   Joeh     > Thanks for the helpI >a > Byet
 > Riccardo >e >j( > Sent via Deja.com http://www.deja.com/ > Before you buy.o   ------------------------------  % Date: Tue, 16 May 2000 11:36:41 -0400e- From: Jonathan Boswell <jsb@ost.cdrh.fda.gov>e Subject: Re: EDT macros 0 Message-ID: <39216B09.5700BA6D@ost.cdrh.fda.gov>   Phillip Helbig wrote:r  5 > So you fire up TPU before you edit the file in EDT?   J Yup.  I just define the command LINEWRAP as indicated in the TPU program's comments and typeh   $ LINEWRAP filenamei  E for any files that give EDT problems.  The TPU program is very zippy.e    - JBu   ------------------------------   Date: 16 May 2000 07:50:08 GMT* From: helbig@astro.rug.nl (Phillip Helbig) Subject: Re: EDT macrost. Message-ID: <8fqujg$s3u$3@info.service.rug.nl>  ` In article <39208EEB.D553A44F@ost.cdrh.fda.gov>, Jonathan Boswell <jsb@ost.cdrh.fda.gov> writes:   >Phillip Helbig wrote: >>  I >> OK, I STILL haven't gotten around to using TPU.  It's still on my list K >> of things to do, honest.  (My main reason for this is to be able to make J >> use of LSE, but folks keep saying it will have other benefits as well.) >> hF >> I've only found two real disadvantages with EDT---the 255 character >> limit >1I >I don't know about the rest of your questions, but the long line problem H >has been such a PITA for so long that I wrote the following TPU programH >to solve it.  Obviously you can set the length limit to something other >than 80 chars.t  3 So you fire up TPU before you edit the file in EDT?l   ------------------------------   Date: 16 May 2000 08:00:23 GMT* From: helbig@astro.rug.nl (Phillip Helbig) Subject: Re: EDT macrosi. Message-ID: <8fqv6n$s3u$6@info.service.rug.nl>  B In article <8fquer$s3u$2@info.service.rug.nl>, helbig@astro.rug.nl (Phillip Helbig) writes:    % >Sorry, forgot that bit.  Here it is:I >  >$  E:=EDIT/EDTA" >$  DEFINE/USER_MODE EDT_FILE 'P1'3 >$  JFL = F$EXTRACT(0,F$LOCATE(".",P1),P1) + ".JOU"s/ >$  IF F$SEARCH(JFL) .NES. "" THEN GOTO JOURNAL * >$  DEFINE/USER_MODE SYS$INPUT SYS$COMMAND
 >$  E 'P1' >$EXIT >$  JOURNAL:- >$    WSO "%EE-E-JRNLFE, journal file exists" G >$  READ/PROMPT="press return to recover, ^Y to abort" SYS$COMMAND ANSW * >$  DEFINE/USER_MODE SYS$INPUT SYS$COMMAND >$  E/RECOVER 'P1' >$EXIT    In EDTINI.EDT, do something like   ! save the file2* DEFINE KEY GOLD W AS "EXT WRITE EDT_FILE."   ------------------------------  % Date: Mon, 15 May 2000 21:26:46 -0400 * From: Chuck Chopp <ChuckChopp@rtfmcsi.com>1 Subject: good price for a used MicroVAX 3100 M90?e+ Message-ID: <3920A3D6.FBF6D833@rtfmcsi.com>e  G I have an opportunity to buy a used MicroVAX 3100 M90 w/64MB of memory,RH a single 2GB hard drive, a 12 user license for OpenVMS, a 4mm tape driveD (TLZ0?) and a 8mm tape drive.  This would be a nice step up from theE uVAX 3100 M10 that I'm using right now for minor software development 	 projects.R  F What would be a fair price to pay for this system (used) assuming thatD shipping costs and sales tax are accounted for separately?  I expectH that I would paying prices similar to what a used equipment dealer wouldE to purchase the equipment, as opposed to paying what a used equipment 5 dealer would charge for the system when reselling it.P     TIA,   ChuckL -- Chuck Chopp   8 ChuckChopp@rtfmcsi.com            http://www.rtfmcsi.com0                                   ICQ # 22321532@ RTFM Consulting Services Inc.     864 801 2795 voice & voicemail2 103 Autumn Hill Road              864 801 2774 fax4 Greer, SC  29651                  800 400 4935 pagerC                                   8004004935@alphapage.airtouch.com    ------------------------------  % Date: Tue, 16 May 2000 11:41:08 +01006- From: Tim Llewellyn <tim.llewellyn@bbc.co.uk> 5 Subject: Re: good price for a used MicroVAX 3100 M90? ) Message-ID: <392125C4.FC24374F@bbc.co.uk>L  J Phillip Helbig wrote: It's not unreasonable to get something like this for free.  I'd pay up5  F > to $300 or so for it.  Keep in mind that used ALPHAs are starting to > appear cheap or free.3   with 12 user VMS licences?   --6 Tim Llewellyn, OpenVMS Infrastructure, Remarcs Project0 MedAS at the BBC, Whiteladies Road, Bristol, UK.A Email tim.llewellyn@bbc.co.uk. Home tim.llewellyn@cableinet.co.uk6  A I speak for myself only and my views in no way represent those of6 MedAS or the BBC.    ------------------------------  # Date: Mon, 15 May 2000 19:38:01 GMT 2 From: kaplow_r@eisner.decus.org.mars2 (Bob Kaplow)2 Subject: Re: HELP on calculating percentage in DCL+ Message-ID: <ayYtI6lo+xTg@eisner.decus.org>E  p In article <009EA1BE.E3FBD23B@SendSpamHere.ORG>, system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-) writes:T > In article <8fogt9$pkb$1@news.inet.tele.dk>, "Lars Jacobsen" <laja@tdk.dk> writes: >>Hello all. >>O >>I have a small routine that examines the blocks free and max available blocks D >>on a number of disk devices using F$GETDVI(device,"MAXBLOCKS") and >>F$GETDVI(device,"FREEBLOCK"). R >>Now I would like to perform some action (say send a mail) if the percentage free! >>is lower than a certain number.6
 >>Sort of: >>( >>$ b_max = F$GETDVI(device,"MAXBLOCKS")) >>$ b_free = F$GETDVI(device,"FREEBLOCK")L >>$ pct = (b_free*100)/b_max& >>$ IF pct .LT. 10 THEN GOTO send_mail >>. >>The calculation of PCT however doesn't work.3 >>It looks like there's an integer/decimal problem.   >>Using F$INTEGER hasn't helped. >> >>Any suggestions ?8 > 5 > $ b_max = F$GETDVI(device,"MAXBLOCK")		! not plural_6 > $ b_free = F$GETDVI(device,"FREEBLOCKS")	! is plural > $ pct = (b_free*100)/b_max& > $ IF pct .LT. 10 THEN GOTO send_mail > I > One thing you should also consider is checking that your multiplication J > by 100 has not caused an overflow.  With today's disks approaching sizesJ > of several 10s of GBs, you can easily overflow the computation of b_freeI > (making the value appear to be negative) and your resultant percentage 4< > will always be below the 10% threshold you've established.  C The simple workaround I'm using is to divide MAX by 100, instead of  multiplying FREE by 100:  ) 	$ pct           = b_free / (B_max / 100)0   	Bob Kaplow	  E SPAM:	spamrecycle@ChooseYourmail.com	uce@ftc.gov	postmaster@127.0.0.1    ------------------------------  % Date: Mon, 15 May 2000 11:44:08 +0200 # From: "Lars Jacobsen" <laja@tdk.dk>4. Subject: HELP on calculating percentage in DCL, Message-ID: <8fogt9$pkb$1@news.inet.tele.dk>  
 Hello all.  M I have a small routine that examines the blocks free and max available blocksUB on a number of disk devices using F$GETDVI(device,"MAXBLOCKS") and F$GETDVI(device,"FREEBLOCK").4P Now I would like to perform some action (say send a mail) if the percentage free is lower than a certain number.  Sort of:  & $ b_max = F$GETDVI(device,"MAXBLOCKS")' $ b_free = F$GETDVI(device,"FREEBLOCK")2 $ pct = (b_free*100)/b_max$ $ IF pct .LT. 10 THEN GOTO send_mail  , The calculation of PCT however doesn't work.1 It looks like there's an integer/decimal problem.X Using F$INTEGER hasn't helped.   Any suggestions ?      -- Kind Regards. ----------------------------------------------. Lars Jacobsen          Phone : +45 89 45 41 80. Tele Danmark IT        Fax   : +45 89 45 61 02 Takseringssystemer (BNTT) + S/8-173                email  : laja@tdk.dkI Gunnar Clausens Vej 28 DK-8260 Viby J. ----------------------------------------------   ------------------------------  % Date: Mon, 15 May 2000 13:04:38 +0900 2 From: Mike Rechtman <michael.rechtman@digital.com>2 Subject: Re: HELP on calculating percentage in DCL+ Message-ID: <391FF5E5.73D3331D@digital.com>    Lars Jacobsen wrote: >  > Hello all. > O > I have a small routine that examines the blocks free and max available blocks D > on a number of disk devices using F$GETDVI(device,"MAXBLOCKS") and > F$GETDVI(device,"FREEBLOCK").XR > Now I would like to perform some action (say send a mail) if the percentage free! > is lower than a certain number. 
 > Sort of: > ( > $ b_max = F$GETDVI(device,"MAXBLOCKS")) > $ b_free = F$GETDVI(device,"FREEBLOCK")I > $ pct = (b_free*100)/b_max   Try:   $ pct = b_free / (b_max/100)  & > $ IF pct .LT. 10 THEN GOTO send_mail > . > The calculation of PCT however doesn't work.3 > It looks like there's an integer/decimal problem.   > Using F$INTEGER hasn't helped. >  > Any suggestions ?S >  >    ~mikeC -- CE --------------------------------------------------------------------- E Usual disclaimer: All opinions are mine alone, perhaps not even that. ? Mike Rechtman                            *rechtman@tzora.co.il* F Kibbutz Tzor'a.                          Voice (home): 972-2-9908337  B   "20% of a job takes 80% of the time, the rest takes another 80%"E ---------------------------------------------------------------------    ------------------------------  # Date: Mon, 15 May 2000 10:25:56 GMT8= From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-) 2 Subject: Re: HELP on calculating percentage in DCL0 Message-ID: <009EA1BE.E3FBD23B@SendSpamHere.ORG>  R In article <8fogt9$pkb$1@news.inet.tele.dk>, "Lars Jacobsen" <laja@tdk.dk> writes: >Hello all.  >MN >I have a small routine that examines the blocks free and max available blocksC >on a number of disk devices using F$GETDVI(device,"MAXBLOCKS") and5 >F$GETDVI(device,"FREEBLOCK").Q >Now I would like to perform some action (say send a mail) if the percentage free   >is lower than a certain number.	 >Sort of:  > ' >$ b_max = F$GETDVI(device,"MAXBLOCKS") ( >$ b_free = F$GETDVI(device,"FREEBLOCK") >$ pct = (b_free*100)/b_max6% >$ IF pct .LT. 10 THEN GOTO send_mailT >K- >The calculation of PCT however doesn't work. 2 >It looks like there's an integer/decimal problem. >Using F$INTEGER hasn't helped.T >T >Any suggestions ?  3 $ b_max = F$GETDVI(device,"MAXBLOCK")		! not plural 4 $ b_free = F$GETDVI(device,"FREEBLOCKS")	! is plural $ pct = (b_free*100)/b_max$ $ IF pct .LT. 10 THEN GOTO send_mail  G One thing you should also consider is checking that your multiplication1H by 100 has not caused an overflow.  With today's disks approaching sizesH of several 10s of GBs, you can easily overflow the computation of b_freeG (making the value appear to be negative) and your resultant percentage  : will always be below the 10% threshold you've established.   --N VAXman- OpenVMS APE certification number: AAA-0001           VAXman@TMESIS.COM  L GNU Freeware -- What does the GNU *really* stand for?  Garbage!  Not Usable!   ------------------------------  % Date: Tue, 16 May 2000 10:08:40 +0200 = From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com> 2 Subject: Re: HELP on calculating percentage in DCL) Message-ID: <39210208.B8F653D3@gtech.com>6   Karl Rohwedder wrote:E? > the item codes for F$GETDVI are MAXBLOCK and FREEBLOCKS, whenA > corrected the routine  > performs o.k. for me.   # Depends on how big your disks are !    Arne   ------------------------------  # Date: Tue, 16 May 2000 09:03:56 GMT- From: graculuss@my-deja.com ( Subject: Help with ACL's (file security)) Message-ID: <8fr2tl$hrt$1@nnrp1.deja.com>a   Hi all,cA   I wonder if you would like to apply your little grey cells to a@G little situation I have ( I hesitate to call it a problem 'cos it isn't, really).   What I am trying to achieve:  F I have an application written mainly in DCL, it will search for a listC of datafiles in a directory using F$SEARCH("*.dat"), I then want tooG determine if the user has access to the file, and if so present it on a 2 list of files which they are then allowed to open.  % Heres how I'm doing it at the moment.I5 The directory containing the files is protected thus:    dir/sec  DISK5_APP_SW:[RH]data   Directory DISK5_APP_SW:[RH]s  < DATA.DIR;1             [SYSTEM]              (RWE,RWE,RE,RE)B           (IDENTIFIER=RH_USER,OPTIONS=DEFAULT,ACCESS=READ+EXECUTE)2           (IDENTIFIER=RH_USER,ACCESS=READ+EXECUTE)  . The files in the directory are protected thus: diree/sec rh_data:*.dato    Directory DISK5_APP_SW:[RH.DATA]  E RH$DATA_LA.DAT;10    [SYSTEM]                         (RWED,RWED,RE,)n           (IDENTIFIER     & Sent via Deja.com http://www.deja.com/ Before you buy.s   ------------------------------  # Date: Tue, 16 May 2000 15:50:54 GMTe From: graculuss@my-deja.comp, Subject: Re: Help with ACL's (file security)) Message-ID: <8frqom$coo$1@nnrp1.deja.com>a  - In article <39211E83.FCF11611@volkswagen.de>,p=   Karl Rohwedder <extern.karl.rohwedder@volkswagen.de> wrote:aD > Since the DIRECTORY commands does not allow for selection of files > with certain ACE,kE > you could use the FIND utility to create a list of all files with al > specific ACE, 9 > then scan the list and present a menu to the user, e.g.  > FIND /ACE=RH_GL ...  >N: > You can obtain the FIND utility using the following URL: >c9 > 	http://www2.wku.edu/scripts/fileserv/fileserv.com?FINDn >e Karl,aE    Thanks for your reply, I'll certainly have a look at FIND, howeverlD company policy means I'm not allowed to use freeware or shareware in. the application so I'll need another solution.    & Sent via Deja.com http://www.deja.com/ Before you buy.s   ------------------------------  % Date: Mon, 15 May 2000 15:03:12 +0200 , From: "Bart Zorn" <B.Zorn@TrueBit.nospam.nl>O Subject: Re: How do I disable opcom messages between cluster nodes on VMS 7.2 ?l0 Message-ID: <8foshs$pne$1@nereid.worldonline.nl>   You can do:r  ' $ DEFINE/SYSTEM OPC$ALLOW_INBOUND FALSE," $ DEFINE/SYSTEM OPC$OUTBOUND FALSE  ! Default is TRUE for both of them.r  	 Bart Zorns  3 "Mark Janson" <mjanson@nospam.com> wrote in message 2 news:m0nvhsgmdpsku5np45m252lojolb2ek4f3@4ax.com...F > We only want the opcom messages generated on a particular node to be	 broadcast-* > ONLY on that node, and not cluster wide. >9L > I think I recall a system wide logical being available after V7 to do what we > need?e   ------------------------------   Date: 16 May 2000 13:12:15 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)" Subject: Re: How Do I Enable Mail?6 Message-ID: <8frhff$fla$1@mailint03.im.hou.compaq.com>  Y In article <39206215.CB1EDFD1@laughnet.net>, Stephen Henry <stephen@laughnet.net> writes:dN :        I don't think that's it.  I'm trying the system account, as well as aO :few users, all of which either don't have the dismail flag, or had it removed,  :and still no mail.h  C   I don't think that's it, either.  The /FLAG=DISMAIL prevents the hD   reception of new mail.  It does not prevent access to nor the use !   of the MAIL utility.  (Try it.)    :Jethro Bodine wrote:  : = :> In article <391CDAA5.4D669304@laughnet.net>, Stephen Henryu  :> <stephen@laughnet.net> wrote: :>F :> >     I recently purchased a VAX 4000/200 running OpenVMS 6.1 at an :> > auction.  @  D   Get the OpenVMS Hobbyist distribution as referenced in the OpenVMSB   FAQ, and reinstall OpenVMS and the layered products on this box.  C :> > ... but I can't get into mail.  Every time I try and run it it G :> > tells me MAIL HAS BEEN DISABLED.  Any ideas as to how to fix this.     D   If that text is *exactly* the text that you see, and has not been A   paraphrased, edited, folded, upcased, spindled, expurgated, or h>   otherwise mutilated, then it's not a standard OpenVMS error.   :> > I do have SYSTEM access.j  E   Use SHOW LOGICAL MAIL to see if the MAIL image has been redirected.1F   (If there is a MAIL logical name around, deassign it and try again.)F   Yse ANALYZE/IMAGE SYS$SYSTEM:MAIL.EXE and see if the MAIL image has C   been replaced.  The original V6.1 MAIL.EXE image looks like this:b   	...(         Image Identification Information  "                 image name: "MAIL"0                 image file identification: "X-4"7                 link date/time:  9-MAR-1994 02:09:31.93 .                 linker identification: "05-13" 	...  D   Further, the V6.1 MAIL.EXE image should occupy 160 blocks.  If youF   do not have this image, then you'll want to look for an ECO kit withC   MAIL for V6.1, or a copy of MAIL from any OpenVMS media you mightdE   have, or (better) get the distribution media and reinstall OpenVMS.w  @   If I were guessing, I'd guess this system has been "creatively?   modified" by the last owner, and -- unless you want to make ao@   career out of hunting down these modifications -- you'll want A   to reinstall the hobbyist OpenVMS kit and the layered products.y  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Mon, 15 May 2000 11:43:07 -0500 " From: Earl Lakia <lakia@ipact.com>G Subject: Re: How to connect to a MS SQL Server database from VMS system ) Message-ID: <3920291B.E85E8E3E@ipact.com>n  = You could serve the data from your RMS files using one of thes; ODBC Compliant products.   That way the a DTS to import the : data.  This would require that the DTS be scheduled to run= periodically.   There are some other methods you could use toT? launch this when you need to such as RPC, a TCP/IP socket, etc.c  A However,  this is little better than what you are doing and maybe9; I'm just using up internet bandwidth.  The ODBC standard isc6 published but I don't know anyone who has done it from) OpenVMS to NT, only the other way around.   < I guess one could always build an RPC application on the VMS= side that would call an application on the NT side to get thef* data you want.  But all of this is custom.   -earl)   "Doar, Mandy (LGE-SP)" wrote:a  J > We have a need to download some data from a VMS system to an applicationN > using Microsoft's SQL Server.  Currently we are FTPing an ASCII file down toL > the NT server, and another procedure picks up the data and imports it into > the SQL Server database. >sI > Is there anything out there that we can run on the VMS system that willfI > allow a user on the VMS system to connect directly to the Microsoft SQL3I > Server database?  We've got an Alpha GS60 running VMS 7.1-2  Our TCP/IP - > software on the VMS system is Multinet 4.1B  >n > Mandy Doar > Lockwood Greenec > mdoar@lg.com   --
 Earl D. Lakial0 Senior Staff Engineer         Web: www.ipact.com4 Snail Mail:                   Email: lakia@ipact.com
 IPACT Inc.1 260 S. Campbell St.           Phone: 219-464-7212" Valparaiso, IN 46383   ------------------------------  % Date: Mon, 15 May 2000 21:34:26 -0400A% From: JM <vmswiz@geonospamcities.com>$G Subject: Re: How to connect to a MS SQL Server database from VMS systemrO Message-ID: <35AEE63EC60A78EA.46A6E810DCA2B5C3.DC826C9523E6B32E@lp.airnews.net>C   > "Doar, Mandy (LGE-SP)" wrote:  > H >Is there anything out there that we can run on the VMS system that willH >allow a user on the VMS system to connect directly to the Microsoft SQL >Server database?0  H Try "SuperNova". It has data engines and application engines that run onA almost all platforms, including VMS and NT. You could write an NTeC SuperNova application to connect to a SuperNova VMS data engine andeE populate the SQL database. You could probably also turn it aroudn andaD write a VMS SuperNova application that talks to an NT SuperNova data3 engine or possibly directly to the database itself.m  B So far, it seems to be an excellent development tool with seamless: integration amongst platforms and databases including RMS!  ? Recently purchased by WRQ, check out www.wrq.com and look underp "products".s   Happy user, YMMV...q   			*JM*l   ------------------------------  % Date: Mon, 15 May 2000 09:15:14 +0200m: From: Karl Rohwedder <extern.karl.rohwedder@volkswagen.de>. Subject: Re: How to make a loop in .com files?- Message-ID: <391FA402.8AED6A3D@volkswagen.de>c  , This is a multi-part message in MIME format.& --------------BEA12CCE3532AC57B1A824A1* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit4    i = 0 $ loop:6
 $ i = i +1 $ write sys$output iA $       Read/time=0/end=loop/err=loop/Prompt="" sys$command inputc $       goto exit- $ ! do something $ exit:e $ write sys$output "exit..."   Farzad Eskandari wrote:t >  > Hi,nH > I'm working under vax/vms 5.5 and I need to make a loop in a .com fileO > and I want it to continue unless Enter is pressed.Can any one please help me?a   -- g  - mit freundlichen Gruessen | with best regards    Karl Rohwedder               mC iT-Ingenieurteam     | Ellernbruch 11       | D-38112 Braunschweig hA Telefon: 0531/515521 | Telefax: 0531/515531 | Mobil: 0172/5434843,E  E-Mail: rohwedder@decus.decus.de           | iT-IngTeam@t-online.de i+          karl.rohwedder@it-ingenieurteam.de@ DATEX-P: 4505018005::ROHWEDDER& --------------BEA12CCE3532AC57B1A824A1- Content-Type: text/x-vcard; charset=us-ascii;-!  name="extern.karl.rohwedder.vcf"1 Content-Transfer-Encoding: 7bita, Content-Description: Card for Karl Rohwedder  Content-Disposition: attachment;%  filename="extern.karl.rohwedder.vcf"T   begin:vcard  n:Rohwedder;Karl tel;cell:+49 172 5434843 tel;fax:+49 531 515531 tel;home:+49 531 515521k tel;work:+49 5361 918724 x-mozilla-html:FALSE org:iT-Ingenieurteam version:2.1c2 email;internet:extern.karl.rohwedder@volkswagen.deG adr;quoted-printable:;;Ellernbruch 11=0D=0A;Braunschweig;;38112;Germanyk fn:Karl Rohwedderf	 end:vcarde  ( --------------BEA12CCE3532AC57B1A824A1--   ------------------------------  % Date: Tue, 16 May 2000 12:20:19 +0200s> From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr>+ Subject: how to reset a DS90M to flash bootD3 Message-ID: <8fr7ac$1ob1$1@s2.feed.news.oleane.net>"  @ somebody has used the reset button of a DS90M to reinitialize it to factory settings.  6 Since then, the DECserver does't try to boot via FLA:, but tries the network ...m  ( I can force the flash boot manually with CTRL B CTRL B& >>> B "" (double quote - double quote)  8 Is it possible to reset the server to automatically boot via the flash ?!   Cordialement Jean-Franois Marchalx X9000 - LYON   ------------------------------  % Date: Tue, 16 May 2000 15:00:26 +0200c> From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr>/ Subject: Re: how to reset a DS90M to flash boots3 Message-ID: <8frgmj$1vl2$1@s2.feed.news.oleane.net>a  F sure I forgot to tell the user to SET PRIV when CHANGE server software MNENG2E I've no ne work loadable image on the site the problem occured on ... # so I can't initiate a flash update.t  
 Jean-Franois0    G "Karl Rohwedder" <extern.karl.rohwedder@volkswagen.de> wrote in messagex' news:39212A8A.AF0B04B8@volkswagen.de...y@ > As far as I remember, a DS90M with flash memory will boot from > flashmemory,D > if the name of the software specified in server settings euals the > name in flashmemory. >:E > If the server has been reset, the software should be MNENG3, may bei > the name in flah differs.  >aG > To reload the flash force a reboot from networt and update the flash,U- > connect a terminal to the server and issue:v >, > SET PRIV ... > INIT UPDATE FLASHRAM >K. > HELP INIT displays some more usefull options >s  > "Jean-Franois Marchal" wrote: > >l > >t< > > Is it possible to reset the server to automatically boot > > via the flash ?e > >G > > Cordialement > > Jean-Franois Marchal0 > > X9000 - LYON >T > -- > / > mit freundlichen Gruessen | with best regardsd >n > Karl RohwedderD > iT-Ingenieurteam     | Ellernbruch 11       | D-38112 BraunschweigC > Telefon: 0531/515521 | Telefax: 0531/515531 | Mobil: 0172/5434843-F >  E-Mail: rohwedder@decus.decus.de           | iT-IngTeam@t-online.de- >          karl.rohwedder@it-ingenieurteam.de   > DATEX-P: 4505018005::ROHWEDDER   ------------------------------  + Date: Tue, 16 May 2000 07:25:26 -0600 (MDT)J) From: John Nebel <nebel@athena.csdco.com>-6 Subject: HSJ50 V5.7 firmware  (RE DS20-caused crashes)G Message-ID: <Pine.OSF.4.21.0005160721590.13869-100000@athena.csdco.com>o   It's SPD is at:L  / http://www.digital.com/info/SP6068/SP6068HM.HTM1    
 John Nebel   ------------------------------  % Date: Mon, 15 May 2000 19:33:07 -0400l* From: David A Froble <davef@tsoft-inc.com>$ Subject: Re: Initializing all drives- Message-ID: <39208933.CE146A6B@tsoft-inc.com>)   "Jay T. McCanta" wrote:E > D > I have several vaxen that need to have their disks wiped before weE > donate them.  I was using INIT/ERASE on the non-OS drives.  I got a C > backup of one the empty drives and I thought I would be clever byiF > booting SAbackup and doing a BACKUP/IMAGE/INIT/ERASE with my savesetH > of a naked drive.  OK, clever isn't my strong point.  Any ideas?  SomeD > systems have only a single drive, so installing VMS onto an erasedH > disk and erasing a second drive won't work. I have to erase the drivesH > for legal reasons - simple init'd won't do.  The systems are 3100's ofF > most flavors.  I remember the MicroVax 2000 has drive testing in itsF > boot console - you could wipe a drive with that.  I can't find it on > these newer boxes. >  > Any Ideas? > G > -===================================================================-0; > Jay McCanta              |  My opinions are barely my own-= > System Administrator     |  My employer doesn't necessarily-) > Immunex Corp.            |  share them. G > -===================================================================-V  O If you have a CD-ROM drive, and a fairly recent VMS CD, boot from the CD, there.N are a limited number of things you can do, but initing a disk is I believe one of them.  % What type of boxes are we discussing?    Dave   --  4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596; 170 Grimplin Road               E-Mail: davef@tsoft-inc.comw Vanderbilt, PA  15486m   ------------------------------   Date: 16 May 2000 15:35:21 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)$ Subject: Re: Initializing all drives6 Message-ID: <8frprp$ivn$2@mailint03.im.hou.compaq.com>  f In article <j5p0iskb89osonipkuh4v1ls6q3evmjm4e@4ax.com>, Jay T. McCanta <jmccanta@immunex.com> writes:C :I have several vaxen that need to have their disks wiped before weeG :donate the  A bootable OpenVMS VAX environment is available on current!  (   From the ATW posting of this question:   	--S  =   OpenVMS VAX CD distribution kits, via a bootstrap into root #   [SYS1].  Use the console command:d       >>> B/R5:10000000 ddcu:   >   Alternatively, load the required saveset onto an initialized;   disk, and bootstrap that, and then use that to initializee(   (INIT/ERASE) the original system disk.  >   The OpenVMS Wizard will assume that you are aware that folks?   with sufficient money and sufficient interest can potentially.=   recover at least some the data that is "left" on the target @   disk after an INIT/ERASE pass.  This is not particularly easy,=   nor is this particularly cheap.  It is, however conceivably-   possible.e  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  # Date: Tue, 16 May 2000 17:35:03 GMTc3 From: "Gord Coulman" <nospam_gcoulman@ccinet.ab.ca> $ Subject: Re: Initializing all drives: Message-ID: <bFfU4.11562$%u6.661573@news1.telusplanet.net>  > We initialize our old hard drives with a drill press.  Really.   Gord.     = Hoff Hoffman <hoffman@xdelta.zko.dec.nospam> wrote in messaget0 news:8frprp$ivn$2@mailint03.im.hou.compaq.com... >aI > In article <j5p0iskb89osonipkuh4v1ls6q3evmjm4e@4ax.com>, Jay T. McCantai <jmccanta@immunex.com> writes:E > :I have several vaxen that need to have their disks wiped before we I > :donate the  A bootable OpenVMS VAX environment is available on current  >i* >   From the ATW posting of this question: >" > -- >I? >   OpenVMS VAX CD distribution kits, via a bootstrap into root % >   [SYS1].  Use the console command:h >  >     >>> B/R5:10000000 ddcu:  >e@ >   Alternatively, load the required saveset onto an initialized= >   disk, and bootstrap that, and then use that to initialize * >   (INIT/ERASE) the original system disk. > @ >   The OpenVMS Wizard will assume that you are aware that folksA >   with sufficient money and sufficient interest can potentiallyE? >   recover at least some the data that is "left" on the targetpB >   disk after an INIT/ERASE pass.  This is not particularly easy,? >   nor is this particularly cheap.  It is, however conceivably 
 >   possible.n > , >  --------------------------- pure personal# opinion --------------------------- 1 >    Hoff (Stephen) Hoffman   OpenVMS Engineeringa hoffman#xdelta.zko.dec.com >c   ------------------------------  % Date: Tue, 16 May 2000 15:07:18 +0200D> From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr> Subject: INSVIRMEM when linkingd3 Message-ID: <8frh3f$1vv2$1@s2.feed.news.oleane.net>i  5 We've got a problem while linking a huge ada program.f %LINK-E-INSVIRMEM,0 insufficient virtual memory for 2,114,625. pages for cluster DEFAULT_CLUSTERl( The user's PGFLQUOTA is set to 3,000,000 The VMS version is 7.1-2,e9 so VIRTUALPAGECNT should not be involved if this problem.F   Any idea   Cordialement Jean-Franois Marchal/ X9000 - LYON   ------------------------------  # Date: Tue, 16 May 2000 13:55:06 GMT 1 From: "Mark D. Jilson" <jilly@clarityconnect.com>n# Subject: Re: INSVIRMEM when linking 1 Message-ID: <3921532D.25342F8@clarityconnect.com>e  H You need more PGFLQUOTA, try 6,000,000 or need to look at the program toD see if it can be changed to make the linking process more efficient.   "Jean-Franois Marchal" wrote: > 7 > We've got a problem while linking a huge ada program.  > %LINK-E-INSVIRMEM,2 > insufficient virtual memory for 2,114,625. pages > for cluster DEFAULT_CLUSTER * > The user's PGFLQUOTA is set to 3,000,000 > The VMS version is 7.1-2,B; > so VIRTUALPAGECNT should not be involved if this problem.s > 
 > Any idea >  > Cordialement > Jean-Franois Marchals > X9000 - LYON   -- lD Jilly	- Working from Home in the Chemung River Valley - Lockwood, NY0 	- jilly@clarityconnect.com			- Brett Bodine fan. 	- Mark.Jilson@Compaq.com			- since 1975 or so, 	- http://www.jilly.baka.com               -   ------------------------------  % Date: Tue, 16 May 2000 16:30:44 +0200 > From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr># Subject: Re: INSVIRMEM when linkingn3 Message-ID: <8frlvu$2373$1@s2.feed.news.oleane.net>u  @ what is strange in this case, is the fact that neither system or? user quota had been changed since last time the same executablea hab been built...   ; The programmer says everything has been built without debuge but  ...    C                                                  +----------------+'C                                                  ! Image Synopsis !tC                                                  +----------------+e  L Virtual memory allocated:                         C0000000 0000FFFF 40010000# (1073807360. bytes, 2097280. pages)rA Stack size:                                             20. pagesaE Image binary virtual block limits:                       0.        0.   0. blocks)o5 Image name and identification:                     01,; Number of files:                                       890. ; Number of modules:                                     890.u; Number of program sections:                            345. ; Number of global symbols:                            10235.t; Including undefined count of:                            1.e; Number of image sections:                              114.,: User transfer address:                            00000460: Debugger transfer address:                        00000340; Number of code references to shareable images:         553.a= Image type:                                       EXECUTABLE.$> Map format:                                       FULL in file8 SJ$ROOT:[SJ_DACS.SACS_EXE_S3.D0_0B.TEST]SACS_SIMU.MAP;14> Estimated map length:                             2197. blocksE                                               +---------------------+ E                                               ! Link Run Statistics ! E                                               +---------------------+a  F Performance Indicators                            Page Faults CPU Time Elapsed TimeL ----------------------                            ----------- -------- ----- -------hI     Command processing:                                   188 00:00:02.51  00:00:13.97 I     Pass 1:                                               236 00:00:05.08s 00:02:00.38-I     Allocation/Relocation:                                 55 00:00:00.19o 00:00:00.71wI     Pass 2:                                                 6 00:00:01.10  00:00:12.65-I     Map data after object module synopsis:                 14 00:00:00.67S 00:00:04.92aI     Symbol table output:                                    0 00:00:00.00- 00:00:00.00 I Total run values:                                         499 00:00:09.55  00:02:32.64H  I Using a working set limited to 15376 pages and 6527 pages of data storage2 (excluding image)c  8 Total number object records read (both passes):   186489C     of which 14 were in libraries and 42531 were DEBUG data recordsh containing 28191863 bytesr  6 Number of modules extracted explicitly             = 01     with 2 extracted to resolve undefined symbolsi  A 251 library searches were for symbols not in the library searchedh  4 A total of 0 global symbol table records was written    > ... So I'm not sure DEBUG has not been turned on somewhere ...    
 Jean-Franoisw    < "Mark D. Jilson" <jilly@clarityconnect.com> wrote in message+ news:3921532D.25342F8@clarityconnect.com...PJ > You need more PGFLQUOTA, try 6,000,000 or need to look at the program toF > see if it can be changed to make the linking process more efficient. >,  > "Jean-Franois Marchal" wrote: > > 9 > > We've got a problem while linking a huge ada program.i > > %LINK-E-INSVIRMEM,4 > > insufficient virtual memory for 2,114,625. pages > > for cluster DEFAULT_CLUSTERr, > > The user's PGFLQUOTA is set to 3,000,000 > > The VMS version is 7.1-2, = > > so VIRTUALPAGECNT should not be involved if this problem.s > >h > > Any idea > >  > > Cordialement > > Jean-Franois Marchal  > > X9000 - LYON >  > --F > Jilly - Working from Home in the Chemung River Valley - Lockwood, NY/ > - jilly@clarityconnect.com - Brett Bodine fan - > - Mark.Jilson@Compaq.com - since 1975 or so - > - http://www.jilly.baka.com               -    ------------------------------  # Date: Mon, 15 May 2000 15:09:11 GMTc= From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)1. Subject: Re: Is "The GNU on VMS Project" dead?0 Message-ID: <009EA1E6.76206F4C@SendSpamHere.ORG>  Z In article <8fovg7$b37$1@info.cs.uofs.edu>, bill@cs.scranton.edu (Bill Gunshannon) writes:q >In article <009EA0A1.5FFCAF88@SendSpamHere.ORG>, system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-) writes:, >|>  >|> The *REAL*M >|> problem is the "blinders on" bias placed on these packages by the eunuchslL >|> zealots that author them.  If Stallman and his crowd really wanted to be% >|> on platforms other than eunuchs,   > C >Talk about "blinders on"!! I can't speak for Stallman, but, trust s? >me, UNIX users could care less about all that free, opensourcet@ >software being ported  to VMS.  The majority of UNIX users have1 >never seen a VMS system and probably never will.   G ...and from what I have seen of the eunuchs freeware realm, most of the G programmers have never had to maintain a real application.  Sorry to betG bursting your bubble but "C" is NOT self-documenting as seems to be alltF the rage in most of the eunuchs born freeware.  Some basic source codeF documentation (aka. comments) which details what it is that some buggyF routine is to be doing would certainly help getting apps ported -- not( only to VMS but other eunuchs platforms.  A >If the VMS world doesn't want UNIX software, then don't port it.o  G The world doesn't want "UNIX software"; they want applications.  Scions-G of eunuchs much of it may be but that doesn't necessarily mean that thetG world is enamored of the quality or the way in which these apps work or  perform.    > >But, bitching because somebody didn't change the way they do @ >things to please you is really silly.  I, for on, would like toA >see more usable (and cross-platform compatable) applications fork? >the VMS machines I have to maintain.  Their good machines, but > >no one uses them because they lack the practical tools to do B >anything real in our environment.  And if the freeware COBOL ever@ >gets off the ground, I expect they will tell me to turn off all >the VMS machines completely.   F ...and necessarily biasing these applications you'd like to see to theE eunuchs op-sys is not going to allow you to see them on VMS!  ModularcE coding, for one, would make it a whole world easier to port said appsiI to VMS.  But no...  All sorts of crap (which could be easier implemented,2I more easily understood and far simpler to maintain in a layered approach).H is strewn about the code like a brain-fart during a bout of gastroenter-G itis.  It's not so much a problem that this stuff is eunuchs born as iteF is a problem with the skills of those producing the code.  ProgrammingH 101a (Intro to Programming) assignments far exceed the coding quality ofG much of the crap in the freeware realm.  Other problems include the usecG of kludgy methods for building these apps.  In one recent bit of code IeH have been working with, the build procedures are performed with "C" pre-H processing statements and the compiler's ability to produce intermediateF files.  The latest Compaq C V6.2 broke this package's ability to buildG because of a change implemented to absorb a new ANSI requisite.  Only a ? eunuch c/would have devised such a psychotic build methodology.a  I Not all freeware sucks.  IMHO, there are a number of outstanding packages H in the freeware realm -- some which far exceed the quality and function-I ality of their commercial counterparts.  Unfortunately, such packages areh in the minority.      A >Maybe its time for a reality check.  It is not UNIX market sharev >that is declining.o  J Please indicate where I claimed that it was, or that the VMS market share I was not?  I'm fighting an argument for bolstering the quality of freewarerJ and the mythconceptions -- and they DO exist -- that freeware is inherent-I ly flawed.  I've ported a number of eunuchs born freeware apps for my own.H use because I refuse to use some crap copyright of the Redmond league ofJ misfit programmers.  After dicking about for hours (and sometimes days) toH get the code to initially build, I find myself spending hours/days/weeksI debugging the code to get it to the point where it is semi-usable.  WouldxJ that I had the time, I might clean it up to the point where I'd release itI to the general public.  One reason not... pride to make the code as good wI as it can possibly be.  Another is, of course, copyright.  If the authorsfI that produce much of this crap would take 1/2 the time I have to spend toaA get a basic build to complete, I might have a different opinion.    I Crappy commercial code I can understand...  Some PHB/MGM sets the releasevJ date and the programmers/developers have to live with that schedule; oftenI releasing product that is not-ready-for-prime-time.  However, freeware is I not governed the PHB/MGM types spewing pert and gant chart scheduling and  dribbling martinis.e     --N VAXman- OpenVMS APE certification number: AAA-0001           VAXman@TMESIS.COM  L GNU Freeware -- What does the GNU *really* stand for?  Garbage!  Not Usable!   ------------------------------   Date: 15 May 2000 16:25:14 GMT2 From: mathog@seqaxp.bio.caltech.edu (David Mathog). Subject: Re: Is "The GNU on VMS Project" dead?, Message-ID: <8fp8da$k74@gap.cco.caltech.edu>  p In article <009EA0A1.5FFCAF88@SendSpamHere.ORG>, system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-) writes: >0I >Having these 'eunuchs'ism available on VMS would certainly make getting  F >the GNUgly packages ported to VMS.  However, I don't see the eunuchs G >crowd on the offensive to get DCL on their platform so, why do you be-g8 >leive that VMS should be 'castrated' to become eunuchs?  J Well, it has a lot to do with the fact that nobody writes for VMS anymore,F so that if I want to use something I have to port it.  None of this isH "gnu" stuff, it's all molecular biology and genetics programs.  The vastK majority of them run just fine on OpenVMS once I get past the build and the H really minor problems with Unix assumptions.  This class of programs areJ usually just data in, crunch, data out which tends to eliminate all of theH incompatibilities in Terminal and X11 usage and makes them easy to port.  G I agree with you that there is no standard for sed, awk, etc.  However,aJ since all the software I see now tends to have been ported to Linux before9 I try it on OpenVMS, the gnu tools will usually suffice. o  ? >I've also have my hand in a few GNUgly packages and if you canfI >get past the GNUgly build crap shipped to make most of these utilities,  I >you are still faced with hours and hours of "C" bugs and just plain poors >coding to clean up. n  K There is that.  Only 1 package in 20 has a build procedure that does -Wall,=H and they tend to be horrible messes of mixed language modes and platform specific assumptions.    David Mathog mathog@seqaxp.bio.caltech.eduo? Manager, sequence analysis facility, biology division, Caltech =   ------------------------------   Date: 15 May 2000 17:53:28 GMT2 From: mathog@seqaxp.bio.caltech.edu (David Mathog). Subject: Re: Is "The GNU on VMS Project" dead?, Message-ID: <8fpdio$k74@gap.cco.caltech.edu>  X In article <391FEF79.4B8EF53@bbc.co.uk>, Tim Llewellyn <tim.llewellyn@bbc.co.uk> writes: >lF > hmmm, I see some sense in Roger's and Dave's comments, but I wonder,I >if such apps would run like a dog because they hadn't been ported to use G >VMS's specific performance enhancing features like gblsections, exoticT& >linker options, installed images etc.  K Obviously it depends what you're porting.  Once you've fixed the low level aE stuff having to do with finding files and parsing names correctly themJ simple sort of command line programs usually run as well on VMS as they do on Unix.  Or almost as well:  J 1.  DEC C and stream-lf are still not 100% Unix compatible, so you can runK     into places where a 64k limit bites you.  Just to make things even more H     fun, it isn't 100% VMS compatible either, as DEC C does not properlyD     set the record sizes in text files, which plays havoc with SORT.9 2.  DEC C IO is slow (see my earlier post about "gunzip")kJ 3.  There's no disk caching (without 3rd party products) on OpenVMS.  ThatO     tends to make everything appear to run slower since you have to wait aroundfN     for the data to get onto the disk, and because of (2), that wait is longerL     than it should be.   If the programs were all multithreaded it wouldn't G     be much different, but the vast majority do an fprintf in a single eF     threaded mode.  It also amplifies certain differences between the W     VMS and Unix way of accessing files.  The difference can be really extreme in some n9     instances, for instance, a build on Linux which does:-       tar xf foo.tar
     cd foo     make  T     will often complete on Linux in 1/5th the time it would on OpenVMS - solely due K     to the benefits of the caching file systems.  Another example, which I >K     posted recently, is for programs which do a lot of freopen() calls.  If M     it's cached (as on Linux) the "head movements" are virtual and it doesn't$K     slow things down.  On OpenVMS, with no such caching, the head movements1A     are all too real and it causes the program to run like a dog.e  F Once you get into more complex, interactive program you have to start L dealing with the differences in select(), X11 and so forth.  Those are much  more work.    H All that said, it wouldn't kill the folks in the OpenVMS group, who are E currently suffering through all the same incompatibilites that we areaH as they port Apache and Mozilla, to put in changes which would minimize  these portability problems.i   Regards,   David Mathog mathog@seqaxp.bio.caltech.edui? Manager, sequence analysis facility, biology division, Caltech h   ------------------------------  # Date: Sun, 14 May 2000 00:22:08 GMTi= From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)e. Subject: Re: Is "The GNU on VMS Project" dead?0 Message-ID: <009EA0A1.5FFCAF88@SendSpamHere.ORG>  a In article <8fkjqo$mlr@gap.cco.caltech.edu>, mathog@seqaxp.bio.caltech.edu (David Mathog) writes:bT >In article <391BD472.61CDCE6C@mci.com>, Roger Tucker <roger.tucker@mci.com> writes:B >>If you want to spend the rest of your life converting Unix shellC >>scripts to DCL and unix make files to MMS, go ahead.  I've done a,D >>few of theses when porting Unix software to VMS, and it's not much >>fun. >l ><SNIP>> >uF >I agree with every word of this.  Oftentimes 3/4 of the work in doingK >a quick port of Unix software to OpenVMS is strugging with converting the -M >build instructions from one platform to another.  (The other 1/4 is usually AK >trivial stuff like fixing false assumptions about filenames and the like.)1J >I used to use POSIX a lot for that.  It had "sh", I had a copy of "tcsh",I >and could run most (but not all) scripts which I ran into.  I could do a-C >make -n and then do a bunch of global substitutions to end up withJ! >a MAKE_VMS.COM which would work.  >j? >POSIX is gone, and GNV, while a good start, doesn't have tcsh.lI >Unfortunately it is not at all uncommon to have csh and sh scripts mixedkB >into a build procedure.  Then there's autoconfig, which is a sick" >excuse for a "portable" solution. >MJ >Makes me wonder what the OpenVMS engineering guys use.  Maybe that's why 5 >their ports (Apache, for instance) take so long too!o >,L >It's just nuts not to supply these tools in this day and age.  Pretty much J >everything I'm seeing now has a build for Linux - and now Compaq doesn't J >even need to worry about paying somebody license fees, they just need to K >get the full gnu set running on OpenVMS within bash and tcsh, and bash hasu >already been done for them! >-	 >Regards,i >o
 >David Mathogr >mathog@seqaxp.bio.caltech.edu@ >Manager, sequence analysis facility, biology division, Caltech   H Having these 'eunuchs'ism available on VMS would certainly make getting E the GNUgly packages ported to VMS.  However, I don't see the eunuchs fF crowd on the offensive to get DCL on their platform so, why do you be-7 leive that VMS should be 'castrated' to become eunuchs?s  F The problem with many of these packages is the reliance on more than aF few non-standard tools and languages.  Oh sure they're standard IF youF are a eunuchs but until you show me an ANSI document detailing AWK, orH MAKE, or any of a hundred other eunuchs specific programs and utilities,H I'd prefer to see plain vanilla "C".  There's also no reason to hardcodeF paths to files and/or header, etc. either that is so common on all theE eunuchs born (I wonder how they father code without balls?) packages.0  E If more of these packages were to rely wholey on "C" and not require 0G YACC, and AWK, and other kludgy unixisms, much more might be available  G on VMS.  I've also have my hand in a few GNUgly packages and if you can0H get past the GNUgly build crap shipped to make most of these utilities, H you are still faced with hours and hours of "C" bugs and just plain poorG coding to clean up.  I find that I would rather *NOT* have a tool than  H to have to work with some kludged up GNUgly bit of shit that just barely
 functions.  I I'm just really tired of all the complaints that the problem is that VMS sH just doesn't do it the eunuchs way so it is somehow faulted.  The *REAL*I problem is the "blinders on" bias placed on these packages by the eunuchsiH zealots that author them.  If Stallman and his crowd really wanted to beH on platforms other than eunuchs, you'd find the GNUgly code written withG a little more consideration for and acknowledgement of other platforms.    --N VAXman- OpenVMS APE certification number: AAA-0001           VAXman@TMESIS.COM  L GNU Freeware -- What does the GNU *really* stand for?  Garbage!  Not Usable!   ------------------------------  # Date: Mon, 15 May 2000 14:44:31 GMT ) From: Roger Tucker <roger.tucker@mci.com>i. Subject: Re: Is "The GNU on VMS Project" dead?' Message-ID: <391FB913.33AF26B1@mci.com>-  < Performance of theses packages usually run just fine on VMS.> Sometimes they might need a little tuning but most of the time they are fine.  A When there is a trade off between reliability or performance, VMS G normally picks reliability.  So opening and closing files to flush them G to disk might be slower on VMS because VMS doesn't keep them in cache.  D Or writes might be slower because they ACTUALLY go to disk and don'tA just stop in a write-back cache.  Opening files normally take out6C cluster wide locks, etc.  Spawning or forking lots of small jobs is B slower on VMS because they have such features as process quotas to try to protect the system.  B Many of theses differences are what make VMS more reliable and canF usually be worked around if they turn out to be a performance problem.C This really isn't anything new though, you always have to test youri@ application on the given platform and determine if there are any+ negating performance problems and fix them.c  B As far as the other operations go, VMS and Alpha can be one of theD fastest most reliable machines out there, so I don't see performanceB as a major issue anymore than it would be with any other software.   ------------------------------   Date: 15 May 2000 17:09:05 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)2 Subject: Re: Length of Username - Was RE: Username6 Message-ID: <8fpavh$g7c$1@mailint03.im.hou.compaq.com>  [ In article <shlq3080kcp118@corp.supernews.com>, "John E. Malmberg" <wb8tyw@qsl.net> writes:mK :Ok, I will restructure the setuid() emulation on SAMBA 2.0.6 so it can user/ :the persona services when it installed on 7.2.N :-M :For VMS versions 5.5-2 through 7.1, is there a better supported method for aeF :server process to temporarily change it's effective username and UIC?  H   The persona services are available, supported and (admittedly somewhat2   obscurely) documented on OpenVMS V6.2 and later.  H   Please see the OpenVMS FAQ section "PROG16. How do I create a process 8   under another username?" for some related information.  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Mon, 15 May 2000 20:00:11 -0400n* From: David A Froble <davef@tsoft-inc.com> Subject: Re: Licensese- Message-ID: <39208F8B.5F2C8F5D@tsoft-inc.com>E   "Leigh G. Bowden" wrote: > N > When licensing what is the relationship between VAXstation, VAX and microVAXN > and can they be mixed i.e. a license from a mVAX 3100 can it be applied to a
 > VAXstation?h > + > Similarly AlphaServers and AlphaStations?A  
 $ sho lic/chas) VMS/LMF Charge Information for node DFE60k5 This is a VAXstation 4000-60, hardware model type 236 O Type: A, * Not Permitted *      (VAX/VMS Capacity or OpenVMS Unlimited or Base) 4 Type: B, * Not Permitted *      (VAX/VMS F&A Server)9 Type: C, * Not Permitted *      (VAX/VMS Concurrent User) 5 Type: D, Units Required: 100    (VAX/VMS Workstation)VD Type: E, Units Required: 50     (VAX/VMS System Integrated Products)6 Type: F, Units Required: 10     (VAX Layered Products)* Type: G, * Not Permitted *      (Reserved)8 Type: H, * Not Permitted *      (Alpha Layered Products)2 Type: I, Units Required: 10     (Layered Products)  P As you can see from the above, the VAX systems had many types of licenses.  TypeP 'A' was for servers/timesharing systems, type 'D' was for workstations, and typeM 'B' is an obscure disaster.  Even the layered products had two types, 'E' andnL 'F', though I'm not sure I ever saw a type 'E'.  The Alpha isn't so bad.  InP general, the 'units required' for the system vs the units of the license are the
 main concern.t  P Layered products generally will work on any type of system, and the BASE VMS andL certain VMS USER licenses are tied to the hardware they were sold for, so ifJ you're following the rules that isn't a issue.  I'm not sure just what theP current rules are for transfering layer products from one system to another, but
 is is doable.-  N Note that VAX licenses do NOT work on Alpha, and Alpha licenses do not work onM VAX.  The only exception I have seen is the MT3* VMS USER licenses, which are K freely transferable to any VMS system.  Also note that I'm not an expert ong	 licenses.    Dave   -- t4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596; 170 Grimplin Road               E-Mail: davef@tsoft-inc.com  Vanderbilt, PA  15486m   ------------------------------  % Date: Mon, 15 May 2000 19:02:51 -0700p3 From: BEF <bfairweatherNObfSPAM@uswest.net.invalid>  Subject: Re: Licensesi9 Message-ID: <00172820.5da94e70@usw-ex0102-013.remarq.com>n   Hello,  @ You can use the -user  licenses (floating licenses) on VAXes and? Alphas.  Some examples, CMS-User, Ada-User work, but the systemt0 based licenses do not (VAXcluster, DVnetend ...)   Brianl  L * Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *G The fastest and easiest way to search and participate in Usenet - Free!r   ------------------------------  % Date: Mon, 15 May 2000 23:40:17 -0400e% From: "John A. Santos" <john@egh.com>a Subject: Re: MONITOR on VMS 7.2rF Message-ID: <Pine.LNX.4.04.10005152332130.32062-100000@Newman.egh.com>  ( On Sun, 14 May 2000, Shrini Arole wrote:  # > I'm sorry, perhaps I was unclear.  > C > When I attempt to issue a MONITOR command (like, lets say MONITOReL > PROC/TOPCPU), I get the error message indicating that the image XTI$XTILIBN > is not installed. My question then, is this: Why is this image not installed@ > if it should be? So, out of curiosity, I execute $ INSTALL ADDL > SYS$LIBRARY:XTI$XTILIB. Then, I again run the MONITOR PROC/TOPCPU command,N > and it works.. So, now I wonder if installing this image is something I haveC > to do in SYSTARTUP_VMS.COM, or if there is some action during VMStN > Installation that I performed incorrectly that would cause this image to not > get installed.  bG xti$xtilib is listed in my sys$manager:vmsimages.dat, and so should getO? installed automatically at boot (except maybe on a "MIN" boot?)uG (VMS 7.2 on a DEC 3000-300 and also on VMS 7.2-1 on an AlphaServer 2000sG and 7.1 on a VAX 4000-200 and on an Alphaserver 1200 and on every otherr system I checked...)  G Is it in your vmsimages.dat?  Is sysgen parameter STARTUP_P1 set to ""?s  J VMSIMAGES.DAT gets created/updated by AUTOGEN.  Have you run AUTOGEN sinceA installation?  Maybe it blew up and left a trashed VMSIMAGES.DAT?        > Thanks for your help.  >  > Shrini Arole > shrini@home.com. >  > @ > "Roger Tucker" <roger.tucker@wcom.nospam.com> wrote in message+ > news:391EAA2B.655A1B42@wcom.nospam.com...o > >m > > Someone Somewhere wrote: > > K > > > I am getting the following message when trying to run MONITOR after ar > newnM > > > install of VMS v7.2. If I manually install the image using INSTALL ADD,e > I " > > > can run the monitor utility. > >tG > > Why are you installing MONITOR?  I read this several times before I-	 > noticed I > > the part about installing the image.  What image did you install witht	 > INSTALLd > > ADD,L > > what parameters did you give the install?  For security reasons, a image > > installed with6 > > privileges cannot call other images not installed. > >a >  >  >  >    -- U John Santos- Evans Griffiths & Hart, Inc.   ------------------------------  % Date: Mon, 15 May 2000 08:03:55 -0400M+ From: Tim Shoppa <shoppa@trailing-edge.com>c1 Subject: Re: Multinet postscript  printing brokend1 Message-ID: <391FAF6B.678A3997@trailing-edge.com>G  	 ME wrote:d > = > Has anyone else had problems with Multinet TCP/IP printing?h > F > All of a sudden, certain postscript jobs are failing with postscript > errors - savelevel-. > G > I have performed a number of tests and believe it is definitely not ah4 > postscript error but some Multinet-VMS interaction  E Can you carefully look at the postscript file you're trying to print? @ Many PC-based postscript-generating packages will regularly makeB lines much longer than 255 characters (some of them will just make< one many-multi-megabyte line for the entire file), and theseD often don't get transported through VMS very well.  I suspect you've got a long line in there.U  B Often such long-line files can be printed succesfully, but you mayC have to go in with SET FILE/ATTR= and turn them into something more A amenable.  Sometimes FTP'ing them to a Unix box in ASCII mode andiA back in BINARY mode will do the trick too.  The real solution, ofcC course, is to get the maintainer of the software package generatinge+ lines longer than 255 characters to fix it.a   Tim.   ------------------------------  % Date: Tue, 16 May 2000 15:57:48 +0200 / From: Menno van Eck <Menno.van.eck@philips.com>o* Subject: Re: Pitch of the Margin bell Beep+ Message-ID: <392153DC.47BF1EEE@philips.com>p  , This is a multi-part message in MIME format.& --------------82992B900606C910CF4A066F* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bitu  E This is a perfect solution for me, I'm going to incorporate this intoq2 sylogin.com so anyone will get the same nice beep.   Thank you very much.  
 Menno van Eck-   Fred Kleinsorge wrote:  H > Hmmm.  I think you may be in a catch-22.  You have the latest drivers,J > and server fixes, and CDE now works fine.  But the old volume-only MotifL > "hack" does not.  The only solution that I can think of offhand is to use: >e! > $ @decw$utils:decw$define_utilse > $ xset b 1 100 100 >eM > Where the first number is the volume, the second is the pitch and the thirdi1 > the duration.  I forget what units they are in.V >s > _Fred  >f  > Menno van Eck wrote in message1 > <958059881.56684@mmisg1.best.ms.philips.com>...eN > >I have tried the solution on the CDE, all works fine, but I'm sorry to tellL > >you, we are still using the old style motif desktop. Do you know an equalN > >solution for this one. Changing the volume of the keyklick, even the volume4 > >of the warning bell does not do any thing for me. > >t > >Greetings, Menno van Eck  > >u > >r > >  > >oA > >Fred Kleinsorge <kleinsorge@star.zko.dec.com> wrote in message ( > >news:8f94nl$eej$1@lead.zk3.dec.com...N > >> At some point in time, the fixes to allow pitch/duration to work with theN > >> "normal" controls made it out... this may be what you are seeing.  In any > >> case... > >>G > >> Go into the STYLE manager, and select BEEP.  If the volume controlm	 > changesiH > >> the pitch... then you have the old stuff (in which case the "click" > volumeL > >> under keyboard will change the duration -- there is no key click for PCL > >> keyboards).  Otherwise, the volume will only turn it on/off (the system > >bell > > >> has no volume control), and pitch and duration will work. > >>
 > >> _Fred > >>* > >> Robert Deininger wrote in message ...I > >> >On Thu, May 4, 2000 11:20 AM, Menno van Eck <m.van.eck@philips.com>t	 > >wrote:iF > >> >>Installing VMS 7.1-2 on an AS800/500 I noticed the pitch of theK > >> >>margin/warning bell for Motif X-applications on the local system wasO > >lowerI > >> >>than I used to. I know the pitch is influenced by which version ofl! > >> >>SYS$IKBDRIVER.EXE is used.i > >> >>gN > >> >>Does anyone have a clue how to change (higher) the pitch or maybe lower	 > >> >theeN > >> >>volume of this bell. I get remarks of the users of the systems about it > ?h > >> >L > >> >Same thing happened to me last night when I installed 7.1-2.  I didn't > >find / > >> >(or really even look for) a solution yet.a > >> > > >> >! > >> >---------------------------i > >> >Robert Deininger > >> >rdeininger@mindspring.com. > >> > > >> > > >> > > >> > >> > >  > >   & --------------82992B900606C910CF4A066F- Content-Type: text/x-vcard; charset=us-ascii;   name="Menno.van.eck.vcf"A Content-Transfer-Encoding: 7bitg+ Content-Description: Card for Menno van Eckr  Content-Disposition: attachment;  filename="Menno.van.eck.vcf"d   begin:vcard  n:van Eck;Mennoc x-mozilla-html:TRUEo0 org:Philips Medical Systems;MR Image Handling SW adr:;;Veenpluis 6;Best;;;2 version:2.1m- email;internet:Menno.vEck@best.ms.philips.com, fn:Menno van Eck	 end:vcardT  ( --------------82992B900606C910CF4A066F--   ------------------------------  % Date: Mon, 15 May 2000 12:44:00 -0500h) From: James Norris <jnorris@metronet.com> . Subject: Re: problem with tape expiration date, Message-ID: <39203760.1D9A2831@metronet.com>   Jonathan Sivier wrote:  I >    We had a hard disk crash a while back on our VAXStation II and after M > replacing the disk and restoring the OS and data files, I seem to be unableoM > to do backups anymore.  When I try to do a backup to a tape I get the error 
 > message; >OK >  Volume 1 on MUA0: was not mounted because it's expiration date is in the 3 > future.  Specify option (QUIT, NEW or OVERWRITE).n >rO >    This message comes up on the back screen, which I gather is the operator'siM > console.  There seems to be no way to respond to this message.  I know thattL > there is something that I need to do so that these messages will appear inK > the DECTerm window where I could potetially respond to it, but apparentlyoL > that got trashed during the restore of the OS as well and I can't rememberL > what it is that I need to do to correct this.  I've looked in the FAQ, but* > nothing seems to fit and/or ring-a-bell.   $ HELP REPLY/ENABLEi  O Should tell you how to enable your DECterm window to receive and reply to OPCOMr	 messages.t   >  > M >    Why am I getting this error message?  I don't think it is a Y2K problem,eK > since the date is correct and the tape backup was working fine before theoN > crash.  I get the same error with an old tape that I am overwriting and withI > a brand new tape that I have just initialized.  What do I need to do touM > stop messages from appearing on the rear screen and/or how can I respond ton > them?V  I Has nothing whatsoever to do with Y2K.  When you initialized the tape youg# unwittingly set an expiration date.e  M $ HELP INIT/NOEXP should tell you how to initialize a tape without setting ant expiration date.  J $ HELP MOUNT/OVER should tell you how to mount the tape while ignoring the expiration date.   Jime   ------------------------------  % Date: Mon, 15 May 2000 13:00:37 +0900p2 From: Mike Rechtman <michael.rechtman@digital.com>( Subject: Re: Recreating Queues and Forms+ Message-ID: <391FF4F5.5DD3D9E1@digital.com>a  , This is a multi-part message in MIME format.  & --------------249C83062333CDC774AB6FF4* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bitE   Huw Davies wrote:  > J > I seem to recall that there was a command procedure floating around thatM > processed the contents of QMAN$MASTER.DAT to create a command procedure (ortM > two) that contained the appropriate DCL commands to recreate the queues andiJ > forms. A quick web search and referral to my own archives haven't turnedD > anything up. Has anyone got a pointer to such a command procedure? > B > Huw Davies           | e-mail: Huw.Davies@kerberos.davies.net.auA >                       | "If God had wanted soccer played in thed> >                       | air, the sky would be painted green"   see attachment   -- aE ---------------------------------------------------------------------TE Usual disclaimer: All opinions are mine alone, perhaps not even that.f? Mike Rechtman                            *rechtman@tzora.co.il*lF Kibbutz Tzor'a.                          Voice (home): 972-2-9908337  B   "20% of a job takes 80% of the time, the rest takes another 80%"E ---------------------------------------------------------------------a  & --------------249C83062333CDC774AB6FF4N Content-Type: text/plain; charset=us-ascii; name="SAVE_QUEUE_DEFINITIONS.COM." Content-Transfer-Encoding: 7bitrC Content-Disposition: inline; filename="SAVE_QUEUE_DEFINITIONS.COM."n   $!? $!    Command file reads current setup of all queues and forms,N@ $!    and build another command file to re-init those queue and $ $!    forms (e.g on another system.) $!% $ SET SYMBOL/SCOPE=(NOLOCAL,NOGLOBAL)  $ SAY := WRITE SYS$OUTPUT. $ PUT := WRITE OUT_FILE: $ F := FREEZE_CONTEXT = $ SAY "Saving old queue definitions in QUEUES_DEFINITION.OLD"f
 $ SET NOON) $ DEFINE SYS$OUTPUT QUEUES_DEFINITION.OLD. $ SHOW QUEUE/CHAR/FULL $ SHOW QUEUE/FORM/FULL $ SHOW QUEUE/BATCH/FULLe $ SHOW QUEUE/DEVICE/FULL $ DEASSIGN SYS$OUTPUTb $ SET ON $ ON WARNING THEN EXIT $ IF P1 .EQS. "" THEN - H  READ/PROMPT="QUEUE DESCRIPTION OUTPUT FILE NAME <DEFINE_QUEUE.COM>: " - 	SYS$COMMAND - 	P1/END=EXIT_PROCEDURE- $ IF P1 .EQS. "" THEN P1 = "DEFINE_QUEUE.COM"L $ OPEN/WRITE OUT_FILE 'P1'$ $ ON WARNING    THEN GOTO CLOSE_FILE$ $ ON CONTROL_Y  THEN GOTO CLOSE_FILE- $ PUT "$!  ''P1'                   ",F$TIME() 	 $ PUT "$!l@ $ PUT "$!  Initializes queues as setup on ",F$GETSYI("NODENAME")	 $ PUT "$!e $ X = F$GETQUI("") $CHAR_LOOP:dJ $ NAME = F$GETQUI("DISPLAY_CHARACTERISTIC","CHARACTERISTIC_NAME", "*", "") $ IF NAME .NES. "" $ THEN $       GOSUB GET_CHAR $       GOTO  CHAR_LOOPw $ ENDIFy
 $ PUT "$!" $FORM_LOOP:u6 $ NAME = F$GETQUI("DISPLAY_FORM","FORM_NAME", "*", "") $ IF NAME .NES. "" $ THEN $       GOSUB GET_FORM $       GOTO  FORM_LOOPt $ ENDIFt
 $ PUT "$!" $BATCH_LOOP:= $ NAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME", "*", "BATCH")d $ IF NAME .NES. "" $ THEN $       GOSUB GET_BATCHt $       GOTO  BATCH_LOOP $ ENDIF 
 $ PUT "$!" $PRINT_LOOP:H $ NAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME", "*", "TERMINAL,PRINTER") $ IF NAME .NES. "" $ THEN $       GOSUB GET_PRINT  $       GOTO  PRINT_LOOP $ ENDIFv $!
 $ PUT "$!" $ PUT "$ EXIT" $CLOSE_FILE: $ CLOSE OUT_FILE $EXIT_PROCEDURE: $ EXIT $ 
 $ADD_LINE: $ T1 = F$EDIT(T, "COLLAPSE")  $ IF F$LENGTH(LINE + T1) .GT. 75 $ THEN $       PUT "   ''LINE' -" $       LINE = T1s $ ELSE $       LINE = LINE + T1 $ ENDIFr $ RETURN $ 
 $GET_CHAR: $ SAY "CHARACTERISTIC ''NAME'"" $ PUT "$!  CHARACTERISTIC ''NAME'"M $ NUMBER = F$GETQUI("DISPLAY_CHARACTERISTIC","CHARACTERISTIC_NUMBER", "*", F)a1 $ PUT "$ DEFINE/CHARACTERISTIC ''NAME' ''NUMBER'"  $ RETURN $c
 $GET_FORM: $ SAY "FORM ''NAME'" $ PUT "$!  FORM ''NAME'"9 $ NUMBER = F$GETQUI("DISPLAY_FORM","FORM_NUMBER", "*", F) ) $ PUT "$ DEFINE/FORM ''NAME' ''NUMBER' -"t $ LINE = ""-9 $ X = F$GETQUI("DISPLAY_FORM","FORM_DESCRIPTION", "*", F)- $ IF X .NES. ""H $ THEN& $       T = "/DESCRIPTION=""""''X'"""" $       GOSUB ADD_LINE $ ENDIF-; $ X = F$GETQUI("DISPLAY_FORM","FORM_SETUP_MODULES", "*", F)0 $ IF X .NES. ""  $ THEN  $       T = "/SETUP=""""''X'"""" $       GOSUB ADD_LINE $ ENDIF84 $ X = F$GETQUI("DISPLAY_FORM","FORM_LENGTH", "*", F) $ T = "/LENGTH=''X'" $ GOSUB ADD_LINE3 $ X = F$GETQUI("DISPLAY_FORM","FORM_STOCK", "*", F)a $ IF X .NES. "". $ THEN  $       T = "/STOCK=""""''X'"""" $       GOSUB ADD_LINE $ ENDIF 3 $ X = F$GETQUI("DISPLAY_FORM","FORM_WIDTH", "*", F)i $ T = "/WIDTH=''X'"e $ GOSUB ADD_LINE6 $ X = F$GETQUI("DISPLAY_FORM","FORM_TRUNCATE", "*", F) $ IF X $ THEN $       T = "/TRUNCATE"  $ ELSE $       T = "/NOTRUNCATE"m $ ENDIFa $ GOSUB ADD_LINE2 $ X = F$GETQUI("DISPLAY_FORM","FORM_WRAP", "*", F) $ IF X $ THEN $       T = "/WRAP"r $ ELSE $       T = "/NOWRAP"i $ ENDIF  $ GOSUB ADD_LINE< $ X1 = F$GETQUI("DISPLAY_FORM","FORM_MARGIN_BOTTOM", "*", F)9 $ X2 = F$GETQUI("DISPLAY_FORM","FORM_MARGIN_TOP", "*", F)d; $ X3 = F$GETQUI("DISPLAY_FORM","FORM_MARGIN_RIGHT", "*", F) : $ X4 = F$GETQUI("DISPLAY_FORM","FORM_MARGIN_LEFT", "*", F) $ T = "/MARGIN=(BOTTOM=''X1'"d( $ IF X2 .NE. 0 THEN T = T + ",TOP=''X2'"* $ IF X3 .NE. 0 THEN T = T + ",RIGHT=''X3'") $ IF X4 .NE. 0 THEN T = T + ",LEFT=''X4'"y
 $ T = T + ")"  $ GOSUB ADD_LINE $ PUT "   ''LINE'" $ RETURN $i $GET_BATCH:  $ SAY "BATCH QUEUE ''NAME'"t $ PUT "$!  BATCH QUEUE ''NAME'"o* $ PUT "$ INITIALIZE/QUEUE/BATCH ''NAME' -" $ LINE = ""n7 $ X = F$GETQUI("DISPLAY_QUEUE","BASE_PRIORITY", "*", F)t $ T = "/BASE_PRIORITY=''X'"n $ GOSUB ADD_LINE3 $ X = F$GETQUI("DISPLAY_QUEUE","OWNER_UIC", "*", F)m $ T = "/OWNER_UIC=''X'"e $ GOSUB ADD_LINE4 $ X = F$GETQUI("DISPLAY_QUEUE","PROTECTION", "*", F) $ T = "/PROTECTION=(''X')" $ GOSUB ADD_LINE $ T = ""< $ X = F$GETQUI("DISPLAY_QUEUE","QUEUE_RETAIN_ERROR", "*", F) $ IF X $ THEN $       T = "/RETAIN=ERROR"s $ ELSE@ $       X = F$GETQUI("DISPLAY_QUEUE","QUEUE_RETAIN_ALL", "*", F) $       IF X $       THEN! $               T = "/RETAIN=ALL"h
 $       ENDIF  $ ENDIF # $ IF X .NES. "" THEN GOSUB ADD_LINEy; $ X = F$GETQUI("DISPLAY_QUEUE","QUEUE_DESCRIPTION", "*", F)  $ IF X .NES. ""  $ THEN% $       T = "/DESCRIPTION="""''X'""""- $       GOSUB ADD_LINE $ ENDIFc3 $ X = F$GETQUI("DISPLAY_QUEUE","JOB_LIMIT", "*", F)  $ T = "/JOB_LIMIT=''X'"n $ GOSUB ADD_LINE3 $ X = F$GETQUI("DISPLAY_QUEUE","WSDEFAULT", "*", F)e
 $ IF X .NE. 00 $ THEN $       T = "/WSDEFAULT=''X'"t $       GOSUB ADD_LINE $ ENDIF 1 $ X = F$GETQUI("DISPLAY_QUEUE","WSQUOTA", "*", F)e
 $ IF X .NE. 01 $ THEN $       T = "/WSQUOTA=''X'"s $       GOSUB ADD_LINE $ ENDIFi2 $ X = F$GETQUI("DISPLAY_QUEUE","WSEXTENT", "*", F)
 $ IF X .NE. 0r $ THEN $       T = "/WSEXTENT=''X'" $       GOSUB ADD_LINE $ ENDIF 4 $ X = F$GETQUI("DISPLAY_QUEUE","QUEUE_SWAP", "*", F) $ IF X $ THEN! $       T = "/NODISABLE_SWAPPING"a $ ELSE $       T = "/DISABLE_SWAPPING"e $ ENDIFe $ GOSUB ADD_LINE $- $ PUT "   ''LINE'" $ RETURN $a $GET_PRINT:1 $ SAY "PRINT QUEUE ''NAME'"o $ put "$!  PRINT QUEUE ''NAME'"M+ $ PUT "$ INITIALIZE/QUEUE/DEVICE ''NAME' -"4 $ LINE = ""37 $ X = F$GETQUI("DISPLAY_QUEUE","BASE_PRIORITY", "*", F)r $ T = "/BASE_PRIORITY=''X'"r $ GOSUB ADD_LINE3 $ X = F$GETQUI("DISPLAY_QUEUE","OWNER_UIC", "*", F)m $ T = "/OWNER_UIC=''X'"O $ GOSUB ADD_LINE4 $ X = F$GETQUI("DISPLAY_QUEUE","PROTECTION", "*", F) $ T = "/PROTECTION=(''X')" $ GOSUB ADD_LINE $ T = ""< $ X = F$GETQUI("DISPLAY_QUEUE","QUEUE_RETAIN_ERROR", "*", F) $ IF X $ THEN $       T = "/RETAIN=ERROR"I $ ELSE@ $       X = F$GETQUI("DISPLAY_QUEUE","QUEUE_RETAIN_ALL", "*", F) $       IF X $       THEN! $               T = "/RETAIN=ALL"h
 $       ENDIFo $ ENDIFS# $ IF X .NES. "" THEN GOSUB ADD_LINEc; $ X = F$GETQUI("DISPLAY_QUEUE","QUEUE_DESCRIPTION", "*", F)  $ IF X .NES. ""t $ THEN% $       T = "/DESCRIPTION="""''X'""""l $       GOSUB ADD_LINE $ ENDIFs9 $ X = F$GETQUI("DISPLAY_QUEUE","CHARACTERISTICS", "*", F)b $ IF X .NES. ""  $ THEN% $       T = "/CHARACTERISTICS=(''X')"a $       GOSUB ADD_LINE $ ENDIFe? $ X = F$GETQUI("DISPLAY_QUEUE","LIBRARY_SPECIFICATION", "*", F)a $ IF X .NES. ""r $ THEN $       T = "/LIBRARY=''X'"u $       GOSUB ADD_LINE $ ENDIFe3 $ X = F$GETQUI("DISPLAY_QUEUE","PROCESSOR", "*", F)t $ IF X .NES. ""O $ THEN $       T = "/PROCESSOR=''X'"l $       GOSUB ADD_LINE $ ENDIFt; $ X = F$GETQUI("DISPLAY_QUEUE","JOB_RESET_MODULES", "*", F)  $ IF X .NES. ""  $ THEN$ $       T = "/SEPARATE=RESET=(''X')" $       GOSUB ADD_LINE $ ENDIFt> $ X = F$GETQUI("DISPLAY_QUEUE","QUEUE_JOB_SIZE_SCHED", "*", F) $ IF X $ THEN $       T = "/SCHEDULE=SIZE" $ ELSE $       T = "/SCHEDULE=NOSIZE" $ ENDIFu $ GOSUB ADD_LINE $ ENDIF < $ X1 = F$GETQUI("DISPLAY_QUEUE","DEFAULT_FORM_NAME", "*", F)> $ X2 = F$GETQUI("DISPLAY_QUEUE","QUEUE_FILE_PAGINATE", "*", F) $ IF X2  $ THEN $       X2 = "FEED"I $ ELSE $       X2 = "NOFEED"  $ ENDIFi# $ T = "/DEFAULT=(FORM=''X1',''X2')"h $ GOSUB ADD_LINE/ $ VMSVER = F$EXTRACT(1, 3, F$GETSYI("VERSION"))  $ X = "" $ IF VMSVER .GES. "5.5"i $ THEN< $       X = F$GETQUI("DISPLAY_QUEUE","AUTOSTART_ON", "*", F) $ ENDIFo $ IF X .NES. ""e $ THEN" $       T = "/AUTOSTART_ON=(''X')" $       GOSUB ADD_LINE $ ELSE; $       X = F$GETQUI("DISPLAY_QUEUE","DEVICE_NAME", "*", F),< $       Y = F$GETQUI("DISPLAY_QUEUE","SCSNODE_NAME", "*", F) $       IF X .NES. ""R $       THEN$ $               T = "/ON=''Y'::''X'" $               GOSUB ADD_LINE
 $       ENDIFw $ ENDIF  $  $ PUT "   ''LINE'" $ RETURN $   ( --------------249C83062333CDC774AB6FF4--   ------------------------------  % Date: Mon, 15 May 2000 20:06:56 -0400l* From: David A Froble <davef@tsoft-inc.com>2 Subject: Re: RMS indexed files + decc$record_write- Message-ID: <39209120.EE482159@tsoft-inc.com>a   mrsignor wrote:k > F > I m currently using decc$record_write to save some information to anH > ordinary ascii text file. It has now been ordained that we change thisD > file to an RMS indexed file .. so that we do NOT perform duplicate
 > activities.a > K > Q - Is it practicable to use decc$record_write with RMS indexed files. Myo7 >       own limited testing would seem to indicate NOT.n > K > How so ?, well judging by some of the errors i have received, such as ...tF > %RMS-F-CUR, no current record (operation not preceded by $GET/$FIND)K > internally decc$record_write seems to be doing an update. Is there anywaylM > to force decc$record_write to ONLY ever attempt to add ($PUT) new records ?e > G > BTW ... Primary key is 24 bytes, starting at zero, and does NOT allow- > duplicates$ > i have tried opening the file withB >             fopen (az_filename, "a+", "ctx=rec", "shr=get,put");
 >         andnA >             fopen (az_filename, "r+", "ctx=rec", "shr=get,put);  > G > Any thoughts / comments ... is this expected behaviour, should i just  > use sys$put directly.  >  > TIAa  N Normally with RMS, you can WRITE a record previously READ, but when creating aO new record, you must PUT the record.  My experience is in BASIC, not C, and I'm." not familiar with the C RMS calls.   Dave   -- K4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596; 170 Grimplin Road               E-Mail: davef@tsoft-inc.com  Vanderbilt, PA  15486    ------------------------------  % Date: Mon, 15 May 2000 16:26:23 +0200e  From: Paul Sture <paul@sture.ch>< Subject: Re: sharing large amounts of data between processes+ Message-ID: <VA.00000044.191fd959@sture.ch>I  > In article <391C0F43.C20AF5CC@bbc.co.uk>, Tim Llewellyn wrote: >  > Phillip Helbig wrote:8 > K > > This is related to a completely different problem than my last few "big,H > > file" posts.  However, some of the responses hint that the solutions > > might be similar.o > >kK > > Imagine a program which needs several hundred MB of memory, which needseH > > to be updated (new items entered, perhaps some sort of sorting, someI > > items deleted, some modified) once a minute or so.  In principle, the<G > > program could update itself, but it might be better to have another.I > > program do this.  Thus, one needs some memory (global section?) to beoH > > shared between processes, which might be run by completely differentC > > users.  I have used logicals to transfer data between processesmJ > > (creating a special table for this), but this is probably not the best5 > > approach if one adds, say, 1 kB per minute or so.c > H > I did see some stunning logical name translation rates from one bit ofI > simulation code on a 3000-400 alpha, once, but you are correct, logicaloJ > names are great for small amounts of data updated infrequently, a global	 > section.E > is the way to go for maximum throughput (lock the section in RAM if ; > you have enough and really want to maximize performance).i >sH I've seen logical name translations "drown" old VAXes. So yes, fine for H small amounts of data, but other mechanisms are better for high volumes.   ___l
 Paul Sture Switzerland    ------------------------------  # Date: Mon, 15 May 2000 12:57:55 GMT 3 From: rbanks@arel.com.au.nospamming (Richard Banks)D( Subject: String Descriptors, BASIC and C0 Message-ID: <391fee6b.5142196@news.magna.com.au>   Hi all,i  . I need some help with a function I am writing.  B I have a BASIC program that needs to perform EDIT$() routines on aD string containing Big5 characters.  I have encountered problems whenB using EDIT$ on Big5 since it strips some characters that should be left alone.o  E To solve this I wrote a C function (since the BASIC equivalent is far 
 too slow).   Now in BASIC the syntax is   STR2 = EDIT$(STR1,OPTIONS)  E So to start off with I wrote a function that took a string descriptortA pointer and a long word and returned a string descriptor pointer.a  E Problem was this function never worked.  After much scratching of the > head I decided to return a void and pass two string descriptor9 pointers (the original and the result) and the long word.;  $ typedef struct dsc$descriptior_d dd;@ void big5edit(dd *in_pntr, dd *out_pntr, long edit_options){...}  A The function now works (without changing much of the internals at-B all).  I have no idea why I can't return a value, but that's life.  A "What is this guys problem?" I hear you ask.  Well, when I have a E previous value in the result string that is shorter than the string I 8 wish to return I have to make sure I have enough memory.  E Being a good little programmer, I free the string being pointed to bylD the string descriptor, malloc some new memory and set the descriptorE pointing to the new location.  I also change the string length in the: descriptor.t  @ Amazingly enough this works as well, until I try to reassign the$ result string in BASIC.  For example   STR1 = "Hello"& STR2 = "Big5 Character In This String"? CALL BIG5EDIT(STR2 BY DESC,STR1 BY DESC, EDIT_OPTIONS BY VALUE)n
 PRINT STR1
 STR1 = "X"  F The program prints the result string and then crashes on the last line with the error.h& %STR-F-FATINTERR, fatal internal error  . So, has anyone done anything like this before? Did you get it working?t; Can you return a string descriptor pointer to BASIC from C?t. What is BASIC doing when it reassigns strings?* Do you have any ideas on things I can try?  F Thanks for any help you can provide.  I'm starting to pull my hair out (and there's not much left).   Richard.   ------------------------------  # Date: Mon, 15 May 2000 16:17:51 GMTk3 From: rbanks@arel.com.au.nospamming (Richard Banks)n, Subject: Re: String Descriptors, BASIC and C1 Message-ID: <39202037.17892064@news.magna.com.au>h  F "cstranslations" <cstranslations@email.msn.com> produced the following pearl of wisdom:  5 >I'm not sure what big5 characters are, however . . .s   Chinese characters (multibyte)   >hH >Mixed language programming where you are calling a C routine from BASICG >should not present any problems as long as you adhere to the proceduredE >calling standard. I'm going in the other direction for something I'm.M >developing right now [I need populate a few fields in an indexed file and am > >feeling a bt lazy about working with an indexsd file from C]. > L >Calling malloc to allocate storage and then plugging the address and lengthH >of that storage into the descriptor and passing it back to BASIC soundsL >somewhat suspect. Off the top of my head I would figure you should be usingA >str$get1_dx to allocate the storage and value the descriptor and=J >str$free1_dx to release the storage if you expect to be "able to play" asK >the saying goes. Both of these functions are documented in the OpenVMS RTLs# >String Manipulation (STR$) Manual.o >e >Joe >m   Thanks heaps!!!!!   C That worked great - the program now runs perfectly (if only I could & return a string descriptor - oh well).    	 - Richardn  ! [rbanks@arel.remove_this_bit.com]u   ------------------------------  % Date: Mon, 15 May 2000 15:04:05 +0100 - From: Tim Llewellyn <tim.llewellyn@bbc.co.uk>e& Subject: Re: the latest billybox virus) Message-ID: <392003D5.64A9647F@bbc.co.uk>    Arne Vajhj wrote:   > d.webb@mdx.ac.uk wrote:"1 > > Rightslist should also not be world readable.- > >-3 > > On my systems it's protection is (RWED,RWED,R,)a >r+ > No, but since SYS$IDTOASC will return alle. > identifiers (=> all usernames), then that is > not increasing security !i >t > Arne  " You mean that works with no privs?  : Hmmm, I wonder which image you need to deinstall to remove that capability?   --6 Tim Llewellyn, OpenVMS Infrastructure, Remarcs Project0 MedAS at the BBC, Whiteladies Road, Bristol, UK.A Email tim.llewellyn@bbc.co.uk. Home tim.llewellyn@cableinet.co.ukE  A I speak for myself only and my views in no way represent those ofs MedAS or the BBC.n   ------------------------------  # Date: Tue, 16 May 2000 15:31:42 GMTt From: itjck01@my-deja.comr+ Subject: Re: Utility to track device errors ) Message-ID: <8frpku$bce$1@nnrp1.deja.com>o  4 In article <2000May15.084737.309@npt.nuwc.navy.mil>,4   "AndradeJA-A" <andradeja@npt.nuwc.navy.mil> wrote:G > Considering the fact that our cluster doesn't go down and consideringEE > the fact that device errors can accumulate in such a way as to make.F > their analysis a minor headache at best and overly time consuming atF > worst.  Does anyone know of a utility that regularly logs changes inF > SHOW ERROR and sends resulting data to an output file/email account. >O" > Jay Andrade - VMS System Manager
 > NUWC, RI >M  F We use DECevent, which sends us email an OPCOM messages on our errors.D DECevent can be had from Compaq for free, but you need to get a free license pak for it to run.  G DECevent from command line is invoked with the DIAGNOSE command, but itUG typically runs detached on the system.  We are very please with it thus F far.  It has saved us a couple of times on disk drives that were going bad but had not yet failed.*   :) jck    & Sent via Deja.com http://www.deja.com/ Before you buy.O   ------------------------------  % Date: Mon, 15 May 2000 08:45:55 -0400Y1 From: "AndradeJA-A" <andradeja@npt.nuwc.navy.mil> ' Subject: Utility to track device errorsO4 Message-ID: <2000May15.084737.309@npt.nuwc.navy.mil>  I Considering the fact that our cluster doesn't go down and considering the"	 fact that L device errors can accumulate in such a way as to make their analysis a minorK headache at best and overly time consuming at worst.  Does anyone know of aRJ utility that regularly logs changes in SHOW ERROR and sends resulting data to an output file/email account.     Jay Andrade - VMS System Manager NUWC, RI   ------------------------------  % Date: Tue, 16 May 2000 10:28:45 -0500F" From: Nate Johnson <nate@kiva.net> Subject: VAX servers for sale ( Message-ID: <3921692D.CB6752E2@kiva.net>  D I have three VAX servers for sale right now.  If you are interested, please let me know.A   thanks,' nate   1)DEC R400XG  & Bus details: Q-bus - 12 slots all Q/CD' Drive bays: four full height 5.25 bays.H One with front access. Used in: VAX 4000 M300 image (VAX 4000/300 in a BA440J enclosure):http://www.netbsd.org/images/machines/vax/vax4000-300-ba440.jpg selling for $50.00  + -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--   2)DEC VAX 4000-500  # 3 bays, DAT drive. lots of cabling. ( manual:EK-KA670-TM Nickname: Omega/N (?) CPU: KA681 '69D' (NVAX) @83MHz Bus: Q-bus, DSSI! Interfaces: ethernet on CPU boardM Memory: (?)_ Introduced: 1991 or later. Enclosure: BA440 selling for $50.00  + -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-    3)DEC ChannelServer II   Chassis is mostly empty  selling for $20.00  + -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-M   4)DEC ChannelServer II   Chassis is mostly empty  selling for $20.00 -- ' <>      nate johnson      <> <>  mailto:nate@kiva.net  <>   ------------------------------  % Date: Tue, 16 May 2000 10:24:14 +0200 = From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com> ( Subject: Re: Verifying username password) Message-ID: <392105AE.149ADB8A@gtech.com>    Arne Vajhj wrote:A > 1)  It is quite simple to write a small program that verified a F >     username/password with SYS$GETUAI & SYS$HASH_PASSWORD (note that5 >     this program needs to be installed with privs).   : Actually after thinking about it, then I have once written
 such code.  * One version in MACRO and one version in C.  2 http://www.hhs.dk/anonymous/pub/vms/misc/chkpw.mar0 http://www.hhs.dk/anonymous/pub/vms/misc/chkpw.c   Arne   ------------------------------  % Date: Tue, 16 May 2000 10:04:14 -0400F[ From: jamese@beast.dtsw.army.mil (Ed James, TCS Inc, 410-295-1919, ed.james@telecomsys.com) ( Subject: Re: Verifying username password0 Message-ID: <00051610041413@beast.dtsw.army.mil>  G In <3920972B.78EF921@tsoft-inc.com> on Mon, 15 May 2000 20:32:43 -0400,I+ David A Froble <davef@tsoft-inc.com> wrote:    > Robert Young wrote:  > > R > > In article <5YMK6EGOoO0t@eisner.decus.org>, Kilgallen@eisner.decus.org.nospam  > (Larry Kilgallen) writes: S > > > In article <hQOlsqpqF34m@eisner.decus.org>, young_r@eisner.decus.org (Robert D > Young) writes: > > >>B > > >>      I have a need to allow users sign into an open accountE > > >>      to make a menu choice to kill off other users.  The groupUH > > >>      that has access to the "open" account would then be verifiedC > > >>      against their true username and password to ensure thisNO > > >>      isn't being abused/misused and for auditing.  I've try to dredge up L > > >>      a freeware product but can't find it or am not thinking about it > > >>      correctly. > > >> > > >>      summarizing: > > >>' > > >>      1) login to captive account + > > >>      2) prompt for username/passwordEK > > >>      3) check against UAF that username password are correct without - > > >>              actually logging them in.IR > > >>      4) if pass check in 3) prompt them for user to whack and then whackem. > > >>G > > >>      Why this way?  Don't want to hand out privs here and there."- > > >>      Other solutions are welcome also.S > > >'F > > > I believe you would be much more secure by writing a program andF > > > installing the image with WORLD privilege and protecting it with; > > > an identifier granted only to the authorized zappers.  > > H > >         I think I understand what you are saying but the entry pointI > >         is the DCL menu in the captive account.  By writing a programIG > >         and using an associated identifier would work , but I don'tTG > >         have a common entry point in the number of DCL menus/loginsQG > >         that are spread hither and yon.  Perhaps a common situationUE > >         for a lot of us.  So for me, it is easier to add features D > >         and functionalities to specialized accounts and now thatC > >         end users get ideas they drive me in certain directions J > >         I sometimes don't want to go.  One of them is here.  End usersJ > >         like to design things too.  If they had it there way, it wouldB > >         be a menu choice only.. I'm trying to keep things fromA > >         getting really ugly by identifying who is doing what.X > > ' > >                                 Rob" > M > Ok, you need to do it in the manner you described.  Not much of a problem. CR > Prompt for a username, look-up (I'd recommend not accessing SYSUAF directly) theR > account record.  If found, then get the password, remember to turn off echo, andR > check the password as Howard suggested.  To me the larger job is identifying theN > process to 'whack'.  There's also the questions of how to do the 'wacking'. ' > Force an exit, or really stomp on it.R > 8 > Someone's gotta have something that does most of this.  F Attached is PASSCHK.C and a sample com file that locks a terminal. TheH program will need to be installed with privs, as Arne said. The com fileF uses the ASK macro program from Mark Paulk and Jim Downward. If anyone needs a copy, let me know.  M If anyone recognizes the code in the PWDcheck subroutine, please let me know.NJ I do not know where I got it and would like to be able to give the credit.  : Ed James                           ed.james@telecomsys.com5 TeleCommunications Systems, Inc.   voice 410-295-1919"5 275 West Street, Suite 400         fax   410-280-1094h Annapolis, MD 21401-1740  L ================================ passchk.c =================================L /*==========================================================================;  PWDcheck - Verify password using VMS 5.4 sys$hash_password"	  Returns:O    3     - Password is invalid    1     - Password is valid    Other - VMS error status M  ==========================================================================*/    #include ssdef #include stdlibN #include string  #include uaidef  #include descrip #include starlet #include lib$routines  #include str$routines-  5 #define check(stat) if ((stat&1) != 1) lib$stop(stat)-  $ /* System Service Itemlist Layout */ typedef struct {     unsigned short bufflen, code;    void *buffaddr;    long *retlenaddr; } ITEMLIST;    #define INLIST_SALT      0 #define INLIST_UAFHASH   1 #define INLIST_ALGORITHM 2  , int PWDcheck(char *username, char *password) {t    int                  status;     short         salt;&    long          uafhash[2] = { 0, 0};&    long          tmphash[2] = { 0, 0};    unsigned char algorithm; M    struct dsc$descriptor_s user_desc = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0}; M    struct dsc$descriptor_s pwd_desc  = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};j:    ITEMLIST inlist[] = {{ sizeof( salt), UAI$_SALT, 0, 0},<                         { sizeof( uafhash), UAI$_PWD, 0, 0},B                         { sizeof( algorithm), UAI$_ENCRYPT, 0, 0},'                         { 0, 0, 0, 0}};d  &    user_desc.dsc$a_pointer = username;/    user_desc.dsc$w_length  = strlen( username);y&    pwd_desc.dsc$a_pointer  = password;/    pwd_desc.dsc$w_length   = strlen( password);   1    inlist[INLIST_SALT].buffaddr = (void *) &salt;c6    inlist[INLIST_UAFHASH].buffaddr = (void *) uafhash;;    inlist[INLIST_ALGORITHM].buffaddr = (void *) &algorithm;u  ;    status = sys$getuai( 0, 0, &user_desc, inlist, 0, 0, 0);     check( status);    status = sys$hash_password(M                            &pwd_desc, algorithm, salt, &user_desc, &tmphash);     check( status);B    if( (tmphash[0] == uafhash[0]) && (tmphash[1] == uafhash[1])) {       return( 1);     }    return( 3); }e  N /*==========================================================================*/   main( int argc, char *argv[])  { M    struct dsc$descriptor_s str_desc  = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};-    int status;    if( argc > 2) {(       str_desc.dsc$a_pointer  = argv[1];1       str_desc.dsc$w_length   = strlen( argv[1]); 1       status = str$upcase( &str_desc, &str_desc);1       check( status);a(       str_desc.dsc$a_pointer  = argv[2];1       str_desc.dsc$w_length   = strlen( argv[2]); 1       status = str$upcase( &str_desc, &str_desc);e       check( status);,)       exit( PWDcheck( argv[1], argv[2]));s    }    exit( SS$_BADPARAM);  } /* end of passchk main */ L ================================ passchk.c =================================L ================================ inuse.com =================================
 $	_ver = -H 	'f$verify(f$integer(f$trnlnm("INUSE_DEBUG","LNM$SYSTEM","EXECUTIVE")))'6 $	set noon	! 971117 Lock terminal using login password0 $	if f$mode() .nes. "INTERACTIVE"	then goto exit- $	if "''ask'" .eqs. "" then ask := $spbin:askn $	passchk := $spbin:passchkn $	esc[0,8] = 27 ! %x1B $	ctrlz[0,8] = 26 ! %X1A $	bell[0,8] = 7f $	wo := write sys$output4 $ 	wo esc,"[2J",esc,"[1;1H"		! Clear screen and home/ $	acct = f$edit(f$getjpi("","USERNAME"),"TRIM")  $ 	name = f$process() ' $	inuse_message = "Terminal IN USE by "a $	inuse_message = "INUSE BY "nC $      	blank_len = (40-(f$length(inuse_message)+f$length(name)))/2rC $      	blank_len = (29-(f$length(inuse_message)+f$length(name)))/2n
 $	blanks = ""l< $	if blank_len .gt. 0 then blanks = f$fao("!#* ", blank_len) $loop:H $ 	wo esc,"(0",esc,"[2J",esc,"[1;1H" ! Ascii charset, clear screen, home6 $	if f$logical("sys$input") .eqs. "sys$command" then - 		deassign/user sys$input  $ 	type sys$inputdL    lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqkL    x                                                                       xL    x   ////////    //      //        ///     ///    ////////    /////////  xL    x  aaaaaaaa/   aa/     aa/       aaa/    aaa/   aaaaaaaa/   aaaaaaaaa/  xL    x     aa/      aaa/    aa/       aaa/    aaa/   aa/         aa/         xL    x     aa/      aa/a/   aa/  ///  aaa/    aaa/   aa///////   aa//////    xL    x     aa/      aa/ a/  aa/ aaa/  aaa/    aaa/   aaaaaaaa/   aaaaaaa/    xL    x     aa/      aa/  a/ aa/       aaa/    aaa/         aa/   aa/         xL    x   //aa////   aa/   a/aa/       aaa/////aaa/    /////aa/   aa////////  xL    x  aaaaaaaa/   aa/    aaa/        aaaaaaaaa/    aaaaaaaa/   aaaaaaaaa/  xL    x                                                                       xL    mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj. $	wo esc,"(B", esc, "[0m"		! Set ascii charset' $	wo esc,"#3",blanks,inuse_message,namee' $	wo esc,"#4",blanks,inuse_message,namel $ 	wo "" $ 	set nocontrol_y* $ 	on control_y then goto ask_for_password $ 	set control_y $     	wait 23:59:59.00  $	goto loopn $ask_for_password:F $    	ask /noecho /uppercase /timeout=30 pass "Enter logon password: "E $	if $timeout .or. pass .eqs. ctrlz .or. pass .eqs. "" then goto loopo $	passchk 'acct' 'pass'  $	status = f$integer( $status)! $	if status .ne. 1 then goto looprG $	wo esc,"(B",esc,"[2J",esc,"[1;1H" ! Ascii charset, clear screen, home , $exit:	exit '$status' + (f$verify(_ver) * 0)L ================================ inuse.com =================================   ------------------------------  % Date: Mon, 15 May 2000 20:23:10 -0400i* From: David A Froble <davef@tsoft-inc.com>( Subject: Re: Verifying username password- Message-ID: <392094EE.1B7A86CD@tsoft-inc.com>1   Robert Young wrote:5 > @ >         I have a need to allow users sign into an open accountC >         to make a menu choice to kill off other users.  The grouptF >         that has access to the "open" account would then be verifiedA >         against their true username and password to ensure thisgM >         isn't being abused/misused and for auditing.  I've try to dredge uprJ >         a freeware product but can't find it or am not thinking about it >         correctly. >  >         summarizing: > % >         1) login to captive accounti) >         2) prompt for username/passwordcI >         3) check against UAF that username password are correct without + >                 actually logging them in.nP >         4) if pass check in 3) prompt them for user to whack and then whackem. > E >         Why this way?  Don't want to hand out privs here and there.o+ >         Other solutions are welcome also.r > ! >                         Thanks,  > % >                                 Robh  J If the user has a valid user account, then why not an installed image withO ACLs.  I don't use ACLs much, and am only guessing that they would work in this M manner.  It does away with the captive account.  It also would require you tonI specify all allowed users.  Possibly you don't want this management task.i   Dave   -- e4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596; 170 Grimplin Road               E-Mail: davef@tsoft-inc.come Vanderbilt, PA  15486    ------------------------------  # Date: Tue, 16 May 2000 06:07:37 GMTi- From: young_r@eisner.decus.org (Robert Young)a( Subject: Re: Verifying username password+ Message-ID: <l5uy8sI7v6Ez@eisner.decus.org>o  \ In article <FuMDD1.KI3@news.decus.org>, malmberg@eisner.decus.org (John E. Malmberg) writes:L > If DECNET is available to you, you can use something similar to validate a' > username from a captive login script.g >   5 	This is exactly what I was looking for and a case ofc4 	not knowing a certain functionality.. specifically:  < > $   directory/out=nl: 0"''uname_test' ''upass'"::login.com) > $   if $severity .ge. 2 then goto u_badl  3 	I had not thought of doing a directory listing viat6 	Decnet... I had thought of set host but then realized4 	that I didn't actually want to begin a new session.  > 	The test above is exactly the thing I am looking for, thanks. >  > Q > Another implemenation would be to create a DECNET object in an account that wastN > privileged to do the whack, and then just set up proxies from the users that% > were authorized to do the whacking.k >   @ 	The kill actually has to take place from within the applicationA 	program itself (one detail left out).  Hence, I will be buildingrC 	a command procedure on the fly with the offending user and running > 	up the app.  Otherwise, the app can hang.  Not good at all to 	do a stop/id.   			Rob   ------------------------------  % Date: Tue, 16 May 2000 18:48:55 +0200-9 From: "Manser, Nazim (EXT)" <nmanser@union-investment.de> ( Subject: re: verifying username password@ Message-ID: <99371BC88DB7D311B79300508B95647E03EB00@uf22.uid.de>  J This message is in MIME format. Since your mail reader does not understand< this format, some or all of this message may not be legible.  ' ------_=_NextPart_001_01BFBF56.A08AEC98n Content-Type: text/plain;t 	charset="iso-8859-1"c  0 here is the corrected form of the dcl procedure:   DVD001> ty AUTHENTICATION.COMr $time_out_normal = 30 	 $set noons' $set message/nofac/noident/nosev/notextl $ss_nopriv = 36 + %x10000000 $ss_normal = 1# $if f$type(USERNAME) .nes. "STRING"n $then ' $  uname_test = f$getjpi("","USERNAME")C $elseM $  uname_test = username $endif	 $ucnt = 0O	 $usrloop:e- $  uname_test = f$edit(uname_test,"COLLAPSE")a $u_err:e $  write sys$output "" $  set term/echo $  ucnt = ucnt + 1! $  if ucnt .gt. 3 then goto u_bad : $  read/time_out='time_out_normal'/prompt="VMS Username: "+ /err=u_err/end=u_bad sys$command uname_testu- $  uname_test = f$edit(uname_test,"COLLAPSE")d $  set term/noecho$ $if f$trnlnm("AUTH_VERIFY") .NES. "" $THENk $  set term/echo $endif: $  read/time_out='time_out_normal'/prompt="VMS Password: "& /err=u_err/end=u_bad sys$command upass $  write sys$output ""# $  upass = f$edit(upass,"COLLAPSE")l $  set term/echo$ $if f$trnlnm("AUTH_VERIFY") .NES. "" $THENM $ show sym uname_testc $endif$ $if f$trnlnm("AUTH_VERIFY") .NES. "" $THENo $ show sym upass $endif8 $ directory/out=nl: 0"''uname_test' ''upass'"::login.com $  if $severity .ge. 2 $  thena $ show sym upass $endif8 $ directory/out=nl: 0"''uname_test' ''upass'"::login.com $  if $severity .ge. 2 $  thenn $    goto u_bad  $  else  $    goto u_ok $  endif
 $  upass = ""a $uretry: $  goto usrloopM $u_bad:M $set term/echo $username == ""- $upass = ""-
 $set nover $set message'old_msg'4& $write sys$output f$message(ss_nopriv) $exit 'ss_nopriv's $u_ok:
 $set nover $username == uname_test2 $set message'old_msg't& $write sys$output f$message(ss_normal) $exit 'ss_normal', $! DVD001>m   reguards nazim mansere   nmanser@union-investment.de: tel: +49 69 2567661 (work)      ' ------_=_NextPart_001_01BFBF56.A08AEC98i Content-Type: text/html; 	charset="iso-8859-1"V+ Content-Transfer-Encoding: quoted-printable.  1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">  <HTML> <HEAD>9 <META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =  charset=3Diso-8859-1">@ <META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
 5.5.2650.12">1. <TITLE>re: verifying username password</TITLE> </HEAD>n <BODY>  H <P><FONT SIZE=3D2 FACE=3D"Arial">here is the corrected form of the dcl = procedure:</FONT>= </P>  0 <P><FONT SIZE=3D2 FACE=3D"Arial">DVD001&gt; ty = AUTHENTICATION.COM</FONT>l@ <BR><FONT SIZE=3D2 FACE=3D"Arial">$time_out_normal =3D 30</FONT>2 <BR><FONT SIZE=3D2 FACE=3D"Arial">$set noon</FONT>( <BR><FONT SIZE=3D2 FACE=3D"Arial">$set =) message/nofac/noident/nosev/notext</FONT>@G <BR><FONT SIZE=3D2 FACE=3D"Arial">$ss_nopriv =3D 36 + %x10000000</FONT>19 <BR><FONT SIZE=3D2 FACE=3D"Arial">$ss_normal =3D 1</FONT>v> <BR><FONT SIZE=3D2 FACE=3D"Arial">$if f$type(USERNAME) .nes. = &quot;STRING&quot;</FONT>A. <BR><FONT SIZE=3D2 FACE=3D"Arial">$then</FONT>: <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; uname_test =3D =2 f$getjpi(&quot;&quot;,&quot;USERNAME&quot;)</FONT>. <BR><FONT SIZE=3D2 FACE=3D"Arial">$else</FONT>: <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; uname_test =3D = username</FONT>w/ <BR><FONT SIZE=3D2 FACE=3D"Arial">$endif</FONT>e4 <BR><FONT SIZE=3D2 FACE=3D"Arial">$ucnt =3D 0</FONT>2 <BR><FONT SIZE=3D2 FACE=3D"Arial">$usrloop:</FONT>: <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; uname_test =3D =. f$edit(uname_test,&quot;COLLAPSE&quot;)</FONT>0 <BR><FONT SIZE=3D2 FACE=3D"Arial">$u_err:</FONT>< <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; write sys$output = &quot;&quot;</FONT>-> <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; set term/echo</FONT>B <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; ucnt =3D ucnt + 1</FONT>D <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; if ucnt .gt. 3 then goto = u_bad</FONT>+ <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; =dG read/time_out=3D'time_out_normal'/prompt=3D&quot;VMS Username: &quot; =q6 /err=3Du_err/end=3Du_bad sys$command uname_test</FONT>: <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; uname_test =3D =. f$edit(uname_test,&quot;COLLAPSE&quot;)</FONT>@ <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; set term/noecho</FONT>I <BR><FONT SIZE=3D2 FACE=3D"Arial">$if f$trnlnm(&quot;AUTH_VERIFY&quot;) => .NES. &quot;&quot;</FONT>e. <BR><FONT SIZE=3D2 FACE=3D"Arial">$THEN</FONT>> <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; set term/echo</FONT>/ <BR><FONT SIZE=3D2 FACE=3D"Arial">$endif</FONT>n+ <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; = G read/time_out=3D'time_out_normal'/prompt=3D&quot;VMS Password: &quot; =n1 /err=3Du_err/end=3Du_bad sys$command upass</FONT>r< <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; write sys$output = &quot;&quot;</FONT> 5 <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; upass =3D =I) f$edit(upass,&quot;COLLAPSE&quot;)</FONT> > <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; set term/echo</FONT>I <BR><FONT SIZE=3D2 FACE=3D"Arial">$if f$trnlnm(&quot;AUTH_VERIFY&quot;) =e .NES. &quot;&quot;</FONT>o. <BR><FONT SIZE=3D2 FACE=3D"Arial">$THEN</FONT>> <BR><FONT SIZE=3D2 FACE=3D"Arial">$ show sym uname_test</FONT>/ <BR><FONT SIZE=3D2 FACE=3D"Arial">$endif</FONT> I <BR><FONT SIZE=3D2 FACE=3D"Arial">$if f$trnlnm(&quot;AUTH_VERIFY&quot;) =  .NES. &quot;&quot;</FONT> . <BR><FONT SIZE=3D2 FACE=3D"Arial">$THEN</FONT>9 <BR><FONT SIZE=3D2 FACE=3D"Arial">$ show sym upass</FONT> / <BR><FONT SIZE=3D2 FACE=3D"Arial">$endif</FONT>u9 <BR><FONT SIZE=3D2 FACE=3D"Arial">$ directory/out=3Dnl: =n5 0&quot;''uname_test' ''upass'&quot;::login.com</FONT>aD <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; if $severity .ge. 2</FONT>5 <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; then</FONT> 9 <BR><FONT SIZE=3D2 FACE=3D"Arial">$ show sym upass</FONT>n/ <BR><FONT SIZE=3D2 FACE=3D"Arial">$endif</FONT>d9 <BR><FONT SIZE=3D2 FACE=3D"Arial">$ directory/out=3Dnl: ='5 0&quot;''uname_test' ''upass'&quot;::login.com</FONT> D <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; if $severity .ge. 2</FONT>5 <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; then</FONT>iG <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp;&nbsp;&nbsp; goto u_bad</FONT>t5 <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; else</FONT> F <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp;&nbsp;&nbsp; goto u_ok</FONT>6 <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; endif</FONT>G <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; upass =3D &quot;&quot;</FONT> 1 <BR><FONT SIZE=3D2 FACE=3D"Arial">$uretry:</FONT>c= <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; goto usrloop</FONT>e0 <BR><FONT SIZE=3D2 FACE=3D"Arial">$u_bad:</FONT>7 <BR><FONT SIZE=3D2 FACE=3D"Arial">$set term/echo</FONT>iF <BR><FONT SIZE=3D2 FACE=3D"Arial">$username =3D=3D &quot;&quot;</FONT>@ <BR><FONT SIZE=3D2 FACE=3D"Arial">$upass =3D &quot;&quot;</FONT>3 <BR><FONT SIZE=3D2 FACE=3D"Arial">$set nover</FONT>t> <BR><FONT SIZE=3D2 FACE=3D"Arial">$set message'old_msg'</FONT>5 <BR><FONT SIZE=3D2 FACE=3D"Arial">$write sys$output =e f$message(ss_nopriv)</FONT>f: <BR><FONT SIZE=3D2 FACE=3D"Arial">$exit 'ss_nopriv'</FONT>/ <BR><FONT SIZE=3D2 FACE=3D"Arial">$u_ok:</FONT>d3 <BR><FONT SIZE=3D2 FACE=3D"Arial">$set nover</FONT>sD <BR><FONT SIZE=3D2 FACE=3D"Arial">$username =3D=3D uname_test</FONT>> <BR><FONT SIZE=3D2 FACE=3D"Arial">$set message'old_msg'</FONT>5 <BR><FONT SIZE=3D2 FACE=3D"Arial">$write sys$output =  f$message(ss_normal)</FONT>=: <BR><FONT SIZE=3D2 FACE=3D"Arial">$exit 'ss_normal'</FONT>+ <BR><FONT SIZE=3D2 FACE=3D"Arial">$!</FONT>=3 <BR><FONT SIZE=3D2 FACE=3D"Arial">DVD001&gt;</FONT>n </P>  = <P><FONT SIZE=3D2 FACE=3D"Arial">reguards nazim manser</FONT>d </P>  C <P><FONT SIZE=3D2 FACE=3D"Arial">nmanser@union-investment.de</FONT>=C <BR><FONT SIZE=3D2 FACE=3D"Arial">tel: +49 69 2567661 (work)</FONT>c </P> <BR>   </BODY>d </HTML>c) ------_=_NextPart_001_01BFBF56.A08AEC98--s   ------------------------------  % Date: Mon, 15 May 2000 15:48:22 -0500d" From: Earl Lakia <lakia@ipact.com>( Subject: Re: Verifying username password) Message-ID: <39206296.C816D30E@ipact.com>e  
 Could you:  6 I would use a DECNET privledged captive account.  This6 login account. The non-priv killer could open a decnet6 session passing stuff to the target priv account.  The= priv account could do all the validation and finally kill thes victim.o   -earl    Robert Young wrote:   @ >         I have a need to allow users sign into an open accountC >         to make a menu choice to kill off other users.  The group F >         that has access to the "open" account would then be verifiedA >         against their true username and password to ensure this{M >         isn't being abused/misused and for auditing.  I've try to dredge up J >         a freeware product but can't find it or am not thinking about it >         correctly. >  >         summarizing: > % >         1) login to captive account ) >         2) prompt for username/passwordmI >         3) check against UAF that username password are correct withouts+ >                 actually logging them in.bP >         4) if pass check in 3) prompt them for user to whack and then whackem. > E >         Why this way?  Don't want to hand out privs here and there. + >         Other solutions are welcome also.  > ! >                         Thanks,y >a% >                                 Rob    --
 Earl D. Lakia,0 Senior Staff Engineer         Web: www.ipact.com4 Snail Mail:                   Email: lakia@ipact.com
 IPACT Inc.1 260 S. Campbell St.           Phone: 219-464-7212  Valparaiso, IN 46383   ------------------------------  # Date: Tue, 16 May 2000 06:08:50 GMTc- From: young_r@eisner.decus.org (Robert Young)s( Subject: Re: Verifying username password+ Message-ID: <mibtV5AYgonc@eisner.decus.org>{  g In article <5$rFSOyBkPqh@eisner.decus.org>, Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) writes:s] > In article <+eYBJDbD1$6U@eisner.decus.org>, young_r@eisner.decus.org (Robert Young) writes: j >> In article <5YMK6EGOoO0t@eisner.decus.org>, Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) writes: > D >>> I believe you would be much more secure by writing a program andD >>> installing the image with WORLD privilege and protecting it with9 >>> an identifier granted only to the authorized zappers.= >> =@ >> 	I think I understand what you are saying but the entry pointA >> 	is the DCL menu in the captive account.  By writing a programB? >> 	and using an associated identifier would work , but I don'ta? >> 	have a common entry point in the number of DCL menus/loginst? >> 	that are spread hither and yon.  Perhaps a common situation = >> 	for a lot of us.  So for me, it is easier to add features < >> 	and functionalities to specialized accounts and now that; >> 	end users get ideas they drive me in certain directionseB >> 	I sometimes don't want to go.  One of them is here.  End usersB >> 	like to design things too.  If they had it there way, it would: >> 	be a menu choice only.. I'm trying to keep things from9 >> 	getting really ugly by identifying who is doing what.( > C > You certainly get better auditing by having them do it from their*B > own account.  If all your users are in captive menus, a solutionA > might be to add the program to a common housekeeping menu (nexts@ > to Change Password, for example) and have it just not work for+ > the users who do not hold the identifier.q  9 	But they aren't and another rub... the "programmers" can 7 	of course access the command line and they too need to/! 	occasionally run this procedure./   				Rob/   ------------------------------  % Date: Mon, 15 May 2000 19:35:40 -0400a- From: JF Mezei <jfmezei.spamnot@videotron.ca> 2 Subject: Re: VMS and Ole for Process Control (OPC), Message-ID: <392089C2.EFDD42F9@videotron.ca>   jlahman@LTVSteel.com wrote: O > According to Compaq's VMS Futures presentation, manufacturing is a key marketxE > for VMS.  However, what we are seeing is that to be a player in thexO > manufacturing market, a product or operating system must be able to talk OPC.   K Yep, and Compaq still states that international funds tranfers is a key VMSxK market with very strong market penetration, even though SWIFT has announcedmB that it will stop supporting its VMS product in a couple of years.   ------------------------------   Date: 16 May 2000 14:53:50 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)4 Subject: Re: VMS compared to other operating systems6 Message-ID: <8frndu$i2b$1@mailint03.im.hou.compaq.com>  ` In article <20000514222326.02262.00002734@ng-fx1.aol.com>, merefbast@aol.com (MerefBast) writes:  :   I need to ask for your help.  H   Note: This same request is cross-posted to twenty-one other newsgroupsE   according to deja, differing only with the title and a few lines int5   the message body.  (Isn't mail-merge wonderful? :-)s  H   This looks to be either a request for a new host site or some sort of F   a dispute with a registered domain holder, rather than a discussion +   that is particularly relevent to OpenVMS.   E   MerefBast: if you want to have a host for the information from this-E   operating system comparision website, well, there are folks around EH   that can and do provide this service.  I might expect that AOL itself H   offers this sort of web hosting service for its members.  But I would D   not expect many of these organizations to see and act upon such a G   hosting request under this subject (or under one of the twenty other e   subjects used).  d  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------   Date: 16 May 2000 15:38:39 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)- Subject: Re: VMS Knowledge testing on the webe6 Message-ID: <8frq1v$ivn$3@mailint03.im.hou.compaq.com>  ` In article <8fpgqk$rkp$1@plutonium.btinternet.com>, "Joe Bloggs" <hogmany@btinernet.com> writes:M :I have heard that there is a web site that provides a test of VMS knowledge. + :Can anyone tell me what the URL is please?o  I   Information on the formal OpenVMS certification process and the related J   training (search for "training") is included in the OpenVMS FAQ, and an I   example of the test is included there.  (If you find a URL for websiteslI   with testing materials -- and I *think* there was at least one of thesepK   around -- please let me know (where), and I will add it to the next FAQ.)s  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Mon, 15 May 2000 19:50:19 +0100r* From: "Joe Bloggs" <hogmany@btinernet.com>) Subject: VMS Knowledge testing on the webM3 Message-ID: <8fpgqk$rkp$1@plutonium.btinternet.com>u  L I have heard that there is a web site that provides a test of VMS knowledge.* Can anyone tell me what the URL is please? Marcus   ------------------------------  % Date: Tue, 16 May 2000 19:30:34 +0200t+ From: Arne Bergseth <Arne.Bergseth@dnv.com>a- Subject: Re: VMS Knowledge testing on the web & Message-ID: <392185BA.9BFDB55@dnv.com>   Joe Bloggs wrote:   N > I have heard that there is a web site that provides a test of VMS knowledge., > Can anyone tell me what the URL is please? > Marcus  @ One place to look for a test is Jeff Cameron's Open VMS pages at6 http://www.jcameron.com/vms/      go to the Quiz page.  * I had a hard time answering the questions.
 Arne Bergsetho   ------------------------------  % Date: Tue, 16 May 2000 13:30:00 -0400 . From: Hank Vander Waal <hvanderw@NOVAGATE.COM>$ Subject: waking up:    new GS series8 Message-ID: <000401bfbf5c$5d3f7700$6d9433cf@mscmain.com>  . From the new GS series alpha box announcement:  5 "The best way to make dreams come true is to wake up"o   So who has been sleeping??    , How can Compaq wake itself up??  Push VMS!!!   Nice box!!     ------------------------------  % Date: Sun, 14 May 2000 19:47:20 -0700 & From: Tom Crabtree <tccrab@sunset.net>7 Subject: Re: What type of memory does a 3000-300lx use?-* Message-ID: <391F6538.8FC0B3C6@sunset.net>   Kent:0  E 72 Pin True Parity 70ns or better.  They come in 4,8,16 & 32mb.  I've:' heard of 64mb but have never seen them.-C If you need some, Call Don Hyde at Hess Electronics (714) 669-9838,a, great guy, great deals.  Tell him I said Hi!   Tom Crabtree tccrab@sunset.netm   Kent Rankin wrote:  " >         The subject says it all. >r9 >                                                 Thanks,s= >                                                 Kent Rankind   --A -----------------------------------------------------------------s My father used to tell me,> "Son, there is nothing wrong with being scared. . . as long as5 you don't let it affect you until the danger is over.s> Being hysterical is okay, too . . . afterwards and in private.A Tears are not unmanly . . . in the bathroom with the door locked.C; The difference between a coward and a brave man is mostly ao matter of timing"1  0       --------- Robert A. Heinlein -------------A -----------------------------------------------------------------s   ------------------------------  % Date: Mon, 15 May 2000 21:48:31 -0400s% From: JM <vmswiz@geonospamcities.com>F4 Subject: Re: Where to start with motif programming ?O Message-ID: <AAA6863F23B5300F.F5AE117610742695.9AB387F02CDC6922@lp.airnews.net>m  ! > <marc.vandyck@skynet.be> wrote:  > > > >I have been asked to write a 'very simple' Motif program...  G I seem to be pushing SuperNova these days... Good tool. We just startedm0 using it for production application development.  H SuperNova is a 4gl and IDE that will generate code that will run on bothC Windows and Motif with the application code running on VMS. You canlA create N-tier applications with all the tiers on VMS or any othert	 platform.g  D If you can afford a tool, it might make things much simpler and much@ quicker to use this one and let it generate the gui for Motif...  ! See www.wrq.com under products...o  C Just a satisfied user... YMMV... I'd like to see this tool get moreu VMS-oriented interest...   			*JM*t   ------------------------------  % Date: Tue, 16 May 2000 09:07:54 -0700 7 From: "Arthur E. Ragosta" <ragosta@merlin.arc.nasa.gov>m Subject: Wildfire Announcement3 Message-ID: <3921725A.86779C78@merlin.arc.nasa.gov>1   It's finally on the website!  G Although you would think that they would know better by now (based upona all ofH the grousing in this forum) to not introduce their latest machines with:  H "The new Alphaserver GS80 is the industry's fastest RISC Unix server..."  C It does mention that it runs VMS at the bottom of the page... Geez..   Prices!  I need prices!!  E Can anyone who attended/listened to the announcement tell me what theE entrya price is for the GS80.   thanks.e   ------------------------------   Date: 16 May 2000 16:27:13 GMT. From: Allan Hawdon <udaa460@axolotl.kcl.ac.uk>" Subject: Re: Wildfire Announcement. Message-ID: <8frst1$5p6$1@willow.cc.kcl.ac.uk>  6 Arthur E. Ragosta <ragosta@merlin.arc.nasa.gov> wrote: : It's finally on the website!  I : Although you would think that they would know better by now (based upon3 : all ofJ : the grousing in this forum) to not introduce their latest machines with:  J : "The new Alphaserver GS80 is the industry's fastest RISC Unix server..."  E : It does mention that it runs VMS at the bottom of the page... Geez.E  G I was at the London launch today. Surprisingly VMS was mentioned a lot SI more often than I expected but of course always after Tru64. Linux hardlyF+ seemed to figure. Next year they suggested.t   : Prices!  I need prices!!  G : Can anyone who attended/listened to the announcement tell me what thei : entry  : price is for the GS80.  B Below $100,000. Various other people have suggested about $80,000.E However the GS80 seems to be a mite messy to upgrade. Reading betweenFF the lines it looks like the GS80 is a marketing model, just so as theyE can get something in under 100K. What they really seem to be pushing >H is the GS160/GS320. It was nice however to see a big shot from Oracle UK2 there - at least hints at some sort of commitment.   ------------------------------   End of INFO-VAX 2000.273 ************************<FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; =dG read/time_out=3D'time_out_normal'/prompt=3D&quot;VMS Username: &quot; =q6 /err=3Du_err/end=3Du_bad sys$command uname_test</FONT>: <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; uname_test =3D =. f$edit(uname_test,&quot;COLLAPSE&quot;)</FONT>@ <BR><FONT SIZE=3D2 FACE=3D"Arial">$&nbsp; set term/noecho</FONT>I <BR><FONT SIZE=3D2 FACE=3D"ArialDECUS starter kit that used to be here is now-R >>> 230-    considered too old and has been removed.  The SIG tapes currently onU >>> 230-    line are the Spring and Fall of '93 thru Spring and Fall of '99.  There T >>> 230-    are also a few extras here such as the Freeware V4.0 disk, x11r6, Tex, >>> 230-    ISO9660, etc.w
 >>> 230-S >>> 230-    FTP access to this system is available 24 hours a day, 7 days a week.m
 >>> 230-S >>> 230-    N.B. This is a VMS system.  The FTP server is set to use Unix syntax, P >>> 230-    however, in order to accomodate all of the "the world is unix" ftp  >>> 230-    clients out there.
 >>> 230-f >>> 230-Guest User IE30USER@ logged into /disk$misc/decus/ at Mon 8-May-2000 10:26PM-PDT, job 90e64.1 >>> 230 Directory and access restrictions applye	 <<< PWD33 >>> 257 "/disk$misc/decus/" is current directory.c <<< TYPE A >>> 200 Type A ok. <<< PORT 203,55,230,137,4,190>5 >>> 200 Port 4.190 at Host 203.55.230.137 accepted.T
 <<< LIST >>> 150 List started.  >>> 226 Transfer completed. :   ANONYMOUS    job terminated at  8-MAY-2000 22:27:06.56  clients out there.
 >>> 230-f >>> 230-Guest User IE30USER@ logged into /disk$misc/decus/ at Mon 8-May-2000 10:26PM-PDT, job 90e64.1 >>> 230 Directory and access restrictions applye	 <<< PWD33 >>> 257 "/disk$misc/decus/" is current directory.c <<< TYPE A >>> 200 Type A ok. <<< PORT 203,55,230,137,4,190>5 >>> 200 Port 4.190 at Host 203.55.230.137 accepted.T
 <<< LIST >>40/battalionvms-1_4/freeware_readme.txtmo >>> 550 %RMS-E-DNF, directory not found: disk$misc:[DECUS.FREEWAREV40.BATTALIONVMS-1_4.FREEWARE_README$5NTXT]o <<< TYPE A >>> 200 Type A ok.:   ANONYMOUS    job terminated at  3-MAY-2000 12:55:55.39.  1805 (8) bytes transferred.
 <<< ABOR? >>> 226 No file transfer in progress, Data connection CLOSED.o <<< TYPE I >>> 200 Type I ok.
 <<< PASV? >>> 227 Entering passive mode; use PORT (139,121,16,104,11,8)eK <<< CWD /disk$misc/decus/freewarev(N?ji_YLiUcihT6$c=s:;_TV(k@9)/
5wCE8-\_XKhz:bR
͍
=Z[L5:Ȟ6}qoE!ԃzzRl߇#g^Է?#ڛZ~wIwCBGln}:#
qIkĉ^_2csQ.jhhl8؜mTvKtyKC%@l
Zoo_io}Wώ=pZv0}>ksz{&XOlg*L2G.j;hH6-β0N\)dnS,t||\=m]f6Է,_bX#,FE?#s*Eӌ̊3HC}sE9yX.gw1S/^}@굎u4 wMX"o:VA}R
V4>Y',V[>ALOuG#vás|wv:G`}E{s}SM
]'To÷z~xwXwқϤAX^wT}W>zxosvoy"?B{s> ~1U6iuR.wn-հlĉXhL9<
܈%ЎuQspTG,GK;bU-QE{XLuG+D
cz!v'@H]`~kRy?ht*Cs^NDE~n`.XvP׷](%喈F0]E
̴[XǱЮy<HfR*a!>jv3^5cQ
,APE(^Z^d´ݶ+kĽi碝vNܻvdt^'\Ή5_kR
Knz)O/>ϵNiGEPz,SMm) U!{ΏWx>{%O+mLIX|CSE QBX#W_xOKKP!Np*
7]ԫ-P^\ZZ!>R bsm^['>1?Uܢ^T>=RȷN2rl0Nt&T]k Qգ"$"^^EBU[{{2U㨯8f3xȋۣ
h1赸p7H>5Bus=4wSh9vӧ7`*uKriF!)>zҪ@QkwqTQOA![tLt3x_Yw뗍G<~g8kG|Wnn/;or0Uѭ_<O3Gܷ4|	wU5j4fp]B('!n5CE
kvRmPDOVL: