1 INFO-VAX	Wed, 17 May 2000	Volume 2000 : Issue 274       Contents:+ (Important) Re: Verifying username password / Re: (Important) Re: Verifying username password * address munging revisited: the web version. Re: address munging revisited: the web version. Re: address munging revisited: the web version. Re: address munging revisited: the web version. Re: address munging revisited: the web version. Re: address munging revisited: the web version. Re: address munging revisited: the web version Answer Found Re: Any PAWZ users out there?  Re: Any PAWZ users out there?  Re: big Fortran data file  Re: big Fortran data file  Re: big Fortran data file  Re: cdrom writer drive problemC Re: Change DEC Windows Pointer Shape (was Re: Changing the prompt!)  Re: Changing the prompt! Re: CPU Temperature from DCL Re: CPU Temperature from DCL Re: CPU Temperature from DCL Re: CPU Temperature from DCL Re: Debug problem  Re: Debug problem  Re: Debug problem  DECnet: work on a remote node ! Re: DECnet: work on a remote node ! Re: DECnet: work on a remote node ! Re: DECnet: work on a remote node  Re: DEFINE ? Re: DEFINE ? Re: DEFINE ? RE: DEFINE ? Disk maintenance package ?* Re: DS20 and HSJ-50 controllers - WARNING! Re: EDT macros Re: EDT macros RE: EDT macros Re: EDT macros find out of date firmware?, Re: good price for a used MicroVAX 3100 M90?, Re: good price for a used MicroVAX 3100 M90?, Re: good price for a used MicroVAX 3100 M90?) Re: HELP on calculating percentage in DCL ) Re: HELP on calculating percentage in DCL # Re: Help with ACL's (file security) # Re: Help with ACL's (file security) B How do I disable opcom messages between cluster nodes on VMS 7.2 ? Re: How I can redirect output? Re: How I can redirect output? Re: How I can redirect output?% Re: How to make a loop in .com files? & Re: how to reset a DS90M to flash boot Re: Initializing all drives  Re: Initializing all drives  Re: Initializing all drives  Re: Initializing all drives  Re: 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? ; ISAM Files in Standard Fortran (Was: big Fortran data file) ? Re: ISAM Files in Standard Fortran (Was: big Fortran data file)  LAT over fiber problem Re: LAT over fiber problem. Linux, Unix to VMS VT220 emulation - solution.# Looking for COBOL GETQUI example(s) ( Re: Multinet postscript  printing broken! Re: Pitch of the Margin bell Beep  Problems with Submit command PTD's on VMS 5.x Re: PTD's on VMS 5.x9 Question about DFWDAYS and Hoff's presentation on VMS 7.3 # Re: String Descriptors, BASIC and C # Re: String Descriptors, BASIC and C % SYSTEMS AND OPTIONS IN STOCK FOR SALE 
 Thanks all Re: the latest billybox virus  Re: the latest billybox virus  Re: the latest billybox virus  Re: threads  Re: threads ( UCX Printing to external printer servers" Re: Utility to track device errors" Re: Utility to track device errors Re: Verifying username password  RE: Verifying username password  Re: Verifying username password  Re: Verifying username password  Re: verifying username password  Re: VMS backup on PC VMS on the desktop?  Re: VMS on the desktop? . Re: What type of memory does a 3000-300lx use?. Re: What type of memory does a 3000-300lx use?+ Re: Where to start with motif programming ? $ Re: Which is the language of VAX/VMS Re: Wildfire Announcement  Re: Wildfire Announcement  Re: Wildfire Announcement  Re: Wildfire Announcement  Re: Wildfire Announcement  Re: Wildfire Announcement  Re: Wildfire Announcement 9 Wildfire Announcement: Michael Capellas, can you say VMS? = Re: Wildfire Announcement: Michael Capellas, can you say VMS? = Re: Wildfire Announcement: Michael Capellas, can you say VMS?   F ----------------------------------------------------------------------  # Date: Tue, 16 May 2000 12:57:58 GMT / From: "Tom Wade" <t.wade@vms.eurokom.ie.nospam> 4 Subject: (Important) Re: Verifying username password, Message-ID: <qBbU4.723$S21.4305@news.iol.ie>  K If you are using a program to validate passwords, then please remember that  the $GETUAI and J $HASH_PASSWORD approach will not be subject to breakin evasion, and that a hacker couldF use this program to repeatedly guess passwords until he gets it right.  J Your program should call the $SCAN_INTRUSION system service as part of the validation. L See http://picard.eurokom.ie/setpass.zip for a sample program that does this (the program allows H a user to change his password from a web browser, and works with the OSU webserver, but it K can be used as a simple setpassword/old=<string>/new=<string> DCL command).   L ---------------------------------------------------------------------------- --A Tom Wade    | EMail: T.Wade@vms.eurokom.ie  (all domain mailers). G EuroKom     | X400:  g=tom;s=wade;o=eurokom;p=eurokom;a=eirmail400;c=ie & 30, Dale Rd | Tel:   +353 (1) 278-7878& Stillorgan  | Fax:   +353 (1) 278-78793 Co Dublin   | Disclaimer:  This is not a disclaimer @ Ireland     | Tip:         "Friends don't let friends do Unix !"   ------------------------------  % Date: Tue, 16 May 2000 15:31:15 +0200 = From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com> 8 Subject: Re: (Important) Re: Verifying username password) Message-ID: <39214DA3.98DD586D@gtech.com>    Tom Wade wrote: M > If you are using a program to validate passwords, then please remember that  > the $GETUAI and L > $HASH_PASSWORD approach will not be subject to breakin evasion, and that a > hacker couldH > use this program to repeatedly guess passwords until he gets it right. > L > Your program should call the $SCAN_INTRUSION system service as part of the
 > validation.   : I think that is covered in the fragment you did not quote:  D #2)  You need to design this setup very carefully, if it is going to> #    be secure. INQUIRE is banded. The checking image must be F #    secured, so it can not be used for brute force password guessing. #    Etc.etc..  G I did not mention $SCAN_INTRUSION since that is relative new (VAX 6.1 / 	 Alpha 6.2  if I remember correct).    Arne   ------------------------------   Date: 16 May 2000 09:08:25 CDT= From: wayne@tachysoft.xxx.044962.killspam.0138 (Wayne Sewell) 3 Subject: address munging revisited: the web version . Message-ID: <OhPaEUkHBGJ$@tachxxsoftxxconsult>  M A few weeks ago there was a thread about munging of return addresses in news, L and someone pointed out that even though I prevented address harvesters fromN getting my real address in news, my real address appeared in mailto entries onK my web page.  Since spambots scan web pages as diligently as they scan news % articles, I had to concede the point.   O Since my domain name is changing and I have a chance at a fresh start, i.e. the L new domain is not in any existing spam mailing lists, I have reworked all of# my web pages to solve this problem.   O Basically, the real address no longer appears in any of the web pages, at least L not in a form that the spambots can easily recognize.   I removed the mailtoM entries and replaced them with local cgi scripts to send mail to me.  The cgi < script already knows my address and doesn't use smtp anyway.  O My real address does appear on the web page, in case someone wants to send mail N directly, but the html behind it contains a lot of camoflage to foil the bots.    * <A HREF="mailto:root@[127.0.0.1]"></A>w<A ) HREF="mailto:system@[127.0.0.1]"></A>a<A  - HREF="mailto:postmaster@[127.0.0.1]"></A>y<A  ( HREF="mailto:abuse@[127.0.0.1]"></A>n<A ' HREF="mailto:info@[127.0.0.1]"></A>e<A  , HREF="mailto:webmaster@[127.0.0.1]"></A>@<A ( HREF="mailto:sales@[127.0.0.1]"></A>t<A 2 HREF="mailto:screwup_mailbot@[127.0.0.1]"></A>a<A * HREF="mailto:support@[127.0.0.1]"></A>c<A ( HREF="mailto:root@[127.0.0.51]"></A>h<A * HREF="mailto:system@[127.0.0.51]"></A>y<A . HREF="mailto:postmaster@[127.0.0.51]"></A>s<A ) HREF="mailto:abuse@[127.0.0.51]"></A>o<A  ( HREF="mailto:info@[127.0.0.51]"></A>f<A - HREF="mailto:webmaster@[127.0.0.51]"></A>t<A  ) HREF="mailto:sales@[127.0.0.51]"></A>.<A  3 HREF="mailto:screwup_mailbot@[127.0.0.51]"></A>c<A  + HREF="mailto:support@[127.0.0.51]"></A>o<A  ( HREF="mailto:support@[127.0.0.52]"></A>m    H My web page has always had these bogus mailtos as fodder for the addressH harvesters, but now they serve an additional purpose of masking the realG address.   If you look closely at the above, you will see the real mail M address, one character on each line.   Since the mailtos are zero width, they N are not clickable and do not appear on the screen.  Only the characters on the* real email address are actually displayed.     Wayne  --  O =============================================================================== M Wayne Sewell, Tachyon Software Consulting  (281)812-0738  wayne@tachysoft.xxx : http://www.tachysoft.xxx/www/tachyon.html and wayne.html  K change .xxx to .com in addresses above, assuming you are not a spambot  :-) O =============================================================================== C Jake Blues: "Sell me your children!  How much for the little girl?"    ------------------------------  % Date: Tue, 16 May 2000 14:53:38 -0400 # From: Jim Agnew <agnew@hsc.vcu.edu> 7 Subject: Re: address munging revisited: the web version + Message-ID: <39219932.598B71D7@hsc.vcu.edu>   5 neato!!!!!  my kudos to ya!!!  may i steal that idea?    Jim    Wayne Sewell wrote:  > O > A few weeks ago there was a thread about munging of return addresses in news, N > and someone pointed out that even though I prevented address harvesters fromP > getting my real address in news, my real address appeared in mailto entries onM > my web page.  Since spambots scan web pages as diligently as they scan news ' > articles, I had to concede the point.  > Q > Since my domain name is changing and I have a chance at a fresh start, i.e. the N > new domain is not in any existing spam mailing lists, I have reworked all of% > my web pages to solve this problem.  > Q > Basically, the real address no longer appears in any of the web pages, at least N > not in a form that the spambots can easily recognize.   I removed the mailtoO > entries and replaced them with local cgi scripts to send mail to me.  The cgi > > script already knows my address and doesn't use smtp anyway. > Q > My real address does appear on the web page, in case someone wants to send mail P > directly, but the html behind it contains a lot of camoflage to foil the bots. > + > <A HREF="mailto:root@[127.0.0.1]"></A>w<A * > HREF="mailto:system@[127.0.0.1]"></A>a<A. > HREF="mailto:postmaster@[127.0.0.1]"></A>y<A) > HREF="mailto:abuse@[127.0.0.1]"></A>n<A ( > HREF="mailto:info@[127.0.0.1]"></A>e<A- > HREF="mailto:webmaster@[127.0.0.1]"></A>@<A ) > HREF="mailto:sales@[127.0.0.1]"></A>t<A 3 > HREF="mailto:screwup_mailbot@[127.0.0.1]"></A>a<A + > HREF="mailto:support@[127.0.0.1]"></A>c<A ) > HREF="mailto:root@[127.0.0.51]"></A>h<A + > HREF="mailto:system@[127.0.0.51]"></A>y<A / > HREF="mailto:postmaster@[127.0.0.51]"></A>s<A * > HREF="mailto:abuse@[127.0.0.51]"></A>o<A) > HREF="mailto:info@[127.0.0.51]"></A>f<A . > HREF="mailto:webmaster@[127.0.0.51]"></A>t<A* > HREF="mailto:sales@[127.0.0.51]"></A>.<A4 > HREF="mailto:screwup_mailbot@[127.0.0.51]"></A>c<A, > HREF="mailto:support@[127.0.0.51]"></A>o<A* > HREF="mailto:support@[127.0.0.52]"></A>m > J > My web page has always had these bogus mailtos as fodder for the addressJ > harvesters, but now they serve an additional purpose of masking the realI > address.   If you look closely at the above, you will see the real mail O > address, one character on each line.   Since the mailtos are zero width, they P > are not clickable and do not appear on the screen.  Only the characters on the, > real email address are actually displayed. >  > Wayne  > --Q > =============================================================================== O > Wayne Sewell, Tachyon Software Consulting  (281)812-0738  wayne@tachysoft.xxx : > http://www.tachysoft.xxx/www/tachyon.html and wayne.htmlM > change .xxx to .com in addresses above, assuming you are not a spambot  :-) Q > =============================================================================== E > Jake Blues: "Sell me your children!  How much for the little girl?"    ------------------------------  % Date: Tue, 16 May 2000 19:50:58 -0400 * From: David A Froble <davef@tsoft-inc.com>7 Subject: Re: address munging revisited: the web version - Message-ID: <3921DEE2.A513E58F@tsoft-inc.com>    Wayne Sewell wrote:  > O > A few weeks ago there was a thread about munging of return addresses in news, N > and someone pointed out that even though I prevented address harvesters fromP > getting my real address in news, my real address appeared in mailto entries onM > my web page.  Since spambots scan web pages as diligently as they scan news ' > articles, I had to concede the point.  > Q > Since my domain name is changing and I have a chance at a fresh start, i.e. the N > new domain is not in any existing spam mailing lists, I have reworked all of% > my web pages to solve this problem.  > Q > Basically, the real address no longer appears in any of the web pages, at least N > not in a form that the spambots can easily recognize.   I removed the mailtoO > entries and replaced them with local cgi scripts to send mail to me.  The cgi > > script already knows my address and doesn't use smtp anyway. > Q > My real address does appear on the web page, in case someone wants to send mail P > directly, but the html behind it contains a lot of camoflage to foil the bots. > + > <A HREF="mailto:root@[127.0.0.1]"></A>w<A * > HREF="mailto:system@[127.0.0.1]"></A>a<A. > HREF="mailto:postmaster@[127.0.0.1]"></A>y<A) > HREF="mailto:abuse@[127.0.0.1]"></A>n<A ( > HREF="mailto:info@[127.0.0.1]"></A>e<A- > HREF="mailto:webmaster@[127.0.0.1]"></A>@<A ) > HREF="mailto:sales@[127.0.0.1]"></A>t<A 3 > HREF="mailto:screwup_mailbot@[127.0.0.1]"></A>a<A + > HREF="mailto:support@[127.0.0.1]"></A>c<A ) > HREF="mailto:root@[127.0.0.51]"></A>h<A + > HREF="mailto:system@[127.0.0.51]"></A>y<A / > HREF="mailto:postmaster@[127.0.0.51]"></A>s<A * > HREF="mailto:abuse@[127.0.0.51]"></A>o<A) > HREF="mailto:info@[127.0.0.51]"></A>f<A . > HREF="mailto:webmaster@[127.0.0.51]"></A>t<A* > HREF="mailto:sales@[127.0.0.51]"></A>.<A4 > HREF="mailto:screwup_mailbot@[127.0.0.51]"></A>c<A, > HREF="mailto:support@[127.0.0.51]"></A>o<A* > HREF="mailto:support@[127.0.0.52]"></A>m > J > My web page has always had these bogus mailtos as fodder for the addressJ > harvesters, but now they serve an additional purpose of masking the realI > address.   If you look closely at the above, you will see the real mail O > address, one character on each line.   Since the mailtos are zero width, they P > are not clickable and do not appear on the screen.  Only the characters on the, > real email address are actually displayed. >  > Wayne  > --Q > =============================================================================== O > Wayne Sewell, Tachyon Software Consulting  (281)812-0738  wayne@tachysoft.xxx : > http://www.tachysoft.xxx/www/tachyon.html and wayne.htmlM > change .xxx to .com in addresses above, assuming you are not a spambot  :-) Q > =============================================================================== E > Jake Blues: "Sell me your children!  How much for the little girl?"   K Technically, the above is a good idea.  In today's point and click world, a > button or such to initiate a mail message is valid and proper.  F However, I find myself asking this question.  Do some of you get largeN quantities of unsoliciated e-mail?  I ask because I do not mung up my address,O and get relatively few unsoliciated messages.  There are a few, but easy enough N to ignore and delete.  I see quite a few people worried about this, and wonderO whether I've been lucky, or maybe they see it's Dave Froble and decide he isn't M worth bothering with.  I do doubt the last idea. Also, it's possible that for P some people, even one unsoliciated e-mail is too many.  Just curious about this.   Dave   --  4 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: Tue, 16 May 2000 17:49:50 -0700<! From: Shane.F.Smith@Healthnet.comd7 Subject: Re: address munging revisited: the web versionsD Message-ID: <OF9D9336C4.1811B569-ON882568E2.00049001@foundation.com>   [snip]G >However, I find myself asking this question.  Do some of you get largeaF >quantities of unsoliciated e-mail?  I ask because I do not mung up my	 >address,nI >and get relatively few unsoliciated messages.  There are a few, but easye >enoughtH >to ignore and delete.  I see quite a few people worried about this, and >wonder=J >whether I've been lucky, or maybe they see it's Dave Froble and decide he >isn'tJ >worth bothering with.  I do doubt the last idea. Also, it's possible that >forK >some people, even one unsoliciated e-mail is too many.  Just curious aboutt >this. >=
 >David Froble=  J For me, one spammer is one spammer too many. It's not the volume, it's theG principle. I /always/ report spammers, if I can identify their ISP or a-G third party server they're using. I average about five spammer accountsaE cancelled a day. Probably a losing battle, but it makes me feel a bits better.s  K At home, I use a browser that doesn't have my e-mail set up in it, and withiK Java, Javascript and cookies turned off. If a site won't work unless one orrJ more of the above are enabled, I go elsewhere. If I order anything online,J I set up a free e-mail account for the purpose, and drop it when I'm done.H I even use a stealth firewall so I can't be port scanned - and I average8 maybe seven port scan attempts fended off every session.  J Paranoid? Maybe. However, with my previous ISP I didn't do any of that andI I got absolutely bombarded with spam. Since changing ISP and starting the C above, no spam whatsoever. Here at the office, where I can't easily G disguise my origins when posting to info-vax (blasted corporate setup),r plenty of spam.e   Shaney   ------------------------------  % Date: Tue, 16 May 2000 20:17:57 -0500r) From: "John E. Malmberg" <wb8tyw@qsl.net> 7 Subject: Re: address munging revisited: the web versionm7 Message-ID: <0aed01bfbf9d$c2a64330$020a0a0a@xile.realm>'  / David A Froble <davef@tsoft-inc.company> wrote:a  H > However, I find myself asking this question.  Do some of you get largeG > quantities of unsoliciated e-mail?  I ask because I do not mung up myE address,J > and get relatively few unsoliciated messages.  There are a few, but easy enough8 > to ignore and delete. <snip>  Just curious about this.  = Most of the SPAM I receive is addressed to the info-vax list.   J However I have recently received a few waves of spam.  Some was directly a1 result of a SPAMBOT harvesting the Info-vax list..  K I suspect that the SPAM-BOTs feel that the "-" in your name is an anti-spam@K device and so reject your address.  I also suspect that many of them do not"% feel that my E-Mail address is valid.    -John" wb8tyw@qsl.network..   ------------------------------  % Date: Tue, 16 May 2000 21:25:05 -0400b* From: David A Froble <davef@tsoft-inc.com>7 Subject: Re: address munging revisited: the web versionb- Message-ID: <3921F4F1.CF85F1AF@tsoft-inc.com>t   "John E. Malmberg" wrote:F > 1 > David A Froble <davef@tsoft-inc.company> wrote: )                                      ^^^^r Cute.e  M > I suspect that the SPAM-BOTs feel that the "-" in your name is an anti-spameM > device and so reject your address.  I also suspect that many of them do not ' > feel that my E-Mail address is valid.S >  > -Johnt > wb8tyw@qsl.network.   O Interesting observation.  Maybe it's so.  When we applied for our domain name,  K we were surprised to find so many versions of tsoft, which is the company's=E name.  An ISP in San Francisco had WWW.TSOFT.COM and there were other N variations.  The '-inc' was one of the options left open to us.  Sometimes you< inadvertantly fall into some luck, if your guess is correct.   Dave   -- o4 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  15486c   ------------------------------  % Date: Tue, 16 May 2000 23:46:54 -0500 ) From: "John E. Malmberg" <wb8tyw@qsl.net>b7 Subject: Re: address munging revisited: the web versionv/ Message-ID: <si48mmkq8ta112@corp.supernews.com>5  H Wayne Sewell <wayne@tachysoft.xxx.044962.killspam.0138> wrote in message( news:OhPaEUkHBGJ$@tachxxsoftxxconsult...  K > Basically, the real address no longer appears in any of the web pages, ath leastrG > not in a form that the spambots can easily recognize.   I removed thei mailtoK > entries and replaced them with local cgi scripts to send mail to me.  Thec cgiw> > script already knows my address and doesn't use smtp anyway.  G I think that it is a benefit for business web pages to use such scripts 9 instead of assuming that the browser can launch a mailer.w  K At my present employer, the mailer launched by a web browser has absolutely H no access to an external mail gateway.  Of course that makes it a little# harder to spread infections around.g   -John  wb8tyw@qsl.network   ------------------------------  # Date: Tue, 16 May 2000 13:45:08 GMTh* From: Stephen Henry <stephen@laughnet.net> Subject: Answer Founda, Message-ID: <39215105.E8BA30C9@laughnet.net>  N     I was emailed this answer and it worked for my system.  I thought I'd post9 it for anyone else that might be having the same problem.=   >I don't think that's it.>E Me neither.  I've been watching the responses in the thread, and nonesF    that I've seen have commented on the non-VMS-ishness of the messageE    you reported.  If it really is literally "MAIL HAS BEEN DISABLED",.H    then it probably comes from a DCL symbol definition that the previous.    owner placed in the system-wide login file.C To find your system-wide login file (which is executed during every]    ordinary login), enters    $ SHOW TRAN SYS$SYLOGING    which points to some DCL command file (with file type COM, which may[E    or may not be shown in the logical name definition).  Inspect thatFE    file, or other files it may invoke with @filename, for a line that.
    looks like :    $ MAIL == "WRITE SYS$OUTPUT ""MAIL HAS BEEN DISABLED"""    or possibly    $ MAIL == "@filename"C    where filename.COM has a line that writes the message.  When youhC    find the line, either delete it, or (to make your change easy too8    reverse) comment it out by inserting a ! after the $.B The effect of such a DCL symbol assignment is to redefine the MAILF    command verb to do something other than run the usual image.  ThereF    are other (less trivial) ways to do it; the one I've discussed hereG    is the most likely.  If it's *not* what I speculate, then it will be F    more complicated to track down how the previous owner did it (i.e.,E    by replacing the MAIL verb definition in DCLTABLES).  I won't takenF    the time to write about that unless/until you confirm that it's not    the first guess..   Jethro Bodine wrote:  < > In article <391CDAA5.4D669304@laughnet.net>, Stephen Henry > <stephen@laughnet.net> wrote:= >=E > >     I recently purchased a VAX 4000/200 running OpenVMS 6.1 at an J > > auction.  I have the system up and running and I'm having a lot of funG > > with it, but I can't get into mail.  Every time I try and run it iteL > > tells me MAIL HAS BEEN DISABLED.  Any ideas as to how to fix this.  I do > > have SYSTEM access.t > >e > Steve, >o   -oG **NEW** Check Out LaughNet After Dark http://www.laughnet.net/afterdarka< Lose Weight Laughing At LaughNet!!   http://www.laughnet.net= Independent Cartoonist's Homepage http://www.laughnet.net/ich    ------------------------------  # Date: Tue, 16 May 2000 11:39:27 GMTa% From: "P.Lj" <plj@byron.ext.telia.se>o& Subject: Re: Any PAWZ users out there?2 Message-ID: <392131CE.9A21ED2D@byron.ext.telia.se>   Hi,i  F * Had a few problems with the licensefile that followed the April 2000 CD,b5     CPQ sent me new ones that seems to work fine now.   = * Got ACCVIO when trying to load UNICenter CPD-files into theC
 REDUCE/MOTIF,r  click [CA UNICENTER] boxe!  click [Select Data File...]  boxi@  and then choose a file (if you got PSDC-running, and/or logical PSDC$DATABASE defined 2  and there's a some  *.CPD file in that directory)?  mark it and press [OK] button and then set time frame and do ar Analyze/Graph crash!  D * Even got a "%SYSTEM-F-NOHANDLER, no condition handler found", when
 just pressingr" then [Select Data File...] button.  E It's my testsystem and I got a few things running, but.... not a goodt start.   /P.Ljo   Scott Vieth wrote:   > Hi:a >aC > Is anyone using PAWZ to monitor performance on their VMS systems? , > I'm looking for any feedback, good or bad. >n	 > Thanks,o >! > -Scott Vieth :^)   ------------------------------  # Date: Tue, 16 May 2000 14:18:17 GMT % From: "P.Lj" <plj@byron.ext.telia.se>r& Subject: Re: Any PAWZ users out there?2 Message-ID: <39215707.44E565F1@byron.ext.telia.se>  2 I had a few crashes (ACCVIO) even with .cpc files,   $ reduce/motifF  CP/Analyze (c) Compaq Computer Corporation 2000, All Rights Reserved.D %SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual address=2 00000000040E0400, PC=00000000001044AC, PS=0000001B  2   Improperly handled condition, image exit forced.1     Signal arguments:   Number = 0000000000000005i1                         Name   = 000000000000000CX1                                  0000000000000000 1                                  00000000040E0400e1                                  00000000001044ACw1                                  000000000000001Bl       Register dump:J     R0  = 00000000040E0400  R1  = 000000007AF38428  R2  = 00000000000189A0J     R3  = 0000000000755B78  R4  = 00000000002F4520  R5  = 0000000000000001J     R6  = 000000000068461D  R7  = 0000000000000001  R8  = 000000000068466AJ     R9  = 00000000040E0400  R10 = 0000000000000000  R11 = 00000000002F44BCJ     R12 = 0000000000000001  R13 = 00000000002F44B8  R14 = 0000000000000007J     R15 = 0000000000000002  R16 = 000000007AF38A38  R17 = 0000000000000007J     R18 = 000000000000007F  R19 = 0000000000000000  R20 = 00000003D79C2200J     R21 = 0000000000000000  R22 = 000000000010448C  R23 = 000000007AF38920J     R24 = 0000000000000000  R25 = 0000000000000003  R26 = FFFFFFFF805FDFB8J     R27 = 0000000000000000  R28 = 0000000000000003  R29 = 000000007AF38920J     SP  = 000000007AF38920  PC  = 00000000001044AC  PS  = 200000000000001B    4 but I got my first graphs working now, don't now why   /P.Lj        "Mark D. Jilson" wrote:t  G > They PAWZ and ECP suite can only use older .CPD files, approx. beforedI > 2.1.5, and it really depends on the version of the PSPA$READ.EXE image. E > It is a tangled mess but there may be workarounds depending on whatiE > version PSDC collected the .CPD file and whether you have a correcth; > PSPA$READ and if you still have the appropriate licenses.y >  > "P.Lj" wrote:a > >b > > Hi,i > > J > > * Had a few problems with the licensefile that followed the April 2000 > > CD,t9 > >     CPQ sent me new ones that seems to work fine now.  > >yA > > * Got ACCVIO when trying to load UNICenter CPD-files into they > > REDUCE/MOTIF,r > >  click [CA UNICENTER] boxw% > >  click [Select Data File...]  box D > >  and then choose a file (if you got PSDC-running, and/or logical > > PSDC$DATABASE defineds6 > >  and there's a some  *.CPD file in that directory)C > >  mark it and press [OK] button and then set time frame and do as > > Analyze/Graph crash! > >iH > > * Even got a "%SYSTEM-F-NOHANDLER, no condition handler found", when > > just pressingn& > > then [Select Data File...] button. > >iI > > It's my testsystem and I got a few things running, but.... not a goodc
 > > start. > >n	 > > /P.LjS > >e > > Scott Vieth wrote: > >a	 > > > Hi:, > > >uG > > > Is anyone using PAWZ to monitor performance on their VMS systems? 0 > > > I'm looking for any feedback, good or bad. > > >-
 > > > Thanks,- > > >e > > > -Scott Vieth :^) >  > --H > Jilly   - Working from Home in the Chemung River Valley - Lockwood, NYL >         - jilly@clarityconnect.com                      - Brett Bodine fanL >         - Mark.Jilson@Compaq.com                        - since 1975 or so5 >         - http://www.jilly.baka.com               -u   ------------------------------   Date: 16 May 2000 07:45:26 GMT* From: helbig@astro.rug.nl (Phillip Helbig)" Subject: Re: big Fortran data file. Message-ID: <8fquam$s3u$1@info.service.rug.nl>  < In article <39208048.3AD2E6E3@tsoft-inc.com>, David A Froble <davef@tsoft-inc.com> writes:   G >> The straightforward way would be a sequential file.  However, if thenH >> program which uses the lookup table doesn't start at the beginning, aK >> direct-access file might be better (the record number being some hash of-H >> the indices).  However, since the length of the record depends on theH >> value of the second-to-last index, I guess this will waste disk spaceK >> since all the records have to be the same length in a direct-access file7I >> (unless I'm missing something; I've rarely used direct-access files inT
 >> the past).s >iO >While most of this discussion is far from what I'm used to, now you've asked a-G >question I can help with.  An RMS Indexed Variable file will do what Ir! >understand you are asking for.  v  C As others have pointed out as well, VMS has long had the solution, sF albeit non-standard Fortran.  I can't imagine that my need here is so @ specialised; shouldn't F2K+N have indexed variable-length files?   ------------------------------  % Date: Mon, 15 May 2000 13:22:42 +0100c- From: Tim Llewellyn <tim.llewellyn@bbc.co.uk>d" Subject: Re: big Fortran data file) Message-ID: <391FEC12.B444B89D@bbc.co.uk>   V Nigel Arnot wrote: Incidentally, I did consider suggesting a coarser tabulation of the  D > problem function, coupled to a suitably sophisticated multivariateA > interpolation algorithm. However, the simple approach of simply H > precalculating a big table and reusing it seemed quite well matched toL > this problem and the available hardware, so I didn't. Disk space is cheap,N > and on an Alphastation dedicated to a single problem,  there's no reason not< > to max the IO (ie nobody else to get slugged when you do). >- >-  H Yup, I did exactly what Philip is suggesting for some simulations for myJ Phd many moons ago. I might do it differently now, but the technique worksD and as Nigel hinted, solving complex 2 and 3 dimensional simulations can be very CPU intensive.   --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.ukt  A I speak for myself only and my views in no way represent those ofl MedAS or the BBC.    ------------------------------  # Date: Mon, 15 May 2000 15:21:38 GMTi From: briggs@eisner.decus.orgs" Subject: Re: big Fortran data file+ Message-ID: <cIJwOBIywwcn@eisner.decus.org>r  T In article <8fog11$5vesl@harrier.le.ac.uk>, Clive Page <cgp@nospam.le.ac.uk> writes:O > In article <2t0HBaJfTxXU@eisner.decus.org>,  <briggs@eisner.decus.org> wrote:  >>F >>I'm puzzled.  We've got 1.5GB of data that is accessed sequentially. > O > Maybe I misunderstood the requirement, but I thought Philip said he wanted to K > use this array as a lookup table - this implies random access to it.  TheaD > best way to do that is, in my opinion, to load it all into memory.  I I saw a bit that said approximately "processed in the same order in which]/ it is computed" and inferred sequential access.a  C If the access pattern is truly random and the process has access toeE much less than 1.5 GB of physical memory it _might_ be more efficient"9 to leave the data on disk in than to load it into memory.[  E If the access pattern is sequential then it would almost certainly be E more efficient to leave the data on disk than to load it into memory.5  C The concern is that by putting data with poor locality of referencepG into your working set you may be driving out pages that are more likelyA to be re-referenced.  & 	John Briggs			briggs@eisner.decus.org   ------------------------------   Date: 15 May 2000 11:04:40 GMT+ From: "Gerke Grashuis" <g.grashuis@kpn.com>a' Subject: Re: cdrom writer drive problem-8 Message-ID: <01bfbe5d$5e530bc0$8d4c15ac@HKTGN9911301604>  , May I suggest a $MOUNT/MEDIA_FORMAT=CD-ROM ?   Greetz,i   Gerket  D Manser, Nazim (EXT) <nmanser@union-investment.de> schreef in artikel7 <99371BC88DB7D311B79300508B95647E03EAD4@uf22.uid.de>...i
 Hi Fiolks,  E I installed on my vax station 4000 model 60 a SCSI CDROM Writer DRivea (Model XR-W2022 from JVC) i am running openvms v6.2l  , The jumpers of the drive are set as follows:  ! Jumper 6 = OFF (Termination OFF) a5 Jumper 5 = OFF (device type cdrom read , ON  = write), Jumper 4 = ON   (Parity on)  Jumper 3 = ON   (SCSI Id 5)  Jumper 2 = OFF Jumper 1 = ON     the speed is 6X read , 2x Write.  J there is no jumper about the 512 Byte Block size, nor is it documented (in* the manual ) how the block is interpreted.  6 at console level the drive was recognised as JVC R2626  0 when i boot from dka500  (vms7.1 or V7.2 cdroms)   >>> B dka500   DKA500   ?06 HLT INST PC = 00000B15	PSL=041F004I   >>>-  
 at vms level v   $mount/over=id $1$dka500:b" %MOUNT-F-MEDOFL, Medium is offline   Here is the error logg  F  V A X / V M S        SYSTEM ERROR REPORT         COMPILED  8-MAY-2000 15:54:58J                                                                       PAGE 13.f  /  ******************************* ENTRY     493.  *******************************.F  ERROR SEQUENCE 1666.                            LOGGED ON:        SID 12000003F  DATE/TIME  8-MAY-2000 15:53:59.68                            SYS_TYPE 04140002  SYSTEM UPTIME: 0 DAYS 00:05:48sK  SCS NODE: EARTH                                               VAX/VMS V6.2r  8  DEVICE ERROR  KA46  CPU FW REV# 3.  CONSOLE FW REV# 1.4  +  GENERIC DK SUB-SYSTEM, UNIT _EARTH$DKA500:n          HW REVISION     30312E31H9                                        HW REVISION = 1.10n        ERROR TYPE            05eC                                        EXTENDED SENSE DATA RECEIVED-        SCSI ID               05 3                                        SCSI ID = 5.w        SCSI LUN              00m4                                        SCSI LUN = 0.        SCSI SUBLUN           00a7                                        SCSI SUBLUN = 0.         PORT STATUS     00000001 J                                        %SYSTEM-S-NORMAL, NORMAL SUCCESSFUL2                                         COMPLETION        SCSI CMD        007F001Ae                            00FF 1                                        MODE SENSEc        SCSI STATUS           02 6                                        CHECK CONDITION    EXTENDED SENSE DATA          EXTENDED SENSE  00050070a                        0A000000                         00000000                         00000020                             0000n6                                        ILLEGAL REQUESTE                                        INVALID COMMAND OPERATION CODE         UCB$B_ERTCNT          00 ;                                        0. RETRIES REMAINING5        UCB$B_ERTMAX          00<;                                        0. RETRIES ALLOWABLE         ORB$L_OWNER     000100042:                                        OWNER UIC [001,004]        UCB$L_CHAR      1EC54008f;                                        DIRECTORY STRUCTURED^4                                        FILE ORIENTED/                                        SHARABLEe0                                        AVAILABLE4                                        ERROR LOGGING0                                        ALLOCATED<                                        SOFTWARE "WRITE LOCK"7                                        CAPABLE OF INPUTs8                                        CAPABLE OF OUTPUT4                                        RANDOM ACCESS        UCB$W_STS           0000f      F  V A X / V M S        SYSTEM ERROR REPORT         COMPILED  8-MAY-2000 15:54:58J                                                                       PAGE 14.2          UCB$L_OPCNT     00000007c9                                        7. QIO'S THIS UNIT-        UCB$W_ERRCNT        0007r:                                        7. ERRORS THIS UNIT        IRP$W_BCNT          0000 ?                                        TRANSFER SIZE 0. BYTE(S)m        IRP$W_BOFF          0000v<                                        TRANSFER PAGE ALIGNED        IRP$L_PID       00030039k6                                        REQUESTOR "PID"        IRP$Q_IOSB      00000000tC                        00000000        IOSB, 0. BYTE(S) TRANSFERREDr  * ANALYZE/ERROR/FULL/SINCE/OUT=JVC_CDROM.TXT     My question is:e  > 1) have anyone have any experiences with WRITE CDROM DRives ? . 2) What is going wrong by the mount command ?    thanks for help.  H PS: sorry if some receives this post as MIMED Format, but i only have MS. OUTLOOK (set as text only) for sending emails   
 ----------   ------------------------------  % Date: Tue, 16 May 2000 14:06:18 +0100y- From: Tim Llewellyn <tim.llewellyn@bbc.co.uk> L Subject: Re: Change DEC Windows Pointer Shape (was Re: Changing the prompt!)) Message-ID: <392147CA.7E59629E@bbc.co.uk>o   Chuck Chopp wrote:   > Adrian Birkett wrote:, > F > > If I remember, this was done by defining characters on a VT at bitJ > > level(?) There was a smiley face, train, extended middle digit amongst > > others.s > >e< > > Have you tried the freeware site or FAQ on Compaqs site? > >l > > Just a thought.n > >  > > Adel >=J > I also remember being able to change the DEC Windows mouse pointer shapeJ > at one time, but I've not only forgotten exactly how this was done, I'veK > also forgotten what the different types of pointer shapes were available. G > I do distinctly remember that it involved a negative number which wastK > possibly defined as the value for a logical name when the session managerrE > was started.  I used to change the shape to the starship Enterpriseo   >  >eF > Is this still possible under the new desktop environment in Open VMSJ > v7.x?  If so, what is the method used to change the pointer shape and is$ > there a listing of pointer shapes? >   D You can still use the old Motif interface in VMS 7.1 if you need to.  J In that case, session manager, options, pointer menu allows you to set the pointerI from a menu.  F Hey, I remember that starship enterprise, but only as dimly as you do.  3 Sometimes I use CDE but its not running now, sorry.a   >a > TIA, >r > Chucko > --
 > Chuck Choppt > : > ChuckChopp@rtfmcsi.com            http://www.rtfmcsi.com2 >                                   ICQ # 22321532B > RTFM Consulting Services Inc.     864 801 2795 voice & voicemail4 > 103 Autumn Hill Road              864 801 2774 fax6 > Greer, SC  29651                  800 400 4935 pagerE >                                   8004004935@alphapage.airtouch.comd   --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.uk   A I speak for myself only and my views in no way represent those oft MedAS or the BBC.    ------------------------------  % Date: Tue, 16 May 2000 15:52:54 -0400/  From: norm.raphael@jamesbury.com! Subject: Re: Changing the prompt!d4 Message-ID: <C22568E1.006C6363.00@jklh21.valmet.com>  7 It's not really possible to straighten these lines out.  Could you do SAY "string0" + -4                                        "string1" + --                                        <etc.>*7 so they are on shorter lines but correct as to content?f        , io@cableinet.co.uk on 05/16/2000 11:42:35 AM  ) Please respond to Moon_io@cableinet.co.ukm   To:   Info-VAX@mvb.saic.comc cc: " Subject:  Re: Changing the prompt!         Antonio0  5 Just what I was after thanks, now to see if it works!    Cheers
 Mark Lawrencer  ; Antonio Carlini <carlini@true.lkg.dec.com> wrote in message>$ news:8frp3j$4ai@usenet.pa.dec.com...= > In article <3920c7e8.524144494f47414741@radiogaga.harz.de>,t MARTIN@RADIOGAGA.HARZ.DE wrote:i > >w% > >Oberon (io@cableinet.co.uk) wrote:U, > >: can't remember how the prompt was done. > >k > >  $ SET PROMPT="newprompt"e > >D >  >eI > But the bit you missed is that this stuff worked on VT220s and used thelJ > 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) andn changes  > back to the normal font. >tG > Then there was the "upside down" font. And a few more I've forgotten.b >.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.S >sI > 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 was1 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,A but ifD > I've goofed - err, sorry! You'll have to smooth out the bits where unwanted  > line breaks creep in (or out). >E	 > Antonio  > Reading UK >  > $! > $       DCS[0,8] = 144 > $       ESC[0,8] = 270% > $       SAY     := WRITE SYS$OUTPUTrF > $       CLEAR   := "''ESC'[2J''ESC'[1;1H" ! ALL TERM. ATTRIBUTES OFF; > $       OFF     := "''ESC'[0m" ! ALL TERM. ATTRIBUTES OFF0- > $       BOLD    := "''ESC'[1m" ! TERM. BOLD0 > $!, > $       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:0/ > $       IF KE_UZE .EQS. "BA" THEN GOTO BAROOM . > $       IF KE_UZE .EQS. "CR" THEN GOTO CROWN. > $       IF KE_UZE .EQS. "GA" THEN GOTO GATOR/ > $       IF KE_UZE .EQS. "GU" THEN GOTO GUITAR1. > $       IF KE_UZE .EQS. "PH" THEN GOTO PHONE. > $       IF KE_UZE .EQS. "QU" THEN GOTO QUACK/ > $       IF KE_UZE .EQS. "RA" THEN GOTO RAISIN0. > $       IF KE_UZE .EQS. "SN" THEN GOTO SNOOP, > $       IF KE_UZE .EQS. "SU" THEN GOTO SUN/ > $       IF KE_UZE .EQS. "SP" THEN GOTO SPLASH0- > $       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 XMAS0/ > $       IF KE_UZE .EQS. "TEST" THEN GOTO TEST35 > $       IF KE_UZE .EQS. "WHAT" THEN GOTO SHOW_CODES % > $       SAY "Prompt Code Not Found", > $       GOTO OUT > $! > $ SHOW_CODES:l' > $       SAY "Valid Prompt Codes are:" # > $       SAY "        BA - BAROOM"." > $       SAY "        CR - CROWN"" > $       SAY "        GA - GATOR"# > $       SAY "        GU - GUITAR"b" > $       SAY "        PH - PHONE"" > $       SAY "        QU - QUACK"# > $       SAY "        RA - RAISIN" # > $       SAY "        SN - SNOOPY"l  > $       SAY "        SU - SUN"# > $       SAY "        SP - SPLASH" + > $       SAY "        TR - USS ENTERPRISE"s! > $       SAY "        V2 - VAX2" ( > $       SAY "        WI - WIND SURFER"& > $       SAY "        WO - WOODSTOCK"! > $       SAY "        XM - XMAS"e# > $       SAY "        TEST - TEST"M > $       SAY ""8 > $       INQUIRE/NOPUNCT PMT_CODE "Enter Prompt Code: "7 > $       IF "''PMT_CODE'" .EQS. "" THEN GOTO NOT_VT220 1 > $       KE_UZE = F$EDIT("''PMT_CODE'","UPCASE")d > $       GOTO PROMPT_CODESn > $!
 > $ CROWN:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAYdH > "''DCS'1;65;0{#1OggO????/??N?ACG?;???????O/??????GC;ggO?????/A@ACG???;9 > ?????Ogg/???GCA@A;O???????/CG?????G;??OggO??/CA?N????;" 
 > $       SAYDK > "?wNGgGGX/?BAAAABA;IkGKIHWG/AAAAAABA;GWgGGHYK/AAAAABAA;KIhGWGGG/AAAAABAA;n' > GgXIKIXg/AABAABAA;GGWNw???/AABAB???;"n' > $       SET PROMPT = "''ESC'(#1abcdef: > ghijkl (B> " > $       GOTO OUT > $!
 > $ GATOR:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAY H > "''DCS'1;65;1{#1w{}q?_o_/???@@@@@;o___o__o/@@@@@@@@;WWoo_GWo/B??FNGGB; > wwooowwo/BBBBBBBB;" 
 > $       SAYk > I "WWoo_GWw/B??FNGGB;{kKSSSSW/@@@BAABA;WGGWGGWK/BAABAABA;WG??????/BA??????;r "1 > $       SET PROMPT = "''BOLD'''ESC'(#1abcddefgh  (B''OFF' ''node'> " > $       GOTO OUT > $! > $ GUITAR:i- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"k
 > $       SAY H > "''DCS'1;65;1{#1__??????/N???@??A;????????/??C??G??;????????/????G???;' > ????????/C???M???;????????/????????;"i
 > $       SAY:K > "????????/????????;????????/G???????;~?MMMMmM/BA?@????;MM]MMM]M/????????;a > NNMmMMMM/???????@;"E
 > $       SAY>L > "MMMM~MMM/????B???;MMMMMMMM/????????;MMMMMMMM/????????;NK[HWI[G/????????;"( > $       SET PROMPT = "''ESC'(#1abcdefg	 > hijklmno (B> " > $       GOTO OUT > $!
 > $ PHONE:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"h
 > $       SAYeH > "''DCS'1;65;1{#1________/N???N???;________/????NNNN;________/NNNN??NN; > _______?/NNNN??N?;"e
 > $       SAYvL > "??????oO/??????BA;OOOOOOo?/AM????N?;~_wooow_/?????@?A;________/AAAAAAAA;"
 > $       SAYsL > "__}_}_}_/AAAAAAAA;______~?/AAAAAAAA;??????[S/AAAAA@@@;SVOoOO^?/@@@?????;". > $       SET PROMPT = "''BOLD'''ESC'(#1abcdef > ghijkl (B ''OFF' ''node'> "s > $       GOTO OUT > $! > $ RAISIN:'- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAYRH > "''DCS'1;65;1{#1??????_W/GGGGGM@@;SOQOPPPP/@@@@@@@@;PppPPPOQ/@?GJL@@@;' > SWO_?Ooo/@@@@MGGH;?}}}ooo?/FBJFB@??;" 
 > $       SAYdK > "^w}YYBC?/????????;?GBOcccc/EEEFFF??;cccccao@/?????FFF;GCAABAAA/EEE?????;h > ?@??????/????????;";- > $       SET PROMPT = "''BOLD'''ESC'(#1abcdei > fghij- (B''OFF' ''node'> " > $       GOTO OUT > $!
 > $ SNOOP:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"b
 > $       SAYjH > "''DCS'1;65;1{#1??__OOGG/??@@IIKK;CCCCGGOO/NN????II;________/????????; > ????????/HHEEAA??;"I
 > $       SAYdL > "bbVVVVJJ/@@AACCCC;EEwwEEGG/DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????;", > $       SET PROMPT = "''BOLD'''ESC'(#1abcd > efgh''esc'(B''OFF' ''node'> "r > $       GOTO OUT > $!	 > $ TREK:r- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"q
 > $       SAYeH > "''DCS'1;65;1{#1OOooOOoo/??@@@@@@;OOooOOoo/@@@@@@@@;OOooo???/BFLG@???; > ????????/????????;"l
 > $       SAYcL > "?????___/???@@JMM;________/FBAABAAB;oogoo___/AABAABAA;_______?/BAABA@@@;"
 > $       SAYgL > "????????/????????;????????/????????;?{]]~}cc/????????;{cc{cc{c/????????;"
 > $       SAY L > "c{ce~rr~/????????;{{{{g???/????????;????????/????????;????????/????????;") > $       SET PROMPT = "''ESC'(#1abcdefgh2	 > ijklmnon (B > "m > $       GOTO OUT > $!	 > $ VAX2: - > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"m
 > $       SAYeH > "''DCS'1;65;1{#1wCAAAAC?/?@AAAAAA;?WcAAcW?/AAA@@AAA;?_o????o/@??@AA@?; > OO_OOOo?/??@AAA@A;"@F > $       SAY "??_OO__O/A@??A@@A;????CAaQ/A???ABAA;K???????/A???????;"/ > $       SET PROMPT = "''BOLD'''ESC'(#1abcdefg- (B> ''OFF' ''node'> " > $       GOTO OUT > $!	 > $ WIND:r- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"F
 > $       SAYeH > "''DCS'1;65;1{#1????????/????????;????????/????????;????????/????GCA@;' > _OG{????/???N????;????????/????????;"m
 > $       SAYeK > "________/????????;_______o/????????;gcqbaaia/????????;aeab____/??????@A;w > __??????/@???????;"e- > $       SET PROMPT = "''BOLD'''ESC'(#1abcdeq > fghij. (B''OFF' ''node'> " > $       GOTO OUT > $!
 > $ WOODY:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" 
 > $       SAY-F > "''DCS'1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD; > ????????/CCGG????o"l
 > $       SAY F > "''DCS'1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????; > OOGGFF??/????????o"n' > $       SET PROMPT = "''BOLD'''ESC')1a #$%&a > '()*''esc')1 ''OFF' ''node'> " > $       GOTO OUT > $!	 > $ XMAS:G- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"n
 > $       SAYeH > "''DCS'1;65;1{#1?????_OG/??CEL???;GO_?????/???LEC??;?cUL????/@@@@@@F?; > ????LUc?/?F@@@@@@;"l* > $       SET PROMPT = "''BOLD'''ESC'(#1ab > cd (B ''OFF' ''node'> "l > $       GOTO OUT > $! > $ sun:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"e
 > $       SAYyI > "''DCS'1;65;1{#1FFFFNNNN/????????;N^^^^^~~/????????;~~~~~~~}/???@@@@@;"eF > $       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 > jklmnopqr1 (B "D > $       GOTO OUT > $! > $ SPLASH:.- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'" C > $       SAY "''DCS'1;65;1{#1W[{{[]MM/??GKKKMM;MMM][{{{/MMMMMKKL;" F > $       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 > jklmnopqrr (B "e > $       GOTO OUT > $! > $ BAROOM:0- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"K
 > $       SAY I > "''DCS'1;65;1{#1}}}uuuuu/NNNKKKKK;uuuu}{K?/KKKKNFF?;_ow{meee/NNN@@@@@;"d4 > $       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??;"/ > $       SET PROMPT = "''ESC'(#1abcdefghijklmn* (B "  > $       GOTO OUT > $!
 > $ QUACK:- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"TC > $       SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;"44 > $       SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;"% > $       SET PROMPT = "''ESC'(#1abcd  (B "  > $       GOTO OUT > $!	 > $ TEST:4- > $       IF P2 .NES. "1" THEN SAY "''CLEAR'"RC > $       SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;"24 > $       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 > K > Antonio Carlini                            Mail: carlini@true.lkg.dec.com % > DECnet-Plus for OpenVMS Engineering  > COMPAQ   ------------------------------  # Date: Sun, 14 May 2000 05:15:42 GMT 2 From: "Shrini Arole" <shrini@spamblocker.home.com>% Subject: Re: CPU Temperature from DCL 8 Message-ID: <2EqT4.5573$45.66234@news1.rdc1.tn.home.com>  E I dont have a ES40 either, but could the addl 3 values be from memory I boards? I dont know what the architecture of the ES40 is, but like on the K VAX 7800 machine, there are eight slots, each of which could be filled withEH either memory or cpu. I dont have a system I can test this on either, so this is just theory..    Shrini shrini@home.com     = Bob Kaplow <kaplow_r@eisner.decus.org.mars2> wrote in messageL% news:x6$vmzwrHtwJ@eisner.decus.org... K > In article <391ca53c.115899447@news.ma.ultranet.com>, StevenU@POBoxes.com  (Steven P. Underwood) writes: J > > That's funny.  I also have a new ES40 with 1 CPU and OVMS v7.2-1 whichF > > I am currently configuring.  I cut and pasted the script from hereI > > exactly, and it shows 4 readings.  I assume the temperature sensor is 0 > > on the main board and not on the CPU module. > H > BTSOOM. I don't have a ES40 VMS system to try it on. SOMETHING must beI > returning three extra values besides CPUs. Power Supplies? I did try it  here7 > on EISNER, a single CPU DS20, and here is what I get:  >  > $ sho cpu  >R$ > EISNER, a AlphaServer DS20 500 MHzJ > Multiprocessing is DISABLED. Uniprocessing synchronization image loaded.2 > Minimum multiprocessing revision levels: CPU = 1 >E > PRIMARY CPU = 00 > CPU sets:  >    Active         00 >    Configure      00 >    Potential      00 >    Autostart      00 >    Failover       None > $ @temperature > CPU  0   Temperature  68 > $  >  > Bob Kaplow >-G > SPAM: spamrecycle@ChooseYourmail.com uce@ftc.gov postmaster@127.0.0.1    ------------------------------  # Date: Tue, 16 May 2000 13:59:12 GMT - From: "Richard D. Piccard" <piccard@ohio.edu> % Subject: Re: CPU Temperature from DCL ( Message-ID: <3921542C.5F30EF6A@ohio.edu>   Hoff Hoffman wrote:B [snip]D >   (There are some bits of conflicting information around -- again,H >   this area is not documented and is subject to change.  If you reallyH >   want to pursue this, you'll need the service manual for the platformI >   and the OpenVMS source listings.  I don't know if the values returned0I >   are in fahrenheit, centigrade, or something else -- though the values J >   circa 70 does certainly look reasonable for a computer in centigrade.)  > Fahrenheit more likely.  70 Celsius would be 158 Fahrenheit, aH temperature at which I would expect most modern electronics to exhibit a very short working life. I   				RDP    -- nB ==================================================================B Dick Piccard                           Academic Technology ManagerB piccard@ohio.edu                                 Computer ServicesB http://oak.cats.ohiou.edu/~piccard/                Ohio University   ------------------------------  % Date: Tue, 16 May 2000 18:17:18 -0400d/ From: "Paul A. Jacobi" <Paul.Jacobi@compaq.com> % Subject: Re: CPU Temperature from DCL + Message-ID: <8fshed$c7v$1@lead.zk3.dec.com>   I One of the limitation of the GETSYI interface is that it does not providet any indicationK of the sensor location.  This is one of the reason why the interface is not  fully documented  L For the ES40, the first three temperature values are from Thermal Zone 0, 1, and 2,F which are located somewhere inside the box.  The next two termperature
 values are from the 2 CPU modules.a  F The exact location of the thermal zones and how the CPU temperature is measuredC is only available in system specifications which I am not aware area available to theE public.  Also not published is the nominal temperature range for each 	 platform.t  J Temperature sensor placement varies widely on the various Alpha platforms, so dohG not attempt to compare temperature values from various Alpha platforms.i  I Platform specific knowledge about the various sensors are included in theo CompaqK Analyze tool which can make a determination if the sensor values are beyondt an acceptable range.n     Paul A. Jacobi Compaq Computer Corporationu! OpenVMS Systems Group, ZKO3-4/U14i 110 Spitbrook Road Nashua, NH 03062-2698y Email: Paul.Jacobi@compaq.com    ------------------------------  # Date: Tue, 16 May 2000 23:16:20 GMTr/ From: "Tom Simpson" <simpsont@xxx.mediaone.net>C% Subject: Re: CPU Temperature from DCLsF Message-ID: <8FkU4.41203$BG3.105914@typhoon.jacksonville.mediaone.net>  L Thanks for the additional information.  That's what I wanted to know.  All IJ want to do is note the "normal" readings and let me know when they deviateI so I can start monitoring things more closely.   I'm not really concerned K with the absolute values, just which values are for the CPU's and which arel not.   Regards, Tom   ? "Hoff Hoffman" <hoffman@xdelta.zko.dec.nospam> wrote in message 0 news:8fpv2r$ni7$1@mailint03.im.hou.compaq.com... > L > In article <S90T4.38434$BG3.85754@typhoon.jacksonville.mediaone.net>, "Tom, Simpson" <simpsont@xxx.mediaone.net> writes:9 > :I have DCL program to read the temperature information @ > :using the f$getsyi lexical function (from a post on this NG). >+H >   It is not safe to assume that any particular Alpha system includes aJ >   (host-readable) thermometer.  (If you need a thermometer, then I wouldG >   encourage you to acquire one that has a serial interface, locate itaF >   appropriately, and hook it in via DCL or other language capable of >   serial communications.)t >p- > :Can someone tell me what the output means?e >hI >   Two constant values of interest here are SYI$K_ENV_STATUS_NOT_PRESENT E >   and SYI$K_ENV_STATUS_UNKNOWN -- these can appear in the resulting. vector..H >   Also of interest is SYI$K_ENV_VECTOR_LENGTH, the size of the vector. >OH >   Based on some digging around, the vector returned by the AlphaServerI >   ES40 dual-processor *appears* to contain the values returned by threeeF >   PCI zone sensors, followed by the values returned by the two CPUs.D >   (There are some bits of conflicting information around -- again,H >   this area is not documented and is subject to change.  If you reallyH >   want to pursue this, you'll need the service manual for the platformI >   and the OpenVMS source listings.  I don't know if the values returnedhI >   are in fahrenheit, centigrade, or something else -- though the values J >   circa 70 does certainly look reasonable for a computer in centigrade.) >o8 > :I asked COMPAQ the same question and they had no more > :information than I did... >s >   Interesting. > , >  --------------------------- pure personal# opinion ---------------------------w1 >    Hoff (Stephen) Hoffman   OpenVMS Engineeringe hoffman#xdelta.zko.dec.com >n   ------------------------------  % Date: Tue, 16 May 2000 17:54:04 +0200n2 From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender) Subject: Re: Debug problem; Message-ID: <39216f1c.524144494f47414741@radiogaga.harz.de>    rickytiki@my-deja.com wrote:N : 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. :MJ : Here is my problem: when I try to debug the code the debugger of OpenVMSK : says that it doesn't find the source code: I'm executing the program fromS3 : the directory where thera are the C and SC files.G  B The source file specifications are stored in the debug executable.  @ Advise the debugger to use the latest versions in your directory instead by entering:  0   DBG> SET SOURCE drive:[your.directory] /LATEST   cu,    Martin --D                        |  Martin Vorlaender  |  VMS & WNT programmer1   OpenVMS: When you    |  work: mv@pdv-systeme.deOH   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 13:27:39 GMT = From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)  Subject: Re: Debug problem0 Message-ID: <009EA2A1.717C8A9E@SendSpamHere.ORG>  a In article <#CKHpfzv$GA.244@cpmsnbbsa04>, "cstranslations" <cstranslations@email.msn.com> writes:  >FM ><rickytiki@my-deja.com> wrote in message news:8frfbn$vbb$1@nnrp1.deja.com...T >> Hi everyone >>J >> I'm migrating some applications from VAX OpenVMS 5.5-2 to Alpha OpenVMS >> 7.2; A >> these applications contain some SQL code for the RDBMS Ingres.  >>K >> Here is my problem: when I try to debug the code the debugger of OpenVMSRG >> says that it doesn't find the source code: I'm executing the programT >> from 4 >> the directory where thera are the C and SC files. > H >Was it compiled and linked with the debug qualifiers and if so have theL >files been moved director(ies) other than the one(s) were they were locatedK >when the code was compiled. If it's a different location then once you get M >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.   
 SET SOURCE   --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 14:45:16 +0100 - From: Tim Llewellyn <tim.llewellyn@bbc.co.uk>S Subject: Re: Debug problem) Message-ID: <392150EC.47F4AEA4@bbc.co.uk>?   cstranslations wrote:A   >;L > when the code was compiled. If it's a different location then once you getN > 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. >E   DBG> set source disk:[dir]  C If you get bored typing it, drop it in a file and point the logical  DBG$INIT at the file.L   --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.ukW  A I speak for myself only and my views in no way represent those ofO MedAS or the BBC.g   ------------------------------   Date: 15 May 2000 12:21:47 GMT* From: helbig@astro.rug.nl (Phillip Helbig)& Subject: DECnet: work on a remote node. Message-ID: <8foq4r$7f1$1@info.service.rug.nl>  E As I've mentioned many times here, I have no experience with DECnet; /& it's not even installed on my machine.  H I recently posted a question as to how one can get the FUNCTIONALITY of C having a remote laptop be a cluster satellite---i.e. work locally,  F update the disk remotely.  Could this be done via DECnet (over IP, as 6 most remote connections won't be anything else), i.e.   1 $  SET DEFAULT NODE::DISK[DIRECTORY.SUBDIRECTORY]_  E So if I edit a file, I work on it locally and it gets updated on the ; remote disk?  H Presumably, one could even put the node in .COM files etc (or perhaps a / logical, to minimise problems when it changes)._   ------------------------------  % Date: Tue, 16 May 2000 17:55:27 +0200"2 From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)* Subject: Re: DECnet: work on a remote node; Message-ID: <39216f6f.524144494f47414741@radiogaga.harz.de>A  + Phillip Helbig (helbig@astro.rug.nl) wrote:P* : What does one need to do DECnet over IP?  $ The same TCP/IP stack on both sides.   cu,^   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:40:06 GMT_, From: koehler@eisner.decus.org (Bob Koehler)* Subject: Re: DECnet: work on a remote node+ Message-ID: <zdqSUcEjn2Qg@eisner.decus.org>   [ In article <8foq4r$7f1$1@info.service.rug.nl>, helbig@astro.rug.nl (Phillip Helbig) writes: G > As I've mentioned many times here, I have no experience with DECnet;  ( > it's not even installed on my machine. > J > I recently posted a question as to how one can get the FUNCTIONALITY of E > having a remote laptop be a cluster satellite---i.e. work locally, @H > update the disk remotely.  Could this be done via DECnet (over IP, as 8 > most remote connections won't be anything else), i.e.  > 3 > $  SET DEFAULT NODE::DISK[DIRECTORY.SUBDIRECTORY]" > G > So if I edit a file, I work on it locally and it gets updated on the   > remote disk? >   H The "FUNCTIONALITY" of a cluster satellite is much more than what you're asking for here.  E Yes, you can set default to a directory on a DECnet remote host, edit@F files and save the updates.  There are a few file opertaions which areE not supported over DECnet, but only a few (create/directory is one of>E them). The remote node doesn't even have to be running the same OS, ING used to do this with VMS, TOPS-20, and RSX-11M all the time.  IIRC I've?D done this with ULTIRX and AIX, too.  Beats looking for a new editor.  G You can also use NFS if you'ld prefer TCP/IP.  There's also DEC DFS and? others._  F ----------------------------------------------------------------------? Bob Koehler                     | Computer Sciences Corporation = Hubble Space Telescope Payload  | Federal Sector, Civil Group E  Flight Software Team           | please remove ".aspm" when replyingg   ------------------------------  # Date: Mon, 15 May 2000 15:35:58 GMTC9 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen)G* Subject: Re: DECnet: work on a remote node+ Message-ID: <cP0mPK38x1gn@eisner.decus.org>F  [ In article <8foq4r$7f1$1@info.service.rug.nl>, helbig@astro.rug.nl (Phillip Helbig) writes:'G > As I've mentioned many times here, I have no experience with DECnet; ;( > it's not even installed on my machine. > J > I recently posted a question as to how one can get the FUNCTIONALITY of E > having a remote laptop be a cluster satellite---i.e. work locally, LH > update the disk remotely.  Could this be done via DECnet (over IP, as 8 > most remote connections won't be anything else), i.e.  > 3 > $  SET DEFAULT NODE::DISK[DIRECTORY.SUBDIRECTORY]N > G > So if I edit a file, I work on it locally and it gets updated on the / > remote disk?  E In general, that works, except for the difficulty of finding a laptop/E that runs VMS (AlphaBook was the only example, and those are in short/ supply on the used market).    ------------------------------   Date: 16 May 2000 07:51:22 GMT* From: helbig@astro.rug.nl (Phillip Helbig) Subject: Re: DEFINE ?N. Message-ID: <8fqulq$s3u$4@info.service.rug.nl>  5 In article <39208BB1.A8846AB3@videotron.ca>, JF Mezeiw' <jfmezei.spamnot@videotron.ca> writes: /   >Terry Marosites wrote:} >> zN >>   This all sounds very logical but why specify foo.tmp;0 to use the highest9 >> version when just specifying foo.tmp will do the same.B >FB >nop. If foo.tmp;9 is installed ( $INSTALL ADD foo.tmp;9 ), then aL >specification of "foo.tmp" will access foo.tmp;9 even if foo.tmp;10 exists. >?L >foo.tmp;0 will avoid the intalled file lookup and force a directory lookup.  < Will foo.tmp; force a directory lookup as well in this case?   ------------------------------  % Date: Mon, 15 May 2000 10:42:52 +0100u* From: "Richard Brodie" <R.Brodie@rl.ac.uk> Subject: Re: DEFINE ??, Message-ID: <8fogr0$14b4@newton.cc.rl.ac.uk>  9 "Howard S Shubs" <hshubs@mindspring.com> wrote in message 8 news:hshubs-D0E680.19233112052000@news.mindspring.com...7 > In article <391C9EAE.1A4FCA3D@videotron.ca>, JF Mezei?' > <jfmezei.spamnot@videotron.ca> wrote:S >#K > >"foo.tmp;0" will do a directory search and find the most recent file andP
 > >access ;10N >YJ > That answers -that- question.  Sounds like a reason to use the notation.  E True but somewhat obscure. More likely the command procedure puts theE' ;0 on so that it can do DELETE 'myfile.    ------------------------------   Date: 16 May 2000 15:23:53 GMT8 From: hammond@not@peek.ppb.cpqcorp.net (Charlie Hammond) Subject: Re: DEFINE ? 6 Message-ID: <8frp69$ihs$1@mailint03.im.hou.compaq.com>  5 In article <C22568DD.005DC081.00@jklh21.valmet.com>, O" norm.raphael@jamesbury.com writes:  D >Version ";0" is the default for version ";" and is the most recent.E >Version ";-0" is the earliest.  Version ";-1" is the one just before  >the most recent, etc.  J There appears to be an implicit assumption in the above that file versionsD are in cronolgical order.  This is the "normal" case, but it is not K necessarily so.  For example, RENAME can re-set file versions so that they U& are no longer in cronological order.     ------------------------------  % Date: Tue, 16 May 2000 15:16:02 -0700c/ From: Terry Marosites <TMarosites@unitedad.com>  Subject: RE: DEFINE ?iM Message-ID: <1137A4A23A51D311B2D600105A1D5213019AEE1B@seantexch.unitedad.com>t  J Are you saying that if I have foo.tmp;5 edit it and exit to foo.tmp;1 that< the ;0 will return ;1 not ;5 an the ;-0 will return;5 not ;1 Hmmm  $ Terry Scratches his head and smiles      -----Original Message-----& From: hammond@not@peek.ppb.cpqcorp.net) [mailto:hammond@not@peek.ppb.cpqcorp.net]9# Sent: Tuesday, May 16, 2000 8:24 AMO To: Info-VAX@Mvb.Saic.Comr Subject: Re: DEFINE ?t    4 In article <C22568DD.005DC081.00@jklh21.valmet.com>," norm.raphael@jamesbury.com writes:  D >Version ";0" is the default for version ";" and is the most recent.E >Version ";-0" is the earliest.  Version ";-1" is the one just before  >the most recent, etc.  J There appears to be an implicit assumption in the above that file versionsC are in cronolgical order.  This is the "normal" case, but it is notdJ necessarily so.  For example, RENAME can re-set file versions so that they% are no longer in cronological order. r    5 *****************************************************i    5 ***************************************************** 4 Any views or opinions are solely those of the author) and do not necessarily represent those ofi United News& Media.t5 ***************************************************** 4 The information transmitted is intended only for the1 person or entity to which it is addressed and mayh3 contain confidential and/or privileged material. If 3 you are not the intended recipient of this message,0. please do not read, copy, use or disclose this3 communication and notify the sender immediately. ItC0 should be noted that any review, retransmission,2 dissemination or other use of, or taking action in- reliance upon, this information by persons or - entities other than the intended recipient is  prohibited.o5 *****************************************************i **   ------------------------------  # Date: Tue, 16 May 2000 09:29:56 GMTw From: pmart63@my-deja.com # Subject: Disk maintenance package ?o) Message-ID: <8fr4e8$jje$1@nnrp1.deja.com>c   Hello,@     we currently use a package - PAKMANAGER from SYMARK for diskD maintenance / reporting. Unfortunately, it's got a potential problemH with Decnet Phase 5. Anybody know/use any other 3rd-party stuff on Alpha@ VMS 7.2-1 ? Ideally it'd generate reports, tree structures/space? allotted  to directory contents. PC GUI (X?) would be nice. I'm F London-based so name of the UK-distruibutor would also be good. Thanks in advance.    PM    & Sent via Deja.com http://www.deja.com/ Before you buy.    ------------------------------  # Date: Mon, 15 May 2000 14:12:18 GMTa From: jgessling@yahoo.comm3 Subject: Re: DS20 and HSJ-50 controllers - WARNING!:) Message-ID: <8fp0jk$7f4$1@nnrp1.deja.com>   , In article <391D5331.14E87EA7@mediaone.net>,'   Ed Wilts <ewilts@mediaone.net> wrote: H > Since Compaq has failed to document this, and is still selling systemsF > that flat out will not work, I'll post a public warning.  There is aE > known undocumented bug in the DS20 front-end that will crash HSJ-50 G > controllers running firmware V5.4J.  There is NO fix.  Customers withe@ > DS20 systems and HSJs have two choices:  1)  downgrade the HSJ firmware6 > to V5.2, or 2) wait for V5.5 (no ETA available yet). >i Ed,   " Is this the error that looks like?  D   CI host port detected an arbitration timeout on path A. PersistentB   hardware faults generating an arbitration timeout will cause the"   controller to repeatedly reboot.  < If so, we were visited by the HSJ product manager last week,F (william.phillps@compaq.com) He mentioned that this was due to a faultC in the YACI (yet another CI chip).   A fix is due real soon now.  Ic- suggest you shoot him an email for more info.e   Jimt      & Sent via Deja.com http://www.deja.com/ Before you buy.o   ------------------------------   Date: 16 May 2000 07:47:39 GMT* From: helbig@astro.rug.nl (Phillip Helbig) Subject: Re: EDT macros-. Message-ID: <8fquer$s3u$2@info.service.rug.nl>  < In article <392085EA.2F766D73@tsoft-inc.com>, David A Froble <davef@tsoft-inc.com> writes:    >Phillip Helbig wrote: >> BI >> OK, I STILL haven't gotten around to using TPU.  It's still on my listnK >> of things to do, honest.  (My main reason for this is to be able to makemJ >> use of LSE, but folks keep saying it will have other benefits as well.) >> mF >> I've only found two real disadvantages with EDT---the 255 characterI >> limit, and the inability to save the file one is working on.  After myHK >> .sig is a fix for the second problem---just use the .COM file instead ofi >> EDT directly.    $ Sorry, forgot that bit.  Here it is:   $  E:==EDIT/EDTh! $  DEFINE/USER_MODE EDT_FILE 'P1'm2 $  JFL = F$EXTRACT(0,F$LOCATE(".",P1),P1) + ".JOU". $  IF F$SEARCH(JFL) .NES. "" THEN GOTO JOURNAL) $  DEFINE/USER_MODE SYS$INPUT SYS$COMMANDi	 $  E 'P1'p $EXITt $  JOURNAL: , $    WSO "%EE-E-JRNLFE, journal file exists"F $  READ/PROMPT="press return to recover, ^Y to abort" SYS$COMMAND ANSW) $  DEFINE/USER_MODE SYS$INPUT SYS$COMMANDg $  E/RECOVER 'P1'e $EXITa   ------------------------------  % Date: Tue, 16 May 2000 11:17:58 +0100 , From: "Adrian Lumsden" <A.Lumsden@xdt.co.uk> Subject: Re: EDT macross. Message-ID: <8fr7fm$ttv$1@news5.svr.pol.co.uk>  L Here's a sample from my EDTSYS.EDT. I got fed up with looking up the numbersI for the function and keypad keys so I wrote this. The idea is that you do  "GOLD H"I and it fetches up help from KEYHLP.HLB. This draws a keyboard map on your A screen. Note that you'll need to convert the KEYHLP.HLP to a .HLB 6 (LIBR /CREAT/HELP KEYHLP.HLB KEYHLP.HLP). Don't forgetC to replace the <ESC>, <CTL-N> and <CTL-O> with the real characters.    Adrian     EDTSYS.EDT extract:m  
     <snip>&     define key gold h as 'ext keyhlp.'
     <snip>     find =keyhlp"     i ;set help XDT$SYS:KEYHLP.HLB     i ;helpt     i ;set helpy     find =main.r     define macro keyhlpo  
 KEYHLP.HLP   1 HELP <ESC>)0<ESC>[H<ESC>[2J:                      VT220 Keypad and Function Key Numbers:                      ===================================== <CTL-N>tG              lqqwqqwqqwqqwqqk  lqqwqqwqqwqqk  lqqwqqqqqk  lqqwqqwqqwqqkAG              x17x18x19x20x21x  x23x24x25x26x  x28x  29 x  x31x32x33x34xsG              mqqvqqvqqvqqvqqj  mqqvqqvqqvqqj  mqqvqqqqqj  mqqvqqvqqvqqjn <CTL-O>-?                                               <CTL-N>lqqwqqwqqki lqqwqqwqqwqqk<CTL-O>? DEFINE KEY requires a key number as input.    <CTL-N>x 1x 2x 3x, x20x10x11x17x<CTL-O>?                                               <CTL-N>tqqnqqnqquc tqqnqqnqqnqqu<CTL-O>H VT220 function keys are defined by using      <CTL-N>x 4x 5x 6x  x 7x 8x 9x18x<CTL-O>? DEFINE KEY [GOLD] FUNCTION key_number AS ...  <CTL-N>mqqnqqnqqj  tqqnqqnqqnqqu<CTL-O>H                                                  <CTL-N>x12x     x 4x 5x 6x19x<CTL-O>? Cursor and keypad keys are defined using      <CTL-N>lqqnqqnqqka tqqnqqnqqnqqu<CTL-O>K DEFINE KEY [GOLD] key_number AS ...           <CTL-N>x15x13x14x  x 1x 2x 3x  x<CTL-O>?                                               <CTL-N>mqqvqqvqqjb tqqvqqnqqu21x<CTL-O>K                                                           <CTL-N>x  0  x16xr x<CTL-O>   <CTL-N>mqqqqqvqqvqqj<CTL-O>e --( Adrian Lumsden, XDT Computer Systems, UK" A dot Lumsden at xdt dot co dot uk  5 Phillip Helbig <helbig@astro.rug.nl> wrote in message ( news:8fpnm8$h62$1@info.service.rug.nl...H > OK, I STILL haven't gotten around to using TPU.  It's still on my listJ > of things to do, honest.  (My main reason for this is to be able to makeI > use of LSE, but folks keep saying it will have other benefits as well.)n >bE > I've only found two real disadvantages with EDT---the 255 characterCH > limit, and the inability to save the file one is working on.  After myJ > .sig is a fix for the second problem---just use the .COM file instead of@ > EDT directly.  (The lack of an "undo" feature might be a thirdG > disadvantage; I'm still looking into something which manipulates .JOUo	 > files!)V > F > I have lots of macros, using no keypad mode (I think that's the one;I > INSERT; and stuff like that).  However, most of these are variations onoH > a theme and I really don't know that much about them.  I think in lineJ > mode---the stuff one can type in at the prompt.  If I have a sequence ofB > commands which will do the right thing in a .EDT file, how can I@ > transform these into a macro which I can call from within EDT?   ------------------------------  % Date: Tue, 16 May 2000 15:03:12 -0700t/ From: Terry Marosites <TMarosites@unitedad.com>l Subject: RE: EDT macroshM Message-ID: <1137A4A23A51D311B2D600105A1D5213019AEE1A@seantexch.unitedad.com>E   Adrian,   I  That is similar to mine edtini.edt but  I throw my help file to a bufferS called help G It is also the same file that I have a symbol define as loc*ate == "sea  TLM:TERRYS.NOTES"-  I Here are some others that I have in my edtini with these I seldom have tom use tpu for program editingc    . ( press pf1 then down arrow, prompts you for )% ( a filename to download a buffer to) 8 Def K G 13 As "Ext Wr ?*'Output file: ' =?*' Buffer: '."  . ( press pf1 then up arrow, prompts you for a ) ( file to upload to a buffer) 8 Def K G 12 As "Ext Inc ?*'Input file: ' =?*' Buffer: '."    3 (press pf1 then M  Returns you to the main buffer )g Def K G M As "Ext F=Main.."n  < ( pf1 then B prompts you for a buffer and moves you to it. )F ( I like this better than tpu split screens because you have many more buffers)# Def K G B As "Ext F=?*'Buffer: '.."l  4 ( press pf1 then H puts my help file in buffer help @ Def K G H As "Ext find = HELP.;delete 1:1000;include  =HELP  ;."  L ( pf1 then D inserts date and time great for documenting changes as you go )   Def K G D As "Date."  " ( pf1 right arrow and left arrow )# Def K G 14 As "EXT set screen 132."-" Def K G 15 As "ext set screen 80."   Def K G Q As "Ext Quit/Save."s Def K G S As "Ext Sh Buffer."h Def K G Con Z As "Ext Ex."!!    I These are the main ones I use but for box cutting , large file edits, andF+ learn sequences there is nothing like tpu.    H Does anyone know how to define a gold key  C as  that will insert some aJ line line of text and the date and time  ( example: $! Changed by Terry on+ 16-MAY-2000 14:40:08) .This has me stumped.[   Terry        -----Original Message-----1 From: Adrian Lumsden [mailto:A.Lumsden@xdt.co.uk]e# Sent: Tuesday, May 16, 2000 3:18 AMo To: Info-VAX@Mvb.Saic.ComO Subject: Re: EDT macros   L Here's a sample from my EDTSYS.EDT. I got fed up with looking up the numbersI for the function and keypad keys so I wrote this. The idea is that you do. "GOLD H"I and it fetches up help from KEYHLP.HLB. This draws a keyboard map on your6A screen. Note that you'll need to convert the KEYHLP.HLP to a .HLBg6 (LIBR /CREAT/HELP KEYHLP.HLB KEYHLP.HLP). Don't forgetC to replace the <ESC>, <CTL-N> and <CTL-O> with the real characters.    Adrian     EDTSYS.EDT extract:n  
     <snip>&     define key gold h as 'ext keyhlp.'
     <snip>     find =keyhlp"     i ;set help XDT$SYS:KEYHLP.HLB     i ;helpp     i ;set helpr     find =main.g     define macro keyhlp   
 KEYHLP.HLP   1 HELP <ESC>)0<ESC>[H<ESC>[2J:                      VT220 Keypad and Function Key Numbers:                      ===================================== <CTL-N>rG              lqqwqqwqqwqqwqqk  lqqwqqwqqwqqk  lqqwqqqqqk  lqqwqqwqqwqqkfG              x17x18x19x20x21x  x23x24x25x26x  x28x  29 x  x31x32x33x34xtG              mqqvqqvqqvqqvqqj  mqqvqqvqqvqqj  mqqvqqqqqj  mqqvqqvqqvqqje <CTL-O>t?                                               <CTL-N>lqqwqqwqqku lqqwqqwqqwqqk<CTL-O>? DEFINE KEY requires a key number as input.    <CTL-N>x 1x 2x 3xe x20x10x11x17x<CTL-O>?                                               <CTL-N>tqqnqqnqqu  tqqnqqnqqnqqu<CTL-O>H VT220 function keys are defined by using      <CTL-N>x 4x 5x 6x  x 7x 8x 9x18x<CTL-O>? DEFINE KEY [GOLD] FUNCTION key_number AS ...  <CTL-N>mqqnqqnqqji tqqnqqnqqnqqu<CTL-O>H                                                  <CTL-N>x12x     x 4x 5x 6x19x<CTL-O>? Cursor and keypad keys are defined using      <CTL-N>lqqnqqnqqkf tqqnqqnqqnqqu<CTL-O>K DEFINE KEY [GOLD] key_number AS ...           <CTL-N>x15x13x14x  x 1x 2x 3xl x<CTL-O>?                                               <CTL-N>mqqvqqvqqji tqqvqqnqqu21x<CTL-O>K                                                           <CTL-N>x  0  x16x  x<CTL-O>   <CTL-N>mqqqqqvqqvqqj<CTL-O>l --( Adrian Lumsden, XDT Computer Systems, UK" A dot Lumsden at xdt dot co dot uk  5 Phillip Helbig <helbig@astro.rug.nl> wrote in messageP( news:8fpnm8$h62$1@info.service.rug.nl...H > OK, I STILL haven't gotten around to using TPU.  It's still on my listJ > of things to do, honest.  (My main reason for this is to be able to makeI > use of LSE, but folks keep saying it will have other benefits as well.)  > E > I've only found two real disadvantages with EDT---the 255 character-H > limit, and the inability to save the file one is working on.  After myJ > .sig is a fix for the second problem---just use the .COM file instead of@ > EDT directly.  (The lack of an "undo" feature might be a thirdG > disadvantage; I'm still looking into something which manipulates .JOU'	 > files!)  >tF > I have lots of macros, using no keypad mode (I think that's the one;I > INSERT; and stuff like that).  However, most of these are variations onoH > a theme and I really don't know that much about them.  I think in lineJ > mode---the stuff one can type in at the prompt.  If I have a sequence ofB > commands which will do the right thing in a .EDT file, how can I@ > transform these into a macro which I can call from within EDT?    5 *****************************************************     5 ***************************************************** 4 Any views or opinions are solely those of the author) and do not necessarily represent those of  United News& Media.e5 *****************************************************-4 The information transmitted is intended only for the1 person or entity to which it is addressed and may:3 contain confidential and/or privileged material. Ife3 you are not the intended recipient of this message,a. please do not read, copy, use or disclose this3 communication and notify the sender immediately. Itl0 should be noted that any review, retransmission,2 dissemination or other use of, or taking action in- reliance upon, this information by persons or9- entities other than the intended recipient isa prohibited.i5 *****************************************************0 **   ------------------------------  % Date: Wed, 17 May 2000 08:40:21 +0900o2 From: Mike Rechtman <michael.rechtman@digital.com> Subject: Re: EDT macros * Message-ID: <39225AF4.FEDC992@digital.com>   Terry Marosites wrote: >    > J > Does anyone know how to define a gold key  C as  that will insert some aL > line line of text and the date and time  ( example: $! Changed by Terry on- > 16-MAY-2000 14:40:08) .This has me stumped.0 >e  $ Try defining a key (your choice) as:  / tpu  copy_text( FAO( "$! Edited ""!%D"".",0 ) )s  , (or write it to a buffer and define a macro)   ~Mikea -- cE ---------------------------------------------------------------------hE Usual disclaimer: All opinions are mine alone, perhaps not even that. ? Mike Rechtman                            *rechtman@tzora.co.il*tF 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: Tue, 16 May 2000 19:54:34 GMT8, From: koehler@eisner.decus.org (Bob Koehler)# Subject: find out of date firmware?t+ Message-ID: <yajr2o2buZym@eisner.decus.org>c  H   I'm about to update a system which has been much too long out of date.  (   I hate to do anything I can't back up.  C   I've got a DEC 3000 Model 600S with console 6.8 in it and I'll beo1   updating it to console 7.0 so I can update VMS.   G   I can't find anything older than 7.0 on ftp.digital.com, or on my new D   firmware CD.  The system didn't originally ship with a firmware CD   (if it did, I'd have it).a  F   Is there somewhere I can find 6.8 for download?  (I can set up a MOM/   service to load from if I can get the files).D  E   Is there someway I can make one by mapping the PFN and copying the aD   existing data out of the ROM?  (I assume the data alone is really 2   insufficient without a matching update utility.)  F   I'm running VMS 6.2 and updating to 7.2-1 and I know both should runL   under console 7.0, but like I said, I hate to do anything I can't back up.J   Suppose, just for argument sake, my new firware CD turned out to be bad.  F ----------------------------------------------------------------------? Bob Koehler                     | Computer Sciences Corporationd= Hubble Space Telescope Payload  | Federal Sector, Civil GroupiE  Flight Software Team           | please remove ".aspm" when replyingt   ------------------------------   Date: 16 May 2000 07:53:01 GMT* From: helbig@astro.rug.nl (Phillip Helbig)5 Subject: Re: good price for a used MicroVAX 3100 M90? . Message-ID: <8fquot$s3u$5@info.service.rug.nl>  7 In article <3920A3D6.FBF6D833@rtfmcsi.com>, Chuck Chopp ! <ChuckChopp@rtfmcsi.com> writes: *  H >I have an opportunity to buy a used MicroVAX 3100 M90 w/64MB of memory,I >a single 2GB hard drive, a 12 user license for OpenVMS, a 4mm tape driveaE >(TLZ0?) and a 8mm tape drive.  This would be a nice step up from the*F >uVAX 3100 M10 that I'm using right now for minor software development
 >projects. >eG >What would be a fair price to pay for this system (used) assuming thatdE >shipping costs and sales tax are accounted for separately?  I expectsI >that I would paying prices similar to what a used equipment dealer wouldnF >to purchase the equipment, as opposed to paying what a used equipment6 >dealer would charge for the system when reselling it.  G It's not unreasonable to get something like this for free.  I'd pay up tE to $300 or so for it.  Keep in mind that used ALPHAs are starting to * appear cheap or free.*   ------------------------------  % Date: Tue, 16 May 2000 13:12:14 +01005! From:  Tony Wright <tpw@ngat.com> 5 Subject: Re: good price for a used MicroVAX 3100 M90?eB Message-ID: <04E02AB064E0D211B24E0008C79F6A0E742841@mail.ngat.com>   > -----Original Message------ > From: helbig@astro.rug.nl (Phillip Helbig) g > [mailto:helbig@astro.rug.nl]( > Posted At: Tuesday, May 16, 2000 08:53  > > It's not unreasonable to get something like this for free.  
 > I'd pay up sG > to $300 or so for it.  Keep in mind that used ALPHAs are starting to   > appear cheap or free.h >K  . Phil where in the UK can you get cheap Alphas?   -- Tony Wright    ------------------------------  % Date: Tue, 16 May 2000 20:15:42 -0400-* From: David A Froble <davef@tsoft-inc.com>5 Subject: Re: good price for a used MicroVAX 3100 M90?n- Message-ID: <3921E4AE.BD9F632F@tsoft-inc.com>8   Chuck Chopp wrote: > I > I have an opportunity to buy a used MicroVAX 3100 M90 w/64MB of memory,aJ > a single 2GB hard drive, a 12 user license for OpenVMS, a 4mm tape driveF > (TLZ0?) and a 8mm tape drive.  This would be a nice step up from theG > uVAX 3100 M10 that I'm using right now for minor software developmentc > projects.  > H > What would be a fair price to pay for this system (used) assuming thatF > shipping costs and sales tax are accounted for separately?  I expectJ > that I would paying prices similar to what a used equipment dealer wouldG > to purchase the equipment, as opposed to paying what a used equipmento7 > dealer would charge for the system when reselling it.  >  > TIA, >  > Chuckc > --
 > Chuck Choppr > : > ChuckChopp@rtfmcsi.com            http://www.rtfmcsi.com2 >                                   ICQ # 22321532B > RTFM Consulting Services Inc.     864 801 2795 voice & voicemail4 > 103 Autumn Hill Road              864 801 2774 fax6 > Greer, SC  29651                  800 400 4935 pagerE >                                   8004004935@alphapage.airtouch.com-  J Prices for VAXs are dropping rather low.  Something over a year ago I paidK between $700 and $800 for a VAXserver 4000 model 90 (same capability as therM MV3100 model 90) and recently I've seen them go for around $200.  Depressing,dP unless I needed another.  What I'm lusting for is one of the last N-VAX systems,K the model 96 or 98.  I have noticed that MicroVAXs seem to command a bettero  price than the VAXstation 4000s.  G I wouldn't go too high on such a system.  Definitely not past 3 digits.e   Dave   -- e4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596; 170 Grimplin Road               E-Mail: davef@tsoft-inc.coms Vanderbilt, PA  15486r   ------------------------------  % Date: Mon, 15 May 2000 11:18:21 +0100r: From: "Dean Richard Benson" <dean.benson@remove_metrw.com>2 Subject: Re: HELP on calculating percentage in DCL, Message-ID: <8foipi$ntl$1@murrow.sp.trw.com>   Lars.E  . Have a look at :  http://www.jcameron.com/vms/    Under the VMS Utilities section.  F Jeff has already coded up such a tool that I use and find most useful.  / It does exactly what you are trying to achieve.    Regards.   Dean.Y  . "Lars Jacobsen" <laja@tdk.dk> wrote in message& news:8fogt9$pkb$1@news.inet.tele.dk... > Hello all. >0H > I have a small routine that examines the blocks free and max available blocksD > on a number of disk devices using F$GETDVI(device,"MAXBLOCKS") and > F$GETDVI(device,"FREEBLOCK"). B > Now I would like to perform some action (say send a mail) if the   ------------------------------  % Date: Tue, 16 May 2000 19:51:27 +0100o  From: steven.reece@quintiles.com2 Subject: Re: HELP on calculating percentage in DCL> Message-ID: <802568E1.00679FC2.00@qedilc01.qedi.quintiles.com>  L Although Mike is probably right, the solution depends upon how big the disksP are.  It is easy to overrun the limit for (integer) arithmetic in DCL with say aO 6 disk RAIDset of 9.1GB disks (and yes, I've done it and yes, the only solutionP6 I found was to use a C program to do the work for me).  M You also need to bear in mind that DCL doesn't handle non-integer arithmetic. = You can't do 10.1 times 3.3 since it won't like the decimals.    Steve.   Mike Rechtman wrote:+ >>>> $ b_max = F$GETDVI(device,"MAXBLOCKS")q) > $ b_free = F$GETDVI(device,"FREEBLOCK")q > $ pct = (b_free*100)/b_max   Try:!   $ pct = b_free / (b_max/100)<<<3   ------------------------------  # Date: Tue, 16 May 2000 09:15:35 GMTq From: graculuss@my-deja.com , Subject: Re: Help with ACL's (file security)) Message-ID: <8fr3je$iuj$1@nnrp1.deja.com>q  F I've just looked at my original post and it looks like Deja chopped itG half way through, so here's another go. If this still doesn't work I'llq repost when I get home.i   Thanks for your patience.     A   I wonder if you would like to apply your little grey cells to aNG 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 to_G 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. 5 The directory containing the files is protected thus:    dir/sec  DISK5_APP_SW:[RH]data   Directory DISK5_APP_SW:[RH]d  < 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:*.dath    Directory DISK5_APP_SW:[RH.DATA]  E RH$DATA_LA.DAT;10    [SYSTEM]                         (RWED,RWED,RE,)r0           (IDENTIFIER=RH_LA,ACCESS=READ+EXECUTE)A           (IDENTIFIER=RH_UPDATE,ACCESS=READ+WRITE+EXECUTE+DELETE)a  D RH$DATA_GL.DAT;1    [SYSTEM]                         (RWED,RWED,RE,)0           (IDENTIFIER=RH_GL,ACCESS=READ+EXECUTE)A           (IDENTIFIER=RH_UPDATE,ACCESS=READ+WRITE+EXECUTE+DELETE)t      E Every user holds RH_USER, and therefore anyone can scan the directoryoC and find the file names, the procedure then does an $open/error= oniE each file, if the open succeeds then the file is added to their list,hC if the open fails (i.e. they don't hold the RH_LA/RH_GL identifier)b) then the file is not added to their list.u  % What's wrong with the above approach:aG Well it works O.K., this particular operation is infrequently performed,= (perhaps 2-3 times a day accross the whole system) so I'm notmB particularly concerned that it's inefficient, however each time itD happens we get lots of file access failure audit alarms generated. IE want audit alarms turned on for any 'real' file access failures but I1B don't want these ones to form a smoke screen behind which any real failures might be masked.r   What I want:> Can anyone suggest any simple way I could achieve this withoutG generating the alarms. I guess what would be great would be an argument  for F$FILE such as> f$file(filename,"most_privileged_access_mode_available_to_me")G or even a way to force F$SEARCH to only return the files which the usert is able to open.  E Note I don't want to get into maintaining any sort of list of who hass access to what.o  G I did consider giving all users read access to all files, then managingIF the access to this app via another ACL bit (e.g. BIT_1,BIT_2 etc.) butD then I need a machanism to check if the BIT_1 field is available via) any of  the identifiers held by the user..   Anyone got any suggestions ?            & Sent via Deja.com http://www.deja.com/ Before you buy.x   ------------------------------  % Date: Tue, 16 May 2000 12:10:11 +0200 : From: Karl Rohwedder <extern.karl.rohwedder@volkswagen.de>, Subject: Re: Help with ACL's (file security)- Message-ID: <39211E83.FCF11611@volkswagen.de>   B Since the DIRECTORY commands does not allow for selection of files with certain ACE,.C you could use the FIND utility to create a list of all files with a.
 specific ACE,s7 then scan the list and present a menu to the user, e.g.s FIND /ACE=RH_GL ...   8 You can obtain the FIND utility using the following URL: 	e7 	http://www2.wku.edu/scripts/fileserv/fileserv.com?FIND    graculuss@my-deja.com wrote: > H > I've just looked at my original post and it looks like Deja chopped itI > half way through, so here's another go. If this still doesn't work I'll  > repost when I get home.- >  > Thanks for your patience.L > C >   I wonder if you would like to apply your little grey cells to abI > little situation I have ( I hesitate to call it a problem 'cos it isn't 
 > really). >  > What I am trying to achieve: > H > I have an application written mainly in DCL, it will search for a listE > of datafiles in a directory using F$SEARCH("*.dat"), I then want toyI > determine if the user has access to the file, and if so present it on aL4 > list of files which they are then allowed to open. > ' > Heres how I'm doing it at the moment.h7 > The directory containing the files is protected thus:n >   > dir/sec  DISK5_APP_SW:[RH]data >  > Directory DISK5_APP_SW:[RH]i > > > DATA.DIR;1             [SYSTEM]              (RWE,RWE,RE,RE)D >           (IDENTIFIER=RH_USER,OPTIONS=DEFAULT,ACCESS=READ+EXECUTE)4 >           (IDENTIFIER=RH_USER,ACCESS=READ+EXECUTE) > 0 > The files in the directory are protected thus: > diree/sec rh_data:*.dat= > " > Directory DISK5_APP_SW:[RH.DATA] > G > RH$DATA_LA.DAT;10    [SYSTEM]                         (RWED,RWED,RE,)72 >           (IDENTIFIER=RH_LA,ACCESS=READ+EXECUTE)C >           (IDENTIFIER=RH_UPDATE,ACCESS=READ+WRITE+EXECUTE+DELETE)q > F > RH$DATA_GL.DAT;1    [SYSTEM]                         (RWED,RWED,RE,)2 >           (IDENTIFIER=RH_GL,ACCESS=READ+EXECUTE)C >           (IDENTIFIER=RH_UPDATE,ACCESS=READ+WRITE+EXECUTE+DELETE)  > G > Every user holds RH_USER, and therefore anyone can scan the directory<E > and find the file names, the procedure then does an $open/error= on G > each file, if the open succeeds then the file is added to their list,LE > if the open fails (i.e. they don't hold the RH_LA/RH_GL identifier) + > then the file is not added to their list.< > ' > What's wrong with the above approach:iI > Well it works O.K., this particular operation is infrequently performedb? > (perhaps 2-3 times a day accross the whole system) so I'm not D > particularly concerned that it's inefficient, however each time itF > happens we get lots of file access failure audit alarms generated. IG > want audit alarms turned on for any 'real' file access failures but ILD > don't want these ones to form a smoke screen behind which any real > failures might be masked.o >  > What I want:@ > Can anyone suggest any simple way I could achieve this withoutI > generating the alarms. I guess what would be great would be an argument, > for F$FILE such as@ > f$file(filename,"most_privileged_access_mode_available_to_me")I > or even a way to force F$SEARCH to only return the files which the userl > is able to open. > G > Note I don't want to get into maintaining any sort of list of who hasw > access to what.y > I > I did consider giving all users read access to all files, then managing H > the access to this app via another ACL bit (e.g. BIT_1,BIT_2 etc.) butF > then I need a machanism to check if the BIT_1 field is available via+ > any of  the identifiers held by the user.p >  > Anyone got any suggestions ? > ( > Sent via Deja.com http://www.deja.com/ > Before you buy.o   --    - mit freundlichen Gruessen | with best regards    Karl Rohwedder               tC iT-Ingenieurteam     | Ellernbruch 11       | D-38112 Braunschweig oA Telefon: 0531/515521 | Telefax: 0531/515531 | Mobil: 0172/5434843rE  E-Mail: rohwedder@decus.decus.de           | iT-IngTeam@t-online.de *+          karl.rohwedder@it-ingenieurteam.de* DATEX-P: 4505018005::ROHWEDDER   ------------------------------  % Date: Mon, 15 May 2000 07:16:46 -0400h& From: Mark Janson <mjanson@nospam.com>K Subject: How do I disable opcom messages between cluster nodes on VMS 7.2 ?*8 Message-ID: <m0nvhsgmdpsku5np45m252lojolb2ek4f3@4ax.com>  N We only want the opcom messages generated on a particular node to be broadcast( ONLY on that node, and not cluster wide.  M I think I recall a system wide logical being available after V7 to do what wes need?h   ------------------------------   Date: 16 May 2000 13:52:39 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)' Subject: Re: How I can redirect output?e6 Message-ID: <8frjr7$gee$1@mailint03.im.hou.compaq.com>  W In article <391E837A.B656AF03@novosoft.ru>, Denis Shadrin <shadrin@novosoft.ru> writes:*+ :I am working under VAX/VMS version V5.5-2.-  &   OpenVMS VAX V5.5-2.  How quaint. :-)  G   If you can upgrade to OpenVMS V7.1 or later, you gain the DCL commandTH   PIPE.  This command is very useful for various purposes, including for-   I/O redirection and for setting up a "tee".e  ? :So I need to redirect output to file, the known ways to me is:  : * :1. RUN/OUTPUT=filespec program-exefile..." :2. ...DEFINE SYS$OUTPUT  filespec  @   My long-standing favorite for DCL interactive I/O redirection:       $ @TT:/OUTPUT=loge     _$ command1s     _$ command2t     _$ <ctrl/z>f     $a  =   This command invokes the terminal input device as a command-?   procedure, and (obviously) uses the /OUTPUT qualifier that isn(   available when invoking the procedure.  /   I've a section on this stuff in the DCL book..  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Sun, 14 May 2000 23:12:03 +0700-) From: Denis Shadrin <shadrin@novosoft.ru>:' Subject: Re: How I can redirect output?g+ Message-ID: <391ED053.453280AB@novosoft.ru>m   Hi!     Thank you very much, it works :)   "John E. Malmberg" wrote:d > % > Denis Shadrin <shadrin#novosoft.ru>u. > > I am working under VAX/VMS version V5.5-2.( > > So I need to redirect output to file >  > $outfile = "FILESPEC"' > $CREATE 'outfile' $ > $DEFINE/USER SYS$OUTPUT  'outfile' > $RUN program-exefile > $purge 'outfile' > N > Note the /USER on the redefinition of SYS$OUTPUT.  This restricts it to just > the next Image executed.  & But seems to me that I can to use the:   $DEFINE/USER SYS$OUTPUT TT   to call back redirection?c   >  > -Johni > wb8tyw@qsl.network   --   With best regardsc
 Denis Shadrinm   ------------------------------  % Date: Sun, 14 May 2000 20:00:48 -0500e) From: "John E. Malmberg" <wb8tyw@qsl.net>w' Subject: Re: How I can redirect output?'/ Message-ID: <shuino60je4177@corp.supernews.com>w  4 Denis Shadrin <shadrin#novosoft.ru> wrote in message% news:391ED053.453280AB@novosoft.ru...  >u > "John E. Malmberg" wrote:, > >eK > > Note the /USER on the redefinition of SYS$OUTPUT.  This restricts it to- just > > the next Image executed. >h( > But seems to me that I can to use the: >o > $DEFINE/USER SYS$OUTPUT TT >e > to call back redirection?i  G No, while it looks like it accomplishes what you want, it does not, andpK putting the /USER on the *additional* redirection back to TT: will cause itrH to be forgotton as soon as you execute the next image.  That could cause% some strange effects on your program.q  J Also you should not assume that SYS$OUTPUT was going to the TT: before you redirected it to a file.  K To undo a $DEFINE SYS$OUTPUT file.dat, you should use a $DEASIGN SYS$OUTPUT0  H The /USER is of convenience as the logical name is deleted when the nextK image exits.  Note that some DCL commands such as DIRECTORY will execute an  image.   -JohnA wb8tyw@qsl.network   ------------------------------  % Date: Mon, 15 May 2000 03:40:51 -0700 ? From: Mike Price <mike.priceNOmiSPAM@littlewoods.co.uk.invalid>i. Subject: Re: How to make a loop in .com files?9 Message-ID: <078a5576.62b3281f@usw-ex0105-035.remarq.com>w  @ 2 ideas that may work although I don't know exactly what you are" trying to do so they may be no use   a) read sys$input xxx/time=1> pauses DCL waiting for input then times out after 1 second and5 continues - do ggod if you want continuous execution.o> b) spawn off a subprocess (spawn/nowait) executing the command= you want. Then do a read sys$input (or inquire) from the main1: bit and wait for input. When inout comes along then either a) stop the subprocess or = b) set a logical/symbol that the spawned subprocess checks to4# allow it to close itself gracefully    Hope this helps -g  > P.S. I am working on VMS 7.1 so it may be different but as far0 as I remember these things worked on 5.5 as well  	 Good Luck   
 Mike Price  9 All views are my own and no-one else (and all that stuff)   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!p   ------------------------------  % Date: Tue, 16 May 2000 13:01:30 +0200 : From: Karl Rohwedder <extern.karl.rohwedder@volkswagen.de>/ Subject: Re: how to reset a DS90M to flash booto- Message-ID: <39212A8A.AF0B04B8@volkswagen.de>t  > As far as I remember, a DS90M with flash memory will boot from flashmemory,B if the name of the software specified in server settings euals the name in flashmemory.  C If the server has been reset, the software should be MNENG3, may bea the name in flah differs.V  F To reload the flash force a reboot from networt and update the flash, + connect a terminal to the server and issue:   
 	SET PRIV ...e 	INIT UPDATE FLASHRAM   - 	HELP INIT displays some more usefull optionss   "Jean-Franois Marchal" wrote: >  > : > Is it possible to reset the server to automatically boot > via the flash ?m >  > Cordialement > Jean-Franois Marchaln > X9000 - LYON   -- g  - mit freundlichen Gruessen | with best regards    Karl Rohwedder               rC iT-Ingenieurteam     | Ellernbruch 11       | D-38112 Braunschweig  A Telefon: 0531/515521 | Telefax: 0531/515531 | Mobil: 0172/5434843eE  E-Mail: rohwedder@decus.decus.de           | iT-IngTeam@t-online.de  +          karl.rohwedder@it-ingenieurteam.de6 DATEX-P: 4505018005::ROHWEDDER   ------------------------------  # Date: Tue, 16 May 2000 20:04:35 GMT.3 From: "Gord Coulman" <nospam_gcoulman@ccinet.ab.ca>e$ Subject: Re: Initializing all drives: Message-ID: <nRhU4.11591$%u6.664618@news1.telusplanet.net>  C Charlie Hammond <hammond@not@peek.ppb.cpqcorp.net> wrote in message00 news:8fs30c$mfg$1@mailint03.im.hou.compaq.com...1 > Can a paper punch be used for floppys?  Really?h  H To "initialize" a floppy, take out the disk media (minus the small metal9 disc), then run it through a paper shredder.  Works fine.o   Gord.s   ------------------------------   Date: 16 May 2000 18:13:08 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)$ Subject: Re: Initializing all drives6 Message-ID: <8fs33k$mfe$1@mailint03.im.hou.compaq.com>  p In article <bFfU4.11562$%u6.661573@news1.telusplanet.net>, "Gord Coulman" <nospam_gcoulman@ccinet.ab.ca> writes:? :We initialize our old hard drives with a drill press.  Really.R  G   Ayup.  There are sites where shredding and then "slagging" the whole sG   disk or the disk head-disk assembly (HDA) is common practice -- after J   it gets erased or bulk degaussed.  The resulting slowly-dimming glowing 8   puddle of molten metal need not be guarded, of course.  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------   Date: 16 May 2000 18:11:24 GMT8 From: hammond@not@peek.ppb.cpqcorp.net (Charlie Hammond)$ Subject: Re: Initializing all drives6 Message-ID: <8fs30c$mfg$1@mailint03.im.hou.compaq.com>  ; In article <bFfU4.11562$%u6.661573@news1.telusplanet.net>,  5 "Gord Coulman" <nospam_gcoulman@ccinet.ab.ca> writes:r  ? >We initialize our old hard drives with a drill press.  Really.D  / Can a paper punch be used for floppys?  Really?.   -- eK     Charlie Hammond -- Compaq Computer Corporation -- Pompano Beach  FL USAtF          (hammond@peek.ppb.cpqcorp.net -- remove "@not" when replying)J       All opinions expressed are my own and not necessarily my employer's.   ------------------------------  % Date: Tue, 16 May 2000 16:31:18 -0400 # From: Jim Agnew <agnew@hsc.vcu.edu> $ Subject: Re: Initializing all drives* Message-ID: <3921B016.CF69DE1@hsc.vcu.edu>  G also, look up your friendly local hospital, shove them (well tied down)m; into their MRI... ;-)  "works for me" - "Hunter" TV show...i   JimE   Gord Coulman wrote:f > E > Charlie Hammond <hammond@not@peek.ppb.cpqcorp.net> wrote in message-2 > news:8fs30c$mfg$1@mailint03.im.hou.compaq.com...3 > > Can a paper punch be used for floppys?  Really?  > J > To "initialize" a floppy, take out the disk media (minus the small metal; > disc), then run it through a paper shredder.  Works fine.  >  > Gord.t   ------------------------------   Date: 16 May 2000 16:10:52 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)# Subject: Re: INSVIRMEM when linkingp6 Message-ID: <8frruc$juv$1@mailint03.im.hou.compaq.com>  t In article <8frlvu$2373$1@s2.feed.news.oleane.net>, "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr> writes:  G   How big is the final executable image?  When building any image, the  E   LINKER needs enough virtual memory for all of the image, plus room e>   for its own code, plus some room for transient data storage.  A :what is strange in this case, is the fact that neither system ort@ :user quota had been changed since last time the same executable :hab been built...  D   If you are rebuilding the executable, then it is very likely that D   something has changed.  (Else, why bother relinking the image? :-)  C   Um, nothing changed?  Well, clearly _something_ has changed here.+E   (The phrase "Nothing changed" should be placed alongside the phrasehF   "It doesn't work" in the pantheon of computer technical support. :-)  < :The programmer says everything has been built without debug	 :but  ...H     Interesting.  J   You can research the statements of the programmer, or you can encourage D   the programmer to rebuild everything without debug and/or you can B   increase the process quotas, or both, and (obviously) try again.  F   I would encourage the programmer to look at shareable images and at J   object libraries, if this is not already being done.  (The LINK command I   that was used was omitted, so I can't easily tell if the programmer is eE   seriously using these techniques to speed up the linking operating.y   I would encourage this use.)  G   Based solely on the 1,073,807,360 bytes of "virtual memory allocated"hF   listed in the map (a billion bytes), your image is very near (or is C   at) the limits on the size of P0 address space.  This means that eH   something went berserk within the LINKER (and chewed up all storage), H   or your image is sufficiently large that you need to look at using P2 -   (64-bit) space or at breaking up the image.'  ? :... So I'm not sure DEBUG has not been turned on somewhere ...   J   It certainly looks like at least some debugging information is included.  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Tue, 16 May 2000 20:25:09 +0200f> From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr># Subject: Re: INSVIRMEM when linkingi3 Message-ID: <8fs3v1$2bra$1@s2.feed.news.oleane.net>t  ? "Hoff Hoffman" <hoffman@xdelta.zko.dec.nospam> wrote in messages0 news:8frruc$juv$1@mailint03.im.hou.compaq.com... >AD > In article <8frlvu$2373$1@s2.feed.news.oleane.net>, "Jean-Franois1 Marchal" <jean-francois.marchal@x9000.fr> writes:n >iH >   How big is the final executable image?  When building any image, theF >   LINKER needs enough virtual memory for all of the image, plus room@ >   for its own code, plus some room for transient data storage. >hD The last image successfully linked was more than 50.000 blocks large; (I will check this as soon as I have access to this system)e    C > :what is strange in this case, is the fact that neither system orlB > :user quota had been changed since last time the same executable > :hab been built... > E >   If you are rebuilding the executable, then it is very likely thatsF >   something has changed.  (Else, why bother relinking the image? :-) >nE >   Um, nothing changed?  Well, clearly _something_ has changed here. G >   (The phrase "Nothing changed" should be placed alongside the phraseaH >   "It doesn't work" in the pantheon of computer technical support. :-) >fA What I was saying was that from a system management point of viewhC we had NOT changed the user's UAF quota, neither SYSGEN parameters. 7 Sure the programmer has changed some piece of code ....   > > :The programmer says everything has been built without debug > :but  ...i >t >   Interesting. >aK >   You can research the statements of the programmer, or you can encouragefE >   the programmer to rebuild everything without debug and/or you cannD >   increase the process quotas, or both, and (obviously) try again. >oG >   I would encourage the programmer to look at shareable images and attK >   object libraries, if this is not already being done.  (The LINK command J >   that was used was omitted, so I can't easily tell if the programmer isG >   seriously using these techniques to speed up the linking operating.   >   I would encourage this use.) >,D I have already encouraged the programmer to put in a shareable imageD all the utilities and base functions of the application, that do not= need to be redebugged each time (as for the debug problem and 1 as a more generally better programming practice).   I >   Based solely on the 1,073,807,360 bytes of "virtual memory allocated" G >   listed in the map (a billion bytes), your image is very near (or isDD >   at) the limits on the size of P0 address space.  This means thatI >   something went berserk within the LINKER (and chewed up all storage),UI >   or your image is sufficiently large that you need to look at using P2n/ >   (64-bit) space or at breaking up the image.  >d% Ben on n'est pas sorti de l'auberge !sG (I imagine we are far from a solution if the image really needs to growa' above the hyperspace limit every month)   A > :... So I'm not sure DEBUG has not been turned on somewhere ...s >tL >   It certainly looks like at least some debugging information is included. >o! Looks like it is more than likely     & Thank you for these confirmations ....
 Jean-Franoiso   ------------------------------   Date: 16 May 2000 15:52:43 CDT= From: wayne@tachysoft.xxx.044962.killspam.0138 (Wayne Sewell)l# Subject: Re: INSVIRMEM when linkinge. Message-ID: <WniCLc9vN4ln@tachxxsoftxxconsult>  t In article <8frh3f$1vv2$1@s2.feed.news.oleane.net>, "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr> writes:7 > We've got a problem while linking a huge ada program.s > %LINK-E-INSVIRMEM,2 > insufficient virtual memory for 2,114,625. pages > for cluster DEFAULT_CLUSTERa* > 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.o >   L Do you have any statically defined arrays with multiple dimensions and largeM array bounds?  These take up a lot of space, and many times they are sparsely N populated.  It is better to dynamically allocate arrays of the size you reallyO need. These do not affect the link at all, and no virtual memory is wasted even  at runtime.c   Wayneh -- _O ===============================================================================oM Wayne Sewell, Tachyon Software Consulting  (281)812-0738  wayne@tachysoft.xxxe: http://www.tachysoft.xxx/www/tachyon.html and wayne.html  K change .xxx to .com in addresses above, assuming you are not a spambot  :-)hO =============================================================================== C Jake Blues: "Sell me your children!  How much for the little girl?"T   ------------------------------  % Date: Mon, 15 May 2000 13:37:13 +0100-- From: Tim Llewellyn <tim.llewellyn@bbc.co.uk>-. Subject: Re: Is "The GNU on VMS Project" dead?( Message-ID: <391FEF79.4B8EF53@bbc.co.uk>   Roger Tucker wrote:i  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 amD > few of theses when porting Unix software to VMS, and it's not much > fun.  E  hmmm, I see some sense in Roger's and Dave's comments, but I wonder,lH if such apps would run like a dog because they hadn't been ported to useF VMS's specific performance enhancing features like gblsections, exotic% linker options, installed images etc.r   --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 of  MedAS or the BBC.a   ------------------------------  # Date: Tue, 16 May 2000 20:44:25 GMTm- From: goathunter@goatley.com (Hunter Goatley)i. Subject: Re: Is "The GNU on VMS Project" dead?- Message-ID: <3921b026.113481007@news.wku.edu>,  @ On Sun, 14 May 2000 00:22:08 GMT, system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-) wrote:    >pJ >I'm just really tired of all the complaints that the problem is that VMS I >just doesn't do it the eunuchs way so it is somehow faulted.  The *REAL* J >problem is the "blinders on" bias placed on these packages by the eunuchsI >zealots that author them.  If Stallman and his crowd really wanted to be I >on platforms other than eunuchs, you'd find the GNUgly code written withoH >a little more consideration for and acknowledgement of other platforms. >-C As one of the original GNU porters way back when (I did a number ofd> the first Alpha ports that were on the DECUS Starter Kit CD or5 whatever it was called), I thought I'd chime in here.r  E Release after release, I'd diligently reapply my VMS modifications to3C the GNU sources.  I finally contacted the maintainers of sed, grep,kF and a couple of others, offering my mods for inclusion in the sources.A The same mods were necessary every time, so inserting them in thee8 actual source distribution one time would have sufficed.  B The replies I received were basically along the lines of, "I won't4 include the changes because I don't care about VMS."  4 Fine, said I.  I haven't ported a GNU utility since.  B RE: speed of programs, where I saw the biggest slowdown in sed andE grep and friends was that the utilities were generally to write out a C line by using fwrite() to write, say, 80 1-byte items.  By changing : that for VMS to writing 1 80-byte item, output was sped up
 considerably.4     Hunter ------9 Hunter Goatley, Process Software, http://www.process.com/d; goathunter@Goatley.com      http://www2.wku.edu/www/hunter/m< Check out Dangerous Dwarf:  http://www2.wku.edu/www/chesbro/   ------------------------------  + Date: Tue, 16 May 2000 14:56:13 -0700 (PDT) ! From: Tom Linden <tom@kednos.com>o. Subject: Re: Is "The GNU on VMS Project" dead?G Message-ID: <Pine.ULT.3.91.1000516144446.23690D-100000@gunn.kednos.com>o  ) On Mon, 15 May 2000, Tim Llewellyn wrote:   ' > Date: Mon, 15 May 2000 13:37:13 +0100k/ > From: Tim Llewellyn <tim.llewellyn@bbc.co.uk>p > To: Info-VAX@Mvb.Saic.Comd0 > Subject: Re: Is "The GNU on VMS Project" dead? >  >  >  > Roger Tucker wrote:u > D > > If you want to spend the rest of your life converting Unix shellE > > scripts to DCL and unix make files to MMS, go ahead.  I've done aeF > > few of theses when porting Unix software to VMS, and it's not much > > fun. > G >  hmmm, I see some sense in Roger's and Dave's comments, but I wonder,lJ > if such apps would run like a dog because they hadn't been ported to useH > VMS's specific performance enhancing features like gblsections, exotic' > linker options, installed images etc.o  H I think you miss the point, performance has nothing to do with it, more F or less.  It is the ability port with relative ease a large number of E useful packages, and since you can inspect the source code you could tK always peruse it for anything sinister, which should assuage the corporate y/ anti-freeware policies, which are well-founded.s  > Having a POSIX like interface on VMS would obviate tremendous I repitition,  why do the same job many times, lets get on with the really sJ useful things.  I think that Digital mad a very bad decision to drop this.  E Has anybody done autoconfigure?  We can't run the latest and greateste= emacs, because some of the porting tools simply aren't there.h  J Whether you like it or not, a large body of software, not to  mention the I internet is Unix dependent.  I am neither a proponent for or against any uH operating system, but I think as a professional one has an obligation to provide what is required.r  
 My $.02 worthn   >  > --8 > Tim Llewellyn, OpenVMS Infrastructure, Remarcs Project2 > MedAS at the BBC, Whiteladies Road, Bristol, UK.C > Email tim.llewellyn@bbc.co.uk. Home tim.llewellyn@cableinet.co.uk- > C > I speak for myself only and my views in no way represent those of  > MedAS or the BBC.n >  >  >   A                __________________________________________________ A               /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/b@              /_/                                             /_/?             /_/     Tom Linden              PL/I Support    /_/e>            /_/    Kednos Corporation       OpenVMS and     /_/=           /_/   tel 831 373 7003          Tru64 Unix      /_/a<          /_/_____________________________________________/_/;         /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/.   ------------------------------  # Date: Tue, 16 May 2000 22:08:19 GMTn= From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)t. Subject: Re: Is "The GNU on VMS Project" dead?0 Message-ID: <009EA2EA.2DF60A75@SendSpamHere.ORG>  ] In article <3921b026.113481007@news.wku.edu>, goathunter@goatley.com (Hunter Goatley) writes:dA >On Sun, 14 May 2000 00:22:08 GMT, system@SendSpamHere.ORG (Brian-  >Schenkenberger, VAXman-) wrote: >1 >>K >>I'm just really tired of all the complaints that the problem is that VMS sJ >>just doesn't do it the eunuchs way so it is somehow faulted.  The *REAL*K >>problem is the "blinders on" bias placed on these packages by the eunuchs J >>zealots that author them.  If Stallman and his crowd really wanted to beJ >>on platforms other than eunuchs, you'd find the GNUgly code written withI >>a little more consideration for and acknowledgement of other platforms.. >>D >As one of the original GNU porters way back when (I did a number of? >the first Alpha ports that were on the DECUS Starter Kit CD or 6 >whatever it was called), I thought I'd chime in here. >eF >Release after release, I'd diligently reapply my VMS modifications toD >the GNU sources.  I finally contacted the maintainers of sed, grep,G >and a couple of others, offering my mods for inclusion in the sources.:B >The same mods were necessary every time, so inserting them in the9 >actual source distribution one time would have sufficed.l >lC >The replies I received were basically along the lines of, "I won't 5 >include the changes because I don't care about VMS."l >R5 >Fine, said I.  I haven't ported a GNU utility since.s  L Harrumph!  Harrumph!  Now the _G_arbage is most definitely _N_ot _U_sable -- at least on VMS. ;)g   --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 20:39:48 -0400n* From: David A Froble <davef@tsoft-inc.com>. Subject: Re: Is "The GNU on VMS Project" dead?- Message-ID: <3921EA54.28357963@tsoft-inc.com>b   Hunter Goatley wrote:m > B > On Sun, 14 May 2000 00:22:08 GMT, system@SendSpamHere.ORG (Brian! > Schenkenberger, VAXman-) wrote:t >  > >UK > >I'm just really tired of all the complaints that the problem is that VMS@K > >just doesn't do it the eunuchs way so it is somehow faulted.  The *REAL*sL > >problem is the "blinders on" bias placed on these packages by the eunuchsK > >zealots that author them.  If Stallman and his crowd really wanted to be K > >on platforms other than eunuchs, you'd find the GNUgly code written with J > >a little more consideration for and acknowledgement of other platforms. > >-E > As one of the original GNU porters way back when (I did a number ofg@ > the first Alpha ports that were on the DECUS Starter Kit CD or7 > whatever it was called), I thought I'd chime in here.  > G > Release after release, I'd diligently reapply my VMS modifications to E > the GNU sources.  I finally contacted the maintainers of sed, grep,eH > and a couple of others, offering my mods for inclusion in the sources.C > The same mods were necessary every time, so inserting them in thea: > actual source distribution one time would have sufficed. > D > The replies I received were basically along the lines of, "I won't6 > include the changes because I don't care about VMS."  M Ah, a fine example of the stupid bent neck geeks who also won't comment their J code since 'real programmers don't need comments' and also attempt to makeM everything as obscure as possible so only 'real programmers' have any clue tofP what's going on.  Why don't they like DCL?  Because it's too understandable, andO doesn't do a good enough job of separating them from the rest of the world.  IsnL it any wonder that managers of such idiots who previously had to put up withP them turned to BG and windoz when prophet willie told them they no longer had to' depend on their techie types, only him?   P Any responsible programmer doesn't need to care about any specific environment. P If he's offering the code to the world, he's got to at least understand that theP world extends beyond Unix.  Of course we're not talking about responsible people here.   1 Gotta rant every so often, relieves the pressure.e   Dave   -- e4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596; 170 Grimplin Road               E-Mail: davef@tsoft-inc.comn Vanderbilt, PA  15486t   ------------------------------  % Date: Tue, 16 May 2000 08:14:54 -0500f- From: "Craig T. Dedo" <Craig_Dedo@execpc.com>rD Subject: ISAM Files in Standard Fortran (Was: big Fortran data file). Message-ID: <39214a18$0$63134@news.execpc.com>  
 Dear Phil:   Phillip Helbig wrote:r  > > In article <39208048.3AD2E6E3@tsoft-inc.com>, David A Froble > <davef@tsoft-inc.com> writes:. >TI > >> The straightforward way would be a sequential file.  However, if theeJ > >> program which uses the lookup table doesn't start at the beginning, aM > >> direct-access file might be better (the record number being some hash of,J > >> the indices).  However, since the length of the record depends on theJ > >> value of the second-to-last index, I guess this will waste disk spaceM > >> since all the records have to be the same length in a direct-access file K > >> (unless I'm missing something; I've rarely used direct-access files in  > >> the past).P > > Q > >While most of this discussion is far from what I'm used to, now you've asked abI > >question I can help with.  An RMS Indexed Variable file will do what Iu! > >understand you are asking for.- >-D > As others have pointed out as well, VMS has long had the solution,G > albeit non-standard Fortran.  I can't imagine that my need here is sodB > specialised; shouldn't F2K+N have indexed variable-length files?  R     One of my favorite subjects!  I agree; this should have been put into standard Fortran long ago.e  S     No, your need is not specialized.  Indexed (ISAM) files have many uses in manuyfQ application areas, including scientific and enginering applications.  I have usedmQ them on VMS systems in Fortran in many different situations when I needed to readsM or write files by the value of the data.  The availability of this capabilitynP allowed me to save an enormous amount of effort and avoid some serious mistakes.7 Support for ISAM files is a real productivity enhancer.   S     In November 1993 I put in a proposed requirement to make ISAM file support partdQ of standard Fortran, along the lines of the VMS extension.  In February 1997 whentN J3 and WG5 voted on the feature set for Fortran 2000, ISAM files received veryO little support.  Why, I don't know; those who vote "No" do not need to give anyb. reasons for voting against a proposed feature.  J     This is a fairly large feature but not an overly complicated one.  TheN technology has been well known and understood since the 1960s.  There are highR quality third party packages which implement this feature.  If ISAM files become aS feature of standard Fortran, vendors will simply have to do a make-or-buy analysis;u; a traditional business management decision making activity.g   --
 ----------
 Sincerely,@ Craig T. Dedo                                          Internet: Craig_Dedo@execpc.comnG Elmbrook Computer Services                 Voice Phone:  (262) 783-5869nL 17130 W. Burleigh Place                        Fax Phone:     (262) 783-5928P Brookfield, WI   53005-2759                   Disclaimer:     These opinions are mine alone.rQ USA                                                         They do NOT represent  any organization.i  E "They that can give up essential liberty to obtain a little temporaryaL     safety deserve neither liberty nor safety."  -- Benjamin Franklin (1759)   ------------------------------   Date: 17 May 2000 01:35:31 GMT5 From: gginc@winternet.com (Garnatz and Grovender Inc) H Subject: Re: ISAM Files in Standard Fortran (Was: big Fortran data file)1 Message-ID: <8fst13$rem$1@blackice.winternet.com>s  H If you would like to try out a shareware implementation of an ISAM-style2 file system, check out the Fortran 90 source code:  !    http://www.gginc.com/fort.htmla   -- Garnatz and Grovender, Inc: email: phil@gginc.com          -or-    gginc@winternet.comG URL:   http://www.gginc.com    -or-    http://www.winternet.com/~gginc/s$ ftp:   ftp.winternet.com/users/gginc   ------------------------------  % Date: Tue, 16 May 2000 15:05:05 -0400e+ From: Peter Anderson <peter@columbusrx.com>g Subject: LAT over fiber problemi8 Message-ID: <nj63is8hmr2lb4fls5rttg93a87invt3cd@4ax.com>   Hello,  F I apologize if this is the wrong goup to be asking this question. I am> running a number of decserver 90L's and have a few in a remote> building that is server by mulitmode fiber. The people runningB applications over the remote decervers seem to lose connection forC long enough to terminate their application. The local users have no.7 such problems. Could this be caused by excessive delay?o  E My connection is as follows: Server --> SMC switch w/10base2 port -->-E transition fiber converter <--> fiber <--> transition fiber converterk, --> SMC switch w/10base2 port --> decserver.  A Any suggestions as to cause and/or fix? Any help would be greatly  appreciated.   Thanks,$ Peter Anderson	e   ------------------------------  % Date: Tue, 16 May 2000 20:45:28 -0400 $ From: "Ray T." <lists@aik.tec.sc.us># Subject: Re: LAT over fiber problemE- Message-ID: <3921EBA8.46E004FA@aik.tec.sc.us>.  	 Hi Peter,   + The following from Tom solved my problems -A Ray T.  < > Changing these parameters will make LAT sessions work much# > more reliably in a large network.m >  > Parameter: KEEPALIVE TIMER > Default value: 20 secondsl. > Recommended value: 255 seconds (the maximum); > Commands: DECserver     DEFINE SERVER KEEPALIVE TIMER 255a; >           VMS           MCR LATCP SET NODE /KEEPALIVE=255 8 > Explanation: if there is no traffic over a LAT virtual8 > circuit, keepalives will be sent at this interval.  If; > a keepalive is not acknowledged, then the circuit will be=? > torn down.  Boosting the value of KEEPALIVE TIMER will enablet= > your LAT sessions to ride out network interruptions (at thex: > cost of a delay in detecting that a node has gone away.) >  > Parameter: RETRANSMIT LIMITn" > Default value: 8 (or 20) seconds. > Recommended value: 120 seconds (the maximum)< > Commands: DECserver     DEFINE SERVER RETRANSMIT LIMIT 120< >           VMS           MCR LATCP SET NODE /RETRANSMIT=120< > Explanation: if LAT fails to send a message, it will retry: > this many times (at 1-second intervals).  If it is still= > unsuccessful, it will destroy the virtual circuit.  As with ; > KEEPALIVE TIMER, boosting RETRANSMIT LIMIT to the maximume< > will enable your session to survive network interruptions. >  > Parameter: MULTICAST_TIMER > Default value: 60 secondsi  > Recommended value: 120 seconds; > Commands: DECserver     DEFINE SERVER MULTICAST TIMER 120o; >           VMS           MCR LATCP SET NODE /MULTICAST=120a7 > Explanation: your LAT node will multicast its servicemC > advertisements this frequently.  If you multicast too frequently,t? > the Ethernet will see lots of multicast messages from lots ofRE > little VMS systems and  the Unix types will complain.  The tradeoff D > is that the higher the multicast timer, the less soon after rebootF > that LAT clients will see the service node.  Seeing as how a typicalG > VMS system will not be ready for general logins for two minutes after4C > LAT is started in any case, 120 seconds is a reasonable interval.: >  > Parameter: NODE LIMITd > Default value: 100 > Recommended value: NO LIMIT 7 > Commands: DECserver     DEFINE SERVER NODE_LIMIT NONER: >           VMS           MCR LATCP SET NODE /NODE_LIMIT=0E > Explanation: if more than NODE_LIMIT service nodes are advertising, @ > a LAT node will randomly throw out node info.  This will cause5 > erratic behavior.  Set NODE_LIMIT to have NO LIMIT.p >  > ---t >   > |P.S: Here are the parameters: > P > |----------------------------------------------------------------------------- > |VAX:t > |$ mc latcp show node /fullaM > |Node Name:   FIAS                           LAT Protocol Version:      5.2o > |Node State:  On8 > |Node Ident:  This is node FIAS running VAX/VMS V5.5-2 > M > |Incoming Connections:  Enabled              Incoming Session Limit:   NonegM > |Outgoing Connections:  Enabled              Outgoing Session Limit:   Nonem" > |Service Responder:     Disabled > M > |Circuit Timer (msec):        80             Keepalive Timer (sec):      20gM > |Retransmit Limit (msg):       8             Node Limit (nodes):       None,M > |Multicast Timer (sec):       60             CPU Rating:                  0i" > |Maximum Unit Number:       9999 >  > |User Groups:     0f > |Service Groups:  0  > 6 > |Service Name     Status      Rating  IdentificationP > |FIAS             Available     83 D  This is node FIAS running VAX/VMS V5.5-2P > |-----------------------------------------------------------------------------
 > |DECSERVER:  > |Local> show servert > J > |DECserver 200 V3.3 BL39     LAT V5.1   ROM BL20    Uptime:  46 03:23:30 > J > |Address:   08-00-2B-0A-E8-05   Name:   FINWTS             Number:     0 > . > |Identification:  INW - WIIS Terminal Server > F > |Circuit Timer:            80           Password Limit:            3E > |Console Port:              1           Prompt:              Local> F > |Inactivity Timer:         30           Queue Limit:             100F > |Keepalive Timer:          60           Retransmit Limit:         16F > |Multicast Timer:          30           Session Limit:            32F > |Node Limit:              100           Software:          PR0801ENG >  > |Service Groups:   0 >  > |Enabled Characteristics:o > * > |Announcements,  Broadcast,  Dump,  Lock >  > |-- M > |--------------------------------------------------------------------------dF > |T o m   L e i t n e r                       Dept. of CommunicationsM > |                                            Graz University of Technology,i> > |e-mail    : tom@finwds01.tu-graz.ac.at      Inffeldgasse 12M > |Phone     : +43-316-873-7455                A-8010 Graz / Austria / Europeu > |Fax       : +43-316-463-6978 > |Home page : http://wiis.tu-graz.ac.at/people/tom.htmlH > |PGP public key on : ftp://wiis.tu-graz.ac.at/pgp-keys/tom.asc or sendI > |mail with subject "get Thomas Leitner" to pgp-public-keys@keys.pgp.netiM > |--------------------------------------------------------------------------    ------------------------------   Date: 17 May 2000 05:25:26 GMT/ From: Erik Ahlefeldt <oahlefel@metz.une.edu.au>c7 Subject: Linux, Unix to VMS VT220 emulation - solution. , Message-ID: <8ftag6$2o1$1@gruvel.une.edu.au>  H  There have been a few requests in this group for a good VT220 terminal J  emulation when connecting to a VMS host from Linux or Unix. Having never H  found a satisfactory emulation myself, I have taken and comprehensivelyD  modified a script for VT100 and VT220 emulation from the Xterm faq.F  The script "vmsterm" is ideal for connecting from a Linux computer toF  a VMS computer, because it provides a full emulation of the auxiliaryH  numeric keypad so that you can use EDT, TPU and other apps that rely onK  the proper functioning of the numeric keypad. I have not posted the script K  in comp.os.vms because it is about 150 lines long, but "vmsterm" is avail-s4  able from http://www-personal.une.edu.au/~oahlefel/     Erik Ahlefeldt.   ------------------------------  % Date: Mon, 15 May 2000 08:08:59 -0400y* From: "Kevin P. Inscoe" <kevin@inscoe.org>, Subject: Looking for COBOL GETQUI example(s)* Message-ID: <391FE8DB.7FAF02B7@inscoe.org>  : Have to write a COBOL proggie to scan the job queues usingF $GETQUI (yes I have to use COBOL). I simply need to scan all batch and= print queues looking for jobs running (or stalled) for alert.   D Does anyone have some example snippets they could share to get me inB the right direction? I have done COBOL before on VMS. Oh yes if itB matters this will be under OpenVMS V6.2 and V7.1 on several Alpha  4100's.    TIA_  B BTW I would do this in Perl if I could figure out how to call SS's
 from Perl!   ~kevin -- ,: Kevin P. Inscoe   Senior Unix System Engineer & Specialist: Deltona, FL       Itinerary at http://www.inscoe.org/where) e-mail:  kevin [at] inscoe [dot] org     D@ http://www.inscoe.org                    28.9492N 81.1955W      : http://www.inscoe.org/comp     http://www.inscoe.org/radio: "No husband has ever been shot while doing the dishes" Unk   ------------------------------   Date: 15 May 2000 11:14:25 GMT3 From: gartmann@immunbio.mpg.de (Christoph Gartmann)S1 Subject: Re: Multinet postscript  printing brokeno0 Message-ID: <8fom6h$jqk$1@n.ruf.uni-freiburg.de>  I In article <8fof3q$klg$1@news.latrobe.edu.au>, "ME" <me@here.com> writes: < >Has anyone else had problems with Multinet TCP/IP printing? >rE >All of a sudden, certain postscript jobs are failing with postscriptt >errors - savelevel-.o >nF >I have performed a number of tests and believe it is definitely not a3 >postscript error but some Multinet-VMS interactionA >aJ >VMS Multinet queue - STREAM to port 9100 on printer - produces postscript >errorL >VMS Multinet queue  - LPD queue to existing printer on NT system - produces >postscript error M >UNIX queue - lpr to port 9100 on printer - prints fine (same file - ftp'd tou
 >UNIX box)M >UNIX queue - LPD to existing printer on NT system - prints fine (same file -r >ftp'd to UNIX box)r >gI >However, the above file is postscript V3.0.  We can successfully print al+ >V1.0 postscript file (generated via PS)!!!gI >This behaviour was noticed after a system crash, but I do not know if itM$ >caused or was caused by that event. >dI >Is it possible that a corrupted queue manager database could cause this?e  M It is very likely! We use a form POSTSCRIPT with such queues which looks likef the following:  9 Form name                            Number   Descriptiond9 ---------                            ------   ------------7 POSTSCRIPT (stock=DEFAULT)             1160   Phaser550:+     /LENGTH=255 /STOCK=DEFAULT /WIDTH=65535f  9 In addition avoid all things like "wrapping, truncation".e An example here is:8   $ sho queu/full prt39 B Printer queue PRT39, idle, on MPI4::NLP2:, mounted form POSTSCRIPT  (stock=DEFAULT)=   /BASE_PRIORITY=1 /DEFAULT=(FORM=POSTSCRIPT (stock=DEFAULT))j0   /LIBRARY=MSAP$DEVCTL Lowercase /OWNER=[SYSTEM]I   /PROCESSOR=MULTINET_STREAM_SYMBIONT /PROTECTION=(S:RSMD,O:RSMD,G:S,W:S)f     Regards,    Christoph Gartmannh  H -----------------------------------------------------------------------+H | Max-Planck-Institut fuer      Phone   : +49-761-5108-464   Fax: -452 |H | Immunbiologie                                                        |H | Postfach 1169                 Internet: gartmann@immunbio.mpg.de     |H | D-79011  Freiburg, FRG                                               |H +------------ http://www.immunbio.mpg.de/english/menue.html -----------+   ------------------------------  % Date: Tue, 16 May 2000 13:29:24 -0500s2 From: Gib Copeland <copeland@jenni.path.uiowa.edu>* Subject: Re: Pitch of the Margin bell Beep4 Message-ID: <39219384.CC6D569B@jenni.path.uiowa.edu>  ' (a little off topic, but maybe amusing)e  H One of my clients has six or eight rackmounted AlphaServer 800's/1000's.K Occasionally, I like to fire up the Alpha band with the following routines. J The first plays a random, pentatonic scale.  The majority of the band willJ play this ditty.  The second is a siren, for color.  Run it on one or two,> or run a copy along with the pentatonic on one of the systems.H Experiment - run as many copies as you have DECterms, install XSET, play' with the delays and the scales.  Enjoy.v   -- pent.com  $ bell[0,8] = 7 < $! scale = "1,17,28,34,44,54,62,66,73,79,82,87,91,95,97,100"9 $!          E D  C  B  A  G  F  E  D  C  B  A  G  F  E  Dr8 $!           W  W  H  W  W  W  H  W  W  H  W  W  W  H  W; $!          C  D  E  F  G  A  B  C  D  E  F  G  A  B  C   D / $ scale = "1,17,34,44,54,66,73,82,87,91,97,100"l/ $ scale = "1,17,28,44,54,66,73,79,87,91,97,100"h, $!         E D  C  A  G  E  D  C  A  G  E  D $10$:r $ __ceil = 2 $ gosub rand $ time = randomf $ wait 00:00:00.'timew
 $ __ceil = 12t $ gosub rand% $ pitch = f$elem (random, ",", scale)U $ dur = time + 10r% $ mcr decw$utils:xset b 'pitch c 'dur  $ write sys$output belly	 $ if timer $ then $   if random .lt. 8 $   then+ $     pitch = f$elem (random+2, ",", scale)2 $   else+ $     pitch = f$elem (random-2, ",", scale)-	 $   endifr $ else $   if random .gt. 2 $   then+ $     pitch = f$elem (random-2, ",", scale)- $   else+ $     pitch = f$elem (random+2, ",", scale):	 $   endiff $ endifC $ wait 00:00:00.'timed% $ mcr decw$utils:xset b 'pitch c 'durS $ write sys$output bell  $t
 $ goto 10$ $  $s $!C $! RAND - returns a positive random number ("RANDOM") between 0 andg $!        __CEIL - 1.e $ RAND:8 $D $ IF F$TYPE(__SEED) .EQS. "" $ THEN- $     ! seed the random number generator, ...s $     __NOW = F$CVTIME()& $     __HOUR = 'F$EXTRACT(11,2,__NOW)'( $     __MINUTE = 'F$EXTRACT(14,2,__NOW)'( $     __SECOND = 'F$EXTRACT(17,2,__NOW)'& $     __TICK = 'F$EXTRACT(20,2,__NOW)' $ A $     __SEED == __TICK + (100 * __SECOND) + (6000 * __MINUTE) + -l          (360000 * __HOUR)D $     ! the generator tends to do better with a large, odd seed, ... $     __SEED == (__SEED .OR. 1)r $     ! clean up, ...a $     DELETEX/SYMBOL __NOW $     DELETEX/SYMBOL __HOURi $     DELETEX/SYMBOL __MINUTEd $     DELETEX/SYMBOL __SECONDe $     DELETEX/SYMBOL __TICK  $ ENDIFi $s5 $ IF F$TYPE(__CEIL) .EQS. "" THEN __CEIL = %X3FFFFFFF  $q $ __SEED == __SEED * 69069 + 1 $d7 $ RANDOM == (__SEED.AND.%X3FFFFFFF)/(%X40000000/__CEIL)  $i $ RETURN     -- siren.com $ if p1 .eqs. "" then p1 = 5 $ bell[0,8] = 7l $5$:	 $ i = 100n $ mcr decw$utils:xset c 4' $10$:n $ mcr decw$utils:xset b 'i $ write sys$output bellF $ i = i - p1 $ if i .gt. 0 then goto 10$  $20$:  $ i = i + p1 $ mcr decw$utils:xset b 'i $ write sys$output bellt $ if i .lt. 100 then goto 20$ 	 $ goto 5$n   ------------------------------  % Date: Wed, 17 May 2000 14:45:02 +1200l. From: Nivlesh Chandra <NChandra001@itc.gov.fj>% Subject: Problems with Submit command M Message-ID: <791C2856E8FDD211BAFB0008C759919591F905@exchange01.govnet.gov.fj>w  K I have a user named bakprod and there is a logical defined for disk$scratchoJ Now what I have done is logged in as system and now when I try and execute
 the followingS  9 submit test.com /user=bakprod /log=disk$scratch /noprint   I get the error as follows i  3 %SUBMIT-F-INVLOGFIL, invalid log file specificationt -RMS-E-DNF, directory not foundx" -SYSTEM-W-NOSUCHFILE, no such file  E But when I invoke the same command without the /log parameter it goese, through so I guess that the default log file3 is created in the home dir of bakprod successfully.o  H I have checked the logicals for disk$scratch and they are fine. The only6 time I have this problem is when the file name that I L specify for the /log is not present. If I point it to a file that is alreadyL in disk$scratch for instance if there is a file already called test.log;1 in disk$scratchF and I specify /log=disk$scratch:test.log;1 the command is successful.     J This prob is only with this particular user. Can someone please help me...   Thanks d Niv    ------------------------------  % Date: Tue, 16 May 2000 16:07:07 -0600b% From: Dan O'Reilly <dano@process.com>V Subject: PTD's on VMS 5.xnB Message-ID: <4.2.0.58.20000516160648.00aa68c0@pop.clsp.uswest.net>  / Are PTD's (FTAxx devices) supported on VMS 5.5?    ------I +-------------------------------+---------------------------------------+ I | Dan O'Reilly                  |                                       | I | Principal Engineer            |  "Time flies like an arrow.  Fruit    | I | Process Software Corporation  |   flies like a banana."               | I | http://www.process.com        |                    -- Groucho Marx    |nI +-------------------------------+---------------------------------------+a   ------------------------------  % Date: Tue, 16 May 2000 17:58:48 -0500i) From: "John E. Malmberg" <wb8tyw@qsl.net>t Subject: Re: PTD's on VMS 5.xo7 Message-ID: <095401bfbf8a$522d3630$020a0a0a@xile.realm>   0 From: Dan O'Reilly <dano@PROCESS.COMPANY> wrote:  1 > Are PTD's (FTAxx devices) supported on VMS 5.5?o >   H I would assume so.  Programming information is in the VMS 5.5 I/O User's guide.  4 They seem to have appeard a few .x releases earlier.   -John  wb8tyw@qsl.network   ------------------------------  + Date: Tue, 16 May 2000 15:02:13 -0600 (MDT)@) From: John Nebel <nebel@athena.csdco.com>rB Subject: Question about DFWDAYS and Hoff's presentation on VMS 7.3G Message-ID: <Pine.OSF.4.21.0005161458140.32400-100000@athena.csdco.com>n  ( The OpenVMS V7.3 update is labeled "NDA"  1 What has to be done in advance to gain admission?y  
 John Nebel   ------------------------------  % Date: Tue, 16 May 2000 11:06:02 -0700 2 From: "Randy Park" <rjpark@mindspring.com.nospaam>, Subject: Re: String Descriptors, BASIC and C2 Message-ID: <8fs2uh$qav$1@slb0.atl.mindspring.net>  > Richard Banks <rbanks@arel.com.au.nospamming> wrote in message* news:391fee6b.5142196@news.magna.com.au...	 > Hi all,  >e0 > I need some help with a function I am writing. >rD > I have a BASIC program that needs to perform EDIT$() routines on aF > string containing Big5 characters.  I have encountered problems whenD > using EDIT$ on Big5 since it strips some characters that should be
 > left alone.c >>G > To solve this I wrote a C function (since the BASIC equivalent is fark > too slow). >i > Now in BASIC the syntax is >m > STR2 = EDIT$(STR1,OPTIONS) > G > So to start off with I wrote a function that took a string descriptoraC > pointer and a long word and returned a string descriptor pointer.  >uG > Problem was this function never worked.  After much scratching of thes@ > head I decided to return a void and pass two string descriptor; > pointers (the original and the result) and the long word.: > & > typedef struct dsc$descriptior_d dd;B > void big5edit(dd *in_pntr, dd *out_pntr, long edit_options){...} > C > The function now works (without changing much of the internals atgD > all).  I have no idea why I can't return a value, but that's life. >uC > "What is this guys problem?" I hear you ask.  Well, when I have a G > previous value in the result string that is shorter than the string Iu: > wish to return I have to make sure I have enough memory. >iG > Being a good little programmer, I free the string being pointed to by F > the string descriptor, malloc some new memory and set the descriptorG > pointing to the new location.  I also change the string length in theo
 > descriptor.  >iB > Amazingly enough this works as well, until I try to reassign the& > result string in BASIC.  For example >M > STR1 = "Hello"( > STR2 = "Big5 Character In This String"A > CALL BIG5EDIT(STR2 BY DESC,STR1 BY DESC, EDIT_OPTIONS BY VALUE)a > PRINT STR1 > STR1 = "X" >mH > The program prints the result string and then crashes on the last line > with the error. ( > %STR-F-FATINTERR, fatal internal error >C0 > So, has anyone done anything like this before? > Did you get it working?s= > Can you return a string descriptor pointer to BASIC from C?h0 > What is BASIC doing when it reassigns strings?, > Do you have any ideas on things I can try? >pH > Thanks for any help you can provide.  I'm starting to pull my hair out > (and there's not much left). >t
 > Richard.  7 I've used BASIC a lot, and C a little bit.  Remember in 7 BASIC strings can be dynamic or static and you can passe9 strings to subprograms either "by Descr" or "by ref".  Ifa6 you pass strings by descriptor be sure your subprogram7 uses the STR$xxx routines to manipulate the strings ands8 to allocate or deallocate them.  Changing the headers by8 yourself will get you into big trouble.  If passing them8 by reference you may also want to pass the length of the6 string as a separate parameter so that your subprogram doesn't write beyond the end.i  7 If you want to use the C routine as a "String function"P7 in BASIC you need to add an additional parameter in the-5 subprogram.  I forget whether the return value is the-& first parameter or the last parameter.  9 Also if you know what you are doing, by using the "OPTIONo9 SETUP=INACTIVE" compiler directive, you can significantlyh8 improve the performance of your BASIC subprograms to the8 point of approaching C language performance.  Using this7 feature prohibits you from using dynamic strings, errort: trapping, and I/O in the language.  It also changes GOSUBs6 from a library routine to a single machine instruction on VAX.e   ------------------------------  % Date: Tue, 16 May 2000 15:53:23 -0700 0 From: kip-VMS <jkippleyNOjkSPAM@aol.com.invalid>, Subject: Re: String Descriptors, BASIC and C9 Message-ID: <0e2be268.f1cf4c47@usw-ex0109-069.remarq.com>   5 Glad You have it working! I've used VAX Basic's XLATEm9 function to build many string translation functions/edits  etc...  7 It may be worth a look (if you don't want to call the C-6 routines) XLATE provides extensive string substitution9 which are customized char by char, in one call so if BIG5t9 means combo's of CSI or escape sequences then Your Custom : routines are probably required anyway.  But it it's simple+ character substitutions XLATE  works great!      * Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful    ------------------------------   Date: 16 May 2000 19:59:05 GMT% From: chain28906@aol.com (CHain28906) . Subject: SYSTEMS AND OPTIONS IN STOCK FOR SALE: Message-ID: <20000516155905.15980.00000068@ng-cg1.aol.com>  5                                                  ACSI 8                                           48 BLEACKER RD8                                       ROCHESTER NY 146096                                         WWW.GOACSI.COM;                                              P 716-339-9932-;                                              F 716-339-9163  ALPHA 8400 o' VAX 7840 VMS 1-UNLIMITED DECNET CLUSTER  VAX 4000-96 VMS  VAX 4000-90 VMSo
 VAX 4105A  VAX4106A AS255/233 UNIX OR VMSu AS255/300 UNIX OR VMSd AS500/333 UNIX OR VMS: AS500/400 UNIX OR VMS  AS500/500 UNIX OR VMSA CIPCA-AA PCI CLUSTER ADAPTER CIPCA-BA E2065-DA 8400 CPUa E2063-DA 8400 CPU- E2067-DA 8400 CPUo HSZ50-AF HSJ50-AF HSD50-AF KN304-DB KN305-DB KN306-DB MS330-EA MS330-FA MS332-FA MS332-GA MS7AA-DA
 MS7AA-FA   MS7CC-FA MS7CC-GA   MUCH MORE IN STOCK CALL OR EMAIL WITH REQUIREMENTS-   ------------------------------  % Date: Mon, 15 May 2000 16:16:50 +0200 # From: "Lars Jacobsen" <laja@tdk.dk>  Subject: Thanks allf, Message-ID: <8fp0si$fkj$1@news.inet.tele.dk>  & The solution was embarassingly simple.  ; The cause was integer overflow thus the equation should be:r   pct = b_free/(b_max/100)   and NOTt pct = (b_free/b_max)*100 or pct = (b_free*100)/b_max     Thanks to all who contributed.   -- Kind Regards. ----------------------------------------------. Lars Jacobsen          Phone : +45 89 45 41 80. Tele Danmark IT        Fax   : +45 89 45 61 02 Takseringssystemer (BNTT)L+ S/8-173                email  : laja@tdk.dk  Gunnar Clausens Vej 28 DK-8260 Viby J. ----------------------------------------------  3 "Lars Jacobsen" <laja@tdk.dk> skrev i en meddelelsef& news:8fogt9$pkb$1@news.inet.tele.dk... > Hello all. >oO > I have a small routine that examines the blocks free and max available blocksmD > on a number of disk devices using F$GETDVI(device,"MAXBLOCKS") and > F$GETDVI(device,"FREEBLOCK").aM > Now I would like to perform some action (say send a mail) if the percentage> free! > is lower than a certain number.l
 > Sort of: >D( > $ b_max = F$GETDVI(device,"MAXBLOCKS")) > $ b_free = F$GETDVI(device,"FREEBLOCK")u > $ pct = (b_free*100)/b_max& > $ IF pct .LT. 10 THEN GOTO send_mail >t. > The calculation of PCT however doesn't work.3 > It looks like there's an integer/decimal problem.l  > Using F$INTEGER hasn't helped. >  > Any suggestions ?o >I >v > -- > Kind Regards0 > ----------------------------------------------0 > Lars Jacobsen          Phone : +45 89 45 41 800 > Tele Danmark IT        Fax   : +45 89 45 61 02 > Takseringssystemer (BNTT)m- > S/8-173                email  : laja@tdk.dkr > Gunnar Clausens Vej 28 > DK-8260 Viby J0 > ---------------------------------------------- >- >l   ------------------------------  % Date: Tue, 16 May 2000 10:04:57 +0200 = From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com>:& Subject: Re: the latest billybox virus) Message-ID: <39210129.B57AA0AB@gtech.com>    Tim Llewellyn wrote: > Arne Vajhj wrote:- > > No, but since SYS$IDTOASC will return allp0 > > identifiers (=> all usernames), then that is > > not increasing security !e >g$ > You mean that works with no privs?   Yes.  < > Hmmm, I wonder which image you need to deinstall to remove > that capability?  5 It is a system service, which I assume is widely used 0 within VMS, so I do not think it is that simple.   Arne   ------------------------------  # Date: Tue, 16 May 2000 13:07:52 GMTe9 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen)u& Subject: Re: the latest billybox virus+ Message-ID: <H41EWbqBOtr4@eisner.decus.org>i  i In article <39210129.B57AA0AB@gtech.com>, Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com> writes:c > Tim Llewellyn wrote: >> Arne Vajhj wrote:r. >> > No, but since SYS$IDTOASC will return all1 >> > identifiers (=> all usernames), then that isr >> > not increasing security ! >>% >> You mean that works with no privs?H >  > Yes. > = >> Hmmm, I wonder which image you need to deinstall to remove  >> that capability?r > 7 > It is a system service, which I assume is widely usedc2 > within VMS, so I do not think it is that simple.  : Have any of you tried setting the NAME_HIDDEN attribute on? a UIC identifier ?  The system service description for $IDTOASC A says NAME_HIDDEN will make the translation fail for those without # read access to the rights database.    ------------------------------  # Date: Mon, 15 May 2000 15:32:42 GMT-9 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen)s& Subject: Re: the latest billybox virus+ Message-ID: <tNC1NNLm7IMh@eisner.decus.org>l  i In article <391FBA9A.EAAEC172@gtech.com>, Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com> writes:P > d.webb@mdx.ac.uk wrote:T0 >> Rightslist should also not be world readable. >> F2 >> On my systems it's protection is (RWED,RWED,R,) > + > No, but since SYS$IDTOASC will return allI. > identifiers (=> all usernames), then that is > not increasing security !r  = It does keep secret the information about what UICs hold what- identifiers.   ------------------------------   Date: 16 May 2000 10:19:14 GMT- From: djweath@attglobal.net (Dave Weatherall)  Subject: Re: threads5 Message-ID: <DTiotGxQ0bj6-pn2-LClKgJwKTIY2@localhost>   C On Sun, 11 May 3900 19:14:02, helbig@astro.rug.nl (Phillip Helbig)   wrote:  K > This is completely unrelated to my other two posts (at least, the reason gF > for asking is completely unrelated).  Where can I find a beginner's G > introduction to threaded programming on VMS (if possible in Fortran)?.  @ I learned how to write my threaded prgrams by reading 'Guide to F DECThreads' or whatever. It's at work, I'm at home so can't check. AllE my stuff is in Fortan but I also used the CMA (Common Multi-threaded vF Architecure -IIRC). It's not over-ambitious (approx 7 threads) but it @ works with VAX/AXP VMS 6.2 and VAX/VMS 5.5. I've yet to test it B properly on on V7.n system. The images that I built under AXP 6.2 @ certainly do run on a AXP V7.1 system but I've no idea how well.  F Using the CMA interface was/is a blessing in disguise since the POSIX D i/f was changed from the original Draft that was implemented in the A original DECthreads. The latest copy of the Guide that I've seen 4E (V7.1, I think) does say that people should now use the POSIX /f and   not CMA.  B The only concern that I have still is how the Kernel level thread F support will affect my app. Either in it's source or its execution of ! the VMS 6.2 images under VMS 7.1.,  C The only problem I really had with Fortran was the re-entrancy (or E@ rather lack of) of the Fortran I/O OTS on VAX. This only really F manifests itself under very heavy load where a read queue is competingF hard for the OTS with a write queue. On ALPHA I don't see the problem.  @ If you're thinking of using it as a solution to your 'Big file' 5 question, it was something I'd thought of suggesting.    Cheers - Dave.   ------------------------------  % Date: Tue, 16 May 2000 12:08:02 +0100n* From: "Richard Brodie" <R.Brodie@rl.ac.uk> Subject: Re: threads+ Message-ID: <8fra6o$n1u@newton.cc.rl.ac.uk>c  : "Dave Weatherall" <djweath@attglobal.net> wrote in message/ news:DTiotGxQ0bj6-pn2-LClKgJwKTIY2@localhost...h  G > Using the CMA interface was/is a blessing in disguise since the POSIXeE > i/f was changed from the original Draft that was implemented in theE > original DECthreads.  E Well it wasn't much of a disguise as the old docs clearly stated thatr this would likely be the case.  C > The only concern that I have still is how the Kernel level threadCG > support will affect my app. Either in it's source or its execution of'# > the VMS 6.2 images under VMS 7.1.E  = If you have a correct program that worked fine without Kernel : threads, you can leave them disabled on a per-image basis.: Using them means that you have to go through less hoops to4 avoid blocking the whole process in some situations.   ------------------------------  % Date: Sun, 14 May 2000 10:19:24 +0100E, From: "Pete Walker" <pete.walker@virgin.net>1 Subject: UCX Printing to external printer servers ? Message-ID: <Z9uT4.1040$XW.29971@news2-win.server.ntlworld.com>A  J Has anyone been successful in printing from an AlphaServer with UCX, to anL external printer server such as a D-Link.  We have no problems with printersF having internal cards, but cannot set up printing to external servers. Any help much appreciated.     Pete Walkern   ------------------------------  % Date: Mon, 15 May 2000 09:03:01 -0400u* From: "Kevin P. Inscoe" <kevin@inscoe.org>+ Subject: Re: Utility to track device errors * Message-ID: <391FF585.610A0487@inscoe.org>   AndradeJA-A wrote: > K > Considering the fact that our cluster doesn't go down and considering the2 > fact thatFN > device errors can accumulate in such a way as to make their analysis a minorM > headache at best and overly time consuming at worst.  Does anyone know of aiL > utility that regularly logs changes in SHOW ERROR and sends resulting data > to > an output file/email account.t > " > Jay Andrade - VMS System Manager
 > NUWC, RI  D I do this with the diag command on our Alphas. We monitor everything fromG unix machines (Solaris) into HP's OpenView ITO product. So I wrote thist
 shell script:e  
 #!/bin/csh -fo # D # vms_getoplog - written by Kevin P. Inscoe (Monitor Gateway System) #oC # rsh into vms system, perform diag /since and parse for number of t' # "device errors" or "unknown entries".p #l< # Use this OpenVMS Lexical function to get 15 minutes prior: #s- # f$cvtime("-00:15:00","absolute","datetime")n #s
 # History: #n$ # When          Who             What$ # ----          ---             ----. # 4-6-2000     Kevin Inscoe    Create Original # ? ###############################################################n   #o # Announce ourselves #h  A /bin/echo $0\: " starting at " `/bin/date` " on OpenVMS host " $10  	 # globals02 set rcpcmd = `/bin/echo "rcp/user=\042$1\042/log"` #/bin/echo $rcpcmd& source /osgss1/apps/monitor/globals.sh- set TMP_A = /tmp/vms_getnewerrors_a_$DTMP.tmpx- set TMP_B = /tmp/vms_getnewerrors_b_$DTMP.tmp-  G (/bin/rsh $1 -l system `/bin/cat $BASEDIR/vms_last15mins.dat`) > $TMP_Aa #cat $TMP_A F set delta = `/bin/tail -2 $TMP_A | /bin/head -1 | /bin/awk '{ print $1	 ":" $2 }' )  | /bin/head -1 | /bin/tr -d '[:space:]'` $ /bin/echo "VMS Delta time is" $delta /bin/rm $TMP_A
 /bin/echo " " 2 /bin/echo "---- Starting OpenVMS diagnosis ------"
 /bin/echo " " C #(/bin/rsh $1 -l system diagnose/since=`/bin/echo $delta`) > $TMP_B-) (/bin/rsh $1 -l system diagnose) > $TMP_B-
 /bin/echo " " 
 /bin/echo " " 0 /bin/echo "---- Ending OpenVMS diagnosis ------"
 /bin/echo " "t   #cat $TMP_B:   #s. # Now sort and provide a rollup of error types #0  2 /bin/grep "Entry type" $TMP_B | /bin/sort > $TMP_A #cat $TMP_At /bin/uniq < $TMP_A > $TMP_Bc cp $TMP_B /tmp/x.x #cat $TMP_B 8 /opt/bin/perl $BASEDIR/count_vms_errors.pl $TMP_B $TMP_A cp $TMP_B /apps/monitor/x.xy   # 	 # Cleanupe #    if ( -e $TMP_A ) /bin/rm $TMP_A  if ( -e $TMP_B ) /bin/rm $TMP_B-  G I had to enable rsh access from UCX on the Alphas of course to do this.   , The Perl script count_vms_errors.pl is here:   #!/opt/bin/perl -w   #o	 # Globalst #o   $error = "";   #- # Process file #0  6 open (IN, "$ARGV[0]") || die "$0: Error opening $1\n"; while (<IN>)    {b           $xtemp = $_;         $temp = $xtemp;a         chomp($temp);N         $temp =~ tr/ / /s;         chop($temp);"         @fields=split(/ /, $temp);         $fields=@fields;= #       print "$0: OpenVMS Diagnosis Error String=@fields\n";d         $number=$fields[2];@; #       print "$0: OpenVMS Diagnosis Entry Type=$number\n";.         $name1=$fields[3];         $error = $name1;!         if ($fields > 4)        { *                         $name2=$fields[4];&                         chomp($name2);&                         $error .= " ";)                         $error .= $name2;e!                                 } !         if ($fields > 5)        {c*                         $name3=$fields[5];&                         chomp($name3);&                         $error .= " ";)                         $error .= $name3; !                                 } !         if ($fields > 6)        {f*                         $name4=$fields[6];&                         chomp($name4);&                         $error .= " ";)                         $error .= $name4; !                                 }d!         if ($fields > 7)        {n*                         $name5=$fields[7];&                         chomp($name5);&                         $error .= " ";)                         $error .= $name5; !                                 }i!         if ($fields > 8)        { *                         $name6=$fields[8];&                         chomp($name6);&                         $error .= " ";)                         $error .= $name6; !                                 } !         if ($fields > 9)        { *                         $name7=$fields[9];&                         chomp($name7);&                         $error .= " ";)                         $error .= $name7;o!                                 }i1         $count = `/bin/grep -n $number $ARGV[1]`;e         chop($number);#         @junque=split(/:/, $count);n         $junque=@junque;;         print "$error [Type $number] ($junque[0] found)\n";a                 }" close (IN);2  E Of course you could the same under VMS directly but you get the idea!D   ~kevin -- N: Kevin P. Inscoe   Senior Unix System Engineer & Specialist: Deltona, FL       Itinerary at http://www.inscoe.org/where) e-mail:  kevin [at] inscoe [dot] org     a@ http://www.inscoe.org                    28.9492N 81.1955W      : http://www.inscoe.org/comp     http://www.inscoe.org/radio: "No husband has ever been shot while doing the dishes" Unk   ------------------------------  % Date: Tue, 16 May 2000 22:56:34 -0400p. From: Michael Austin <maustin@nc.prestige.net>+ Subject: Re: Utility to track device errorst/ Message-ID: <39220A61.7FFE2824@nc.prestige.net>   , This is a multi-part message in MIME format.& --------------CECF9FE254EFC654F490D668* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bits  = how about a command procedure tht runs every hour that does ar   $show dev/out=tmp.tmp M loop thru tmp.tmp looking for the element in the error column where it is > 0fN then send an opcom message and/or an email to that effect..  real cheap but itK works.  You could even filter out things like tape devices that always haveo! errors.  It's cheap and it works.i   Michael Austin DBA Consultant   AndradeJA-A wrote:  K > Considering the fact that our cluster doesn't go down and considering thef > fact that N > device errors can accumulate in such a way as to make their analysis a minorM > headache at best and overly time consuming at worst.  Does anyone know of aiL > utility that regularly logs changes in SHOW ERROR and sends resulting data > to > an output file/email account.  >f" > Jay Andrade - VMS System Manager
 > NUWC, RI  & --------------CECF9FE254EFC654F490D668- Content-Type: text/x-vcard; charset=us-ascii;s  name="maustin.vcf"i Content-Transfer-Encoding: 7bitn, Content-Description: Card for Michael Austin  Content-Disposition: attachment;  filename="maustin.vcf"i   begin:vcard  n:Austin;Michael j tel;work:704-947-1089t x-mozilla-html:FALSE org:Michael Austin, Inc7
 adr:;;;;;; version:2.1m+ email;internet:michaelaustininc@hotmail.com  title:Presidentu x-mozilla-cpt:;0 fn:Michael E. Austin	 end:vcardd  ( --------------CECF9FE254EFC654F490D668--   ------------------------------  % Date: Tue, 16 May 2000 10:20:09 +0200s= From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com>B( Subject: Re: Verifying username password) Message-ID: <392104B9.41EAE3AB@gtech.com>l   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 groupdF >         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 upOJ >         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/password I >         3) check against UAF that username password are correct without + >                 actually logging them in. P >         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.A+ >         Other solutions are welcome also.   ? 1)  It is quite simple to write a small program that verified a D     username/password with SYS$GETUAI & SYS$HASH_PASSWORD (note that3     this program needs to be installed with privs).2  C 2)  You need to design this setup very carefully, if it is going to0=     be secure. INQUIRE is banded. The checking image must be AE     secured, so it can not be used for brute force password guessing.O
     Etc.etc..Q   Arne   ------------------------------  % Date: Tue, 16 May 2000 14:27:13 -04000/ From: "Moore, John D" <john_d_moore@reyrey.com>:( Subject: RE: Verifying username passwordJ Message-ID: <C12E81FC6CF2D211956100A0C9E0FE8B01CE6DAA@oh15ex04.reyrey.com>   Rob,  G   Don't know if you got a good answer for this, but before doing eitherO of the following:_     1) handing out privs?   2) using a 'generic/shared' (and therefore anonymous) accountr       with privs or-J   3) writing up a very specific program installed with privs and protectedE      with ACL's (though this is the most attractive of the 3 options)N  > consider using Liaison Tools written by Doug Denton from Intec7 Consulting (listed in the Decus Software Library -- the-E library seems to be unavailable while they are reorganizing the site, * so you might have to hunt or wait for it).  C I've searched high and low for a solution that would let me do awaydE with the privileged user accounts at our site (such as the operator'sv? and *shudder* -- the helpdesk and even some developer's who sayoC they need them to support the application and the users -- a likely  story!)s  ? Liaison Tools is a collection of DCL scripts and miscellaneous I7 executables that perform privileged tasks on behalf of LA non-privileged user accounts.  It comes with the CERBERUS packagesA (also available thru decus - CERBERUS is a Fortran program which,lG installed with privs, can run command procedures in a 'secure (captive)hK shell').  The entire package installs as a vms saveset [note - this package-G is an older package and wouldn't install on vms 6.2, what I'm running, 8J but I got it installed by unarcing the saveset and changing the KITINSTALLE ..COM -- VMS_MAX_VER symbol.  (It was set to "5.9-9") and repackagingr, the saveset.  After that it installed fine].B During the install process it installs CERBERUS in SYS$LIBRARY andE creates process rights identifiers for each Liaison Tool command, ando installs itselfjH in its own directory tree on the system disk (protected appropriately by ACL's).3.  The available commands with this version are:  1   LT_AUTHORIZE      .......  Manage user accountsO-   LT_DISKQUOTA     ........ Manage diskquotass2   LT_ENTRY             ........ Manage job entries/   LT_FILE                 ........ Manage filese4   LT_IDENTIFIER      ......... Manage process rights9   LT_LOGINS            ........ Manage interactive logins 9   LT_MAIL                 ........ Manage forward aliasesn-   LT_PROCESS        .........Manage processes-9   LT_QUEUE            ......... Manage print/batch queuesmG   LT_REPLY             ......... Manage broadcast messages and operatorl requests6   LT_RMU                ......... Manage RDB databases  < To do what you are trying to do, all you would have to do isB install the package and grant an identifier to the user's account. Then the user could:  =    LT_PROCESS SHOW [username or pid] /show-process-qualifiersf   and>  $    LT_PROCESS STOP [username or pid]  I (command will prompt for confirmation in interactive mode before stopping.
 the process).I  @ I've made some 'enhancements' for our site to change some of the> assumptions Doug (the original author) made for his site whichA didn't really fit our environment (so now my assumptions probablyyH won't fit other peoples' environments).  I've also fixed some minor bugs= in the original dcl scripts (and probably introduced some newl? ones).  I've also added a simple menu shell that (I believe) ise% suitable for use in captive accounts.-  8 I've also made EXTENSIVE customizations to the AUTHORIZE> script, especially the ADD user function, to support our site.  ; The biggest change I made was to the validation logic.  Thed> original package determines the 'accessible' groups (ie. which8 accounts may be manipulated by LT) by looking up the UIC> group in a sequential file.  This validiation extends thru the7 entire set of commands (LT_AUTH, LT_PROC, LT_FILE,...).R8 The first change I made was to include the member number= of the UIC along with the group number in the validation filer= (meaning that all 'accessible' accounts are now listed in the 8 file).  Since this made lookups much slower, I keyed the; files using the 'UIC' as the key.  I also wrote some customt> 'filter' scripts to filter out the accounts I don't want to be< accessible (ie. - any with elevated privs, any in UIC groups- less than MAXSYSGROUP, any accounts with homel= directory on the system disk, et cetera ...) This filter runso; nightly and rebuilds the validation files.  There is also ar: validation file for the process rights (determining which 7 may be managed thru Liaision Tools).  I keyed this file : as well and wrote a filter that rebulids the file nightly.4 I also added logic to associate a 'template' with an< identifier.  The template contains process quota adjustments4 to be applied to the account when the corresponding : identifier is granted (the original Liaison Tools also has6 a 'template' function for the LT_AUTHORIZE ADD command9 which allows you to set up default profiles for specific  4 types of users -- I didn't make any change to this).  4 The command set is somewhat granular if you need to ; divide up responsibilities ... for instance, if you need tot4 give a certain group of people ability to manipulate5 diskquotas, another group to reset passwords, anothere3 group to manage print and batch queues, ... you can 4 do it.  However some commands aren't granular enough0 yet (such as the LT_AUTHORIZE command ... if you9 only want users to be able to reset passwords, not set upe5 new accounts -- you'd have to do some customization.)n  < If you are interested, I could make the original package and8 my 'enhancements' available to you in separate archives.? Undoubtedly they will require some customization for your site, ? but the nice thing is it's very easy to customize.  And if you '; want to add your own 'privileged' commands, there's nothingu
 stopping you.i  = This is somewhat similar to the 'SUDO' utility available for  4 unix to control root user access in the same manner.  > If anyone has found anything similar that will fill this need,; please let me in on it.  I've found some 3rd party packages1> that allow 'some' of this functionality, but nothing with thisD much (nor so easy to extend). This is a good solution, not a perfect8 one though.  I'm meeting some resistance, mainly becauseC it's hard to categorize all the things that the privileged accountss? at our site have come to be used for over the years.  Nothing'sc= documented and no easy way to audit them.  Plus, no one wantsd4 to learn a new command set unless they're forced to : (and believe me, if I have my say they will be forced to).  9 Anyhow, hope this will prove some use to someone.  If anyM9 interest is shown, I will make these available and post aa8 URL they can be downloaded from.  (Of course, it will be4 "as-is" with no warranty expressed or implied, with 5 installation assistance provided on a limited basis).i    -John M. Sr. System Admin (VMS & Unix)- Reynolds & Reynolds Co.- > -----Original Message-----D > From:	jamese@beast.dtsw.army.mil [SMTP:jamese@beast.dtsw.army.mil]& > Sent:	Tuesday, May 16, 2000 10:04 AM > To:	Info-VAX@Mvb.Saic.ComW* > Subject:	Re: Verifying username password > I > In <3920972B.78EF921@tsoft-inc.com> on Mon, 15 May 2000 20:32:43 -0400,n- > David A Froble <davef@tsoft-inc.com> wrote:  >  > > Robert Young wrote:g > > > 1 > > > In article <5YMK6EGOoO0t@eisner.decus.org>,v$ > Kilgallen@eisner.decus.org.nospam  > > (Larry Kilgallen) writes:-L > > > > In article <hQOlsqpqF34m@eisner.decus.org>, young_r@eisner.decus.org
 > (Robert  > > Young) writes: > > > >>D > > > >>      I have a need to allow users sign into an open accountG > > > >>      to make a menu choice to kill off other users.  The group'J > > > >>      that has access to the "open" account would then be verifiedE > > > >>      against their true username and password to ensure thisdG > > > >>      isn't being abused/misused and for auditing.  I've try tor > dredge up K > > > >>      a freeware product but can't find it or am not thinking abouta > it > > > >>      correctly. > > > >> > > > >>      summarizing: > > > >>) > > > >>      1) login to captive accountv- > > > >>      2) prompt for username/password'E > > > >>      3) check against UAF that username password are correct-	 > withoutm/ > > > >>              actually logging them in.GK > > > >>      4) if pass check in 3) prompt them for user to whack and thenn
 > whackem. > > > >>I > > > >>      Why this way?  Don't want to hand out privs here and there.g/ > > > >>      Other solutions are welcome also." > > > >,H > > > > I believe you would be much more secure by writing a program andH > > > > installing the image with WORLD privilege and protecting it with= > > > > an identifier granted only to the authorized zappers.# > > > J > > >         I think I understand what you are saying but the entry pointK > > >         is the DCL menu in the captive account.  By writing a programuI > > >         and using an associated identifier would work , but I don'tlI > > >         have a common entry point in the number of DCL menus/loginsgI > > >         that are spread hither and yon.  Perhaps a common situationaG > > >         for a lot of us.  So for me, it is easier to add features|F > > >         and functionalities to specialized accounts and now thatE > > >         end users get ideas they drive me in certain directionsPL > > >         I sometimes don't want to go.  One of them is here.  End usersL > > >         like to design things too.  If they had it there way, it wouldD > > >         be a menu choice only.. I'm trying to keep things fromC > > >         getting really ugly by identifying who is doing what.  > > > ) > > >                                 Robr > > E > > Ok, you need to do it in the manner you described.  Not much of aA > problem. tF > > Prompt for a username, look-up (I'd recommend not accessing SYSUAF > directly) thecJ > > account record.  If found, then get the password, remember to turn off > echo, andfD > > check the password as Howard suggested.  To me the larger job is > identifying thecD > > process to 'whack'.  There's also the questions of how to do the
 > 'wacking'. s) > > Force an exit, or really stomp on it.  > > : > > Someone's gotta have something that does most of this. > H > Attached is PASSCHK.C and a sample com file that locks a terminal. TheJ > program will need to be installed with privs, as Arne said. The com fileH > uses the ASK macro program from Mark Paulk and Jim Downward. If anyone > needs a copy, let me know. > I > If anyone recognizes the code in the PWDcheck subroutine, please let mee > know. L > I do not know where I got it and would like to be able to give the credit. > < > Ed James                           ed.james@telecomsys.com7 > TeleCommunications Systems, Inc.   voice 410-295-1919 7 > 275 West Street, Suite 400         fax   410-280-1094  > Annapolis, MD 21401-1740 > , > ================================ passchk.c# > ================================= L > /*======================================================================== > === >  PWDcheck - Verify password using VMS 5.4 sys$hash_password  >  Returns:   >    3     - Password is invalid >    1     - Password is valid >    Other - VMS error status  >   L > ========================================================================== > */ >  > #include ssdef > #include stdlib  > #include string. > #include uaidef  > #include descrip > #include starlet > #include lib$routines  > #include str$routinesm > 7 > #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) > {6! >    int                  status;  >    short         salt;( >    long          uafhash[2] = { 0, 0};( >    long          tmphash[2] = { 0, 0}; >    unsigned char algorithm; K >    struct dsc$descriptor_s user_desc = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S,  > 0}; K >    struct dsc$descriptor_s pwd_desc  = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S,h > 0};b< >    ITEMLIST inlist[] = {{ sizeof( salt), UAI$_SALT, 0, 0},> >                         { sizeof( uafhash), UAI$_PWD, 0, 0},D >                         { sizeof( algorithm), UAI$_ENCRYPT, 0, 0},) >                         { 0, 0, 0, 0}};  > ( >    user_desc.dsc$a_pointer = username;1 >    user_desc.dsc$w_length  = strlen( username);n( >    pwd_desc.dsc$a_pointer  = password;1 >    pwd_desc.dsc$w_length   = strlen( password);i > 3 >    inlist[INLIST_SALT].buffaddr = (void *) &salt;p8 >    inlist[INLIST_UAFHASH].buffaddr = (void *) uafhash;= >    inlist[INLIST_ALGORITHM].buffaddr = (void *) &algorithm;- > = >    status = sys$getuai( 0, 0, &user_desc, inlist, 0, 0, 0);p >    check( status);  >    status = sys$hash_password(D >                            &pwd_desc, algorithm, salt, &user_desc, > &tmphash); >    check( status);D >    if( (tmphash[0] == uafhash[0]) && (tmphash[1] == uafhash[1])) { >       return( 1);p >    } >    return( 3); > }- > L > /*======================================================================== > ==*/ >  > main( int argc, char *argv[])  > {mK >    struct dsc$descriptor_s str_desc  = { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S,o > 0};s >    int status; >    if( argc > 2) {* >       str_desc.dsc$a_pointer  = argv[1];3 >       str_desc.dsc$w_length   = strlen( argv[1]);r3 >       status = str$upcase( &str_desc, &str_desc);B >       check( status);-* >       str_desc.dsc$a_pointer  = argv[2];3 >       str_desc.dsc$w_length   = strlen( argv[2]);t3 >       status = str$upcase( &str_desc, &str_desc);  >       check( status);m+ >       exit( PWDcheck( argv[1], argv[2]));u >    } >    exit( SS$_BADPARAM);  > } /* end of passchk main */g, > ================================ passchk.c# > =================================u, > ================================ inuse.com# > =================================4 > $	_ver = - > 	tI > 'f$verify(f$integer(f$trnlnm("INUSE_DEBUG","LNM$SYSTEM","EXECUTIVE")))'r8 > $	set noon	! 971117 Lock terminal using login password2 > $	if f$mode() .nes. "INTERACTIVE"	then goto exit/ > $	if "''ask'" .eqs. "" then ask := $spbin:aska > $	passchk := $spbin:passchk- > $	esc[0,8] = 27 ! %x1B > $	ctrlz[0,8] = 26 ! %X1A > $	bell[0,8] = 7m > $	wo := write sys$output6 > $ 	wo esc,"[2J",esc,"[1;1H"		! Clear screen and home1 > $	acct = f$edit(f$getjpi("","USERNAME"),"TRIM")F > $ 	name = f$process()-) > $	inuse_message = "Terminal IN USE by "1 > $	inuse_message = "INUSE BY " E > $      	blank_len = (40-(f$length(inuse_message)+f$length(name)))/2VE > $      	blank_len = (29-(f$length(inuse_message)+f$length(name)))/2  > $	blanks = ""o> > $	if blank_len .gt. 0 then blanks = f$fao("!#* ", blank_len) > $loop:E > $ 	wo esc,"(0",esc,"[2J",esc,"[1;1H" ! Ascii charset, clear screen,  > home8 > $	if f$logical("sys$input") .eqs. "sys$command" then - > 		deassign/user sys$inpute > $ 	type sys$inputd >  nK > lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqkt >    x > x K >    x   ////////    //      //        ///     ///    ////////    /////////  > x K >    x  aaaaaaaa/   aa/     aa/       aaa/    aaa/   aaaaaaaa/   aaaaaaaaa/c > x D >    x     aa/      aaa/    aa/       aaa/    aaa/   aa/         aa/ > xFI >    x     aa/      aa/a/   aa/  ///  aaa/    aaa/   aa///////   aa//////g > xtI >    x     aa/      aa/ a/  aa/ aaa/  aaa/    aaa/   aaaaaaaa/   aaaaaaa/d > x D >    x     aa/      aa/  a/ aa/       aaa/    aaa/         aa/   aa/ > xdK >    x   //aa////   aa/   a/aa/       aaa/////aaa/    /////aa/   aa////////p > x K >    x  aaaaaaaa/   aa/    aaa/        aaaaaaaaa/    aaaaaaaa/   aaaaaaaaa/  > x$ >    x > x  >   K > mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj 0 > $	wo esc,"(B", esc, "[0m"		! Set ascii charset) > $	wo esc,"#3",blanks,inuse_message,nameh) > $	wo esc,"#4",blanks,inuse_message,namec
 > $ 	wo "" > $ 	set nocontrol_y, > $ 	on control_y then goto ask_for_password > $ 	set control_y > $     	wait 23:59:59.00a
 > $	goto loop  > $ask_for_password:H > $    	ask /noecho /uppercase /timeout=30 pass "Enter logon password: "G > $	if $timeout .or. pass .eqs. ctrlz .or. pass .eqs. "" then goto loop. > $	passchk 'acct' 'pass'w  > $	status = f$integer( $status)# > $	if status .ne. 1 then goto looplD > $	wo esc,"(B",esc,"[2J",esc,"[1;1H" ! Ascii charset, clear screen, > home. > $exit:	exit '$status' + (f$verify(_ver) * 0), > ================================ inuse.com# > =================================    ------------------------------  # Date: Tue, 16 May 2000 13:02:00 GMTu9 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen)l( Subject: Re: Verifying username password+ Message-ID: <YY$pxcsQ328s@eisner.decus.org>l  [ In article <mibtV5AYgonc@eisner.decus.org>, young_r@eisner.decus.org (Robert Young) writes: i > In article <5$rFSOyBkPqh@eisner.decus.org>, Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) writes:   D >> You certainly get better auditing by having them do it from theirC >> own account.  If all your users are in captive menus, a solution B >> might be to add the program to a common housekeeping menu (nextA >> to Change Password, for example) and have it just not work forn, >> the users who do not hold the identifier. > ; > 	But they aren't and another rub... the "programmers" canC9 > 	of course access the command line and they too need to # > 	occasionally run this procedure.r  7 And that is the beauty of the approach I am suggesting.s Programmers just:i   	$ RUN LOCAL_UTILITIES:ZAPPERn  ) and get audited just like everybody else.n   ------------------------------   Date: 16 May 2000 15:31:48 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)( Subject: Re: Verifying username password6 Message-ID: <8frpl4$ivn$1@mailint03.im.hou.compaq.com>  [ In article <hQOlsqpqF34m@eisner.decus.org>, young_r@eisner.decus.org (Robert Young) writes:i :o8 :	I have a need to allow users sign into an open account2 :	to make a menu choice to kill off other users...  A   The use of DCL DECnet task-to-task is among the easiest ways toAB   achieve this, and is among my favorite approaches for this task.  F   A simple (user-written) installed image and one or more identifiers H   assigned to the specific delete-requesting user(s) (to control access D   to the image, or even to specific groups of "targets") is another.  1 :	...Don't want to hand out privs here and there..# :	Other solutions are welcome also.O  @   I have a chapter on this general topic -- security and dealing7   with (not handing out) privileges -- in the DCL book..  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Tue, 16 May 2000 20:09:59 -0500 ) From: "John E. Malmberg" <wb8tyw@qsl.net>C( Subject: Re: verifying username password7 Message-ID: <0ae101bfbf9c$a5e3db00$020a0a0a@xile.realm>]  : re: verifying username passwordManser, Nazim (EXT) posted:  8 > This message is in MIME format. Since your mail reader6 > does not understand this format, some or all of this > message may not be legible.o   > Content-Type: text/html; > charset="iso-8859-1"- > Content-Transfer-Encoding: quoted-printable   $ PLEASE DO NOT POST MESSAGES IN HTML!  J To newsgroups, mailing lists and unknown recipiants, send plain text only.   Or translated from AltaVista:p  0 BITTE GEBEN SIE NICHT MELDUNGEN IN HTML BEKANNT!D Zu den newsgroup, schicken Sendenlisten und Unbekanntrecipiants, nur normalen Text.  H Sending HTML can more than triple the size of your mail message, with no gain in functionality.  1 >here is the corrected form of the dcl procedure:   3 What required correction?  Was some symbol missing?i  I I do notice that you changed it from a SUBROUTINE to an inline procedure.i4 That is a change of functionality, not a correction.  L As it was extracted from a working DCL menuing program, it was functional as written.  H In the real menu program, when a selection timed out, it would clear theL username context, so that if someone wandered up to the terminal, they would! need to present a password again.s   -JohnU  3 A MIME is a terrible thing to waste on a newsgroup.r   ------------------------------  % Date: Tue, 16 May 2000 10:17:05 +0200i= From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com>y Subject: Re: VMS backup on PC ) Message-ID: <39210401.D9CB6A5E@gtech.com>t  
 gadtec wrote: 7 > Arne Vajhj <arne.vajhoej@gtech.com> wrote in messagei% > news:391FBB38.E8B4DCEE@gtech.com...e > > But why bother ? > >g= > > Get someone with a VMS system to read the tape and create  > > a new tape with a TAR/ZIP !i >l0 >     Dont you mean VMSTAR for the tar program ?  - I was talking about a tape with *a TAR file*.s  6 *VMSTAR* is the most widely used *TAR program* on VMS.   Arne   ------------------------------  % Date: Tue, 16 May 2000 19:53:12 -0400l From: "dls2" <dls2@Lehigh.EDU> Subject: VMS on the desktop?- Message-ID: <8fsn2q$bke@fidoii.CC.Lehigh.EDU>y   I've never seen, or used, VMS.  0 How does VMS fare as a desktop operating system? From a sysop's perspective?u From a user's perspective?     appreciatively,t Derrick Shearern dls2@Lehigh.EDUa   ------------------------------  % Date: Wed, 17 May 2000 00:35:36 -0500e, From: Howard S Shubs <hshubs@mindspring.com>  Subject: Re: VMS on the desktop?> Message-ID: <hshubs-A35865.00353617052000@news.mindspring.com>  G In article <8fsn2q$bke@fidoii.CC.Lehigh.EDU>, "dls2" <dls2@Lehigh.EDU>   wrote:  1 >How does VMS fare as a desktop operating system?y >From a sysop's perspective? >From a user's perspective?y  G It's very stable.  How it looks from a user's point of view depends on l what the user wants to do.   -- u Howard S Shubs, the Denim Adeptt   ------------------------------   Date: 15 May 2000 12:01:13 GMT' From: Osmo Kujala <kujala@tukki.jyu.fi>i7 Subject: Re: What type of memory does a 3000-300lx use?y, Message-ID: <8foou9$d0s$1@mordred.cc.jyu.fi>  ' Tom Crabtree <tccrab@sunset.net> wrote:o  A > 72 Pin True Parity 70ns or better.  They come in 4,8,16 & 32mb.t  C From experience I'd say that they better be 8 or 32MB and should beiB double banked (sometimes called double sided). I've undestood thatA 8 and 32 MB simms usually are double banked. Other sizes seems toiH work too, when only one pair of simms is used.                       /OK   ------------------------------  + Date: Tue, 16 May 2000 14:31:10 -0700 (PDT)'! From: Tom Linden <tom@kednos.com>u7 Subject: Re: What type of memory does a 3000-300lx use?tG Message-ID: <Pine.ULT.3.91.1000516143010.23690C-100000@gunn.kednos.com>e  F I think I have 4 x 8MB spare which O don't need but would be happy to  trade for a working TK50.    regardsa Tomb  " On 15 May 2000, Osmo Kujala wrote:    > Date: 15 May 2000 12:01:13 GMT) > From: Osmo Kujala <kujala@tukki.jyu.fi>e > To: Info-VAX@Mvb.Saic.Coma9 > Subject: Re: What type of memory does a 3000-300lx use?m > ) > Tom Crabtree <tccrab@sunset.net> wrote:  > C > > 72 Pin True Parity 70ns or better.  They come in 4,8,16 & 32mb.m > F > >From experience I'd say that they better be 8 or 32MB and should beD > double banked (sometimes called double sided). I've undestood thatC > 8 and 32 MB simms usually are double banked. Other sizes seems to0J > work too, when only one pair of simms is used.                       /OK >  >   A                __________________________________________________@A               /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/n@              /_/                                             /_/?             /_/     Tom Linden              PL/I Support    /_/a>            /_/    Kednos Corporation       OpenVMS and     /_/=           /_/   tel 831 373 7003          Tru64 Unix      /_/ <          /_/_____________________________________________/_/;         /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/d   ------------------------------  % Date: Tue, 16 May 2000 11:12:15 +0100.- From: Tim Llewellyn <tim.llewellyn@bbc.co.uk>r4 Subject: Re: Where to start with motif programming ?) Message-ID: <39211EFF.12F28FCC@bbc.co.uk>   4 There are some examples in DECW$EXAMPLES. The latest; V7.2 doc CD only seems to have the Motif Installation Guider9 and Release Notes. Maybe the old Xlib programming manualsr> (there was one for a C binding and one for a VMS style binding? I seem to remember) are not there anymore, possibly they are ono the layered products docs CDs.   Marc Van Dyck wrote:  K > I have been asked to write a 'very simple' Motif program - it looked very F > simple indeed, until I saw some - supposedly simple too - Motif codeN > examples. As I want to learn, I won't describe what I need to write here, toM > be sure that nobody will provide the piece of code that I need, rather thanrL > letting me write it myself. However, I don't know where to start. What I'dD > like to see is a document describing the basic principles of motifG > programming, explaining widgets, uil, and all the stuff. And also, ifsI > possible, some simple, but well commented, pieces of code examples. HasaM > anyone something to provide or recommend - preferrably in electronic form ?s >a > TIA, >d > --  > Marc  (Marc.Vandyck@skynet.be)   --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.uky  A I speak for myself only and my views in no way represent those oft MedAS or the BBC.m   ------------------------------  # Date: Sun, 14 May 2000 19:55:16 GMTa0 From: "Terry C. Shannon" <shannon@world.std.com>- Subject: Re: Which is the language of VAX/VMS & Message-ID: <FuKFEA.7C7@world.std.com>  > "Pat Jankowiak" <vaxhackery@worldnet.att.net> wrote in message* news:39281E7F.F8119A0F@worldnet.att.net...K > Umm... DCL is the command line 'language', Cobol runs under VMS. POSIX, aaD > unix-like shell, also runs on VMS. Does this answer this question?  K If not, perhaps the question relates to the system implementation language,  which IIRC is BLISS-32.h   >s > moises_hernandez wrote:T > >tF > > Do you know which is the lenguage of the VAX/VMS operating system? > > Is Cobol or Unix?w > > Regards  > > Moises Hernandez   ------------------------------  % Date: Tue, 16 May 2000 13:14:32 -0500g1 From: "Dave Gudewicz" <david.gudewicz@abbott.com>." Subject: Re: Wildfire Announcement8 Message-ID: <8fs2vq$4rv$1@fizban.fizban.pprd.abbott.com>  G The GS80 is NOT upgradable to a GS160.  Need a fork list if you want >8u processors or 2 QBBs.    Dave...e  D Larry Kilgallen <Kilgallen@eisner.decus.org.nospam> wrote in message% news:jq+BUixJsPfD@eisner.decus.org...w= > In article <8frst1$5p6$1@willow.cc.kcl.ac.uk>, Allan Hawdon # <udaa460@axolotl.kcl.ac.uk> writes: : > > Arthur E. Ragosta <ragosta@merlin.arc.nasa.gov> wrote: >o > > : Prices!  I need prices!! > > K > > : Can anyone who attended/listened to the announcement tell me what the1 > > : entry  > > : price is for the GS80. > >pF > > Below $100,000. Various other people have suggested about $80,000.I > > However the GS80 seems to be a mite messy to upgrade. Reading betweeneJ > > the lines it looks like the GS80 is a marketing model, just so as theyH > > can get something in under 100K. What they really seem to be pushing > > is the GS160/GS320.= >=D > I don't understand why converting a GS80 to a GS160 should be muchD > worse than converting a GS160 to a GS320.  Is it the fact that PCIC > busses and QBBs are mixed into the same cabinet ?  I think all ofuC > that would be swamped by the general problem of having to upgrade&	 > at all.b   ------------------------------  # Date: Tue, 16 May 2000 18:54:09 GMTt9 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen);" Subject: Re: Wildfire Announcement+ Message-ID: <jq+BUixJsPfD@eisner.decus.org>f  _ In article <8frst1$5p6$1@willow.cc.kcl.ac.uk>, Allan Hawdon <udaa460@axolotl.kcl.ac.uk> writes:w8 > Arthur E. Ragosta <ragosta@merlin.arc.nasa.gov> wrote:   > : Prices!  I need prices!! > I > : Can anyone who attended/listened to the announcement tell me what thee	 > : entryr > : price is for the GS80. > D > Below $100,000. Various other people have suggested about $80,000.G > However the GS80 seems to be a mite messy to upgrade. Reading between}H > the lines it looks like the GS80 is a marketing model, just so as theyG > can get something in under 100K. What they really seem to be pushing   > is the GS160/GS320.i  B I don't understand why converting a GS80 to a GS160 should be muchB worse than converting a GS160 to a GS320.  Is it the fact that PCIA busses and QBBs are mixed into the same cabinet ?  I think all ofwA that would be swamped by the general problem of having to upgradei at all.I   ------------------------------   Date: 16 May 2000 17:56:38 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)" Subject: Re: Wildfire Announcement6 Message-ID: <8fs24m$m6s$1@mailint03.im.hou.compaq.com>  g In article <jq+BUixJsPfD@eisner.decus.org>, Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) writes:eC :I don't understand why converting a GS80 to a GS160 should be much C :worse than converting a GS160 to a GS320.  Is it the fact that PCI 3 :busses and QBBs are mixed into the same cabinet ?    I   Dual QBB configurations can have the global switch, or the "scrambler".=  J   The switch-based design is heirarchical and permits configurations with L   more QBBs, while the design based on the "scrambler" (I've somehow always K   incorrectly used the term "swizzler" for this widget :-) is analogous to  H   (an admittedly more complex) null-modem cable and permits connections H   between the local switches present in each of (at most) two QBBs.  In J   other words, two different eight CPU AlphaServer GS80 configurations areK   quite conceivable, and one -- the one with the global switch -- would be mI   rather more easily expanded beyond the existing two QBBs than would be A   the other.  J   QBB: Quad Building Block.  Contains CPU, I/O, memory, local switch, etc.G   The QBB is the basic building block of the new AlphaServer GS series.c  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  # Date: Tue, 16 May 2000 21:08:24 GMTh' From: kdbeasl@emory.edu (Kevin Beasley)e" Subject: Re: Wildfire Announcement7 Message-ID: <3921b59a.725415552@News.Service.Emory.Edu>]  C I was at the show in Atlanta, and I can tell you that there were assB many Oracle execs as there were Compaq execs. The messages I heard were:,  E 1) We have a bigtime commitment from Oracle on Tru64 Unix.  Tru64 andiF NT are "tier 1" as defined by Oracle.  VMS was not listed on any tier,F but version 8.1.6 seems to be on schedule for a Q3 release,which seems consistant with the past.g  F 2)  The GS80 won't be available until late Q3, but the GS160 and GS320F will be shipping in June.  The price range looks like $100K - $1M (US, and very roughly).  F 3) It isn't a "Wildfire", it is an AlphaServer GS series.  Most of theA DEC/CPQ folks slipped up at least once and called them wildfires.   C 4) The Oracle VP talked for MUCH longer about the announcement thanqD any of the Compaq folks.  This seems good, but he only mentioned VMSD from a historical perspective and didn't have much to say except "we% are still shipping versions for VMS."a  > 5) There were many more Compaq employees there than customers.  B 6) The satellite feed stayed up through the entire program and the food was great.a   KB  8 "Arthur E. Ragosta" <ragosta@merlin.arc.nasa.gov> wrote:   >It's finally on the website!  >xH >Although you would think that they would know better by now (based upon >all of/I >the grousing in this forum) to not introduce their latest machines with:x >aI >"The new Alphaserver GS80 is the industry's fastest RISC Unix server..."  >xD >It does mention that it runs VMS at the bottom of the page... Geez. >q >Prices!  I need prices!!c >BF >Can anyone who attended/listened to the announcement tell me what the >entry >price is for the GS80.u >m >thanks. >     
 Kevin Beasleyt  Senior Operating Systems Analyst Emory HealthCare Atlanta, GAs 404.727.4670 kdbeasl@emory.edu:   ------------------------------  % Date: Tue, 16 May 2000 18:55:58 -0400e- From: JF Mezei <jfmezei.spamnot@videotron.ca>	" Subject: Re: Wildfire Announcement, Message-ID: <3921D1FB.6B53E5D2@videotron.ca>  K They spend one billion bucks developping the thing. They spend megabucks tooM make the much touted announcement around the world and webcasted. We've heard M about wildfire for many months, if not years.  But they can't spend any money=K on a show producer to make a show that would impress viewers. And there was-H ever an anti-climax, this was it. Capellas seemed to lack conviction and0 enthousiasm, as if he *had* to do it as a chore.  K The local folks said something to the order of "TruCluster V5.0 brings back 7 all the features you HAD on VMS." (note the past tense)r  K I beleive that Capellas made more mentions of Himalayas (the need for fault>N tolerant) than he did of VMS. And the GS announcement does not change anything& for Himalayas/Tandem side of business.  M The local folks say that Linux won't be marketed for Wildfire, but the slidesoA shown by capellas and friends include Linux as supported systems.e  K The feeling I got is that VMS got mentioned because they had to mention it,u; not because they wanted to take the opportunity to push it.a  J One of the slides showed that "proprietary" systems have a market share ofM about the same as NT currently has (around 25%, with Unix the winner at 37%).   M While Capellas did have a few good responses to analysts's questions ("unlikeIM others, we don't ship boards until we're sure they are debugged", and "Compaq-H is the largest seller of internet servers", he failed in many areas. TheK biggest hole was shown when someone if Compaq could expect to penetrate theDJ growing aerospace industry, with Cappellas, after a very long blank pause,H saying that it is not a market that Compaq wants to have and Compaq will= continue to focus on market it already has good penetration.    N Capellas doesn't seem convinced that Alpha is the fastest CHIP. He didn't haveN problems saying that the GS are the fastest UNIX RISC SYSTEMS in the Industry,N but he failed to tout the bright future fo the alpha architecture.  I guess heM didn't want to show too much that the alpha is still below the 1ghz mark, andcL failed to point out that its much better design allows much faster execution at lower clock speed.     I Forgetting VMS for a minute, Compaq waisted a perfect occasion to propellcK itself ahead of the others and make itself very visible. If Capellas admits)K that his marketing is ppor, why the hell doesn't he do something about it ?lI Hasn't he seen presentations by Apple or other companies that know how ton impress/woo its audience ?  K And when you put VMS back, it seems clear that the focus is now on Himalaya M and TrueUnix with "Linux" in the near future". (when it becomes more robust).n& They included VMS, but didn't push it.    I CNN financial news had a report on the success of HP, but so far, nothing(M about Compaq, not even its stock price in the most active stocles of the day.s  M Compaq had the perfect opportunity to break some myths and propell itself. It K blew that opportunity. They had the opportunity to really impress analysts,d( but many seemed to doubt Compaq's plans.   ------------------------------  % Date: Tue, 16 May 2000 23:22:58 -0400,- From: JF Mezei <jfmezei.spamnot@videotron.ca>t" Subject: Re: Wildfire Announcement, Message-ID: <39221091.4C25A844@videotron.ca>  [ BBC business news, as aired by PBS in the USA, had a snippet about the Compaq announcement.t  N "New servers for very large companies with millions of computers, and they are very expensive".  M Also showed the snippet where Capellas admits that Compaq has had a hard time 9 shedding their "PC company" image. No mention of "Alpha".i   ------------------------------  % Date: Wed, 17 May 2000 01:08:08 -0400i- From: JF Mezei <jfmezei.spamnot@videotron.ca>r" Subject: Re: Wildfire Announcement, Message-ID: <39222930.39071E03@videotron.ca>  R Here is a what Reuters had to say about it. Notice the "Unix based computers" bit.    0 Compaq Unveils New Line of Powerful Web (Servers    By Nicole Volpe  @  NEW YORK (Reuters) - Compaq Computer Corp. (NYSE:CPQ - news) onF  Tuesday introduced its much anticipated new line of powerful businessE  computers designed to run Web sites, and forecast the products wouldu+  generate revenues of $1 billion this year.h  L  At a press conference here, the Houston-based company unveiled the new lineP  -- code-named Wildfire for its capacity to handle large volumes of transactionsM  -- saying it hoped to capture business in the fast-growing Internet commerce/  market.  I  The Unix-based computers, officially known as the AlphaServer GS series,aL  are capable of running anywhere from eight to 32 processors simultaneously,N  allowing them to handle millions of customer transactions at major Web sites,   phone companies and brokerages.  M Compaq said that with the new products, it expects to double its market shareyM in those Unix markets, as well as in high-performance technical computing ands4 healthcare markets, in the next three to four years.  F  ``The new AlphaServers ... are building a new foundation for the mostH  demanding e-business environments,'' said president and chief executive  Michael Capellas.  N  Bill Heil, vice president and general manager of the business critical serverN  unit, said that about 8 percent of the 237 orders the company has already got,  for the new servers are from new customers.  K  Analysts said the AlphaServer series, based on the line of Alpha computers?M  Compaq acquired as part of its purchase of Digital Equipment Corp. two years M  ago, gives Compaq a jump on rival makers of computers in the class and price F  range, specifically Sun Microsystems Inc. (NasdaqNM:SUNW - news), the8  market leader in computers used to run major Web sites.  N  Gartner Group analyst George Weiss said delays by Sun in turning out its nextJ  generation of rival machines give Compaq a six- to nine-month lead in the$  high-performance Web server market.  I  ``Sun could have really neutralized Compaq, but now Compaq can introducenH  this product into the competitive field, with headroom for two to threeA  generations, and Sun still has to take their users into the nexte generation,'' he  said.  J  Compaq shares ended up 1-3/8 at 28-3/4 on Tuesday in composite trading onF  the New York Stock Exchange, where they were the second most actively/  traded issue on volume of 16.3 million shares.    ------------------------------  # Date: Tue, 16 May 2000 16:44:56 GMT2= From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)wB Subject: Wildfire Announcement: Michael Capellas, can you say VMS?0 Message-ID: <009EA2BD.00A4C3CE@SendSpamHere.ORG>  m In article <3921725A.86779C78@merlin.arc.nasa.gov>, "Arthur E. Ragosta" <ragosta@merlin.arc.nasa.gov> writes:o >It's finally on the website!   G I was watching CNBC just before the noon hour when they have their techeF watch segment.  Michael Capellas was interviewed for about ten minutesH and not *ONCE* did VMS get mentioned.  Of course, the interviewer's big-G gest concern was whether some problem with intel motherboards affected hH this new machine just announced.  Doh!  Just goes to show the mindset ofH the Wall Street in-the-know crowd.  He also spent plenty of time talkingH about NT server...  Hey mikey, how about feeding your own children for aI change!  Emperor Bill can afford to feed his own scion without your help!   G Now I was told that Compaq was no longer ashamed of VMS and that it was H to be mentioned prominently with the "wildfire" announcement.  I too wasH told that the term wildfire was not going to be used because of a trade-F mark issue.  So what's the truth and what's the lie?  Capellas can sayF "wildfire" but he can't seem to bring him self to mention "VMS".  Per-1 haps, he isn't aware of how to pronounce VMS.  :(a   --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 20:33:50 GMT   From: james_e_becker@my-deja.comF Subject: Re: Wildfire Announcement: Michael Capellas, can you say VMS?( Message-ID: <8fsbbe$hn$1@nnrp1.deja.com>  0 In article <009EA2BD.00A4C3CE@SendSpamHere.ORG>,    system@SendSpamHere.ORG wrote:  D > I was watching CNBC just before the noon hour when they have their techH > watch segment.  Michael Capellas was interviewed for about ten minutesE > and not *ONCE* did VMS get mentioned.  Of course, the interviewer'se big-? > gest concern was whether some problem with intel motherboards  affectedG > this new machine just announced.  Doh!  Just goes to show the mindsett ofB > the Wall Street in-the-know crowd.  He also spent plenty of time talkingdD > about NT server...  Hey mikey, how about feeding your own children for agE > change!  Emperor Bill can afford to feed his own scion without youro help!    Yeesh.  E > Now I was told that Compaq was no longer ashamed of VMS and that itt wasvF > to be mentioned prominently with the "wildfire" announcement.  I too was C > told that the term wildfire was not going to be used because of au trade-H > mark issue.  So what's the truth and what's the lie?  Capellas can sayH > "wildfire" but he can't seem to bring him self to mention "VMS".  Per-3 > haps, he isn't aware of how to pronounce VMS.  :(t  B He and his colleagues (Bill Heil, VP BCSD, and the Oracle VP, Gary? Bloom) did indeed mention VMS a few times during today's event,.@ with and without the silent "Open" prefix, and without shame andA apparently not as a mere afterthought. That was good. At the samen= time, though, there was no niche where VMS was given pride oftA place. Capellas also acknowledged, yet again, Compaq's inadequaten
 marketing.  @ Speaking of marketing, I'm now the proud owner of a few coolers,< towels, "premie" life jackets (as one person called them), a= squishy key chain, and assorted post cards, but the materialso@ didn't tell me why I should attend the event. I heard from a few@ ESILUG members, longtime DEC/CPQ customers, who received nothingB and wouldn't have known about the event if I hadn't sent somethingC to the ESILUG mailing list. When I asked the Compaq marketing folksd> about this, they said this round was targeted mostly at people> with signature authority, or people running competitors' gear.< They said there'd be future pitches to additional audiences.  
 Jim Becker    & Sent via Deja.com http://www.deja.com/ Before you buy.u   ------------------------------  # Date: Tue, 16 May 2000 22:04:31 GMT = From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)uF Subject: Re: Wildfire Announcement: Michael Capellas, can you say VMS?0 Message-ID: <009EA2E9.A5D3C4EC@SendSpamHere.ORG>  K In article <8fsbbe$hn$1@nnrp1.deja.com>, james_e_becker@my-deja.com writes: 1 >In article <009EA2BD.00A4C3CE@SendSpamHere.ORG>,G! >  system@SendSpamHere.ORG wrote:i > E >> I was watching CNBC just before the noon hour when they have theirt >techmI >> watch segment.  Michael Capellas was interviewed for about ten minutes0F >> and not *ONCE* did VMS get mentioned.  Of course, the interviewer's >big-a@ >> gest concern was whether some problem with intel motherboards	 >affectedeH >> this new machine just announced.  Doh!  Just goes to show the mindset >of C >> the Wall Street in-the-know crowd.  He also spent plenty of timei >talkingE >> about NT server...  Hey mikey, how about feeding your own childrenr >for aF >> change!  Emperor Bill can afford to feed his own scion without your >help! >, >Yeesh.0 >1F >> Now I was told that Compaq was no longer ashamed of VMS and that it >wasG >> to be mentioned prominently with the "wildfire" announcement.  I toog >wasD >> told that the term wildfire was not going to be used because of a >trade-lI >> mark issue.  So what's the truth and what's the lie?  Capellas can say I >> "wildfire" but he can't seem to bring him self to mention "VMS".  Per- 4 >> haps, he isn't aware of how to pronounce VMS.  :( > C >He and his colleagues (Bill Heil, VP BCSD, and the Oracle VP, Garyg@ >Bloom) did indeed mention VMS a few times during today's event,   A closed audience event.      A >with and without the silent "Open" prefix, and without shame andyB >apparently not as a mere afterthought. That was good. At the same> >time, though, there was no niche where VMS was given pride ofB >place. Capellas also acknowledged, yet again, Compaq's inadequate >marketing.I  C And here he had the chance to mention VMS to the general television C audience and he blew it!  If he and Compaq really felt that OpenVMSaB (silent prefix or not) was not something to hang his head in shame$ about then why didn't he mention it?      A >Speaking of marketing, I'm now the proud owner of a few coolers,e= >towels, "premie" life jackets (as one person called them), an> >squishy key chain, and assorted post cards, but the materialsA >didn't tell me why I should attend the event. I heard from a fewvA >ESILUG members, longtime DEC/CPQ customers, who received nothingGC >and wouldn't have known about the event if I hadn't sent somethingdD >to the ESILUG mailing list. When I asked the Compaq marketing folks? >about this, they said this round was targeted mostly at peoples? >with signature authority, or people running competitors' gear.e= >They said there'd be future pitches to additional audiences.n >r >Jim Beckere  E Well you've gotten lots of goodies at Compaq expense but you ALREADY mD know about Galaxy, VMS and ... dare I say it for fear of a trademarkE infringement... Wildfire!  Here was a chance for "free" publicity anddD and Capellas blew it.  The viewers of that segment probably think itC is just another hot box to run monopoly$chlock's schlockwarez.  CanmE freebie key-chains make up for the lost 10 minutes of TV air time?  I  doubt it.  t   --N VAXman- OpenVMS APE certification number: AAA-0001           VAXman@TMESIS.COM  L GNU Freeware -- What does the GNU *really* stand for?  Garbage!  Not Usable!   ------------------------------   End of INFO-VAX 2000.274 ************************