1 INFO-VAX	Tue, 25 Jul 2006	Volume 2006 : Issue 410       Contents: Re: Alpha end of life  An opportunity for VMS Getting file lines randomly  Re: VaxStation vs. Infoserver  Re: VaxStation vs. Infoserver  XP1000 problem Re: XP1000 problem  F ----------------------------------------------------------------------  % Date: Mon, 24 Jul 2006 14:19:45 -0400   From: "DBT" <dbturner@icusc.com> Subject: Re: Alpha end of life0 Message-ID: <12ca3qq2ipc1v7a@news.supernews.com>  J Someone told me (a little bird without a name) that HP was going to extend! manufacturing for a little longer % Anyone at HP want to comment on that? - If so, what would be the production end date?  DT   --     David B Turner Island Computers US Corp 2700 Gregory St, Suite 180 Savannah GA 31404  Tel: 912 447 6622 X201 Cell: 912 447 6622 X251  Fax: 912 201 0402  Email: dbturner@icusc.com  Web: http://www.islandco.com% ===================================== < All orders are subject to the following terms and conditions. of sale. These should be read before ordering.% http://www.islandco.com/warranty.html   4 "Neil Rieck" <n.rieck@sympatico.ca> wrote in message6 news:44c42f49$0$24174$9a6e19ea@news.newshosting.com.../ > "Z" <SpamDumpst3r@yahoo.com> wrote in message $ > news:vbSwg.394$zk7.141@fe03.lga...: > > When will HP stop taking orders for new Alpha systems? > >  > > Is it this year? >  > October 27, 2006. ( > http://h18002.www1.hp.com/alphaserver/ >  >  > Neil Rieck > Kitchener/Waterloo/Cambridge,  > Ontario, Canada.: > http://www3.sympatico.ca/n.rieck/links/cool_openvms.html; > http://www3.sympatico.ca/n.rieck/links/openvms_demos.html  >  >    ------------------------------  % Date: Mon, 24 Jul 2006 23:32:36 -0400 - From: JF Mezei <jfmezei.spamnot@teksavvy.com>  Subject: An opportunity for VMS , Message-ID: <44C590CD.29B3018E@teksavvy.com>  E There have been a series of power outages in Kalifornia over th elast F few days. One of them took out all of "myspace.com", a supposedly veryF popular "social networking" web site (isn't that just a glorified term for a "forum" ?)    H This would be THE time to put out full page ads in Kalifornia newspapersG telling the world about VMS being able to form clusters whose nodes are B up to <real value> hundreds of kilometres apart, thus allowing theJ cluster and service to survive major disaster or power outage in one area.    D Just another missed opportunity for VMS becauise everyone here knows that HP wouldn't market VMS.   ------------------------------  % Date: Mon, 24 Jul 2006 14:27:18 -0400  From: norm.raphael@metso.com$ Subject: Getting file lines randomlyQ Message-ID: <OF77C5230D.0138F037-ON852571B5.00655A4F-852571B5.00656093@metso.com>   6 contracer11@gmail.com wrote on 07/24/2006 12:33:20 PM:   >  > Rob Brown wrote:4 > > On Mon, 24 Jul 2006 contracer11@gmail.com wrote: > > J > > > Is there any way, using a dcl procedure, to select 3 lines in a file ,  > > > randomly ? > > ) > > Sure.  DCL is a programming language.  > > < > > On the VMS FAQ, you will find a random number generator. > > H > > You can use SEARCH/STAT (for example) to find out how many lines are > > in file. > > J > > You can use the DCL OPEN command to open the file and the READ commandJ > > to read the file sequentially, discarding lines that you don't want to
 > > print. > > G > > If you had, or were willing to create, unique keys for each record, G > > you could create an indexed file and use READ/KEY and avoid reading  > > the file sequentially. > > B > > Don't forget to issue the DCL CLOSE command to close the file. > >  > >  > > -- > > F > > Rob Brown                        b r o w n a t g m c l d o t c o m: > > G. Michaels Consulting Ltd.      (780)438-9343 (voice)8 > > Edmonton                         (780)437-3367 (FAX)6 > >                                   http://gmcl.com/ >  > What I am doing wrong ??1 > procedure below only show me file first line...  >  > Alpha>> ty ap.com 
 > $ set nover  > $   now_time = F$time() ' > $   hrs = F$cvtime(now_time,, "hour") ) > $   min = F$cvtime(now_time,, "minute") ) > $   sec = F$cvtime(now_time,, "second") , > $   hun = F$cvtime(now_time,, "hundredth") > $  > $   ! - > $   ! Get a good seed to start the madness.  > $   ! 8 > $   seed = 360000 * hrs + 6000 * min + 100 * sec + hun > $   seed = seed .and. %XFFFF > $ ; > $   highval = 100           ! Get a number from 0 to 100. . > $   gosub _RANDOM           ! Get the random > $!   write sys$output random > $ open/read file users.lis   $loop: $ read file  registro  $if c .lt. random  $then  $c=c+1
 $goto loop $endif  5 Oh, and get rid of this.  You can't read a sequential = file "/index" and you probably don't have a 1-100 index value  in your data file.& > $ read/index='random' file  registro    " > $ write sys$output "''registro'" > $ close file > $exit  > $_RANDOM: 0 > $   seed = (seed * 69069 + 1) .and. %XFFFFFFFF( > $   rand = (seed / %X100) .and. %XFFFF > $   t = rand / highval > $   k = %XFFFF / highval2 > $   if rand .gt. (k * highval) then goto _RANDOM% > $   random = rand - t * highval + 1  > $ 
 > $ Return > $ open/read file users.lis& > $ read/index='random' file  registro" > $ write sys$output "''registro'" > $ close file >  > 
 > Alpha>> @ap 9 >       OpenVMS User Processes at 24-JUL-2006 11:24:22.57 
 > Alpha>> @ap 9 >       OpenVMS User Processes at 24-JUL-2006 11:24:22.57 
 > Alpha>> @ap 9 >       OpenVMS User Processes at 24-JUL-2006 11:24:22.57 	 > Alpha>>  >    ------------------------------  # Date: Mon, 24 Jul 2006 20:11:03 GMT , From: Hoff Hoffman <hoff-remove-this@hp.com>& Subject: Re: VaxStation vs. Infoserver1 Message-ID: <rP9xg.1011$vh1.796@news.cpqcorp.net>    Steven M. Schweda wrote:  I >    An announcement would be premature, but there is some hope of living C > long enough to get a recent version of cdrtools/cdrecord (such as = > 2.01.01a11 or thereabouts) for VMS, which may be able to do J > DVD-/+practically_everything.  I only recently sank my life savings ($30J > (plus tax!)) into a DVD-writing drive, so I can't yet claim to have seenI > it do much new and exciting, but a source with more and better hardware + > reports that it's not a complete failure.   D    The V8.3 recording code is a complete drop-in replacement, using A OpenVMS norms and DCL syntax, with various supporting tools, etc.   G    The V8.3 code officially provides CD-R/RW and DVD+R/RW and provides  @ for the drives that have been sold with various AlphaServer and G Integrity server drives, and if for no other reason than these are the  G first bits out of the gate and it allowed a shot at testing at least a  1 reasonable set of the options and configurations.   A    Diagnostics and related supporting tools are provided over in   SYS$ETC: in V8.3.   H    A third-party drive and an odd-ball device or two has been tried, as F well.  But there's enough variability that your widget may or may not 7 work -- DVD and CD drives are like that, unfortunately.   C    I don't have any immediate plans to port the CDRTOOLS/DVDRTOOLS  F CDRECORD.C images, nor is the V8.3 code related to it.  Somebody else  might have ported it.    ------------------------------    Date: 24 Jul 2006 17:27:00 -0500- From: Kilgallen@SpamCop.net (Larry Kilgallen) & Subject: Re: VaxStation vs. Infoserver3 Message-ID: <mI5n0IFtOGy3@eisner.encompasserve.org>   ^ In article <so4xg.970$Z_.373@news.cpqcorp.net>, Hoff Hoffman <hoff-remove-this@hp.com> writes: > Larry Kilgallen wrote:i >> In article <1153739544.149289.236410@s13g2000cwa.googlegroups.com>, "Ian Miller" <ijm@uk2.net> writes: I >>> As an alternative you can run a infoserver on VMS with VMS I64 V8.2-1 0 >>> and later and VMS ALPHA V8.3 (parhaps  V8.2) >>  * >> But not the CD writing or tape serving. > G >    CD recording is present in V7.3-2 and later via CDRECORD.COM, and  F > DVD+R/RW recording is present in V8.3 and later via the DCL command G > COPY/RECORDABLE_MEDIA.  (For those participating in the EFT for 8.3,  F > there is a downloadable PCSI installation kit that loads the latest 5 > recording bits, as well as detailed documentation.)  > J >    The InfoServer CD-R recording capabilities (InfoScribe) are specific K > to a couple of very ancient CD-R drives, and are not generalized and not  H > something I would expect to see operate with any newer CD-R/RW drives.  E And those originally $8000 burners are available on eBay for a couple D of hundred dollars.  They record CDroms that are readable on a wider8 variety of older CDrom drives than newer faster burners.   ------------------------------   Date: 25 Jul 2006 00:10:48 GMT From: healyzh@aracnet.com  Subject: XP1000 problem , Message-ID: <ea3ni802jjm@enews2.newsguy.com>  K I have an XP1000 with PowerStorm 300 and U2W-SCSI that I just received.  It H powers on, and all 8 diagnostic LED's light up.  There are no beeps, andK there is no video.  I've tried to connect a VT420 to the serial ports using J the cable for my PWS 433au, but have had no luck.  I've tried reseting the  CPU board, RAM, Video, and SCSI.  % Any suggestions would be appreciated.    Thanks,  Zane   ------------------------------  % Date: Mon, 24 Jul 2006 20:01:49 -0700 # From: "Tom Linden" <tom@kednos.com>  Subject: Re: XP1000 problem ) Message-ID: <op.tc75dbapzgicya@hyrrokkin>   @ On Mon, 24 Jul 2006 17:10:48 -0700, <healyzh@aracnet.com> wrote:  I > I have an XP1000 with PowerStorm 300 and U2W-SCSI that I just received=  .   =    > ItI > powers on, and all 8 diagnostic LED's light up.  There are no beeps, a=  ndI > there is no video.  I've tried to connect a VT420 to the serial ports =   =   > using I > the cable for my PWS 433au, but have had no luck.  I've tried reseting=    =    > the " > CPU board, RAM, Video, and SCSI. > ' > Any suggestions would be appreciated.  > 	 > Thanks,  > Zane >  > D What is the status of the LED's?  Did you reseat the daughter board?   ------------------------------   End of INFO-VAX 2006.410 ************************