1 INFO-VAX	Wed, 04 Oct 2000	Volume 2000 : Issue 554       Contents:# Re: !d!i!g!i!t!a!l! PRESS Web site?  Re: Backup Software  Re: Backup Software  Re: BASIC media  Re: BNC connectors Re: BNC connectors Re: BNC connectors Date Difference from within DCL # Re: Date Difference from within DCL  DCPS and HP4050 TRAY 3 Re: DCPS and HP4050 TRAY 3 Re: DCPS and HP4050 TRAY 3 Re: Default gateway in VMS Re: DSSI bus termination file fragmentation RE: file fragmentation Font of banner.  RE: Font of banner. # Getting Compaq to advertise OpenVMS ' RE: Getting Compaq to advertise OpenVMS ' Re: Getting Compaq to advertise OpenVMS  Help w/ DHCP server, please ' Re: help with c and vms file attributes  Re: Information a CPU's  Information a CPU's % Re: Is the bus strike affecting cets?  Logical Tables" Re: Looks like I need help again!! Re: Macro Reference  Re: MicroVax 3100 Questions  Re: MicroVax 3100 Questions  MQSeries Re: MQSeries Re: MQSeries% Re: No more SYSDUMP.DMP? No more NTP? ( Re: ODS-5 anybody using - any problems ? OpenVMS in the News. Re: OpenVMS Integrated products  PF keys  Re: PF keys  Re: PF keys  Re: Privileges needed for PHONE  Re: Privileges needed for PHONE  Re: Privileges needed for PHONE  Re: Privileges needed for PHONE  Re: Privileges needed for PHONE  Re: Problems buying an Alpha?  Re: Problems buying an Alpha? & Putting some *zip* back in our apps... Re: Reset file version number?& Re: Shark x Penguin : The OpenVMS Logo& Re: Shark x Penguin : The OpenVMS Logo8 Re: Spawn fails with "%SYSTEM-W-MBFULL, mailbox is full"8 RE: Spawn fails with "%SYSTEM-W-MBFULL, mailbox is full" Re: SWCC and Pathworks/ Re: Thinking of switching from Multinet to UCX. / Re: Thinking of switching from Multinet to UCX. " Re: This list participants profile RE: VAX8530  Re: VAX8530 $ Re: VMS error: %SYSTEM-F-IVIDENT ...$ Re: VMS error: %SYSTEM-F-IVIDENT ...$ Re: VMS error: %SYSTEM-F-IVIDENT ... volume set copying. " Why does TYPE/TAIL sometimes fail?& Re: Why does TYPE/TAIL sometimes fail?& Re: Why does TYPE/TAIL sometimes fail?  F ----------------------------------------------------------------------  $ Date: Tue, 3 Oct 2000 18:58:40 +0100; From: "Leigh G. Bowden" <LGBowden@bowdenfamily.fsnet.co.uk> , Subject: Re: !d!i!g!i!t!a!l! PRESS Web site?/ Message-ID: <8rd6mn$5hb$1@newsg3.svr.pol.co.uk>   K I thought they were now part of Butterworth-Heinman at http://www.bh.com so  unless Compaq bought them?  A Didier Morandi wrote in message <39D04099.AA951F87@Easynet.fr>... C >I heard that Digital Press is an independent company and so COMPAQ D >didn't "buy" them. Is this true? Do they have a Web site? Altavista8 >gives more than a thousand of entries for the keywords. >  >D.    ------------------------------  # Date: Tue, 03 Oct 2000 19:03:26 GMT  From: vickianne@my-deja.com  Subject: Re: Backup Software) Message-ID: <8rdahp$8df$1@nnrp1.deja.com>   4 I checked their web site and saw no support for VMS.   Vicki Abrams vabrams@siac.com  - In article <rdeininger-0310001329270001@user-  2ive6jt.dialup.mindspring.com>, 5   rdeininger@mindspring.com (Robert Deininger) wrote: E > In article <8rbq61$14f$1@nnrp1.deja.com>, matthew_tevenan@dantz.com  wrote: > G > > Hi there. I'd recommend giving Retrospect Backup a try. It supports $ > > the latest tape libraries (checkB > > <http://www.dantz.com/index.php3?SCREEN=compatibility_list> toB > > make sure yours is supported), plus gives you true incremental? > > backups and easy, one-step restores. Give the free trial at  > > www.betterbackup a whirl.  > F > I generally recommend Retrospect also -- for Macs.  I didn't realize4 > Dantz had branched out and started supporting VMS. >  > -- > Robert Deininger > rdeininger@mindspring.com  >     & Sent via Deja.com http://www.deja.com/ Before you buy.    ------------------------------  % Date: Tue, 03 Oct 2000 13:46:09 -0700 + From: Linda Luik <p14175@email.sps.mot.com>  Subject: Re: Backup Software1 Message-ID: <39DA4591.D20C2413@email.sps.mot.com>   , This is a multi-part message in MIME format.& --------------BC39766454766AF1DDAFB223* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit   G I found the following VMS backup software. Veritas NetBackup supposedly D has a VMS client but I can't get any feedback from the company. NoteC that most of these applications will also backup NT and and several B flavors of Unix and the usual database applications. My department: ignored these suggestions because they aren't Unix based.   C There is a problem which I am not sure if it has been resolved: The F Multinet command RMTALLOC doesn't work with Alpha OpenVMS version 7.x.F The backup utility in VMS was rewritten for the 7.x versions. The idea= of installing the 6.x backup utility is not very appealling.    3 XS-OpenBACKUP 			http://www.xuis.co.uk/openback.htm @ HYPERtape Enterprise Backup	http://www.bhead.co.uk/hypertape.htm, ISE Enterprise BACKUP		http://www.i-s-e.com/0 Vault98				http://www.commvault.com/vault98.html Archive/Backup System	: http://www.openvms.compaq.com/openvms/storage/abspage.html  
 Linda Luik     vickianne@my-deja.com wrote: > 6 > I checked their web site and saw no support for VMS. >  > Vicki Abrams > vabrams@siac.com > / > In article <rdeininger-0310001329270001@user- ! > 2ive6jt.dialup.mindspring.com>, 7 >   rdeininger@mindspring.com (Robert Deininger) wrote: G > > In article <8rbq61$14f$1@nnrp1.deja.com>, matthew_tevenan@dantz.com  > wrote: > > I > > > Hi there. I'd recommend giving Retrospect Backup a try. It supports & > > > the latest tape libraries (checkD > > > <http://www.dantz.com/index.php3?SCREEN=compatibility_list> toD > > > make sure yours is supported), plus gives you true incrementalA > > > backups and easy, one-step restores. Give the free trial at  > > > www.betterbackup a whirl.  > > H > > I generally recommend Retrospect also -- for Macs.  I didn't realize6 > > Dantz had branched out and started supporting VMS. > >  > > -- > > Robert Deininger > > rdeininger@mindspring.com  > >  > ( > Sent via Deja.com http://www.deja.com/ > Before you buy. & --------------BC39766454766AF1DDAFB223- Content-Type: text/x-vcard; charset=us-ascii;   name="p14175.vcf" Content-Transfer-Encoding: 7bit ( Content-Description: Card for Linda Luik  Content-Disposition: attachment;  filename="p14175.vcf"   begin:vcard  n:Luik;Linda tel;pager:1.888.772.5230 tel;fax:480.655.3569 tel;work:480.655.4432    x-mozilla-html:FALSE 	-mozilla-cpt:;3344;;;( org:Motorola  SPS ;IT-CIM maildrop: M555 version:2.1 & email;internet:linda.luik@motorola.com6 title:Regional VMS Systems Adminstrator/Backup Analyst5 adr;quoted-printable:;;2200 W. Broadway Road  =0D=0A=  fn:Luik, Linda	 end:vcard   ( --------------BC39766454766AF1DDAFB223--   ------------------------------  % Date: Tue, 03 Oct 2000 18:08:31 -0400 ) From: yyyc186.illegaltospam_@flashcom.net  Subject: Re: BASIC media9 Message-ID: <39da58ed$1$lllp186$mr2ice@news.flashcom.com>   . In <39D9D126.ED714853@wi.rr.com>, on 10/03/00 4    at 06:08 PM, Scott Vieth <svieth@wi.rr.com> said:  = All well and good.  Thankfully I got the answer on the phone.    Roland  H >If you are looking for the BASIC compiler for your hobbyist system, allG >you have to do is ask someone who subscribes to the ConDist if you can  >have one of their old CDs.   4 >As Hoff says, "Ask question here, get answer here."   >-Scott ;^)   + >yyyc186.illegaltospam_@flashcom.net wrote:    >> All,  >>M >> I have the hobbiest distribution on my Alpha.  It comes with a license for J >> BASIC but no distribution media.  What is the best avenue for obtainingJ >> the software distribution?  Plunking down the full $500 with DEC.  As IK >> recall that was the cost for my commercial VAX system back when I set it  >> up. >>3 >> Please feel free to private email on this issue.  >>	 >> Roland  >> >> -- > >> -----------------------------------------------------------G >> yyyc186@flashcom.net              To Respond delete ".illegaltospam" 9 >>                             MR/2 Internet Cruiser 1.52 ; >>                             For a Microsoft free univers > >> -----------------------------------------------------------   --  ; ----------------------------------------------------------- D yyyc186@flashcom.net              To Respond delete ".illegaltospam"6                             MR/2 Internet Cruiser 1.528                             For a Microsoft free univers; -----------------------------------------------------------    ------------------------------  $ Date: Tue, 3 Oct 2000 14:47:23 -0400. From: "Steven Shamlian" <not.an@earthling.net> Subject: Re: BNC connectors 2 Message-ID: <8rd9kl$t9h$1@slb7.atl.mindspring.net>   Hello again,G The CPU model number is VS48K-AA.  The connector on the back looks like L three female RCA connectors (ya know, those ones you would use for compositeK video) except about 3/16" diameter (that's about 4mm for those of you whose > country has a decent system of measurement).  The three have aK D-connector-esque metal piece around them (for protection?  alignment?) and I require one to plug an adapter from these three things to R, G, and B BNC  connectors.  Thanks for the help, =+=Steven Shamlian=+=   A "John Laird" <john@laird-towers.freeserve.co.uk> wrote in message 2 news:3dujtsg219eibj7f9krjik5udum3ts5o8l@4ax.com...6 > On Mon, 2 Oct 2000 21:54:53 -0400, "Steven Shamlian" > <not.an@earthling.net> wrote:  > 0 > >The VAX in question is a VAXStation 4000 VLC. > I > I hesitate to point you at DejaNews as it seems to have the memory span F > of a particularly forgetful goldfish these days, but there have beenH > several threads regarding VLC graphics specs and monitor compatibilityC > over recent years.  Suffice it to say the answer is: it depends !  > I > Tell us what the video connector on the VLC looks like, or identify the H > CPU model number (VS48K-XX), and you will receive further help.  ThereI > were three graphics options, one which was truly VGA, and the other two E > which were "workstation" sync-on-green fixed frequency devices.  To G > support these latter two, you'd need a monitor which not only has BNC J > connectors but describes itself as "multisync" and mentions the sync-on-F > green capability.  Finally, the most expensive card was 1280x1024 atI > 72Hz which had a 130Mhz dot clock, and you may find some monitors can't  > handle this bandwidth at all.  > F > In the UK, I would get hold of a high-end Iiyama 17" or 19" screen -H > these will handle just about anything and are very fine tubes to boot. >  > John > -- > John Laird   ------------------------------  % Date: Tue, 03 Oct 2000 21:27:30 +0100 + From: "antonio.carlini" <arcarlini@iee.org>  Subject: Re: BNC connectors ' Message-ID: <39DA4132.153FE432@iee.org>    Steven Shamlian wrote: >  > Hello again,I > The CPU model number is VS48K-AA.  The connector on the back looks like N > three female RCA connectors (ya know, those ones you would use for compositeM > video) except about 3/16" diameter (that's about 4mm for those of you whose @ > country has a decent system of measurement).  The three have aM > D-connector-esque metal piece around them (for protection?  alignment?) and K > require one to plug an adapter from these three things to R, G, and B BNC 
 > connectors.   2 That sounds like the interface to a synch-on-green6 monitor. As already mentioned, Iiyama monitors seem to7 do synch-on-green (at least mine does) as well as SVGA.   9 The monitor lead you need sounds like a BC29G (it weasn't 1 clear to me whether you already have one or not).   7 If you set the machine to use the alternate console and 1 hook up a terminal to the printer port you should 4 be able to get to the console (>>> prompt). Then you% should be able to type something like   >>> SHOW CONFIG4 and you will get a bunch of info about what you have7 including the type of video card in there (LCG or LCSPX 
 or somesuch).    Antonio    --------------- - Antonio Carlini             arcarlini@iee.org    ------------------------------  $ Date: Tue, 3 Oct 2000 19:52:12 -0400. From: "Steven Shamlian" <not.an@earthling.net> Subject: Re: BNC connectors 2 Message-ID: <8rdrgp$7n6$1@slb0.atl.mindspring.net>  G Alrighty, I've got a NANAO monitor that (after reading the manual) does L synch-on-green.  Thanks for the help, now I can plug in the VAX without fear# of it (the monitor) blowing up!  =)  =+=Steven Shamlian=+=   6 "antonio.carlini" <arcarlini@iee.org> wrote in message! news:39DA4132.153FE432@iee.org...  >  >  > Steven Shamlian wrote: > >  > > Hello again,K > > The CPU model number is VS48K-AA.  The connector on the back looks like F > > three female RCA connectors (ya know, those ones you would use for	 composite I > > video) except about 3/16" diameter (that's about 4mm for those of you  whose B > > country has a decent system of measurement).  The three have aK > > D-connector-esque metal piece around them (for protection?  alignment?)  and I > > require one to plug an adapter from these three things to R, G, and B  BNC  > > connectors.  > 4 > That sounds like the interface to a synch-on-green8 > monitor. As already mentioned, Iiyama monitors seem to9 > do synch-on-green (at least mine does) as well as SVGA.  > ; > The monitor lead you need sounds like a BC29G (it weasn't 3 > clear to me whether you already have one or not).  > 9 > If you set the machine to use the alternate console and 3 > hook up a terminal to the printer port you should 6 > be able to get to the console (>>> prompt). Then you' > should be able to type something like  >  >>> SHOW CONFIG6 > and you will get a bunch of info about what you have9 > including the type of video card in there (LCG or LCSPX  > or somesuch).  > 	 > Antonio  >  > --------------- / > Antonio Carlini             arcarlini@iee.org    ------------------------------  $ Date: Tue, 3 Oct 2000 15:16:21 -04003 From: "Frank D. Nicodem, Jr." <Nicodem@InfoAve.Net> ( Subject: Date Difference from within DCL- Message-ID: <8rdbda$4fna$1@news3.infoave.net>   J Does anyone have a decent procedure to do a "date difference" from DCL?  IL have two VMS dates, and I'd like to find the number of days between them.  IG could do it by "brute force", but I hate to have to always have to play H around with the number-of-dates-in-each-month thingie.  I was curious if+ anyone had encountered a similar situation.  -- Frank D. Nicodem, Jr.  Nicodem@InfoAve.Net    ------------------------------  % Date: Tue, 03 Oct 2000 15:52:32 -0400 R From: jamese@beast.dtsw.army.mil (Ed James, 410-295-1919, ed.james@telecomsys.com), Subject: Re: Date Difference from within DCL0 Message-ID: <00100315523196@beast.dtsw.army.mil>  6 "Frank D. Nicodem, Jr." <Nicodem@InfoAve.Net> wrote onD Tue, 3 Oct 2000 15:16:21 -0400 in <8rdbda$4fna$1@news3.infoave.net>:  L > Does anyone have a decent procedure to do a "date difference" from DCL?  IN > have two VMS dates, and I'd like to find the number of days between them.  II > could do it by "brute force", but I hate to have to always have to play J > around with the number-of-dates-in-each-month thingie.  I was curious if- > anyone had encountered a similar situation.   H Attached are several several routines I have saved over over some years. HTH.  : Ed James                           ed.james@telecomsys.com5 TeleCommunications Systems, Inc.   voice 410-295-1919 ; 2024 West Street, Suite 300              800-810-0827 x1919 5 Annapolis, MD 21401-3556           fax   410-280-1094   M ============================================================================= ! jr:[DATE]DAYS_BETWEEN_DATES.SRC;1 5 From:	SMTP%"MARTIN@radiogaga.harz.de" 980608 10100880  To:	JAMESVE1 CC:	( Subj:	Re: Number of Days Between 2 Dates  2 From: martin@radiogaga.harz.de (Martin Vorlaender) X-Newsgroups: comp.os.vms + Subject: Re: Number of Days Between 2 Dates  Distribution: world * Message-Id: <4j2thj$tud@nntpd.lkg.dec.com>% Date: Sun, 07 Jun 1998 16:42:08 +0200 " Reply-To: MARTIN@radiogaga.harz.de Organization: home# X-Newsreader: TIN [version 1.2 PL2] = X-Posting-Software: UUPC/extended 1.12j inews (25May94 07:51) 	 Lines: 81  To: Info-VAX@mvb.saic.com  X-Gateway-Source-Info: USENET  content-length: 0   / Phillip J. Sloan (phil_sloan@us.wfl.com) wrote:OH : Is there a VMS function that will compute the number of days between 2 : dates?  E As you don't care to specify which language you're asking for, I willeC assume DCL (for any compiled programming language: there is a wholeeB chapter about time operations in the Programming Concepts manual).  H It's been a bit, but I'm sure you could have found the following article on DejaNews...   cu,    Martin   [---CUT---]i= From: vandenheuvel@eps.enet.dec.com (Hein RMS van den Heuvel)n Newsgroups: comp.os.vms F Subject: Re: A general answer to a specific problem (date differences) Date: 25 MAR 96 02:18:54+ Organization: Digital Equipment Corporation,* Message-ID: <4j2thj$tud@nntpd.lkg.dec.com>  5 welchb@woods.uml.edu (Brendan Welch, W1LPG) writes...eD >Allow me to rant and rave, folks; I think the subject is important.; >In response to a question about displaying system up-time,uF >I include here snippets from 2 of the responses  (you can search back :sK >The form used by DEC's CSC to solve the very same problem is also a prime e6 >paradigm of cleaness, a different approach to DCL.   D >CSC should study Carl; Carl should study CSC.  I like to have both.( >Does _anyone_ else in the world notice?  / Sure, and we look for more solution styles too.eH Included to more styles, but admittedly limited to just days difference.L First, using date math to approximate difference, plus a few loop iterations to find solution.r  N $! With p1 being smaller than p2 but no more than 9995 days (27 years) apart.. $ C $ x = (36525 * ('F$CVTIME(p2,,"YEAR")'  - 'F$CVTIME(p1,,"YEAR")') - K       + 3044 * ('F$CVTIME(p2,,"MONTH")' - 'F$CVTIME(p1,,"MONTH")')) / 100 - 5       + 'F$CVTIME(p2,,"DAY")' - 'F$CVTIME(p1,,"DAY")'h6 $ p1 = F$CVTIME(p1,"ABSOLUTE","DATE") ! Drop time part $ p2 = F$CVTIME(p2,,"DATE")A	 $ try = 0  $ loop:  $   days = x + try $   try = - try $ $   IF try .GE. 0 THEN try = try + 1I $   IF p2.NES.F$CVTIME(p1 + "+" + "''days'" + "-",,"DATE") THEN GOTO loopA( $ write sys$output "Difference = ", days  F Next, a rather clean solution, with NO LOOP, using days from base date  with the old leap year formulas:  0 $ if p2 .eqs. "" then p2 = f$cvtime(,"absolute")
 $date = p1 $gosub calculate_day_numberw $d1 = day_number n
 $date = p2 $gosub calculate_day_numberP $d2 = day_number sO $write sys$output "first = ", d1, ", second = ", d2, ", difference = ", d1 - d2u $exitt $e $calculate_day_number:+ $ year  = f$integer(f$cvtime(date,,"year"))M, $ month = f$integer(f$cvtime(date,,"month"))* $ day   = f$integer(f$cvtime(date,,"day"))& $ julian_day = (month-1) * 31 + day  -*     - (month .ge. 3) * (4*month+23)/10  -	:     + ((month .ge. 3) .and. ((year/4)*4 .eq. year) .and.- A     (((year/100)*100 .ne. year) .or. ((year/400)*400 .eq. year))) 7 $ day_number = 44 + (year-1859)*365 + (year-1857)/4 - -yM     (year-1801)/100 + (year-1601)/400 + julian_day ! base date is 17-Nov-1858c $return  --D                           | Martin Vorlaender | VMS & WNT programmer3  Ceterum censeo           | work: mv@pdv-systeme.de@J  Redmondem delendam esse. |       http://www.pdv-systeme.de/users/martinv/:                           | home: martin@radiogaga.harz.de    @ From:	SMTP%"ODONOVANB@nwb.newportwaferfab.co.uk" 980608 10100165 To:	JAMESVE1 CC:	( Subj:	Re: Number of Days Between 2 Dates  / From: NoT <ODONOVANB@nwb.newportwaferfab.co.uk>n X-Newsgroups: comp.os.vmst+ Subject: Re: Number of Days Between 2 Dates,$ Message-Id: <01IXZKQZ40B08Y64L7@NWB>+ Date: Mon, 08 Jun 1998 08:47:43 +0000 (GMT) - Organization: Info-Vax<==>Comp.Os.Vms Gateway # X-Gateway-Source-Info: Mailing Listt
 Lines: 115 To: Info-VAX@mvb.saic.com  content-length: 0o   DCL?  @ There's no date-diff DCL function (as far as I know) so I used aC method of approximations - gradually reducing the range until I hite	 the spot.   F The procedure below calculates time until the year 2000, but it may b= er possible to generalise...l  = I'd welcome comments on this issue, as I'm always looking for9
 improvements.l  
 best regards,      '=F6-Dzin-   $  Verify =3D 'F$VERIFY(0)'- $!+-F $!  File name: Year2000.Com -- Calculates the time remaining to the y= ear 2000 $!3 $!  Calculates the time remaining to the year 20000a $! $!  Author:    Brian O'Donovan $! $!  Revision history:b $!6 $!  version : dd-mmm-yyyy : account name : description2 $!  01.00   : 02-Jun-1998 : OdonovanB    : Written $! $!-  $! $!+fA $!  Estimate the maximum and minimum number of days between whichhE $!  1/1/2000 must lie.  Keep improving the estimeate until we hit thew $!  day. $!-u- $  DayBeg =3D (2000-F$CVTIME(,,"YEAR")-1)*365a+ $  DayEnd =3D (2000-F$CVTIME(,,"YEAR"))*365e $loop: $  DayDif =3D DayEnd-DayBeg  $  DayMid =3D DayBeg+DayDif/2o- $  DteBeg =3D F$CVTIME("+''DayBeg'-",,"DATE")i- $  DteEnd =3D F$CVTIME("+''DayEnd'-",,"DATE")	- $  DteMid =3D F$CVTIME("+''DayMid'-",,"DATE") 3 $  IF ("''DteMid'".EQS."2000-01-01") THEN $GOTO Endm; $  IF ("''DteMid'".LTS."2000-01-01") THEN DayBeg =3D DayMidt; $  IF ("''DteMid'".GTS."2000-01-01") THEN DayEnd =3D DayMidt $  GOTO Loop $End:a $! $!+n% $!  Calculate minutes remaining today  $!-i@ $  MinRem =3D 24*60-(F$CVTIME(,,"HOUR")*60+F$CVTIME(,,"MINUTE")) $! $!+r$ $!  Make this into hours and minutes $!-i $  Hrs =3D MinRem/60 $  Mns =3D MinRem-(Hrs*60) $! $!+  $!  Subtract 1 from the days $!-  $  DayMid =3D DayMid - 1 $  OutLin =3D F$FAO -)      (- F      "There are !SL day!%S, !SL hour!%S and !SL minute!%S until 1st J= anuary 2000", -       DayMid, Hrs, Mns-      ) $  WRITE SYS$OUTPUT "''OutLin'"s $  EXIT  $End:h  $  EXIT 1 + 0 * F$VERIFY(Verify)    F > On Fri, 5 Jun 1998 19:31:24, phil_sloan@us.wfl.com (Phillip J. Sloa= n) > wrote:  F > > Is there a VMS function that will compute the number of days betw= een 2r
 > > dates? > >   F > You can do it in COBOL using the intrinsic function INTEGER OF DATE=  onn9 > the 2 dates in question then do a straight subtraction.       F `'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*-=
 ,._.,-*~'`F Brian 'o-Dzin Tridral O'Donovan                            Promis Sys=
 tems GroupF P: NWL, Cardiff Road, Newport, NP9 1YJ                               =         =20eF E: not.work@altavista.net     (work)    E: not@altavista.net         =  (home)iF W: www.nwl-eur.co.uk          (work)    W: www.aroter.org            =  (home)cF T: +44(0)1633-810121 x278     (work)    T: on request                =
  (home)   =20oF F: +44(0)1633-810820          (work)    F: +44(0)171-6812208         =  (home)PF      The woods are lovely, dark and deep / but I have promises to kee= p /mF      Amd miles to go before I sleep         -- Frost, The Road Not Ta= keneF `'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*-=
 ,._.,-*~'`  M =============================================================================0' jr:[DATE]DAYS_BETWEEN_DATES_AGAIN.SRC;1s8 From:	SMTP%"vaxs09@alpha.tst.tracor.com" 980611 16045418 To:	JAMESVE1 CC:	( Subj:	RE: Number of Days Between 2 Dates  / From: vaxs09@alpha.tst.tracor.com (John Briggs)  X-Newsgroups: comp.os.vmso+ Subject: RE: Number of Days Between 2 Datesg3 Message-Id: <1998Jun11.155923@alpha.tst.tracor.com>  Date: 11 Jun 98 15:59:23 -0400 Organization: Vitro Corporationu	 Lines: 73 / X-Trace: 11 Jun 1998 16:00:26 -0500, 149.32.1.2o To: Info-VAX@mvb.saic.como X-Gateway-Source-Info: USENET   C If binary search curdles your stomach as much as it does mine, lookp5 at the following.  No loops and quite understandable.   F It passed the test cases I fed it.  (Which is, of course, no guarantee at all).  * 	John Briggs			vaxs09@alpha.tst.tracor.com   $! Datediff.com. $!: $! Input P1, and P2 as VMS dates (suitable for F$CVTIME())/ $! Output (printed) days between the two dates.  $!
 $! Algorithm:n $!3 $!  0.  Without loss of generality assume D2 >= D1.a $! $!  1.  365 * (D2-D1)R $!1 $!  2.  Plus (Y2/4 minus Y1/4) 		! Standard leaps-7 $!      Minus (Y2/100 minus Y1/100)	! Century non-leaps 2 $!      Plus (Y2/400 minus Y1/400)	! Century leaps $!9 $!  3.  Minus 1 if Y2 is leap and M2 <= 2.	! Edge effects ) $!      Plus 1 if Y1 is leap and M1 <= 2.v $!= $!  4.  Plus day-number-within-hypothetical-non-leap-year(D2)-9 $!	Minus day-number-within-hypothetical-non-leap-year(D1)- $!A $!	Note that 29-FEB = 01-MAR in the above day number calculation.a $!H $! There is an overflow problem past the year 9999 due to a field length $! limitation in F$CVTIME. $!!r0 $!! (Insert input prompting and validation here) $!!-! $	DATE1 = F$CVTIME(p1,"ABSOLUTE")-! $	DATE2 = F$CVTIME(p2,"ABSOLUTE")2 $	Sense = "after" * $	IF f$cvtime(DATE1) .gts. f$cvtime(DATE2) $	THEN% $	    DATE1 = F$CVTIME(p2,"ABSOLUTE")8% $	    DATE2 = F$CVTIME(p1,"ABSOLUTE")  $	    Sense = "before" $	ENDIFr $ ) $	Y1 = F$INTEGER(F$CVTIME(DATE1,,"YEAR"))l* $	M1 = F$INTEGER(F$CVTIME(DATE1,,"MONTH"))( $	D1 = F$INTEGER(F$CVTIME(DATE1,,"DAY"))) $	Y2 = F$INTEGER(F$CVTIME(DATE2,,"YEAR"))o* $	M2 = F$INTEGER(F$CVTIME(DATE2,,"MONTH"))( $	D2 = F$INTEGER(F$CVTIME(DATE2,,"DAY")) $! $	DAYS = 365 * ( Y2 - Y1 ) $!? $	DAYS = DAYS + Y2/4 - Y1/4 - Y2/100 + Y1/100 + Y2/400 - Y1/400o $!1 $	IF M2 .LE. 2 .AND. ( ( Y2 .EQ. Y2/4 * 4 .AND. - ( 			       Y2 .NE. Y2/100 * 100 )  .OR. -3 			     Y2 .EQ. Y2/400 * 400 ) THEN DAYS = DAYS - 1w1 $	IF M1 .LE. 2 .AND. ( ( Y1 .EQ. Y1/4 * 4 .AND. -g( 			       Y1 .NE. Y1/100 * 100 )  .OR. -3 			     Y1 .EQ. Y1/400 * 400 ) THEN DAYS = DAYS + 1  $!< $	DAY_TABLE = "/0/31/59/90/120/151/181/212/243/273/304/334/"0 $	DAYS = DAYS + F$ELEMENT(M2,"/",DAY_TABLE) + D20 $	DAYS = DAYS - F$ELEMENT(M1,"/",DAY_TABLE) - D1 $!!f: $!! Worry about hours minutes and seconds here if desired. $!!nM $	WRITE SYS$OUTPUT F$FAO ( "!AS is !SL day!%S !AS !AS", P2, DAYS, SENSE, P1 )v $r $	exit  M =============================================================================o) jr:[DATE]DAYS_BETWEEN_DATES_ANOTHER.SRC;1f/ From:	SMTP%"btaube@infoave.net" 980609 11035385l To:	JAMESVE1 CC:	( Subj:	Re: Number of Days Between 2 Dates  & From: btaube@infoave.net (Bruce Taube) X-Newsgroups: comp.os.vmso+ Subject: Re: Number of Days Between 2 Dates ! Date: Sun, 07 Jun 98 00:10:57 GMT " Organization: Info Avenue Internet	 Lines: 56c, Message-Id: <6ljib9$7nu$1@news2.infoave.net>% X-Newsreader: News Xpress 2.0 Beta #2y To: Info-VAX@mvb.saic.comi X-Gateway-Source-Info: USENETz  ^ In article <357a748a.151317362@152.51.20.123>, phil_sloan@us.wfl.com (Phillip J. Sloan) wrote:A >On Fri, 05 Jun 98 20:55:15 GMT, btaube@infoave.net (Bruce Taube)  >wrote:n > H >>Try using lexicals.  There is one called f$cvtime which enables you to >>manipulate date and times. > E >I've tried different combinations of f$cvtime, but I couldn't get it 	 >to work.t >oG Try this.  It looks messy and I'm sure there is an easier way to do it,  but it seems to work.o   $! p1 is starting date $! p2 is ending date $if p2 .eqs. "" then exiti $! test input values $on warning then exitl $x = f$cvtime(p1,"comparison") $y = f$cvtime(p2,"comparison") $on warning then continuee1 $months = "/31/28/31/30/31/30/31/31/30/31/30/31/"r $! extract integer values * $s_date = (f$cvtime(p1,"absolute","DATE"))) $s_year = f$integer(f$cvtime(p1,,"YEAR"))i+ $s_month = f$integer(f$cvtime(p1,,"MONTH")) ' $s_day = f$integer(f$cvtime(p1,,"DAY"))o* $e_date = (f$cvtime(p2,"absolute","DATE"))) $e_year = f$integer(f$cvtime(p2,,"YEAR"))a+ $e_month = f$integer(f$cvtime(p2,,"MONTH"))e' $e_day = f$integer(f$cvtime(p2,,"DAY"))h- $! convert both dates to total number of days  $! get starting number of days) $s_day_diff = (s_year * 365) + (s_year/4)  $s_loop: $s_month = s_month - 1! $if s_month .lt. 1 then goto sdays: $s_day_diff = s_day_diff + (f$element(s_month,"/",months)) $goto s_loop $sday:  $s_day_diff = s_day_diff + s_day $! get ending number of days* $e_day_diff = (e_year * 365) + ( e_year/4) $e_loop: $e_month = e_month - 1! $if e_month .lt. 1 then goto edayh: $e_day_diff = e_day_diff + (f$element(e_month,"/",months)) $goto e_loop $eday:  $e_day_diff = e_day_diff + e_day- $day_diff = f$string(e_day_diff - s_day_diff)-E $write sys$output "The difference between ''s_date' and ''e_date' is i ''day_diff' days."   Bruce Taube: Info Avenue Internet   gL From:	SMTP%"Paddy.O\sBrien@transgrid.nswgovgrid.telememo.au" 980611 06065101 To:	JAMESVE1 CC:	( Subj:	RE: Number of Days Between 2 Dates  4 From: Paddy.O'Brien@transgrid.nswgovgrid.telememo.au X-Newsgroups: comp.os.vmsw+ Subject: RE: Number of Days Between 2 Datesn# Message-Id: <73780761@MVB.SAIC.COM>   Date: 11 Jun 1998 20:15:55 +1000- Organization: Info-Vax<==>Comp.Os.Vms Gateway # X-Gateway-Source-Info: Mailing Listo	 Lines: 97i To: Info-VAX@mvb.saic.como   --smxr-98061120155711357  ; Brian, I think the title says all that you are replying to:f  H >Try this.  It looks messy and I'm sure there is an easier way to do it, >but it seems to work. >  >$! p1 is starting datee >$! p2 is ending date  >$if p2 .eqs. "" then exit >$! test input valuesu >$on warning then exit >$x = f$cvtime(p1,"comparison")  >$y = f$cvtime(p2,"comparison")  >$on warning then continue2 >$months = "/31/28/31/30/31/30/31/31/30/31/30/31/" >$! extract integer values n+ >$s_date = (f$cvtime(p1,"absolute","DATE"))i* >$s_year = f$integer(f$cvtime(p1,,"YEAR")), >$s_month = f$integer(f$cvtime(p1,,"MONTH"))( >$s_day = f$integer(f$cvtime(p1,,"DAY"))+ >$e_date = (f$cvtime(p2,"absolute","DATE"))e* >$e_year = f$integer(f$cvtime(p2,,"YEAR")), >$e_month = f$integer(f$cvtime(p2,,"MONTH"))( >$e_day = f$integer(f$cvtime(p2,,"DAY")). >$! convert both dates to total number of days >$! get starting number of dayse* >$s_day_diff = (s_year * 365) + (s_year/4)	 >$s_loop:t >$s_month = s_month - 1a" >$if s_month .lt. 1 then goto sday; >$s_day_diff = s_day_diff + (f$element(s_month,"/",months))n
 >$goto s_loop- >$sday:-! >$s_day_diff = s_day_diff + s_day  >$! get ending number of days-+ >$e_day_diff = (e_year * 365) + ( e_year/4) 	 >$e_loop:4 >$e_month = e_month - 1e" >$if e_month .lt. 1 then goto eday; >$e_day_diff = e_day_diff + (f$element(e_month,"/",months))a
 >$goto e_loope >$eday: ! >$e_day_diff = e_day_diff + e_day . >$day_diff = f$string(e_day_diff - s_day_diff)F >$write sys$output "The difference between ''s_date' and ''e_date' is  >''day_diff' days."o  Q May I offer a couple of suggestions.  These are untested because I cannot create eN a time-span outside normal work.  And I assert that all comments are untested.  O If the symbol months is set as cumulative, it avoids the loops to evaluate the -B days.  This method also requires that element 0 is set to 0, i.e.,O $ months = "0/31/59/90 ..."  The calculation of days up to end of the previous iQ month is done by using the element month-1 (this is why element 0 must be set to kN 0); days are then still added.  The days to the end of the previous month are . f$integer(f$element(months-1),"/",s(e)_month))  N Is f$integer actually necessary?  I have usually found, but a few exceptions, P and these might be some, that f$cvtime results are normally promoted to integer Q values and can be used in subsequent calculations as such.  Could well be wrong, uP since this promotion is an area I have generally found to be fuzzy (Hoff or any N other expert, are there any rules that I have not found in the documentation).  L I am also not sure, on an initial untested reading, that your code for leap O years is correct for e.g., P1 = 01-MAR-1992 and P2 = 28-FEB-1996 (I'm avoiding uP Y2K issues).  Your code looks as if this could be 1 or more likely 2 days out.  < If I get space, I might test against SYS$BINTIM and friends.  P Your code also only applies only to years 1901 to 2099, but then how many of us 2 are too worried about years outside that range :-)  1J Definitely, a nice first attempt (as admitted), so I hope my comments are  useful.a   Regards, Paddy   Paddy O'Brien, System Planning,
 TransGrid, PO Box A1000, Sydney South,  NSW 2000, Australias   Tel:   +61 2 9284-3063 Fax:   +61 2 9284-3148& Email: paddy.o'brien@zzz.tg.nsw.gov.au  = (For those who have trouble with my name, mail can be sent tov< stephen.boroczky@ same address.  If possible, can you prefix4 the subject with "For POB" for Steve's convenience.)     --smxr-98061120155711357  @ VMSmail To information: TGMAIL::IN%"btaube@infoave.net",info_vax   --smxr-98061120155711357--  M =============================================================================c% jr:[DATE]DAYS_BETWEEN_DATES_DCL.SRC;1k8 From:	SMTP%"Michael.Rechtman@compaq.com" 990608 04143004 To:	JAMESVE1 CC:	 Subj:	Re: Time Differencee  % Date: Tue, 08 Jun 1999 10:19:21 +0300a4 From: Michael Rechtman <Michael.Rechtman@compaq.com> Subject: Re: Time Difference To: Info-VAX@Mvb.Saic.Coma% Reply-to: Michael.Rechtman@compaq.coml& Message-id: <375CC3F9.71CA@compaq.com> Organization: Compaq MIME-version: 1.0R% X-Mailer: Mozilla 3.04Gold (Win95; I)e* Content-type: text/plain; charset=us-ascii Content-transfer-encoding: 7BITn
 Lines: 126 X-Gateway-source-info: USENETp X-Newsgroups: comp.os.vmso   Ed Wilts wrote:  >  > Paul Nankervis wrote:l > > B > > I am setting up a small DCL procedure in which I would like to= > > determine the delta time from now until some future time.e > > E > > I note that f$cvtime() can only add or subtract a delta time fromsD > > an absolute time - to generate an absolute time. Ideally I would> > > like to subtract an absolute time from an absolute time toF > > generate a delta time difference (without having to get too clever > > or write a program...) > >e; > > Has anyone got a simple piece of DCL which can do this?eD > > This is not a big deal but it would simplify some DCL procedures > > we have... > J > It's not DCL, but a LONG time ago I posted to vmsnet.archives the sourceD > for TIME, a great utility for doing this kind of stuff.  You couldB > easily compare times, ask it for the first Tuesday of the month,F > generate delta times from a pair of absolute times, add and subtractH > times, etc.  Hopefully it got archived somewhere.  I'm not even sure I@ > have all the sources anymore (they were in Fortran and Macro). >  > Good luck, >         .../Ed9 For some _really_ simple DCL, good between 1901 and 2099:H  A $! Procedure to find difference in minutes between two DATE/TIMEs" $!0 $! Input: P1, P2 "DD-MMM-YYYY HH:MM:..." strings $!! $! Output: Difference in minutes.t $!E $!                                                      Mike Rechtmana 1995
 $ GOSUB SETUP" $! $ M1 = 0 $ Call FIND_TIME "''P1'"$ $ IF RESULT .LT. 0 THEN EXIT %X38290
 $ M1 = RESULTn $ SHO SYM M1 $! $ M2 = 0 $ CALL FIND_TIME "''P2'"$ $ IF RESULT .LT. 0 THEN EXIT %X38290
 $ M2 = RESULT  $ SHO SYM M2 $!
 $ M = M2 - M1d0 $ WRITE SYS$OUTPUT "difference is ''M' minutes." $ EXIT $! $! SUBROUTINES:r $! ------------$ $ SETUP: $       MON0 = 0 $       MON1 = 31n $       MON2 = 59, $       MON3 = 90d $       MON4 = 120 $       MON5 = 151 $       MON6 = 181 $       MON7 = 212 $       MON8 = 243 $       MON9 = 273 $       MON10 = 304y $       MON11 = 334r $       MON12 = 3650, $       MESSAGE_STATE = F$ENVIRON("MESSAGE") $       RETURN	 $       !  $ FIND_TIME:" $                       SUBROUTINE" $       !               ---------- $       RESULT == -1
 $       S = 1a $       SET NOON# $       SET MESSAGE/NOF/NOI/NOS/NOT  $       ON ERROR THEN GOTO OOPSd+ $       DATE = F$CVTIME("''P1'","ABSOLUTE")w $       S = $STATUSr" $       SET MESSAGE'MESSAGE_STATE'3 $       IF ( S .AND. %XFFFF ) .NE. 1 THEN GOTO OOPS"% $       YEAR = F$CVTIME(DATE,,"YEAR")0- $       IF YEAR .LT. 1990 .OR. YEAR .GT. 2000b $       THEN8 $               WRITE SYS$OUTPUT "Year is out of range." $               GOTO OOPSo
 $       ENDIF:4 $       MONTH = F$INTEGER( F$CVTIME(DATE,,"MONTH") )# $       DAY = F$CVTIME(DATE,,"DAY")u% $       HOUR = F$CVTIME(DATE,,"HOUR")i) $       MINUTE = F$CVTIME(DATE,,"MINUTE")e $!
 $ COMPUTE: $       I = 1990 $       TEMP1 = 0V $ YEAR_LOOP: $       I = I + 1  $       IF I .LT. YEAR $       THEN# $               TEMP1 = TEMP1 + 365dF $               IF (I .AND. 3) .EQ. 0 THEN TEMP1 = TEMP1 + 1    ! Leap Year $               GOTO YEAR_LOOP
 $       ENDIFn $! $ MONTH: $       I = MONTH - 1  $       TEMP2 = MON'I'< $       IF ( (YEAR .AND. 3) .EQ. 0 ) .AND. (I .GE. 2) THEN -0 		TEMP2 = TEMP2 + 1       ! We're in a leap year $!& $       DAYS = TEMP1 + TEMP2 + DAY - 18 $       RESULT == ( ( DAYS * 24 ) + HOUR ) * 60 + MINUTE $       EXIT $! $ OOPS:!? $       WRITE SYS$OUTPUT "Bad date format: ''P1'   - Aborting!"u" $       SET MESSAGE'MESSAGE_STATE' $       EXIT 1 $       ENDSUBROUTINEm   ~Mike   M =============================================================================!% jr:[DATE]DAYS_BETWEEN_DATES_DEC.SRC;1m. From:	SMTP%"spiress1@ford.com" 980611 13435523 To:	JAMESVE1 CC:	( Subj:	Re: Number of Days Between 2 Dates  & From: Steve Spires <spiress1@ford.com> X-Newsgroups: comp.os.vmsa+ Subject: Re: Number of Days Between 2 Datese% Date: Thu, 11 Jun 1998 13:11:41 +0100   Organization: Ford Motor Company
 Lines: 377( Message-Id: <357FC97C.3467EF91@ford.com> Mime-Version: 1.0D* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit'& X-Mailer: Mozilla 4.05 [en] (Win95; I) To: Info-VAX@mvb.saic.com" X-Gateway-Source-Info: USENETy  $ Try this command procedure from DEC.   Steve Spires  C *******************************************************************n1 $!                          COPYRIGHT (C) 1996 BYH= $!                     DIGITAL EQUIPMENT CORPORATION, MAYNARDu< $!                      MASSACHUSETTS.  ALL RIGHTS RESERVED. $!J $!   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  C $!   ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THEr	 INCLUSION F $!   OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER COPIESI $!   THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHERIA $!   PERSON.  NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBYm TRANSFERRED. $!I $!   THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICEo ANDsA $!   SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENTt CORPORATION. $!H $!   DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS; $!   SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL., $!H $!   NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWAREH $!   ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. $!H $!   SUPPORT FOR THIS SOFTWARE IS NOT COVERED UNDER ANY DIGITAL SOFTWAREI $!   PRODUCT SUPPORT CONTRACT, BUT MAY BE PROVIDED UNDER THE TERMS OF THEeB $!   CONSULTING AGREEMENT UNDER WHICH THIS SOFTWARE WAS DEVELOPED. $! $! $ ON WARNING THEN EXIT $!A $!      Dates may be entered as command line parameters (p1, p2).-A $!      When entering a date time string with a space, be sure to 3 $!      include the string in quotes.  For example:  $!B $!           $ @TIME "28-FEB-1997 00:21:15" "01-MAR-1998 23:15:10" $! $!< $!      The ASCII representation of DELTA TIME is limited to> $!      less than 10,000 days (4 digit day field or 9999 days): $!      Check to see if dates entered on the command line: $!' $ If (p3 .EQS. "") THEN GOTO ON_OUR_WAYr $!; $!      There should not be a P3 value on the command line.V? $!      Probably there is a time string associated with a date.9 $!2 $!      If this is true - erroneous results occur:E $!              (executing this procedure with out this error check):9 $!? $!      $ @TIME 23-MAY-1997 00:00:00.00 24-MAY-1997 00:00:00.00  $!A $!       This command file calculates the differences between two0 dates/times.A $!       The maximum difference is 10,000 days, less .01 seconds) 6 $!       Today + 10,000 days is 8-OCT-2024 12:31:44.19 $!? $!       The difference between Friday, 23-MAY-1997 00:00:00.00e: $!                     and Friday, 23-MAY-1997 00:00:00.00 $!       Is 0 days, 00:00:00.00h3 $!      (0 days, 00 hours 00 minutes 00.00 seconds). $!G $! The results should be 1 day.  But P2 is not the second date, but theu" $! time portion of the first date. $!& $!      Put out error message and exit $!D $ WRITE SYS$OUTPUT " There is a P3 Value on the command line - this"< $ WRITE SYS$OUTPUT " procedure only accepts two parameters."G $ WRITE SYS$OUTPUT " If you are entering a date with a time associated"YE $ WRITE SYS$OUTPUT " with it, enclose the entire date/time string in"!& $ WRITE SYS$OUTPUT " quotation marks." $ WRITE SYS$OUTPUT "  "! $ WRITE SYS$OUTPUT -: " $ @TIME 23-MAY-1997 00:00:00.00 24-MAY-1997 00:00:00.00" $ WRITE SYS$OUTPUT " "< $ WRITE SYS$OUTPUT " Is incorrect and should be entered as:" $ WRITE SYS$OUTPUT "  "  $ WRITE SYS$OUTPUT -C "  $ @TIME ""23-MAY-1997 00:00:00.00"" ""24-MAY-1997 00:00:00.00"""  $ WRITE SYS$OUTPUT " " $! $ GOTO ENDING_JOB  $!
 $ ON_OUR_WAY:) $ first_date = P1$ $ second_date = P2 $ WRITE SYS$OUTPUT -I "  This command file calculates the differences between two dates/times."A $ WRITE SYS$OUTPUT -< "  The maximum difference is 10,000 days, less .01 seconds)" $ time = F$TIME()s% $ future = time + "+9999-23:59:59.99"T* $ Plus_time = F$CVTIME (future,"ABSOLUTE") $ WRITE SYS$OUTPUT -& "  Today + 10,000 days is ", Plus_timeE $ IF first_date .NES. "" .AND. second_date .NES. "" THEN GOTO HAVE_EMR $!7 $!      Dates not entered as parameters - request them:" $! $ WRITE SYS$OUTPUT -I "  Using the format dd-mmm-yyyy hh:mm:ss, (hh:mm:ss is optional) as inputY to"o $ WRITE SYS$OUTPUT - "  this command file. "  $ WRITE SYS$OUTPUT "".# $ INQUIRE first_date "enter a date"2* $ INQUIRE second_date "enter another date"
 $ HAVE_EM: $!1 $!      Convert string to dd-mmm-yyyy hh:mm:ss.ccE $!. $ date_one = F$CVTIME (first_date, "ABSOLUTE") $ hold_date = date_one/ $ date_two = F$CVTIME (second_date, "ABSOLUTE")2 $!F $!      Convert dates to form for comparison (yyyy-mmm-dd hh:mm:ss.cc) $!3 $ comp_date_one = F$CVTIME (date_one, "COMPARISON")r3 $ comp_date_two = F$CVTIME (date_two, "COMPARISON")! $!9 $!      Get the larger date in DATE_TWO and COMP_DATE_TWO  $!: $ IF (comp_date_one .LES. comp_date_two) THEN GOTO NO_SWAP $ TEMP = date_one= $ date_one = date_two= $ date_two = TEMP_ $ hold_date = date_one $!F $!      Convert dates to form for comparison (yyyy-mmm-dd hh:mm:ss.cc) $!3 $ comp_date_one = F$CVTIME (date_one, "COMPARISON")i3 $ comp_date_two = F$CVTIME (date_two, "COMPARISON")  $!  $!      fall through to continue $!
 $ NO_SWAP: $!E $!      check to see if second date is more than 10,000 days from the  $!      first date:n* $ largest = date_one + "+9999-23:59:59.99"' $ test = f$cvtime(largest,"COMPARISON").8 $ if (test .GTS. comp_date_two) THEN GOTO GET_ON_WITH_IT $!D $!      the second date is greater than 10,000 days greater than the. $!      first date - put out an error message: $! $ WRITE SYS$OUTPUT -H "  The second date is more than 10,000 days greater than the first date"% $ test = F$CVTIME(LARGEST,"ABSOLUTE"). $ WRITE SYS$OUTPUT -2 "  10,000 days greater than ",date_one," is ",test $ GOTO ENDING_JOB  $! $! $ GET_ON_WITH_IT:n $       flow = 0 $!' $!      Calculate answer to nearest dayo $! $ L = 10000s $ form = "!AS- 0:0:0.0"d $ GOTO ZERO_IN $ R1:" $!1 $!      set DAYS to the number of days differencei $!
 $ days = t $!( $!      Calculate answer to nearest hour $! $ L = 24 $ form = "0- !AS:0:0.0"h $ GOTO ZERO_IN $ R2:/ $!) $!      set HOURS to the hours difference  $! $ hours = tt $!# $!      Calculate to nearest minuten $! $ L = 60 $ form = "0- 0:!AS:0.0"= $ GOTO ZERO_IN $ R3:, $!0 $!      set MINUTES to the minutes of difference $!
 $ minutes = t( $!# $!      Calculate to nearest seconde $! $ L = 60 $ form = "0- 0:0:!AS.0"i $ GOTO ZERO_IN $ R4:N $!0 $!      set SECONDS to the seconds of difference $!
 $ seconds = to $!2 $!      Calculate to nearest hundredths of seconds $!	 $ L = 100s $ form = "0- 0:0:0.!AS"  $ GOTO ZERO_IN $ R5:s $!= $!      set HUNDREDTHS to hundredths of seconds of difference_ $! $ hundredths = t $!- $!      get the day of the week for each date  $!1 $       day_one = F$CVTIME (hold_date,,"WEEKDAY")d0 $       day_two = F$CVTIME (date_two,,"WEEKDAY") $! $!      Output the answer. $! $ WRITE SYS$OUTPUT " " $ WRITE SYS$OUTPUT " "F $ WRITE SYS$OUTPUT "  The difference between ", day_one,", ",hold_dateF $ WRITE SYS$OUTPUT "                     and ", day_two,", ", date_two $ WRITE SYS$OUTPUT F$FAO ( -)  " Is !ZL day!%S, !2ZL:!2ZL:!2ZL.!2ZL", -_+   days, hours, minutes,seconds, hundredths)e $ WRITE SYS$OUTPUT F$FAO ( ->  " (!ZL day!%S, !2ZL hours !2ZL minutes !2ZL.!2ZL seconds)", -,   days, hours, minutes, seconds, hundredths) $ WRITE SYS$OUTPUT " " $ WRITE SYS$OUTPUT " " $! $! END OF EXECUTION STREAM $!
 $ ENDING_JOB:j $ EXIT $!D $!      zero in procedure, the variable L contains the largest deltaF $!      value allowed for this field.  This routine does a binary chopF $!      from minimum value to the maximum value for each time variable+ $!      to isolate the correct delta value.r $!
 $ ZERO_IN: $!5 $!      Set initial lowest value parameter to minus 1t $! $ S = -1 $!@ $!      compute temporary variable value that is halfway betweenA $!      the least value we know is greater than the value we want ? $!                      (initially this is the maximum value L) E $!      and the greatest value we know is less than the value we wantr< $!                      (initially this is -1 - stored in S) $! $ new_t = (S + L) / 2e $!F $!       initial value new_t= (-1 + maximum value)/2 = half of maximum $! $!       Top of loop $! $ TRY_VALUE: $! $!       set t equal to new_t  $! $ t = new_ti $!C $!       Get character string representation of T in T_STR variablef $! $ t_str = "''t'" $!D $!       if this is a single digit preface it with a 0 to make it atH $!       least a 2 digit number (this is for accuracy in the 'hundredthsH $!       of seconds' computation, i.e. 2 is not the same as 02 following $!       a decimal point). $!2 $ if f$length(t_str) .eq. 1 then t_str="0''t_str'" $!A $!       Use the FORM specified in the main flow to put the value$? $!       of T_STR into the appropriate field of the ADD_TO_DATE @ $!       variable (FORM for days is "!AS- 0:0:0.0", for hours is $!       "0- !AS:0:0.0", etc.) $!. $ add_to_date = F$FAO (form, F$STRING (T_str)) $!A $!       Compute TEST_DATE to be the smaller date (DATE_ONE) plus_& $!       the ADD_TO_DATE created above $!/ $ added_date = "date_one + ""+''add_to_date'"""u2 $ test_date = F$CVTIME ('added_date, "COMPARISON") $!@ $ IF  (test_date .LES. comp_date_two) THEN GOTO TRY_LARGER_VALUE $!F $!      fall through with computed test_date less than the larger date $!              entered. $!? $!       if the test date is less than the second date, then we G $!       need a smaller delta value - so we want to lower new_t (and t) F $!       to a value half way between its current value and the largest number> $!       that we know to be smaller (initially this is the -1)+ $!       which is stored in the variable S.  $! $ new_t = (T + S) / 2l $!J $!       if the new value is equal to the delta value of this loop, we are   $!       done with this loop.i $!& $ IF new_t .EQ. t THEN GOTO VALUE_DONE $!D $!      recompute the smallest value that we know is larger than our, $!      date (variable L) to be our T value: $! $ L = Td $! $!      go to loop again:s $! $ GOTO TRY_VALUE $! $ TRY_LARGER_VALUE:i $!C $!       if the computed date is less than the second date, then weeG $!       need a greater delta value - so we want to raise new_t (and t) I $!       to a value half way between its current value and a least number G $!       that we know to be larger (initially this is the maximum deltai2 $!       value) which is stored in the variable L. $! $ new_t = (T + L) / 2y $!F $!      if the new_t value equals the t value, we have found our delta
 $!      valuel $!& $ IF new_t .EQ. t THEN GOTO VALUE_DONE $!G $!      reset the least number know to be larger than our desired valuee $!      to the current T value:s $! $ S = To $! $!      go to top of loop: $! $ GOTO TRY_VALUE $!
 $ VALUE_DONE:y $!E $!      we have the delta value for our current testing loop - add iti+ $!      on to our lower date for comparison8 $!B $ date_one = F$CVTIME (date_one + "+''F$FAO (Form,F$STRING (T))'", "ABSOLUTE")  $! $ flow = flow + 1t $!* $!                     return to main flow $!
 $ GOTO R'Flowh  B ******************************************************************   Phillip J. Sloan wrote:f  H > Is there a VMS function that will compute the number of days between 2 > dates? >=	 > Thanks.= >= > Phil Sloan > psloan@catalytica-pharm.com=      M =============================================================================a- jr:[DATE]DAYS_BETWEEN_DATES_YET_ANOTHER.SRC;1j, From:	SMTP%"korkko@decus.fi" 980611 13184764 To:	JAMESVE1 CC:	( Subj:	Re: Number of Days Between 2 Dates  ' From: "Veli K\vrkk\v" <korkko@decus.fi>o X-Newsgroups: comp.os.vmse+ Subject: Re: Number of Days Between 2 Dates-% Date: Thu, 11 Jun 1998 20:06:38 +0300a- Organization: Sonera Corporation News Servicei	 Lines: 64d( Message-Id: <35800E9E.D5388D37@decus.fi> Mime-Version: 1.0t* Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bite& X-Mailer: Mozilla 4.05 [en] (WinNT; I) To: Info-VAX@mvb.saic.como X-Gateway-Source-Info: USENET    How about this one?n  
 $ set noon $ debug = "FALSE"m5 $ if f$type(TIMET_DEBUG) .nes. "" then debug = "TRUE"  $!) $ if p1 .eqs. "" .or. p2.eqs."" then exits $! $ ifE f$cvtime(p1,"COMPARISON","DATE").gts.f$cvtime(p2,"COMPARISON","DATE")I $ then date1 = p1 
 $  date2 = p2t $ else date1 = p2r
 $  date2 = p1t $ endif  $eD $ d_years = (f$cvtime(date1,,"YEAR")+0) -(f$cvtime(date2,,"YEAR")+0) $w $ d1 = (d_years-1)*365 $ d2 = (d_years+1)*365 $!	 $ adj = 0D $ l1:h $  if d2 .gt. 9999 $  theno $   d1 = d1 - 5000 $   d2 = d2 - 5000 $   adj = adj + 50009 $   date1 = f$cvtime("''date1'-5000-0","ABSOLUTE","DATE")t? $   if debug then write sys$output "At ''date1', adjust ''adj'"n $   goto l1f $  endif $c $!               e. $ cdate2 = f$cvtime(date2,"COMPARISON","DATE") $ l2: d =(d1+d2)/2; $  pdate2 = f$cvtime("''date1'-''d'-0","COMPARISON","DATE")iF $  if debug then write sys$output "At ''pdate2', targetting ''cdate2'"H $  if debug then write sys$output "D1: ''d1'    D2: ''d2'       D: ''d'" $  if pdate2 .gts. cdate2o $  then d1 = d $   goto l2o $  else if pdate2 .lts. cdate2 $   then d2 = dd $    goto l2	 $   endift $  endif $!. $ write sys$output "Delta was ",d+adj," days."    # Decus> @timet 1-jan-2001 2-feb-2169n Delta was 61393 days.   G Initially I try to adjust the range so that get within 9999 days range.UF Then I basically use "halving" algorithm to figure out right number of days.%  H OK, not very pretty solution BUT WORKS in DCL. And I suppose the numbers9 are right even though I have not done very much checking.H     _veli!  M =============================================================================!& JR:[TIME]DAYS_BETWEEN_DATES_IN_C.SRC;1: From:	SMTP%"vandenheuvel@eps.enet.dec.com" 960601 12164039	 To:	JAMESO CC:	 Subj:	Re: c date/time functionsO  , Return-Path: <Info-VAX-Request@Mvb.Saic.Com>B Received: from everest.den.mmc.com by larry.mml.mmc.com with SMTP;.           Sat, 1 Jun 1996 12:16:38 -0400 (EDT) Received: from MVB.SAIC.COM (mvb.saic.com [204.115.176.10]) by everest.den.mmc.com (8.7.5/8.7) with SMTP id KAA28389 for <JAMES@CURLY.MML.MMC.COM>; Sat, 1 Jun 1996 10:16:37 -0600 (MDT)= From: vandenheuvel@eps.enet.dec.com (Hein RMS van den Heuvel)  X-Newsgroups: comp.os.vmsd" Subject: Re: c date/time functions Date: 1 JUN 96 02:25:39S+ Organization: Digital Equipment Corporation 	 Lines: 49S Distribution: world1* Message-ID: <4oonud$b74@nntpd.lkg.dec.com> To: Info-VAX@Mvb.Saic.ComA X-Gateway-Source-Info: USENETb    [ In article <NEWyBCAwNUrxEwFV@tedros.demon.co.uk>, Ted <tedros@tedros.demon.co.uk> writes...PC >I am wondering if there is a standard special/ordinary c date/time)I >function , thast tells you how many DAYS have passed since a given startU0 >date in the form of yyyymmdd upto a given date.0 >As an example say from 18500621, upto 19960528.8 >if it does exist, does it take into account leap years?  :8 >if there is a vms utility for this i'd love to know!!!!  =  That's just like saying 'please'. Good enough. Here ya go...    #include stdio #include descrip #include ssdef #include libdtdef   : int LIB$INIT_DATE_TIME_CONTEXT(), LIB$FORMAT_DATE_TIME(),      LIB$CONVERT_DATE_STRING();   main (int argc, char *argv[])  { 8 struct { unsigned int lo; int hi; } first, second, diff;I int	desc[2], status, minutes, rest, context = 0, minute = -60*1000*10000; 8 $DESCRIPTOR (date_format, "/!Y4!MN0!D0/!H04!M0!S0!C2/");  O status=LIB$INIT_DATE_TIME_CONTEXT(&context, &LIB$K_INPUT_FORMAT, &date_format);  if (!(status&1)) return status;=   desc[0]=strlen(argv[1]); desc[1]=(int)  argv[1];=8 status=LIB$CONVERT_DATE_STRING(&desc, &first, &context); if (!(status&1)) return status;o   desc[0]=strlen(argv[2]); desc[1]=(int)  argv[2];b9 status=LIB$CONVERT_DATE_STRING(&desc, &second, &context);f if (!(status&1)) return status;m  " lib$subx (&first, &second, &diff);+ lib$ediv (&minute, &diff, &minutes, &rest);0  % printf ("%d days\n",minutes/(24*60));i }:  = I'll take the wine,		+--------------------------------------+DF Hein van den Heuvel, Digital.	| All opinions expressed are mine, and |C   "Makers of VMS and other	| may not reflect those of my employer |.D    fine Operating Systems."	+--------------------------------------+M =============================================================================*# JR:[TIME]TIME-BETWEEN-2-TIMES.COM;1 7 From:	SMTP%"rechtman@shani.net" 27-OCT-1995 14:45:44.44T	 To:	JAMEST CC:	@ Subj:	Re: finding time between two dates? - time_dif.lis [01/01]  , Return-Path: <Info-VAX-Request@mvb.saic.com>B Received: from everest.den.mmc.com by CURLY.MML.MMC.COM with SMTP;/           Fri, 27 Oct 1995 14:45:39 -0400 (EDT) 3 Received: from  by everest.den.mmc.com (4.1/1.34.a) ( 	id AB19059; Fri, 27 Oct 95 12:45:34 MDT( From: rechtman@shani.net (Mike Rechtman) X-Newsgroups: comp.os.vmsPC Subject: Re: finding time between two dates? - time_dif.lis [01/01]R! Date: Fri, 27 Oct 95 12:53:24 GMTH4 Organization: Tel-Aviv University Computation Center
 Lines: 116' Message-Id: <46ql9a$22k@post.tau.ac.il>I( Nntp-Posting-Host: teleport4.shani.co.il Summary: Time difference in DCLR Keywords: DCL time- X-Newsreader: News Xpress Version 1.0 Beta #4N To: Info-VAX@mvb.saic.com! X-Gateway-Source-Info: USENETU  / In article <1995Oct22.195458.64506@cc.usu.edu>, ;    aarona@cc.usu.edu (AUMAN, AARON AUMAN FOR SHORT.) wrote:OI >I am looking for a simple piece of code that will take the current date T and D >find out how many days until a certain date, then output that to a  file.  I amN< >running on OpenVMS and I believe the code is needed in DCL. >!$ >Any help would be much appreciated. >e >Aaron; Im attaching a piece of DCL code - sorry about the length -e   Mike BEGIN -- Cut Here -- cut here,A $! Procedure to find difference in minutes between two DATE/TIMEs  $!0 $! Input: P1, P2 "DD-MMM-YYYY HH:MM:..." strings $!! $! Output: Difference in minutes.S $!J $!                                                      Mike Rechtman 1995
 $ Gosub SETUPd $! $ M1 = 0 $ Call FIND_TIME "''P1'"$ $ if RESULT .lt. 0 then exit %X38290
 $ M1 = RESULT. $ SHO SYM M1 $! $ M2 = 0 $ Call FIND_TIME "''P2'"$ $ if RESULT .lt. 0 then exit %X38290
 $ M2 = RESULTb $ SHO SYM M2 $!
 $ M = M2 - M1t0 $ write sys$output "difference is ''M' minutes." $ exit $! $! SUBROUTINES:  $! ------------i $ SETUP: $       MON0 = 0 $       MON1 = 31  $       MON2 = 59  $       MON3 = 900 $       MON4 = 120 $       MON5 = 151 $       MON6 = 181 $       MON7 = 212 $       MON8 = 243 $       MON9 = 273 $       MON10 = 304e $       MON11 = 334  $       MON12 = 365!, $       MESSAGE_STATE = F$ENVIRON("MESSAGE") $       RETURN	 $       !f $ FIND_TIME:" $                       SUBROUTINE" $       !               ---------- $       RESULT == -1
 $       S = 1  $       SET NOON# $       SET MESSAGE/NOF/NOI/NOS/NOTs $       ON ERROR THEN GOTO OOPSl+ $       DATE = F$CVTIME("''P1'","ABSOLUTE")  $       S = $STATUSm" $       SET MESSAGE'MESSAGE_STATE'3 $       IF ( S .AND. %XFFFF ) .NE. 1 THEN GOTO OOPS$% $       YEAR = F$CVTIME(DATE,,"YEAR")m- $       IF YEAR .LT. 1990 .OR. YEAR .GT. 2000e $       THEN8 $               WRITE SYS$OUTPUT "Year is out of range." $               GOTO OOPSt
 $       ENDIFY4 $       MONTH = F$INTEGER( F$CVTIME(DATE,,"MONTH") )# $       DAY = F$CVTIME(DATE,,"DAY")n% $       HOUR = F$CVTIME(DATE,,"HOUR")R) $       MINUTE = F$CVTIME(DATE,,"MINUTE")0 $!
 $ COMPUTE: $       I = 1990 $       TEMP1 = 0" $ YEAR_LOOP: $       I = I + 1r $       IF I .LT. YEAR $       THEN# $               TEMP1 = TEMP1 + 365TK $               IF (I .AND. 3) .EQ. 0 THEN TEMP1 = TEMP1 + 1    ! Leap YearR $               GOTO YEAR_LOOP
 $       ENDIF  $! $ MONTH: $       I = MONTH - 1  $       TEMP2 = MON'I'< $       IF ( (YEAR .AND. 3) .EQ. 0 ) .AND. (I .GE. 2) THEN -0 		TEMP2 = TEMP2 + 1       ! We're in a leap year $!& $       DAYS = TEMP1 + TEMP2 + DAY - 18 $       RESULT == ( ( DAYS * 24 ) + HOUR ) * 60 + MINUTE $       EXIT $! $ OOPS:s? $       WRITE SYS$OUTPUT "Bad date format: ''P1'   - Aborting!"d" $       SET MESSAGE'MESSAGE_STATE' $       EXIT 1 $       ENDSUBROUTINEe END -- Cut Here -- cut here   d ----------------------------------------------------------------------------------------------------+ Mike Rechtman , Kibbutz Tzora 99705, Israela rechtman@shani.net@ Phone: 972-2-9908337          Packet-network: 425120012117::Miked ----------------------------------------------------------------------------------------------------M =============================================================================    ------------------------------  $ Date: Tue, 3 Oct 2000 21:57:15 +0200> From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr> Subject: DCPS and HP4050 TRAY 3c. Message-ID: <8rddii$28a$1@reader1.imaginet.fr>   Bonjour  tous !    With OpenVMS 7.2-1 and DCPS 1.8,/ we need to print on tray #3 of a LaserJet 4050NT  , $ print /param=(INPUT_TRAY=TRAY_3) ! returns9 %DCPS-E-INTRAYNOTSUP, No tray_3 on HP LaserJet 4050 Serie=  ( There is a third tray on the printer ..., Does anybody have an idea of what is wrong ?   Cordialement   Jean-Franois Marchal  X9000 - LYON (FR)    ------------------------------  % Date: Tue, 03 Oct 2000 16:23:07 -0400I0 From: Paul Anderson <paul.r.anderson@compaq.com># Subject: Re: DCPS and HP4050 TRAY 3 C Message-ID: <paul.r.anderson-B0D813.16230703102000@news.compaq.com>   G In article <8rddii$28a$1@reader1.imaginet.fr>, "Jean-Franois Marchal" =' <jean-francois.marchal@x9000.fr> wrote:e  " > With OpenVMS 7.2-1 and DCPS 1.8,1 > we need to print on tray #3 of a LaserJet 4050Nt > . > $ print /param=(INPUT_TRAY=TRAY_3) ! returns; > %DCPS-E-INTRAYNOTSUP, No tray_3 on HP LaserJet 4050 Seriee > * > There is a third tray on the printer .... > Does anybody have an idea of what is wrong ?  A DCPS does not support the HP LaserJet 4050.  It supports the "HP oE LaserJet 4000 Series".  In hindsight, we should have specified which  G models that was:  4000, 4000N, 4000T and 4000TN.  That's what HP means   by "4000 Series".0  8 We hope to support the 4050 in the next release of DCPS.   Paul   -- f,    Paul Anderson, OpenVMS Engineering (DCPS),    Compaq Computer Corporation, Littleton MA   ------------------------------  $ Date: Tue, 3 Oct 2000 23:01:02 +0200> From: "Jean-Franois Marchal" <jean-francois.marchal@x9000.fr># Subject: Re: DCPS and HP4050 TRAY 3". Message-ID: <8rdha5$2ma$1@reader1.imaginet.fr>  : Thanks for this quick answer. any workaround ?for tray 3 ?    = "Paul Anderson" <paul.r.anderson@compaq.com> wrote in message== news:paul.r.anderson-B0D813.16230703102000@news.compaq.com...DH > In article <8rddii$28a$1@reader1.imaginet.fr>, "Jean-Franois Marchal") > <jean-francois.marchal@x9000.fr> wrote:  >s$ > > With OpenVMS 7.2-1 and DCPS 1.8,3 > > we need to print on tray #3 of a LaserJet 4050Ns > >e0 > > $ print /param=(INPUT_TRAY=TRAY_3) ! returns= > > %DCPS-E-INTRAYNOTSUP, No tray_3 on HP LaserJet 4050 Serien > >$, > > There is a third tray on the printer ...0 > > Does anybody have an idea of what is wrong ? >tB > DCPS does not support the HP LaserJet 4050.  It supports the "HPF > LaserJet 4000 Series".  In hindsight, we should have specified whichH > models that was:  4000, 4000N, 4000T and 4000TN.  That's what HP means > by "4000 Series".( > : > We hope to support the 4050 in the next release of DCPS. >t > Paul >  > --. >    Paul Anderson, OpenVMS Engineering (DCPS). >    Compaq Computer Corporation, Littleton MA   ------------------------------   Date: 3 Oct 2000 20:35:28 GMTP* From: bleau@umtof.umd.edu (Lawrence Bleau)# Subject: Re: Default gateway in VMSj) Message-ID: <8rdfug$14d$1@hecate.umd.edu>e  i In article <39D45BB5.CE74EE16@gtech.com>, Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com> writes:p >! >Depends in the TCP/IP package.a >u >But assuming UCX version <5.0:! > 2 >$ UCX SET ROUTE /GATE=x.x.x.x /DEFAULT /PERMANENT  N I just had to do this very operation.  Something strange happened to 3 of my 9L systems: the dynamic routing table listed two entries, one for 127.0.0.1 andK the other for 129.2.162.0.  The latter one is what off-subnet traffic would M use.  Guess where it pointed?  Right back at the local system!  A lot of goodnC that did!  It cut off all TCPIP traffic that was not on the subnet.y  L I defined a route for 0.0.0.0 to the correct gateway, then deleted the bogusN gateway.  I also defined a permanent default route (as Arne showed above).  ItN turns out the systems that had this problem did not have any permanent defaultG route.  I've no idea what triggered the good route to be cleared and ant& incorrect route to be entered, though.   Lawrence Bleau University of Maryland" Physics Dept., Space Physics Group 301-405-6223 bleau@umtof.umd.edue   ------------------------------  % Date: Tue, 03 Oct 2000 21:03:34 +0100i+ From: "antonio.carlini" <arcarlini@iee.org>n! Subject: Re: DSSI bus terminations& Message-ID: <39DA3B96.2C2711B@iee.org>   Douglas Taylor wrote:  > + > Couple of simple questions about a MV3400e > < > 1. Do I need to terminate the DSSI bus on the front panel?   Yes:  8 > 2. If I don't terminate the DSSI bus, what can happen?  D Same as an unterminated SCSI bus - it may or may not work, depending/ on load, access patterns, phase of the moon ...   : > 3. If I absolutely need a terminator where do I get one?  > Try without and see what happens ... otherwise I have no idea! Perhaps one of the resellers?e   Antonio_ -- t   ---------------A- Antonio Carlini             arcarlini@iee.orgt   ------------------------------  # Date: Wed, 04 Oct 2000 02:44:11 GMT ) From: dalsimer-md@home.com (Jim Dalsimer)n Subject: file fragmentatione% Message-ID: <39da9826.195739289@news>   F We've got an Alpha running VMS (not sure what version, fairly recent).E There's an Oracle database whose performance is slowly degrading.  Myl> system folks tell me the reason is that the database files areA fragmented.  Do I believe them?  Is diskeeper a solution (will itlD defrag open files)?  I thought that Alpha VMS had a journalling fileA system as opposed to Files-11.  Dump of one of the database filesp follows.  Any comments?a  > Dump of file $1$DKC1:[ORA.DB_BSCTM]DATA01.DBS;1 on  2-OCT-2000 18:01:31.40 C File ID (114,144,0)   End of file block 2097152 / Allocated 2097160   (                              File Header   Header areas,     Identification area offset:           40-     Map area offset:                      100e-     Access control area offset:           255e-     Reserved area offset:                 255 +     Extension segment number:             0i.     Structure level and version:          2, 15     File identification:                  (114,144,0)!4     Extension file identification:        (183,99,0)     VAX-11 RMS attributes >         Record type:                      LF-terminated stream4         File organization:                SequentialB         Record attributes:                Implied carriage control/         Record size:                      32767 1         Highest block:                    2097160 1         End of file block:                2097153t+         End of file byte:                 0o+         Bucket size:                      0T+         Fixed control area size:          0 +         Maximum record size:              0i+         Default extension size:           0*+         Global buffer count:              0*+         Directory version limit:          0e:     File characteristics:                 <none specified>-     Map area words in use:                155 +     Access mode:                          0=2     File owner UIC:                       [SYSTEM]?     File protection:                      S:RWD, O:RWD, G:R, W:j5     Back link file identification:        (1688,41,0)E:     Journal control flags:                <none specified>.     Active recovery units:                None1     Highest block written:                2097160e   Identification area16     File name:                            DATA01.DBS;1  ,     Revision number:                      69A     Creation date:                         8-APR-2000 14:21:42.43aA     Revision date:                        28-SEP-2000 15:19:33.85o:     Expiration date:                      <none specified>:     Backup date:                          <none specified>   Map area     Retrieval pointers0         Count:      14456        LBN:     9083360         Count:        728        LBN:     9228960         Count:       3952        LBN:     9236760         Count:       1872        LBN:     9276800         Count:        208        LBN:     9296040         Count:       2392        LBN:     9298640         Count:        468        LBN:     9323080         Count:       4316        LBN:     9328280         Count:        416        LBN:     9371960         Count:       1092        LBN:     9376640         Count:       5408        LBN:     9388080         Count:       3796        LBN:     9442680         Count:        208        LBN:     9481160         Count:      13728        LBN:     9483760         Count:        104        LBN:     9621560         Count:        520        LBN:     9623120         Count:        312        LBN:     9628840         Count:        936        LBN:     9632480         Count:         52        LBN:     9642360         Count:       2756        LBN:     9643400         Count:         52        LBN:     9672000         Count:       3276        LBN:     9673040         Count:       1196        LBN:     9706320         Count:        520        LBN:     9718800         Count:       3380        LBN:     9724520         Count:        104        LBN:     9758840         Count:        312        LBN:     9760400         Count:        676        LBN:     9764040         Count:       9048        LBN:     9771320         Count:      21112        LBN:     9862320         Count:       8736        LBN:    10073960         Count:      21164        LBN:    10161840         Count:        104        LBN:    10374000         Count:       1716        LBN:    10627240         Count:         52        LBN:    10645440         Count:         52        LBN:    10653760         Count:         52        LBN:    10656880         Count:         52        LBN:    10675600         Count:         52        LBN:    10676640         Count:      25116        LBN:    10680800         Count:        208        LBN:    10932480         Count:       6656        LBN:    10935080         Count:        260        LBN:    11002160         Count:        416        LBN:    11005280         Count:       8840        LBN:    11009960         Count:       3744        LBN:    11098880         Count:      41704        LBN:    11136840         Count:       4212        LBN:    11554400         Count:      16900        LBN:    11597040         Count:       3328        LBN:    11766560         Count:        104        LBN:    11800360         Count:        104        LBN:    11801920         Count:        312        LBN:    11804520         Count:        208        LBN:    11808160         Count:        104        LBN:    11810760         Count:        208        LBN:    1181232  / Checksum:                                 33709r   -- Jim Dalsimer   ------------------------------  % Date: Wed, 04 Oct 2000 15:50:08 +1100u) From: "Mackay, Ian" <IMackay@nine.com.au>u Subject: RE: file fragmentationuB Message-ID: <7517D41517E6D11189EB00A0C96B422A01D52DAB@TCNHOFEXC01>  L Since there is a FID other than (0,0,0) in the extension file identificationI field, I am going to assume that the file header dump is not complete and,G the file has multiple file headers. Therefore fragmentation could cause_? performance degradation but really it depends on many extensionMJ headers/extents the file has. To see what file system you are running do aL WRITE SYS$OUTPUT f$getdvi("$1$DKC1:", "ACPTYPE") you will see F11V2 for ODS2J or F11V5 for ODS5. Spiralog was the only log based file system for VMS and& that had "problems" and was withdrawn.  K I used to find that even with a fairly fragmented oracle database file thatfK the ODS2 file system still provided reasonable performance. I usually tried$K to reduce the fragment count ASAP but if I couldn't, we could live with it.0E We ran diskeeper at that site but it didn't touch open files. However-K sometimes I got the opportunity to shutdown the database and do a defrag on  just one file. d  K You might want to look at other causes of performance loss. Our Oracle DBAs-J used to play around with the SGA size and bump up both the shared SQL areaG and the library cache blocks to increase the amount of data that was in.J memory rather than out on disks. Also we upped the Oracle block size to 8KJ and that also made a reasonable difference. Other things were the internalJ database fragmentation. Have a look at the number of extents on each tableD within the tablespace, same with indexes. We saw big improvements byC exporting tables, dropping tables, indexes and tablespaces and then L recreating them. The tables were precreated using the values observed beforeJ the export/dump. This included putting larger next extent values on tablesG that extended a lot. We used to try and ensure that the recreated tableaI space was as contiguous as we could get it. Again created the tablespace,90 then defragmented it and then imported the data.  < BTW "show system" shows what version of VMS you are running.  
 Ian Mackay System and Network Manager Nine Network Australia     > -----Original Message-----: > From: dalsimer-md@home.com [mailto:dalsimer-md@home.com], > Sent: Wednesday, October 04, 2000 12:44 PM > To: Info-VAX@Mvb.Saic.Como > Subject: file fragmentatione >  > H > We've got an Alpha running VMS (not sure what version, fairly recent).G > There's an Oracle database whose performance is slowly degrading.  Myi@ > system folks tell me the reason is that the database files areC > fragmented.  Do I believe them?  Is diskeeper a solution (will iteF > defrag open files)?  I thought that Alpha VMS had a journalling fileC > system as opposed to Files-11.  Dump of one of the database files" > follows.  Any comments?n > @ > Dump of file $1$DKC1:[ORA.DB_BSCTM]DATA01.DBS;1 on  2-OCT-2000
 > 18:01:31.40 E > File ID (114,144,0)   End of file block 2097152 / Allocated 2097160a > * >                              File Header > 
 > Header areaR. >     Identification area offset:           40/ >     Map area offset:                      1000/ >     Access control area offset:           255t/ >     Reserved area offset:                 255"- >     Extension segment number:             0i0 >     Structure level and version:          2, 17 >     File identification:                  (114,144,0)06 >     Extension file identification:        (183,99,0) >     VAX-11 RMS attributes @ >         Record type:                      LF-terminated stream6 >         File organization:                SequentialD >         Record attributes:                Implied carriage control1 >         Record size:                      32767 3 >         Highest block:                    2097160 3 >         End of file block:                2097153R- >         End of file byte:                 0'- >         Bucket size:                      0E- >         Fixed control area size:          0%- >         Maximum record size:              0F- >         Default extension size:           09- >         Global buffer count:              0 - >         Directory version limit:          0 < >     File characteristics:                 <none specified>/ >     Map area words in use:                155 - >     Access mode:                          0(4 >     File owner UIC:                       [SYSTEM]A >     File protection:                      S:RWD, O:RWD, G:R, W:L7 >     Back link file identification:        (1688,41,0) < >     Journal control flags:                <none specified>0 >     Active recovery units:                None3 >     Highest block written:                2097160I >  > Identification area 8 >     File name:                            DATA01.DBS;1 > . >     Revision number:                      69C >     Creation date:                         8-APR-2000 14:21:42.43MC >     Revision date:                        28-SEP-2000 15:19:33.85E< >     Expiration date:                      <none specified>< >     Backup date:                          <none specified> > 
 > Map area >     Retrieval pointers2 >         Count:      14456        LBN:     9083362 >         Count:        728        LBN:     9228962 >         Count:       3952        LBN:     9236762 >         Count:       1872        LBN:     9276802 >         Count:        208        LBN:     9296042 >         Count:       2392        LBN:     9298642 >         Count:        468        LBN:     9323082 >         Count:       4316        LBN:     9328282 >         Count:        416        LBN:     9371962 >         Count:       1092        LBN:     9376642 >         Count:       5408        LBN:     9388082 >         Count:       3796        LBN:     9442682 >         Count:        208        LBN:     9481162 >         Count:      13728        LBN:     9483762 >         Count:        104        LBN:     9621562 >         Count:        520        LBN:     9623122 >         Count:        312        LBN:     9628842 >         Count:        936        LBN:     9632482 >         Count:         52        LBN:     9642362 >         Count:       2756        LBN:     9643402 >         Count:         52        LBN:     9672002 >         Count:       3276        LBN:     9673042 >         Count:       1196        LBN:     9706322 >         Count:        520        LBN:     9718802 >         Count:       3380        LBN:     9724522 >         Count:        104        LBN:     9758842 >         Count:        312        LBN:     9760402 >         Count:        676        LBN:     9764042 >         Count:       9048        LBN:     9771322 >         Count:      21112        LBN:     9862322 >         Count:       8736        LBN:    10073962 >         Count:      21164        LBN:    10161842 >         Count:        104        LBN:    10374002 >         Count:       1716        LBN:    10627242 >         Count:         52        LBN:    10645442 >         Count:         52        LBN:    10653762 >         Count:         52        LBN:    10656882 >         Count:         52        LBN:    10675602 >         Count:         52        LBN:    10676642 >         Count:      25116        LBN:    10680802 >         Count:        208        LBN:    10932482 >         Count:       6656        LBN:    10935082 >         Count:        260        LBN:    11002162 >         Count:        416        LBN:    11005282 >         Count:       8840        LBN:    11009962 >         Count:       3744        LBN:    11098882 >         Count:      41704        LBN:    11136842 >         Count:       4212        LBN:    11554402 >         Count:      16900        LBN:    11597042 >         Count:       3328        LBN:    11766562 >         Count:        104        LBN:    11800362 >         Count:        104        LBN:    11801922 >         Count:        312        LBN:    11804522 >         Count:        208        LBN:    11808162 >         Count:        104        LBN:    11810762 >         Count:        208        LBN:    1181232 > 1 > Checksum:                                 33709o >  > -- > Jim Dalsimer >    ------------------------------  $ Date: Wed, 4 Oct 2000 09:08:51 +0530, From: "krish" <a.krishnamoorthy@digital.com> Subject: Font of banner.* Message-ID: <8re8q1$e44@usenet.pa.dec.com>   Hello,  E   I changed the banned that is appearing by changing the sys$announce  logical.G   But then i was struck when i wanted to change the font of the banner.n  J   could somebody tell me on how to go about changeing the font, like bold, with a font size of 16.etc...    -Krish   --@ "Courage is the price that life extracts for granting peace with yourself."Amelia Earhart   ------------------------------  % Date: Wed, 04 Oct 2000 16:00:04 +1100j) From: "Mackay, Ian" <IMackay@nine.com.au>h Subject: RE: Font of banner.B Message-ID: <7517D41517E6D11189EB00A0C96B422A01D52DAC@TCNHOFEXC01>  ' This is just an example of what I use. yJ You need to replace the <ESC> with the "real" escape character Hex 27 that is.gI Find a VT terminal manual. There is usually a section with all the escape.
 codes listed.e   <ESC>[2J<ESC>[7m+ <ESC>[1;1H<ESC>#3            SYSTEM NOTICES + <ESC>[2;1H<ESC>#4            SYSTEM NOTICESoH <ESC>[3;1H<ESC>[0m<ESC>[1m                       Last changed 15:00 AEST
 8-Aug-2000
 <ESC>[0;1m <ESC>[0m  
 Ian Mackay System and Network Manager Nine Network Australia     > -----Original Message-----3 > From: krish [mailto:a.krishnamoorthy@digital.com]h+ > Sent: Wednesday, October 04, 2000 1:39 PMf > To: Info-VAX@Mvb.Saic.Coma > Subject: Font of banner. >  >  > Hello, > G >   I changed the banned that is appearing by changing the sys$announcea
 > logical.> >   But then i was struck when i wanted to change the font of 
 > the banner.- > < >   could somebody tell me on how to go about changeing the  > font, like bold, > with a font size of 16.etc...R >  > -Krish >  > --B > "Courage is the price that life extracts for granting peace with > yourself."Amelia Earhart >  >  >  >  >    ------------------------------  $ Date: Tue, 3 Oct 2000 21:05:45 -04002 From: "William Hymen" <t18_pilot@hotmail.spam.com>, Subject: Getting Compaq to advertise OpenVMS5 Message-ID: <8ivC5.3668$UP5.41646@news6.giganews.com>t  # Getting Compaq to advertise OpenVMS    If you want to promote advertising of OpenVMS, write ai! letter on your Company Letterheadr to the people who make the descisions at Compaq.  Keepn( it professional and keep it to one page.  # Include "personal and confidential"  about three lines down from the  addresse 1)Paper is good. 2)email gets deleted.m 3)Company letterheads impress.	    - Billl  % The director of OpenVMS Marketing is:9   Compaq Computer CorporationA Mary Ellen Fortier 110 Spit Brook Roadf
 ZKO3-4/W24 Nashua, NH 03062  ! The Vice President of OpenVMS is:w   Compaq Computer Corporations Richard Marcello 110 Spit Brook Roade
 ZKO3-4/W24 Nashua, NH 03062   The President of Compaq is:o   Compaq Computer Corporationi Michael Capellas 20555 State Highway 249a MS110802 Houston, Texas 77070   ------------------------------  % Date: Tue, 03 Oct 2000 22:23:32 -0500 + From: "Main, Kerry" <Kerry.Main@COMPAQ.com>;0 Subject: RE: Getting Compaq to advertise OpenVMSJ Message-ID: <910612C07BCAD1119AF40000F86AF0D805284850@kaoexc4.kao.dec.com>  
 Ok, Ok ..   1 Check out todays press announcements from Compaq: 8 http://www.compaq.com/newsroom/pr/2000/pr2000100301.html http://www.openvms.compaq.com/  	 Feedback?    Regards,  
 Kerry Main Senior Consultant,
 Compaq Canadae Professional Services  Voice : 613-592-4660 FAX   : 819-772-7036 Email : kerry.main@compaq.comt       -----Original Message-----7 From: William Hymen [mailto:t18_pilot@hotmail.spam.com],' Sent: Tuesday, October 03, 2000 9:06 PMe To: Info-VAX@Mvb.Saic.Com , Subject: Getting Compaq to advertise OpenVMS    # Getting Compaq to advertise OpenVMS    If you want to promote advertising of OpenVMS, write a ! letter on your Company Letterhead  to the people who make the descisions at Compaq.  Keep0( it professional and keep it to one page.  # Include "personal and confidential"y about three lines down from theu address: 1)Paper is good. 2)email gets deleted.o 3)Company letterheads impress.	    - Billu  % The director of OpenVMS Marketing is:e   Compaq Computer Corporation  Mary Ellen Fortier 110 Spit Brook Road 
 ZKO3-4/W24 Nashua, NH 03062  ! The Vice President of OpenVMS is:a   Compaq Computer Corporationn Richard Marcello 110 Spit Brook Road:
 ZKO3-4/W24 Nashua, NH 03062   The President of Compaq is:    Compaq Computer Corporation  Michael Capellas 20555 State Highway 249o MS110802 Houston, Texas 77070   ------------------------------  % Date: Wed, 04 Oct 2000 01:41:56 -0400 - From: JF Mezei <jfmezei.spamnot@videotron.ca>c0 Subject: Re: Getting Compaq to advertise OpenVMS, Message-ID: <39DAC320.ECF2470D@videotron.ca>   "Main, Kerry" wrote:3 > Check out todays press announcements from Compaq: : > http://www.compaq.com/newsroom/pr/2000/pr2000100301.html  > http://www.openvms.compaq.com/  ) definitely a step in the right direction.i  G What Compaq needs to do now, is do do what IBM did a few years ago. IBMtU announced that its internet business was the most important portions of its business.n  N Compaq needs to advertsise that its VMS business is more important than its PCI business. Not only will this generate some awareness that VMS is not only N still alive, but still raking in the money. And more importantly, it will helpM emphasise the fact that Compaq is much more than a PC company and will shield M Compaq from all those suddend stock downturns whenever Intel announces it has8$ sold one less chip than anticipated.   ------------------------------   Date: 3 Oct 2000 22:49:37 GMT 6 From: DAVISM@er6.eng.ohio-state.edu (Michael T. Davis)$ Subject: Help w/ DHCP server, please: Message-ID: <8rdnq1$kt6$1@charm.magnus.acs.ohio-state.edu>  F         I'm trying to get the DHCP server under TCP/IP Services up andK running.  I'm almost there, but I'm bumping up against one little obstacle.oJ How do you get the server to send clients a value for the default gateway?= I have a couple nodes defined, and the DHCP server's log file F (TCPIP$DHCP_RUN.LOG in SYS$SYSDEVICE:[TCPIP$DHCP]) reports the gateway- associated with the node(s) as expected, e.g.   A <node-name>:ht=0:ha=<expected-HW-addr>:sm=<expected-subnet-mask>: 2  gw=<expected-gateway>:ds=<expected-name-servers>:A  dn=<expected-domain-name>:ba=<expected-broadcast-addr>:lt=28800:o  F (The above is logged as a single line, with actual values where I haveH substituted "tags".  TCPIP$DHCP_DEBUG is defined as 3.)  When the serverG answers a DHCP request from this node, though, the response sent to the E client doesn't include a "gw" tag -- the test nodes I have configured ) don't get their gateway addresses filled.6   Thanks,o  Mike  --K              Michael T. Davis              |    Systems Specialist: ChE,MSE N   E-mail: davism@er6.eng.ohio-state.edu    | Departmental Networking/ComputingJ            -or- DAVISM+@osu.edu            |     The Ohio State UniversityJ http://www.er6.eng.ohio-state.edu/~davism/ |     197 Watts, (614) 292-6928   ------------------------------  # Date: Wed, 04 Oct 2000 01:50:56 GMT  From: panjo03@my-deja.comL0 Subject: Re: help with c and vms file attributes) Message-ID: <8re2dv$sl7$1@nnrp1.deja.com>   1 thanks Colin and Valentin - I'll give this a try.    regards0 john    & Sent via Deja.com http://www.deja.com/ Before you buy.n   ------------------------------  # Date: Tue, 03 Oct 2000 18:04:28 GMTN1 From: "Mark D. Jilson" <jilly@clarityconnect.com>   Subject: Re: Information a CPU's2 Message-ID: <39DA2143.70EEC207@clarityconnect.com>  E SHOW CPU will only show you the cpus that the firmware & console have6G made available to VMS.  If you have a cpu that has failed it's selftest H then SHOW CPU may not see it, for example.  The only way to *really* seeF how many cpus a physical system enclosure has is to physically inspectH the enclosure and the modules within the enclosure (some modules on some+ systems may have multiple cpus per module).   ! steven.reece@quintiles.com wrote:- > / > Go and look?  Go get the Purchase Orders out?0 > Sorry. > L > The SHOW CPU command under VMS will tell you how many CPUs you've got.  OnM > (most) Alphas, this also tells you what speed they are.  All of the CPUs in L > present configurations need to be the same speed and the speed is given in( > the machine description in most cases. >  > Steve. >  > Shawn asked:I > >>>How can I tell other than Bouncing the system, How Many CPU's I havea' > in a box and what their speed is.?<<<m   -- eD Jilly	- Working from Home in the Chemung River Valley - Lockwood, NY0 	- jilly@clarityconnect.com			- Brett Bodine fan. 	- Mark.Jilson@Compaq.com			- since 1975 or so, 	- http://www.jilly.baka.com               -   ------------------------------  % Date: Wed, 04 Oct 2000 00:13:50 -0400 2 From: "Richard B. Gilbert" <DRAGON@compuserve.com> Subject: Information a CPU's7 Message-ID: <200010040014_MC2-B5A7-36E4@compuserve.com>r   $ SAY :=3D WRITE SYS$OUTPUTu $ SAY F$GETSYI("AVAILCPU_CNT") $ SAY F$GETSYI("ACTIVECPU_CNT")p $ SAY F$GETSYI("HW_MODEL") $ SAY F$GETSYI("HW_NAME")-	 etc, etc.    Message text written by Shawn E >How can I tell other than Bouncing the system, How Many CPU's I have " in a box and what their speed is.? <s   ------------------------------   Date: 3 Oct 2000 21:44:25 GMTu2 From: mathog@seqaxp.bio.caltech.edu (David Mathog). Subject: Re: Is the bus strike affecting cets?+ Message-ID: <8rdjvp$md@gap.cco.caltech.edu>p  w In article <m3PB5.2400$0n.207648@bgtnsc05-news.ops.worldnet.att.net>, "John Nixon" <jorlnixon@worldnet.att.net> writes:nH >Any updates?  Should I be sure to bring along my hiking shoes tomorrow?  * Bring your boots and/or a lot of cab fare.  : http://www.latimes.com/news/state/20001003/t000093785.html   Sorry,   David Mathog mathog@seqaxp.bio.caltech.edua? Manager, sequence analysis facility, biology division, Caltech d   ------------------------------  % Date: Wed, 04 Oct 2000 13:08:59 +1200d. From: Nivlesh Chandra <NChandra001@itc.gov.fj> Subject: Logical TableswO Message-ID: <791C2856E8FDD211BAFB0008C759919501A6293C@exchange01.govnet.gov.fj>o  H There is this user whose account is giving some probs. There is a scriptL that is run that is supposed to change the SYS$PRINT logical to point to theJ users local printer but this is not happening. I do not want to modify theJ script since this might cause some errors... is there anyway whereby I can: check the logicals of a user from a priviledged account???   Nivp   ------------------------------   Date: 3 Oct 2000 21:52:27 GMTn2 From: mathog@seqaxp.bio.caltech.edu (David Mathog)+ Subject: Re: Looks like I need help again!!s+ Message-ID: <8rdker$md@gap.cco.caltech.edu>D  _ In article <8rcsed$42t$1@info.cs.uofs.edu>, bill@triangle.cs.uofs.edu (Bill Gunshannon) writes:ME >This time, it's for work.  I'll throw out a quick description of the C >problem and hope it's simple or that people can then prompt me fore >necessary information.T >.5 >I have a VAX 4000-100 running OVMS 7.1 and Multinet.4B >I shut it down yesterday to add a card to the QBUS expansion box.I >When it started coming back up I started getting a long list of messagesaI >about "license termination".  No problem I thought. It's license renewal D >time (even though the PAKs all say they don't expire until 30 Oct.)G >Oh yeah, while it did come up, XDM refused to start making the machine . >not reachable from our PC X-Windows software.  I XDM is part of Multinet and the Multinet license is not part of the CSLG.o* Check the expiration date on that license.   David Mathog mathog@seqaxp.bio.caltech.edup? Manager, sequence analysis facility, biology division, Caltech n   ------------------------------  % Date: Tue, 03 Oct 2000 20:16:02 +0200 = From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com>  Subject: Re: Macro Reference) Message-ID: <39DA2262.82D39BB5@gtech.com>   * fabio_compaq@ep-bc.petrobras.com.br wrote:I > Where can I get some references (manuals)  of OpenVMS Macro Assembler ?:9 > I need a good student material (from zero) if possible.:  B There are a Macro-32 manual which are part of the VMS docset (also available over WWW).  : For student usage I would recommend a real book. There are5 several (older) books about the noble art of Macro-32  programming.  6 See f.ex. http://www.levitte.org/~ava/vms_book.htmlx !   Arne   ------------------------------  $ Date: Tue, 3 Oct 2000 22:45:04 -0400# From: "Ram Rajadhyaksha" <dev@null> $ Subject: Re: MicroVax 3100 Questions Message-ID: <39da99d7$1@news>O  F > My suggestion would be to explicitly use /REWIND on the first BACKUP command;J > otherwise, it will read the tape and skip over any existing files to the > current end-of-tape.    > Hmmm. I'm a bit confused. I ran a backup, something like this:  ? BACKUP/LOG/LABEL=BLAH DKA100:[000000...]*.*;* MKA700:BACKUP.SAVD  L Unfortunately the backup spanned more than one tape. The system console cameL up with an "OPCOM" message asking me if I wanted to QUIT, OVERWRITE, or NEW.L However, it didn't give me any facility to type in a response!! I eventually> just Ctrl-C out of the process and basically hosed the backup.  L What magic do I need to do to respond to the console? I tried REPLY/TO= with+ the ID of the request but that didn't work.    Regards,   -- Ram Rajadhyaksha DLZ Corporationo www.dlzcorp.com    ------------------------------  $ Date: Wed, 4 Oct 2000 01:04:08 -0400  From: John Santos <JOHN@egh.com>$ Subject: Re: MicroVax 3100 Questions4 Message-ID: <1001004005802.338B-100000@Ives.egh.com>  + On Tue, 3 Oct 2000, Ram Rajadhyaksha wrote:   H > > My suggestion would be to explicitly use /REWIND on the first BACKUP
 > command;L > > otherwise, it will read the tape and skip over any existing files to the > > current end-of-tape. >  > @ > Hmmm. I'm a bit confused. I ran a backup, something like this: > A > BACKUP/LOG/LABEL=BLAH DKA100:[000000...]*.*;* MKA700:BACKUP.SAV  > N > Unfortunately the backup spanned more than one tape. The system console cameN > up with an "OPCOM" message asking me if I wanted to QUIT, OVERWRITE, or NEW.N > However, it didn't give me any facility to type in a response!! I eventually@ > just Ctrl-C out of the process and basically hosed the backup. > N > What magic do I need to do to respond to the console? I tried REPLY/TO= with- > the ID of the request but that didn't work.   0 $ reply/to=request-id "OVERWRITE"  ! or whatever  $ is the correct way to reply to this.  = If you are not doing this from the console, you will probably @ need to "$ reply/enable" first.  You will need OPER privilege to do this.  > Alternatively, you can add /NOASSIST to the backup command and= backup will prompt you for the input directly on the terminal ; BACKUP is running on, and you can just type in your answer.   > The default /ASSIST is mostly useful when BACKUP is running in? a batch job or when you are running it from a terminal far away  from the tape drive.   --   John Santos7 Evans Griffiths & Hart, Inc. 781-861-0670 ext 539   ------------------------------  % Date: Tue, 03 Oct 2000 23:16:34 +0200 = From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com>  Subject: MQSeries ) Message-ID: <39DA4CB2.CA29188C@gtech.com>1  ' What is the status of MQSeries on VMS ?L    (support ?, version ?, future ?)   Arne   ------------------------------  + Date: Tue, 03 Oct 2000 22:02:30 +0000 (GMT) , From: Bill McLaughlin <mcbill20@hotmail.com> Subject: Re: MQSeries 5 Message-ID: <F92zTMnKXkKo7G45Mvp0000b544@hotmail.com>   F We use it where I work. The MQSeries servers are AIX boxes and we use=	  it on=20 F the Alpha's to talk to the mainframes. I can't speak for IBM but here=	 's the=20  supported platforms page:   4 http://www-4.ibm.com/software/ts/mqseries/platforms/   Bill McLaughlin      >-----Original Message----- < >From: Arne Vajh=F8j Sent: Tuesday, October 03, 2000 3:17 PM >To: Info-VAX@Mvb.Saic.Com >Subject: MQSeries >  >N( >What is the status of MQSeries on VMS ? > ! >(support ?, version ?, future ?): >  >Arne  >  >L  F _____________________________________________________________________= ____F Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.= com.  D Share information about yourself, create your own public profile at= =20k http://profiles.msn.com.   ------------------------------  % Date: Tue, 03 Oct 2000 22:12:15 -0500.+ From: Shael Richmond <ksrich@bellsouth.net>  Subject: Re: MQSeriesg- Message-ID: <39DAA00F.DACE0B4E@bellsouth.net>s   Arne Vajhj wrote: > ) > What is the status of MQSeries on VMS ?e > " > (support ?, version ?, future ?) >   F Version 2.2 eco 9 is the latest.  It's supposedly supported until nextH year.  Rumour had it that version 5 would be out the latter part of this year.a  1 We use it a lot and don't have too many problems.      Shael:   ------------------------------   Date: 3 Oct 2000 19:31:47 GMTR& From: Cthulhu <cthulhu@kadath.deep.it>. Subject: Re: No more SYSDUMP.DMP? No more NTP?( Message-ID: <8rdc73$ob$1@kadath.deep.it>  $ Veli K?rkk? <korkko@decus.fi> wrote:  0 > $ search t.t "--","Can change address"/out=c.c0 > $ search/window=(1,0) c.c "Can change address"  ( Ok, SEARCH works better than my eyes. :)   ****************************** DATA$DIA1:[TMP]X.LIS;1  C           -- ESA0 Template Unit Information  3-OCT-2000 10:34:29 -- L Padding mode                      ON    Can change address               OFF ***************yF        -- ESA3 60-03 (DECNET) Unit Information  3-OCT-2000 10:34:30 --L Padding mode                      ON    Can change address               OFF ***************,D          -- ESA4 08-00 (IP) Unit Information  3-OCT-2000 10:34:34 --L Padding mode                     OFF    Can change address               OFF ***************cD         -- ESA5 08-06 (ARP) Unit Information  3-OCT-2000 10:34:35 --L Padding mode                     OFF    Can change address               OFF ***************oA            -- ESA6 86-DD Unit Information  3-OCT-2000 10:34:38 -- L Padding mode                     OFF    Can change address               OFF   So, is it so bad?t  And how can I change that state?  I > I decided not to post all thos 1700 lines from SDA> SHOW LAN/FULL. NoteH  
 Thanks! :P   	cuttingly,.
 	  Cthulhu -- t  G        Ph'nglui mglw'nafh Cthulhu http://www.rlyeh.it wgah'nagl fhtgan!i# 		        <cthulhu at rlyeh dot it>e   ------------------------------  % Date: Tue, 03 Oct 2000 14:29:15 -0700 0 From: Mark Berryman <Mark.Berryman@Mvb.Saic.Com>1 Subject: Re: ODS-5 anybody using - any problems ?e, Message-ID: <39D9ED3B.6BB862F7@Mvb.Saic.Com>   i.burgess@UQ.edu.au wrote: > B > DFO (version on September CONDIS CDs) does not understand ODS-5. > * > Disk File Optimizer for OpenVMS DFG V2.5D > Copyright  Compaq Computer Corp. 1991,1999.   All rights reserved9 > %DFG-W-NOTODSDEV, DSKXXX is not an ODS-2 mounted device4  F Obtain ECO DFGE01025 from Compaq support.  This ECO contains DFG 2.5-1F and does support ODS-5 disks.  Since this is a complete kit, it is not= even necessary to install DFG 2.5 before installing this ECO.u  
 Mark Berryman  Mark.Berryman@Mvb.Saic.Com   ------------------------------  $ Date: Tue, 3 Oct 2000 11:04:52 -0400, From: "Fletcher Hearns" <hearns@softapp.com> Subject: OpenVMS in the News.M( Message-ID: <8rct05$co6@news1.gtech.com>  K Just found this @ http://www5.compaq.com/newsroom/pr/2000/pr2000100301.html@ OpenVMS get some press.k    H                                  Compaq Unveils New and Enhanced OpenVMSL                                   Capabilities to Meet Customers' E-Business@                                                     Requirements  E                                     Long-Term Commitment to Customers6	 Continuese  F                             HOUSTON, October 3, 2000 - Compaq Computer Corporation (NYSE: CPQ)iD                             today announced new and enhanced OpenVMS operating system softwareiH                             products and capabilities designed to enable" millions of users around the worldL                             to fully meet the enormous requirements of their e-business environment, andqL                             take full advantage of the power and performance of the Internet.  L                             Highlighting today's announcement is the release of OpenVMS V7.3, the latestsI                             version of Compaq's highly regarded operating  system, which delivers new and(                             improved RASE (reliability/availability/scalability) capabilities; new additions topK                             Compaq's touted Galaxy software architecture to2 support the new CompaqE                             AlphaServer GS Series systems; along with  several new e-business-related>                             products and technologies such as:  J                                  Compaq Secure Web Server V1.0 for OpenVMS Alpha - a powerful,aL                                  flexible Web server based on the Apache Web Server which provides G                                  128-bit encryption technology, all thes standard Apache extensions andA                                  Java and Perl scripting support.dG                                  Compaq Java 2 Software Development Kita (SDK) Standard EditionH                                  v1.2.2 for OpenVMS Alpha - provides the latest technology from SunH                                  Microsystems to develop and deploy Java applications on OpenVMS Alpha.H                                  Compaq Advanced Server V7.3 for OpenVMS Alpha - a Windows J                                  2000-compatible enterprise file and print server for the OpenVMSH                                  operating system which provides Windows desktops with highly availableE                                  services through OpenVMS clustering. K                                  Attunity Connect "On Platform" Package forC	 OpenVMS -lA                                  object-oriented middleware which  facilitates the development ofI                                  applications that access, integrate, and  update data from multiple,J                                  heterogeneous sources across a wide range of operating systema+                                  platforms.lA                                  OpenVMS Enterprise Directory fors E-Business - provides highlyK                                  scalable directory information services toe end-users, and applications andc5                                  software developers.-J                                  Compaq TCP/IP Services V5.1 for OpenVMS - provides interoperabilityuI                                  and resource sharing among other systems  running OpenVMS, UNIX,J                                  Windows NT, Windows 2000, and others that support TCP/IP and NFS. G                                  Compaq DECforms Web Connector V3.0 - ae layered software productH                                  that provides transparent Web access to" existing interactive applications.L                                  Reliable Transaction Router V4.0 - provides customers with an L                                  object-oriented interface, Web-based system management, and ?                                  transaction shadow performance 
 enhancements.5>                                  CD-ROM for OpenVMS E-Business" Infrastructure - an alternative toL                                  downloading products from the Web, which is fully licensed and supportedI                                  as part of the OpenVMS operating system.-H                                  Compaq DECram V3.0 for OpenVMS - a disk device driver thatH                                  improves I/O performance by allowing an OpenVMS system manager toHL                                  create pseudo disks (RAMdisks) which reside in main memory.f  L                             Today's announcement advances Compaq's long-term commitment to OpenVMSyH                             operating system users around the world-both long-time users as well as aL                             growing list of new customers-who are benefiting from an operating system?                             that provides the highest levels oft4 availability, scalability, reliability, security andI                             price-performance for enterprise and InternetA
 computing.  E                             Rich Marcello, Vice President of Compaq'sg OpenVMS Group, said, "With theL                             unprecedented expansion of the Internet, and use of the World Wide Web,C                             customers require the highest levels ofs% technology possible to enable them toeA                             compete and win in today's e-businessV& environment. Compaq continues to offerL                             that cutting-edge technology as evidenced by our expanding portfolio ofF                             OpenVMS products and capabilities unveiled today."0  F                             Customers today need an integrated, highly reliable Internet platform that-I                             facilitates application integration, providesT lightning access to files andCI                             applications, provides the ability to execute$! multiple operations concurrently,eF                             and offers a computing environment that is! easily managed from a remote sitebI                             and adaptable to meet the constantly changing  needs of day-to-day business.   J                             Compaq's OpenVMS operating system provides for all this today, and thisL                             technology will continue to be developed to meet customer needs as new.L                             e-business requirements take on expanded demands for the future.i  ?                             OpenVMS - New Business Developments   I                             Recent business developments designed to meet  customer needs well into theK                             future confirm Compaq's long-term commitment too its OpenVMS operating-#                             system.0  I                             New business initiatives announced today are:u  I                                  Compaq and Cerner ASP Agreement - Compaq@
 and CernerD                                  Corporation, a leading developer of# clinical and management informationtH                                  systems, have entered into a five-year, multi-million dollar agreementF                                  through which Compaq will provide its AlphaServer systems withF                                  StorageWorks products and its OpenVMS operating system for use in-J                                  Cerner's new state-of-the-art Application Server Provider (ASP) Central:-                                  Data Center.8C                                  Compaq OpenVMS Educational Licensef Program - available to allK                                  educational institutions around the world,a  it provides single user licensesJ                                  for the OpenVMS operating system and many layered products to anJ                                  unlimited number of students, faculty and administrators in each8                                  registered institution.6                                  OpenVMS portal at URL, http://www.openvms.compaq.com - will provideH                                  OpenVMS operating system fans and users with an easy way to findG                                  information about OpenVMS products and  services, buy OpenVMSrJ                                  products through the Web, train employees on the OpenVMS operatingK                                  system, and search for people with OpenVMSe
 expertise.D                                  Expanded global systems integration program - Compaq will beJ                                  recruiting new vendors to deliver OpenVMS
 solutions.D                                  DII COE Certification - Compaq will# actively seek certification per thesJ                                  Defense Information Infrastructure Common Operating Environment (DIIH                                  COE) set of standards and guidelines to reach new customers in the U.S.s8                                  Government marketplace.J                                  Compaq & Digital Press Agreement - Compaq and Digital Press willB                                  continue to enhance their working' relationship to update existing DigitalaK                                  Press OpenVMS titles, generate new titles,j and carry out joint marketingsK                                  activities such as cross-promotion throughe their respective channelK                                  partners. Both parties are already workingi together to develop futureC                                  products and investigate Web-basedt	 delivery.K  (                             About Compaq  I                             Compaq Computer Corporation, a Fortune Globals 100 company, is the largestnG                             supplier of computing systems in the world.e Compaq designs, develops,cI                             manufactures, and markets hardware, software,a solutions, and services,K                             including industry-leading enterprise computingO solutions, fault-tolerantsK                             business-critical solutions, and communicationso products, commercial desktopD                             and portable products, and consumer PCs.  I                             Compaq products and services are sold in more  than 200 countries directly toG                             businesses, through a network of authorizedt Compaq marketing partners, andH                             directly to businesses and consumers through Compaq's e-commerce Web siteH                             at http://www.compaq.com. Compaq markets its products and services primarilytA                             to customers from the business, home,C" government, and education sectors.I                             Customer support and information about CompaqO and its products and servicesdC                             are available at http://www.compaq.com.t  "                             Notes:F                             Compaq and the Compaq logo Registered U.S.* Patent and Trademark Office. Product namesE                             mentioned herein may be trademarks and/ord) registered trademarks of their respectiveII                             companies. This financial discussion containst+ forward-looking statements based on currentlK                             expectations that involve a number of risks and.& uncertainties. The potential risks andL                             uncertainties that could cause actual results to( differ materially include: delays in theI                             implementation of changes in delivery models,e* component shortages, increased competitiveH                             environment and pricing pressures, delays in2 product rollout schedules, slow acceptance for newJ                             form factors, changes in product, customer and- geographic sales mix, employee retention, theFK                             financial condition of resellers, delays in new92 systems implementation, operational inefficienciesF                             related to sales cycles, equity investment1 volatility, emerging market political or economic0B                             instability and disruptions related to9 restructuring actions. Further information on the factorsaK                             that could affect Compaq's financial results is , included in Compaq's Securities and ExchangeJ                             Commission (SEC) filings, including the latest) Annual Report on Form 10-K and the latestm:                             quarterly report on Form 10-Q.  )                             return to topd   ------------------------------  % Date: Tue, 03 Oct 2000 20:04:25 +0200s= From: Arne =?iso-8859-1?Q?Vajh=F8j?= <arne.vajhoej@gtech.com>r( Subject: Re: OpenVMS Integrated products) Message-ID: <39DA1FA9.AC08A9F1@gtech.com>_  * fabio_compaq@ep-bc.petrobras.com.br wrote:H > Sometimes I think to myself why some important products dont come with > OpenVMS or REQUIRE a license4 >  if for  Unix these products are standard/bundled: >  > Compaq C/C++
 > DW Motif > TCP/IP Services  > 
 > What more ?    ????  A Most/all VMS Alpha systems shipping in recent years has come withR1 a NAS license that includes (DECnet, UCX, Motif).u  6 I am not aware of any major commercial Unix that ships9 with a commercial C or C++ compiler. They all want money.)   Arne   ------------------------------  $ Date: Tue, 3 Oct 2000 16:58:37 -04004 From: "Carsten Neuer" <carsten.neuer.nospam@usa.net> Subject: PF keys+ Message-ID: <8rdh60$leo$1@news.btv.ibm.com>m  J Can anybody help me out, how I can use the PF1, PF2, PF3 and PF4 key on myH DEC/VMS system, when I'm logging onto it from a PC or a Unix workstation thru a telnet connection????  + Thanks a lot in advance, you saved my live!e Carsten    ------------------------------   Date: 3 Oct 2000 21:50:30 GMT") From: leslie@clio.rice.edu (Jerry Leslie)c Subject: Re: PF keys' Message-ID: <8rdkb6$nad$1@joe.rice.edu>*  3 Carsten Neuer (carsten.neuer.nospam@usa.net) wrote: G : Can anybody help me out, how I can use the PF1, PF2, PF3 and PF4 key dE : on my DEC/VMS system, when I'm logging onto it from a PC or a Unix F) : workstation thru a telnet connection???E :T- : Thanks a lot in advance, you saved my live!d	 : Carsten    I'll address the PC issue:  ?   The Microsoft telnet client is broken, most likely by design.0@   AFAIK, it's never supported the numeric keypad used by VMS and   unix editors.     You can replace it with:     o KERMIT, available at:*  #     http://www.columbia.edu/kermit/f    o Reflection, available at:      http://www.wrq.com/    o QVT/Term 4.3f, available at:       http://www.qpc.com/  4 --Jerry Leslie     (my opinions are strictly my own)   ------------------------------  $ Date: Tue, 3 Oct 2000 21:01:59 -04002 From: "William Hymen" <t18_pilot@hotmail.spam.com> Subject: Re: PF keys5 Message-ID: <DevC5.3636$UP5.41586@news6.giganews.com>r  2 Also consider Pathworks Excursion. I've been using% it for several years without a hitch.u- Currently I use the Decwindows Motif support.g   Bill    = Carsten Neuer <carsten.neuer.nospam@usa.net> wrote in message-% news:8rdh60$leo$1@news.btv.ibm.com...1J Can anybody help me out, how I can use the PF1, PF2, PF3 and PF4 key on myH DEC/VMS system, when I'm logging onto it from a PC or a Unix workstation thru a telnet connection???   + Thanks a lot in advance, you saved my live!C Carstenn   ------------------------------  % Date: Tue, 03 Oct 2000 14:10:44 -0700y0 From: Mark Berryman <Mark.Berryman@Mvb.Saic.Com>( Subject: Re: Privileges needed for PHONE, Message-ID: <39D9E8E4.658E6EF6@Mvb.Saic.Com>   Zane H. Healy wrote: > ; > Gotfryd Smolik, VMS lists <gotfryd@stanpol.com.pl> wrote: & > >  But that is the one way to check:C > > 1. remove all privileges from SYSTEM user session and check, ifa> > >  PHONE works; if yes - then the suspected reason may be in< > >  file protection (because "system user" and "disk owner"/ > >  or group) or process quotas mentioned hereV; > > 2. if not - add privileges one-by-one (och, yes, can be 7 > >  with the "check half" alghoritm done) and find the/ > >  required... > M > OK, I can see where this makes sense, BUT, is it safe?  Somehow this sounds G > dangerous to me.  Of course I could always go the other route and adde" > everything to a user account....  D ( I really thought someone would beat me to the "correct" answer, asH usually happens, but not this time, I guess.  Otherwise, I wouldn't have waited so long to post.)  I There is a DSNlink article regarding this.  The title of the article is:    7 Non-Privileged Users Can't Use PHONE Under OpenVMS V7.2S  D Beginning with VMS V7.2, phone must be installed with privileges (orE perhaps it was additional privs, I no longer remember).  For whatever E reason, V7.2 itself did not get updated to install with all necessaryrE privileges, you must do that yourself (subsequent versions do add thed privs to the install).  1 According to the article, the required privs are: + SYSNAM, PRMMBX, WORLD, OPER, NETMBX, SYSPRVt  B I remember encountering this problem on V7.2 and this does fix the problem.  
 Mark Berrymanr Mark.Berryman@Mvb.Saic.Com   ------------------------------  # Date: Tue, 03 Oct 2000 21:15:04 GMTi2 From: "Zane H. Healy" <healyzh@shell1.aracnet.com>( Subject: Re: Privileges needed for PHONE3 Message-ID: <s%rC5.72$_7.32936@typhoon.aracnet.com>r  " Veli Krkk <korkko@decus.fi> wrote:* > The safe way to remove privileges is to   + > $ set process/privileges=(noall,net,tmp)  	 > $ spawn  > $ phone xxxxxa
 > $ logout  1 > and similar way with larger set of prvivileges.a  L Thank You, that was quick, painless, and I think informative.  The one thingE I noticed when I did this and a SHO PROCESS/PRIV was that SYSTEM has:p   Process rights: +  SYSTEM                            resourceh#  INTERACTIVE                       e#  REMOTE                             #  NET$MANAGE                        t   while my user account has:   Process rights:2+  [500,500]                         resourcei#  INTERACTIVE                        #  REMOTE                            t  * Now to try and figure out what that means.   			Zane    ------------------------------  # Date: Tue, 03 Oct 2000 22:36:04 GMTl2 From: "Zane H. Healy" <healyzh@shell1.aracnet.com>( Subject: Re: Privileges needed for PHONE3 Message-ID: <obtC5.76$_7.34002@typhoon.aracnet.com>e  " Veli Krkk <korkko@decus.fi> wrote:= > I checked it and in the case of LOCAL NODE, DECnet does not 9 > apply. PHONE bypassed DECnet completely. The V7.2 Alpha 9 > however rings bells... There was problem on either V7.2e7 > or V7.2-1 with images installed with privileges. IIRC : > the problem was observed with a subprocess not correctly= > inheriting image privileges, maybe this is similar problem.   7 > What patches are there installed on this V7.2 system?n   > _velis  J HEY!  I think you're on to something there!  The Node in question only has the following patch installed:   DEC AXPVMS VMS72_BACKUP V1.0  K I've got a workstation that seems to be far more up-to-date on the patches, G and just tested PHONE on it and everything worked fine.  The WS has the  following patches:   DEC AXPVMS VMS72_ACRTL V1.0m DEC AXPVMS VMS72_BACKUP V1.0 DEC AXPVMS VMS72_GRAPHICS V1.0 DEC AXPVMS VMS72_MOUNT96 V1.0r DEC AXPVMS VMS72_PTHREAD V2.0  DEC AXPVMS VMS72_SHADOWING V1.0r DEC AXPVMS VMS72_TRACE V1.0v DEC AXPVMS VMS72_UPDATE V2.0  H Something tells me it's probably the last patch there that I'm needing. F I'll have to try to find time tonite and see about getting the patchesI installed.  Better also spend a little time investigating what newer ones  are available for V7.2.C   				Zane   ------------------------------  % Date: Tue, 03 Oct 2000 20:56:31 -0400v, From: Howard S Shubs <hshubs@mindspring.com>( Subject: Re: Privileges needed for PHONE> Message-ID: <hshubs-B081A1.20563103102000@news.mindspring.com>  = In article <39D3867A.82D3AFE5@tsoft-inc.com>, David A Froble t <davef@tsoft-inc.com> wrote:  K >Normal default privs are TMPMBX and NETMBX.  Not sure which if either are   >used,H >but with them phone seems to work fine.  Are these set up for the user 	 >account?e  B IIRC, PHONE is usually installed with privs.  I forget which ones. --   Howard S Shubs# "Run in circles, scream and shout!"    ------------------------------  # Date: Wed, 04 Oct 2000 01:20:24 GMT-2 From: "Zane H. Healy" <healyzh@shell1.aracnet.com>( Subject: Re: Privileges needed for PHONE3 Message-ID: <sBvC5.84$_7.35112@typhoon.aracnet.com>r  1 Mark Berryman <Mark.Berryman@mvb.saic.com> wrote: 3 > According to the article, the required privs are:d- > SYSNAM, PRMMBX, WORLD, OPER, NETMBX, SYSPRV   D > I remember encountering this problem on V7.2 and this does fix the
 > problem.  K I just made this change and it fixes it!  Thanks!  Of course as per anothero; note I still need to get this system up-to-date on patches!    			Zanet   ------------------------------  % Date: Tue, 03 Oct 2000 21:23:23 +0100 + From: Ray Swadling <ray@rgscomputing.co.uk>e& Subject: Re: Problems buying an Alpha?8 Message-ID: <1gfkts8h5s67sn6q1ordpcdjevj10gueqq@4ax.com>  D Well, my current site works through a reseller, and I've just spec'dA and ordered three DS10-based systems. Each system only has 6x18GB,< drives, 512MB memory,etc. to use as test environments for an application upgrade.  D Never thought to approach Compaq, as most companies I work at aren't8 big enough to warrant a salesman as in the days of yore.B This has been the case for some years now in the UK. Compaq shouldD certainly be able to put you in touch with a reseller, and they (theA resellers) are only to keen to sell you any size system you want.a  D Don't know where you are located, but there are several resellers inF the UK/Europe who I have contacts with and who would be happy to help.E They will spec a system based on your requirements - for that matter, @ let me know some details and I could suggest some configurations myself.n     Ray.    E On Tue, 03 Oct 2000 13:17:13 GMT, fooguy <jweisen@my-deja.com> wrote:i  5 >Am I the only person Compaq won't sell equipment to?  > D >We're a non-profit with a couple legacy financial applications, oneH >which is RMS and the other was, but is now Oracle. As time has gone on,G >we've replaced a Vax with a Micro, a Micro with an Alpha (Alpha Server I >2000), an Alpha with an Alpha (Alpha Server 800) and now it's time to dotF >it again. The thing is, I cannot get Compaq to put us in touch with a3 >sales rep so I can spec out a new system for 2001.  > F >Sure, we're small. A dual processor system is overkill, but does thatD >mean we're not good enough to own an Alpha? I've contacted Compaq 4F >times this year to try and get in touch with someone. I finally foundC >out our Sparc supplier can get Compaq equipment, but I'm not a DEC G >person, I find it kind of hard to spec out my own system. I'm not suren >what I do and don't need. > F >Sorry I'm rambling. Just wondering if I'm the only one who's not good" >enough to buy new Alpha hardware.   ------------------------------   Date: 3 Oct 2000 21:49:06 GMTr2 From: mathog@seqaxp.bio.caltech.edu (David Mathog)& Subject: Re: Problems buying an Alpha?+ Message-ID: <8rdk8i$md@gap.cco.caltech.edu>   Y In article <39D9E574.8A7EFBE0@bbc.co.uk>, Tim Llewellyn <tim.llewellyn@bbc.co.uk> writes:  >  >  >fooguy wrote: >i7 >> Am I the only person Compaq won't sell equipment to?  >>F >> We're a non-profit with a couple legacy financial applications, oneJ >> which is RMS and the other was, but is now Oracle. As time has gone on,I >> we've replaced a Vax with a Micro, a Micro with an Alpha (Alpha Server K >> 2000), an Alpha with an Alpha (Alpha Server 800) and now it's time to docH >> it again. The thing is, I cannot get Compaq to put us in touch with a5 >> sales rep so I can spec out a new system for 2001.o  I I don't think that you can't buy it from them directly.  Try one of theseo (in no particular order)     http://www.psds.com/   http://www.glcomp.com/   http://www.tcdigital.com/e   http://www.nthgencomp.com/   Regards,   David Mathog mathog@seqaxp.bio.caltech.edut? Manager, sequence analysis facility, biology division, Caltech     ------------------------------  # Date: Tue, 03 Oct 2000 18:32:45 GMT " From: fooguy <jweisen@my-deja.com>/ Subject: Putting some *zip* back in our apps... ) Message-ID: <8rd8od$6ic$1@nnrp1.deja.com>S  F Our oh so poorly designed A/R database (Oracle) needs to be dumped andD reloaded, and our AP/GL package needs to have a convert/fdl done. An amazing coincidence.  D I was pondering an image backup and restore on the RAID array, and IE wondered if anyone had any suggestions as to the order this should be E done in? The file system, then Oracle and the RMS files, or the otherr way around?O   Thanks,u John   --- *********************************************i( "All I every wanted from life was to see, Larry Wall give Bill Gates a Perl Necklace."   /* John Eisenschmidta, fooguy AT AT AT eisenschmidt DOT DOT DOT org (you know the drill) */    & Sent via Deja.com http://www.deja.com/ Before you buy.t   ------------------------------  % Date: Tue, 03 Oct 2000 15:39:57 -0400.- From: JF Mezei <jfmezei.spamnot@videotron.ca>i' Subject: Re: Reset file version number? , Message-ID: <39DA3606.330105AE@videotron.ca>  
 Simplest way:e   $PURGE MYFILE.DATi $RENAME MYFILE.DAT  ;1  L First line ensure there are no versions below it. Second line simply renamesL the highest version of the file (and the only one because of the purge) to a= version 1, no matter what the version number of the original.n  L Technically, you should also add SET FILE MYFILE.DAT/PROT=(O:RWED) to ensureG that rename can be done (rename requires delete privilege on the file).n   ------------------------------  $ Date: Tue, 3 Oct 2000 20:05:35 -0400. From: "Steven Shamlian" <not.an@earthling.net>/ Subject: Re: Shark x Penguin : The OpenVMS Logo,2 Message-ID: <8rds9s$cio$1@slb1.atl.mindspring.net>   Re your "update":mC BOOOOOO.  It was already at what it should be like.  Reality sucks.  =+=Steve=+=r  : "JF Mezei" <jfmezei.spamnot@videotron.ca> wrote in message& news:39D4F0B4.556C67DE@videotron.ca... > re the shark logo. >s4 > I have updated the logo to what it SHOULD be like: > 0 > http://pages.infinit.net/vaxinat/vms-shark.gif   ------------------------------  % Date: Tue, 03 Oct 2000 21:38:01 -0400o- From: JF Mezei <jfmezei.spamnot@videotron.ca> / Subject: Re: Shark x Penguin : The OpenVMS Logoe, Message-ID: <39DA89F4.A778ACE0@videotron.ca>   Steven Shamlian wrote: >  > Re your "update": E > BOOOOOO.  It was already at what it should be like.  Reality sucks. 2 > > http://pages.infinit.net/vaxinat/vms-shark.gif    L Well, my logo has the real "VMS" name, and instead of having the now defunctM DIGITAL name, it has the current Compaq name. Don't understand why you're not  happy with it.   ------------------------------   Date: 4 Oct 2000 04:54:50 GMT.O From: ccburgess@uqstu.jdstory.uq.edu.au (Ian Burgess, University of Queensland) A Subject: Re: Spawn fails with "%SYSTEM-W-MBFULL, mailbox is full"l. Message-ID: <8red6q$g13$1@bunyip.cc.uq.edu.au>  P In article <1001003051026.338A@Ives.egh.com>, John Santos <JOHN@egh.com> writes:) >On Tue, 3 Oct 2000, Mike Rechtman wrote:t >m: >> Try increasing (doubling?) defmbxbufquo and defmbxmxmsg  A Both were at the Autogen default and doubling both does not help.   9 A suggestion from Ian Mackay <IMackay@nine.com.au> to tryn  .        spawn/nological/nosymbols dir login.com  O was instructive.  That works, as does spawn/nological/nokey, but spawn/nologic,t- spawn/nokey or spawn/nosymbol alone does not.   G There does not seem an inordinate amount in the symbol or logical tabler     $ @tt:/out=temp    _$ sho sym/global/all    _$ sho log/proc *i
   _$  Exit   $ sea temp xxxxx/stato! shows  Characters searched:  5173iE compared with a bigger system which gives Characters searched:  13495lH and has no trouble with the default defmbxbufquo and defmbxmxmsg values.   >>  % >> Note: What VMS version? Alpha/VAX?  >t7 >Ian answered both questions in the part you snipped...  >V6.2, Alpha 2000. >  >> i >> Mikeo >> o/ >> Ian Burgess, University of Queensland wrote:a >> > p >> > a >> >   $ spawn dir login.com/ >> >   %DCL-S-SPAWNED, process SYSTEM_1 spawnednA >> >   %DCL-S-ATTACHED, terminal now attached to process SYSTEM_1 : >> >   %DCL-S-RETURNED, control returned to process SYSTEM( >> >   %SYSTEM-W-MBFULL, mailbox is full >> >   $ >> <...snip...>  >> > Cheers, >> >        Iana >c@ >This could be something completely different.  Maybe one of the@ >system processes (accounting, security audit server, opcom, ??)D >that depends on mailboxes has died and is not emptying its mailbox. > ? >The mailbox has gotten full and so the system won't let you do 4 >anything that tries to write another message to it. >- >Do normal logins still work?  0  G Yes.  The only problems are associated with spawn and other sub-processc creation failing.O  . >Has this behaviour persisted across a reboot?   Yes (that bit was snipped too).q4 Seems to rule out other system processes in trouble.   >l? >Just a wild guess, but if the other suggestions don't help, itE >might be worth checking out.    >d> >(I think when VMS sends logical names and symbols through theA >spawning mailbox, it likely has the spawner wait for the spawneesA >to read when the mailbox gets full.  I can't think of any reasonc< >not to wait, and it means spawning wouldn't be sensitive to1 >mailbox quotas and you wouldn't get this error.)+ >m@ >One other thing:  The Fine Help for spawn says it can't be used> >if the terminal has an associated mailbox.  I don't know what4 >error you get if it does.  Could this be happening? >sM I telnet or set host (DECnet) or use my favorite terminal emulator, teraterm.u9 No problems with these in the past or to other VMS boxes.n >--  >John Santos   Further tests...  F As mentioned above,  spawn/nological/nosymbols dir login   works okay.  J   Spawning from batch or detached (run/deta sys$system:loginout /input...)M even when the path through sys$sylogin and login.com is the INTERACTIVE path,e works okay.D   Thanks for your thoughts.*   Cheers,         Ian nG -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --tG Ian Burgess                                     I.Burgess@its.uq.edu.auoG Information Technology Services                 Phone:   61 7 336 54074  Prentice Building # The University of Queensland       s BRISBANE AUSTRALIA 4072P   ------------------------------  % Date: Wed, 04 Oct 2000 17:16:41 +11000) From: "Mackay, Ian" <IMackay@nine.com.au> A Subject: RE: Spawn fails with "%SYSTEM-W-MBFULL, mailbox is full"tB Message-ID: <7517D41517E6D11189EB00A0C96B422A01D52DB0@TCNHOFEXC01>  E I just remembered something about a logical pointing to a terminationTH mailbox. It was in the group logical name table of a system I worked on.F Someone had defined it for some reason and it caused problems after an upgrade.  C Just a thought, might be chasing ghosts but have you looked at your.I processes quota? A lot of the quotas are shared in the job tree and maybesG what you are seeing is a false error due to a resource exhaustion. I amr thinking of BYTLM in this case.n  
 Ian Mackay System and Network Manager Nine Network Australia     > -----Original Message-----) > From: ccburgess@uqstu.jdstory.uq.edu.auv, > [mailto:ccburgess@uqstu.jdstory.uq.edu.au]+ > Sent: Wednesday, October 04, 2000 2:55 PME > To: Info-VAX@Mvb.Saic.ComgC > Subject: Re: Spawn fails with "%SYSTEM-W-MBFULL, mailbox is full"  >  > < > In article <1001003051026.338A@Ives.egh.com>, John Santos  > <JOHN@egh.com> writes:+ > >On Tue, 3 Oct 2000, Mike Rechtman wrote:  > >B< > >> Try increasing (doubling?) defmbxbufquo and defmbxmxmsg > C > Both were at the Autogen default and doubling both does not help.  > ; > A suggestion from Ian Mackay <IMackay@nine.com.au> to trym > 0 >        spawn/nological/nosymbols dir login.com > ? > was instructive.  That works, as does spawn/nological/nokey,   > but spawn/nologic,/ > spawn/nokey or spawn/nosymbol alone does not.l > < > There does not seem an inordinate amount in the symbol or  > logical tablet >  >   $ @tt:/out=temp. >   _$ sho sym/global/alle >   _$ sho log/proc *b >   _$  Exit >   $ sea temp xxxxx/statd# > shows  Characters searched:  5173 G > compared with a bigger system which gives Characters searched:  13495s7 > and has no trouble with the default defmbxbufquo and   > defmbxmxmsg values.e >  > >> i' > >> Note: What VMS version? Alpha/VAX?o > >s9 > >Ian answered both questions in the part you snipped...a > >V6.2, Alpha 2000. > >  > >>  	 > >> MikeI > >> '1 > >> Ian Burgess, University of Queensland wrote:i > >> > e > >> > g > >> >   $ spawn dir login.com1 > >> >   %DCL-S-SPAWNED, process SYSTEM_1 spawnedrC > >> >   %DCL-S-ATTACHED, terminal now attached to process SYSTEM_1t< > >> >   %DCL-S-RETURNED, control returned to process SYSTEM* > >> >   %SYSTEM-W-MBFULL, mailbox is full
 > >> >   $ > >> <...snip...>a > >> > Cheers, > >> >        Ian  > >uB > >This could be something completely different.  Maybe one of theB > >system processes (accounting, security audit server, opcom, ??)F > >that depends on mailboxes has died and is not emptying its mailbox. > >lA > >The mailbox has gotten full and so the system won't let you doB6 > >anything that tries to write another message to it. > >e! > >Do normal logins still work?  r > > > Yes.  The only problems are associated with spawn and other 
 > sub-processr > creation failing.s > 0 > >Has this behaviour persisted across a reboot? > ! > Yes (that bit was snipped too).t6 > Seems to rule out other system processes in trouble. >  > >eA > >Just a wild guess, but if the other suggestions don't help, it ! > >might be worth checking out.  a > >h@ > >(I think when VMS sends logical names and symbols through theC > >spawning mailbox, it likely has the spawner wait for the spawneeYC > >to read when the mailbox gets full.  I can't think of any reasons> > >not to wait, and it means spawning wouldn't be sensitive to3 > >mailbox quotas and you wouldn't get this error.)  > > B > >One other thing:  The Fine Help for spawn says it can't be used@ > >if the terminal has an associated mailbox.  I don't know what6 > >error you get if it does.  Could this be happening? > >u< > I telnet or set host (DECnet) or use my favorite terminal  > emulator, teraterm. ; > No problems with these in the past or to other VMS boxes.c > >--  > >John Santos >  > Further tests... > H > As mentioned above,  spawn/nological/nosymbols dir login   works okay. > . >   Spawning from batch or detached (run/deta   > sys$system:loginout /input...)> > even when the path through sys$sylogin and login.com is the  > INTERACTIVE path,e
 > works okay.  >  > Thanks for your thoughts.a > 	 > Cheers,i
 >        Ian I> > -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
 > -- -- -- --i2 > Ian Burgess                                      > I.Burgess@its.uq.edu.aus@ > Information Technology Services                 Phone:   61 7  > 336 54074g > Prentice Building % > The University of Queensland       n > BRISBANE AUSTRALIA 40722 >    ------------------------------  # Date: Wed, 04 Oct 2000 03:47:51 GMTn5 From: "Larry D Bohan, Jr" <LBohan@dbc.spam_less..com>i Subject: Re: SWCC and Pathworks 8 Message-ID: <gs9ltsspd5k0t0d27p7qmqjfall5phcavk@4ax.com>  , On Tue, 03 Oct 2000 08:49:01 GMT, Mike Price% <mike.price@littlewoods.co.uk> wrote:   E >We have just installed some RA3000 Raid systems on an Alpha,  I haveV@ >installed the SWCC RA3000 software on my NT PC, which also runs >Pathworks 7.1a. >tH >Once I got SWCC working,Pathworks started refusing to re-connect to theD >pathworks shares on an Alpha (VMS!!) (but not the same ALpha as the >RA3000s are connected to) >nF >This has also happened on another PC - we have scrapped Pathworks and9 >re-loaded it and now it cannot find any license servers.  >aE >I have also scrapped SWCC and restarted the PC and this doesn't helpP >eithers >-7 >Has anyone else had a similar problem (and fixed it??)  >a >TIA >9 >Mike8  - just a wild guess, but did the device and/or t volume names change ?   A http://www.openvms.digital.com:8000/72final/6543/6543pro_008.htmlr   ...  ...,  4.2.3.6 Synchronizing Autoshares  E By default, each disk device available to the Advanced Server when itu& starts is assigned an autoshare name.   8 If you mount a disk device after the server has started,A you must synchronize the available devices using the SET COMPUTER0F command, to make the disk device available to the Advanced Server. For	 example: i  =  LANDOFOZ\\TINMAN> SET COMPUTER TINMAN/AUTOSHARE_SYNCHRONIZE aB  %PWRK-S-AUTOSHRSYNCHED, autoshare synchronization was successful      LANDOFOZ\\TINMAN> e  B In the OpenVMS cluster environment, you must enter this command on every node in the cluster. r   ------------------------------  $ Date: Tue, 3 Oct 2000 13:46:16 -0400% From: "Brian Tillman" <tillman_brian>O8 Subject: Re: Thinking of switching from Multinet to UCX.$ Message-ID: <39da1af0$1@news.si.com>  5 >We are thinking of migrating from Multinet to UCX...    That's a different twist.a  G >1) Is UCX bundled AND supported with the VMS license (i.e. is there an? extrag	 >charge)?t  J UCX (i.e. Compaq TCP/IP for OpenVMS) is a separately licensed product.  ItH is enabled by either the UCX license or one of the NET-APP-SUP licenses.  C >2) What can Multinet do that UCX can't (what will we be giving up)v  J It has an X font server, better XDM, BIND and NFS servers, an IMAP server,L better R-series servers, and a few other features.  Also, it emulates CompaqJ TCP/IP very well, so anything written for Compaq TCP/IP will run unchanged on Multinet.  H >3) Does UCX come with any migration tools.  For example, will I have to5 >recreate all of my TCP/IP print queues from scratch?   > Not that I know of.  Yes, you'll have to recreate your queues. --A Brian Tillman                   Internet: tillman_brian at si.comlA Smiths Industries, Inc.                   tillman at swdev.si.coma= 3290 Patterson Ave. SE, MS      Addresses modified to preventg< Grand Rapids, MI 49512-1991     SPAM.  Replace "at" with "@"8        This opinion doesn't represent that of my company   ------------------------------   Date: 3 Oct 2000 22:58:03 GMT ' From: david20@alpha1.mdx.ac.uk (D.Webb)n8 Subject: Re: Thinking of switching from Multinet to UCX.0 Message-ID: <8rdo9r$gtn$1@aquila.news.mdx.ac.uk>  L In article <39da1af0$1@news.si.com>, "Brian Tillman" <tillman_brian> writes:6 >>We are thinking of migrating from Multinet to UCX... >t >That's a different twist. > H >>1) Is UCX bundled AND supported with the VMS license (i.e. is there an >extra
 >>charge)? >aK >UCX (i.e. Compaq TCP/IP for OpenVMS) is a separately licensed product.  IteI >is enabled by either the UCX license or one of the NET-APP-SUP licenses.  >   E The NAS license may well have come with the machine depending on wheno it was bought. u  D >>2) What can Multinet do that UCX can't (what will we be giving up) >.K >It has an X font server, better XDM, BIND and NFS servers, an IMAP server,dM >better R-series servers, and a few other features.  Also, it emulates Compaq K >TCP/IP very well, so anything written for Compaq TCP/IP will run unchangedg
 >on Multinet.t >.  M UCX has an X Font server. XDMCP is missing - promised for the next version ofd( UCX/DEC TCPIP Services. No IMAP server. L Never used Multinet so I can't comment on your "better" apart from they seem perfectly ok to me.   I >>3) Does UCX come with any migration tools.  For example, will I have ton6 >>recreate all of my TCP/IP print queues from scratch? > ? >Not that I know of.  Yes, you'll have to recreate your queues.  >--o  L I've never heard of any such tools. But then does Multinet provide tools for migrating from UCX or TCPWARE ?(      
 David Webb VMS and Unix team leader CCSS Middlesex University   ------------------------------  $ Date: Tue, 3 Oct 2000 09:33:14 -0400, From: "Fletcher Hearns" <hearns@softapp.com>+ Subject: Re: This list participants profileo( Message-ID: <8rcnng$co5@news1.gtech.com>  J I'm 39 and starting using VMS in college in 1980, sorry don't remember the version.  F After college played around with TI micros, Xerox Sigma X, and PDP-11sK (running RSX and IAS), and VAX 780's for a couple of years.  Then landed at-J Digital.  Worked internal egineering for several years (VAX based softwareI to configure all VAX/PDP systems).  Then landed in the field as technical.E consultant doing pre-sales and consulting. (VMS Partner for 4 years).gA Worked with some major accounts do financial and high performance L transaction systems.  Left Digital in 1994. Now doing consulting work, still4 mostly OpenVMS with a little Tru64 Unix and some NT.  3 Still showing people why VMS is a REAL business OS.      Fletcher Hearnsu	 Presidente S*A*I*Lf 410-465-2391   ------------------------------  % Date: Tue, 03 Oct 2000 14:57:52 -0500 * From: WILLIAM WEBB <WWEBB1@email.usps.gov> Subject: RE: VAX8530- Message-ID: <0033000005747756000002L062*@MHS>i  4 =0AOn further reflection, you're absolutely correct.7 I was thinking about the console cable for a 4000/700A.    WWWebb -----Original Message-----/ From: Info-VAX-Request@Mvb.Saic.Com at INTERNET-( Sent: Tuesday, October 03, 2000 12:12 PM6 To: Webb, William W; Info-VAX@Mvb.Saic.Com at INTERNET Subject: RE: VAX8530    
 Greetings,  H The 85xx along with the 87xx machines had a pro380 as the console.  mmj=  was notH what was used...  I do not have the cable type at hand, as we retired t= he 85xxe mahines 8 years ago...   regards,
 john hagan   -----Original Message-----4 From: Webb, William W [mailto:wwebb1@email.usps.gov]' Sent: Tuesday, October 03, 2000 8:25 AMl To: Info-VAX@Mvb.Saic.Coml Subject: RE: VAX8530    H As I recall, the console connects to the 8530 with a MMJ-to MMJ cable a= boutH 25 feet long that also had a ground wire coming out of it in addition t= o the  MMJ...  H Whether it was straight through, crossover or something else, I can't s= ay.u
 Too long ago.S   WWWebb   -----Original Message-----/ From: Info-VAX-Request@Mvb.Saic.Com at INTERNET.( Sent: Tuesday, October 03, 2000 10:52 AM6 To: Webb, William W; Info-VAX@Mvb.Saic.Com at INTERNET Subject: VAX8530    # One of my new machine is a VAX8530.7H One of other VAX fun pepole say: this computer's console is NOT a stand= ard  RS232, or compatible. F Must have a "VAX Console", wich is a microcompter-like box (look about+ DECMate), and used for console for VAX8530.  (i have 2 of VAX Console :) ).  E My question: what type cable(s) must be use for connect this box to a  VAX8530?     --  mailto:michael@goliat.eik.bme.hu Phone: 463-1966=   ------------------------------  # Date: Wed, 04 Oct 2000 00:43:45 GMTb* From: jdavisnn@soupwizard.com (Jeff Davis) Subject: Re: VAX8530+ Message-ID: <39da7d17.5955714@news.his.com>M  . On Tue, 03 Oct 2000 08:46:28 -0700, John Hagan  <jhagan@axarosenberg.com> wrote:  C >The 85xx along with the 87xx machines had a pro380 as the console.-  A By lucky coincidence, I was browsing ebay and saw a "VAX Console,sD PC380-AA" auction has just been posted.  Is that the console needed?  @ http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=457685543   Jeff   ------------------------------   Date: 3 Oct 2000 18:29:49 GMT3) From: leslie@clio.rice.edu (Jerry Leslie)>- Subject: Re: VMS error: %SYSTEM-F-IVIDENT ...o' Message-ID: <8rd8it$c07$1@joe.rice.edu>e  5 Emanuel Marciniak (emarciniak@patientcare.com) wrote:f : Hi,dH :   I did post this message in Sybase group but there were no answers - 2 : looks like Sybase on OpenVMS is not so popular.   : Sybase has EOLed (EOL: "End Of Life") their VMS offerings.  H : The following attachment consists a fragment of Sybase error log file . : and we are getting this error all the time.   1 Was there a time when you didn't get this error ?t  $ If so, what has changed since then ?  H : I assume that the error is specific just to protocol stack and OS. (weI : are running Sybase 11.0.3.3 on OpenVMS on Alpha and Digital TCP/IP aka : : UCX v 4.2 as a TCP stack ).   3 Plain UCX 4.2 or have ECOs (patches been applied) ?>  < You can tell what patches have been applied by the output of "ucx show version":a     $ ucx show version  B     Digital TCP/IP Services for OpenVMS Alpha Version V4.2 - ECO 3?     on a Digital Personal WorkStation  running OpenVMS V7.1-1H2m  % (ECO 4 for UCX V4.2 is now available)   H : I hope someone saw this error before and will give a hint where start K : to look for solution. We are experiencing slowness on the Sybase server, W  F When was the slowness first detected ?  What changed about that time ?  L : but we are not sure what cause what...(slowness causing an error or error I : causing the slowness...). We do not see any problem with our network...e  K Have there been any recent network upgrades, especially ethernet switches, h! or addition of additional nodes ?n  C :   This is client./server - Powerbuilder applications on WNT4.0 - -) : approx. 470 users with 820 connections.  : $ : Thank you in advance for any hint. :n : Emanuel Marciniak 9 : =======================================================aJ : 01:2000/10/03 13:26:38.05 kernel  tcp_attnrcv_defer: Read pending cancel : error, : socket 37, listener 1 K : 01:2000/10/03 13:26:38.07 kernel  - VMS error: %SYSTEM-F-IVIDENT, invalidh : identi
 : fier formathJ : 02:2000/10/03 13:26:39.04 kernel  tcp_attnrcv_defer: Read pending cancel : error, : socket 37, listener 1   "   $ help/message %SYSTEM-F-IVIDENT    &    IVIDENT,  invalid identifier format  (    Facility:     SYSTEM, System Services  E    Explanation:  This message can occur under either of the following                   conditions:  F                 o The specified identifier is not formatted correctly.  F                 o A system call to the $QIO system service specified aA                   channel number that is outside the valid range.   L   User Action:  Take the appropriate action, depending on the circumstances:  J                 o Use one of the valid identifier formats described in theI                   OpenVMS Guide to System Security and retry the command.r  H                 o Modify the code to specify a channel number within the                   valid range.  B A guess would be that there's either a coding error in Sybase, or A something has overwritten the arguments to a $QIO system service.-    4 --Jerry Leslie     (my opinions are strictly my own)   ------------------------------  # Date: Tue, 03 Oct 2000 19:10:18 GMT 6 From: "Emanuel Marciniak" <emarciniak@patientcare.com>- Subject: Re: VMS error: %SYSTEM-F-IVIDENT ...S@ Message-ID: <uaqC5.174626$3E6.1637065@news1.alsv1.occa.home.com>   Jerry, thanks for response..  4 Jerry Leslie <leslie@clio.rice.edu> wrote in message# news:<8rd8it$c07$1@joe.rice.edu>...i7 > Emanuel Marciniak (emarciniak@patientcare.com) wrote:D > : Hi,HI > :   I did post this message in Sybase group but there were no answers -n3 > : looks like Sybase on OpenVMS is not so popular.l >f< > Sybase has EOLed (EOL: "End Of Life") their VMS offerings.  L They did not. They still support v11.0.3.3. But no more new versions (sybase on Unix/NT is now at 12.0) >uI > : The following attachment consists a fragment of Sybase error log fileb/ > : and we are getting this error all the time.  >o3 > Was there a time when you didn't get this error ?eK There were always there - not as much - never got resolved. I tried several- times with Sybase support  and Digital/Compaq team. >.& > If so, what has changed since then ? >rJ > : I assume that the error is specific just to protocol stack and OS. (weJ > : are running Sybase 11.0.3.3 on OpenVMS on Alpha and Digital TCP/IP aka > : UCX v 4.2 as a TCP stack ).1 >05 > Plain UCX 4.2 or have ECOs (patches been applied) ?> >i> > You can tell what patches have been applied by the output of > "ucx show version":? >e >   $ ucx show version > D >     Digital TCP/IP Services for OpenVMS Alpha Version V4.2 - ECO 3A >     on a Digital Personal WorkStation  running OpenVMS V7.1-1H2m > ' > (ECO 4 for UCX V4.2 is now available)l  > Digital TCP/IP Services for OpenVMS Alpha Version V4.2 - ECO 46   on a AlphaServer 8400 5/625 running OpenVMS V7.1-1H2 >nI > : I hope someone saw this error before and will give a hint where start L > : to look for solution. We are experiencing slowness on the Sybase server, >/H > When was the slowness first detected ?  What changed about that time ?I Slowness of server was always the issue. The applications were rewritten,i
 server tuned,sL SQL queries improved... But the number of users grows (from 80 to 470 during 2 years) >aG > : but we are not sure what cause what...(slowness causing an error orn erroreK > : causing the slowness...). We do not see any problem with our network...> > L > Have there been any recent network upgrades, especially ethernet switches,# > or addition of additional nodes ?g' No, but of course there is more users..S >ED > :   This is client./server - Powerbuilder applications on WNT4.0 -+ > : approx. 470 users with 820 connections.o > :u& > : Thank you in advance for any hint. > :F > : Emanuel Marciniak ; > : =======================================================aL > : 01:2000/10/03 13:26:38.05 kernel  tcp_attnrcv_defer: Read pending cancel
 > : error, > : socket 37, listener 1tE > : 01:2000/10/03 13:26:38.07 kernel  - VMS error: %SYSTEM-F-IVIDENT,s invalidy
 > : identi > : fier formateL > : 02:2000/10/03 13:26:39.04 kernel  tcp_attnrcv_defer: Read pending cancel
 > : error, > : socket 37, listener 1  >e$ >   $ help/message %SYSTEM-F-IVIDENT >  >e( >    IVIDENT,  invalid identifier format >w* >    Facility:     SYSTEM, System Services >gG >    Explanation:  This message can occur under either of the following  >                  conditions: >rH >                 o The specified identifier is not formatted correctly. >uH >                 o A system call to the $QIO system service specified aC >                   channel number that is outside the valid range.u >t? >   User Action:  Take the appropriate action, depending on thep circumstances: >wL >                 o Use one of the valid identifier formats described in theK >                   OpenVMS Guide to System Security and retry the command.t >tJ >                 o Modify the code to specify a channel number within the  >                   valid range. >aC > A guess would be that there's either a coding error in Sybase, or.C > something has overwritten the arguments to a $QIO system service.u >m >a6 > --Jerry Leslie     (my opinions are strictly my own)   ------------------------------  # Date: Tue, 03 Oct 2000 22:30:26 GMT ! From: Ian Parker <parker@gol.com>i- Subject: Re: VMS error: %SYSTEM-F-IVIDENT ...n& Message-ID: <0F5koBAlsl25Ew7b@gol.com>  H In article <uaqC5.174626$3E6.1637065@news1.alsv1.occa.home.com>, Emanuel- Marciniak <emarciniak@patientcare.com> writes  >Jerry, thanks for response..  >y5 >Jerry Leslie <leslie@clio.rice.edu> wrote in message $ >news:<8rd8it$c07$1@joe.rice.edu>...8 >> Emanuel Marciniak (emarciniak@patientcare.com) wrote: >> : Hi,J >> :   I did post this message in Sybase group but there were no answers -4 >> : looks like Sybase on OpenVMS is not so popular. >>= >> Sybase has EOLed (EOL: "End Of Life") their VMS offerings.a > M >They did not. They still support v11.0.3.3. But no more new versions (sybasee >on Unix/NT is now at 12.0)M >>J >> : The following attachment consists a fragment of Sybase error log file0 >> : and we are getting this error all the time. >>4 >> Was there a time when you didn't get this error ?L >There were always there - not as much - never got resolved. I tried several >times with Sybase support >and Digital/Compaq team.l >>' >> If so, what has changed since then ?h >>K >> : I assume that the error is specific just to protocol stack and OS. (wesK >> : are running Sybase 11.0.3.3 on OpenVMS on Alpha and Digital TCP/IP akas  >> : UCX v 4.2 as a TCP stack ). >>6 >> Plain UCX 4.2 or have ECOs (patches been applied) ? >>? >> You can tell what patches have been applied by the output ofl >> "ucx show version": >> >>   $ ucx show versionr >>E >>     Digital TCP/IP Services for OpenVMS Alpha Version V4.2 - ECO 3aB >>     on a Digital Personal WorkStation  running OpenVMS V7.1-1H2 >>( >> (ECO 4 for UCX V4.2 is now available) >m? >Digital TCP/IP Services for OpenVMS Alpha Version V4.2 - ECO 467 >  on a AlphaServer 8400 5/625 running OpenVMS V7.1-1H2o >>J >> : I hope someone saw this error before and will give a hint where startM >> : to look for solution. We are experiencing slowness on the Sybase server,e >>I >> When was the slowness first detected ?  What changed about that time ?CJ >Slowness of server was always the issue. The applications were rewritten, >server tuned,M >SQL queries improved... But the number of users grows (from 80 to 470 duringT	 >2 years), >>H >> : but we are not sure what cause what...(slowness causing an error or >errorL >> : causing the slowness...). We do not see any problem with our network... >>M >> Have there been any recent network upgrades, especially ethernet switches,m$ >> or addition of additional nodes ?( >No, but of course there is more users.. >>E >> :   This is client./server - Powerbuilder applications on WNT4.0 -i, >> : approx. 470 users with 820 connections. >> :' >> : Thank you in advance for any hint.o >> : >> : Emanuel Marciniak< >> : =======================================================M >> : 01:2000/10/03 13:26:38.05 kernel  tcp_attnrcv_defer: Read pending cancelX >> : error,n >> : socket 37, listener 1F >> : 01:2000/10/03 13:26:38.07 kernel  - VMS error: %SYSTEM-F-IVIDENT, >invalid >> : identis >> : fier formatM >> : 02:2000/10/03 13:26:39.04 kernel  tcp_attnrcv_defer: Read pending cancelr >> : error,l >> : socket 37, listener 1 >>% >>   $ help/message %SYSTEM-F-IVIDENTq >> >>) >>    IVIDENT,  invalid identifier formats >>+ >>    Facility:     SYSTEM, System Services  >>H >>    Explanation:  This message can occur under either of the following >>                  conditions:  >>I >>                 o The specified identifier is not formatted correctly._ >>I >>                 o A system call to the $QIO system service specified a.D >>                   channel number that is outside the valid range. >>@ >>   User Action:  Take the appropriate action, depending on the >circumstances:' >>M >>                 o Use one of the valid identifier formats described in the0L >>                   OpenVMS Guide to System Security and retry the command. >>K >>                 o Modify the code to specify a channel number within thec! >>                   valid range.. >>D >> A guess would be that there's either a coding error in Sybase, orD >> something has overwritten the arguments to a $QIO system service. >> >>7 >> --Jerry Leslie     (my opinions are strictly my own)r >n >e >a  E Or the application is using invalid channel numbers.  I don't supposeiB there's  any relationship with the file limit quota for the Sybase? accounts or perhaps the sysgen maximum channel count parameter?    Regardsh   Iann -- e
 Ian Parker   ------------------------------  $ Date: Wed, 4 Oct 2000 10:00:11 +0530, From: "krish" <a.krishnamoorthy@digital.com> Subject: volume set copying.* Message-ID: <8rebr3$fh4@usenet.pa.dec.com>  K I am trying to take a image backup of a bound volume set onto another bound, volume set.w   These are the steps i followed.n  - I have 4 disks dkb300 , dkb400, dkb500 dkb600   < 1 -  initialize dkb300 and dkb400 with label test0 and test1> 2-   initizlie    dkb500 and dkb600 with label test2 and test3  # 3- after that i gave a command liker  .      mount/bind=data dkb300,dkb400 test0,test1  L     this created the bound volume set and the logical disk$date was created.*     then i create some files on that......  I  4 - then i mounted the target volume set with a similar command like thee one i gave above.   2        mount/bind=datas dkb500:,dkb600 test2,test3/        this created the target boud volume set.b  F Now my objective is to  take a image backup of the source bound volumeH set(dkb300, and dkb400) to the target bound volume set( dkb500, dkb600).  F Could somebody suggest me a command that can perform the backup of the6 source bound volume set to the target bound voume set.  K I have one more question, some one suggeste me to dismount the target boundeI volumse set, after making them a volumset, and suggested me to mount themg+ foreign and issue a backup. some thing likey  B  after step 4,  dismount dkb500 and dkb600, and mount them foreign separately. # and then issue a command similar toP  6    backup/image/noinitialize disk$data dkb500:,dkb600:  #   But this gives me an error saying(  F   %BACKUP-F-IMGFILSPE, /IMAGE specification must have only device name  L  could somebody suggest me a command to backup a volume set, and tell me how= a mount/foreign command perform backup of a bound volume set.        thanks in advance    -Krish     --@ "Courage is the price that life extracts for granting peace with yourself."Amelia Earhart   ------------------------------   Date: 3 Oct 2000 19:10:33 GMTm* From: bleau@umtof.umd.edu (Lawrence Bleau)+ Subject: Why does TYPE/TAIL sometimes fail?5) Message-ID: <8rdav9$jud$1@hecate.umd.edu>i  K I'm having a problem with TYPE/TAIL.  OS is OpenVMS AXP 7.1-2.  It does not0C work on one of my user's files.  The error message given by TYPE ist  > %TYPE-W-READERR, error reading DISKF1:[PAQUETTE]RUNPMSW.LOG;168 -SYSTEM-E-UNSUPPORTED, unsupported operation or function  N I initially thought it was due to the record format, which is VFC, but I triedI TYPE/TAIL on another VFC file and it worked.  Below is a DIR/FULL of both " files.  ANAL/DISK shows no errors.  
 Any ideas?   ****   Sys_TOF2>DIR RUNPMSW.LOG;16/FULh   Directory DISKF1:[PAQUETTE]-  3 RUNPMSW.LOG;16                File ID:  (1776,21,0)]7 Size:          174/180        Owner:    [MTOF,PAQUETTE]M" Created:    2-OCT-2000 19:39:41.06& Revised:    2-OCT-2000 22:46:08.33 (1) Expires:   <None specified>a Backup:    <No backup recorded>l Effective: <None specified>u Recording: <None specified>  File organization:  Sequential Shelved state:      OnlineF File attributes:    Allocation: 180, Extend: 0, Global buffer count: 0$                     No version limitI Record format:      VFC, 2 byte header, maximum 0 bytes, longest 79 bytese/ Record attributes:  Print file carriage control  RMS attributes:     None Journaling enabled: None= File protection:    System:RWED, Owner:RWED, Group:RE, World:e Access Cntrl List:  None    Total of 1 file, 174/180 blocks.	 Sys_TOF2>,	 Sys_TOF2>m! Sys_TOF2>TYPE RUNPMSW.LOG;16/TAILE> %TYPE-W-READERR, error reading DISKF1:[PAQUETTE]RUNPMSW.LOG;168 -SYSTEM-E-UNSUPPORTED, unsupported operation or function   ****  " Sys_TOF2>DIR/FUL RUNPMSW_NEW.LOG;2   Directory DISKF1:[PAQUETTE]u  2 RUNPMSW_NEW.LOG;2             File ID:  (2960,8,0)7 Size:          171/180        Owner:    [MTOF,PAQUETTE]u" Created:   17-MAY-2000 23:59:54.32& Revised:   18-MAY-2000 04:23:10.06 (1) Expires:   <None specified>3" Backup:     2-OCT-2000 16:03:28.77 Effective: <None specified>r Recording: <None specified>t File organization:  Sequential Shelved state:      OnlineF File attributes:    Allocation: 180, Extend: 0, Global buffer count: 0$                     No version limitI Record format:      VFC, 2 byte header, maximum 0 bytes, longest 79 bytes4/ Record attributes:  Print file carriage control- RMS attributes:     None Journaling enabled: None= File protection:    System:RWED, Owner:RWED, Group:RE, World:V Access Cntrl List:  None    Total of 1 file, 171/180 blocks.	 Sys_TOF2> 	 Sys_TOF2>@$ Sys_TOF2>TYPE/TAIL RUNPMSW_NEW.LOG;22 Next input file is LZ:SO_LZ_G029_20000307_V01.DAT12 Next input file is LZ:SO_LZ_G029_20000308_V01.DAT12 Next input file is LZ:SO_LZ_G029_20000309_V01.DAT12 Next input file is LZ:SO_LZ_G029_20000310_V01.DAT1 [snip more lines]g     Lawrence Bleau University of Maryland" Physics Dept., Space Physics Group 301-405-6223 bleau@umtof.umd.edug   ------------------------------  # Date: Tue, 03 Oct 2000 21:53:03 GMTa' From: Colin Blake <colin@theblakes.com>s/ Subject: Re: Why does TYPE/TAIL sometimes fail?n- Message-ID: <39DA54F4.7028543C@theblakes.com>C  P Reading a sequential file in reverse is not supported by RMS, so TYPE/TAIL readsM the last bit of the file and tries to make some guesses at what it thinks areoQ record boundaries. Most of the time it can figure it out and is able to "sync up"oI with the record structure. But occasionally it can't and then you see the- SYSTEM-E-UNSUPPORTED error.s   ------------------------------   Date: 3 Oct 2000 23:29:40 GMT 2 From: mathog@seqaxp.bio.caltech.edu (David Mathog)/ Subject: Re: Why does TYPE/TAIL sometimes fail?W, Message-ID: <8rdq54$502@gap.cco.caltech.edu>  W In article <39DA54F4.7028543C@theblakes.com>, Colin Blake <colin@theblakes.com> writes:nQ >Reading a sequential file in reverse is not supported by RMS, so TYPE/TAIL readstN >the last bit of the file and tries to make some guesses at what it thinks areR >record boundaries. Most of the time it can figure it out and is able to "sync up"J >with the record structure. But occasionally it can't and then you see the >SYSTEM-E-UNSUPPORTED error.  H That's true, but it also fails in places it should not.  Most notably onG any long stream-lf file.  Now why the heck can't it figure out the fileeE structure of something which is a stream delimited by LF characters? /K The old POSIX tail handled these files with no problem, as does every other  Unix tail implementation.    $ anal/rms All_Dros.Lis_ RMS FILE ATTRIBUTESe  %         File Organization: sequentiale          Record Format: stream-LF+         Record Attributes:  carriage-returne   $ ds All_Dros.List    Directory USRDISK:[USERS.MATHOG]    All_Dros.Lis;4           256/258   $ type/tail all_dros.lisK %TYPE-W-OPENIN, error opening USRDISK:[USERS.MATHOG]All_Dros.Lis;4 as inputi8 -SYSTEM-E-UNSUPPORTED, unsupported operation or function+ -RMS-F-ORG, invalid file organization valuea    $ rcp all_dros.lis unix_system::  # $ rsh unix_system tail all_dros.liss   (works fine)   Regards,   David Mathog mathog@seqaxp.bio.caltech.edu ? Manager, sequence analysis facility, biology division, Caltech e   ------------------------------   End of INFO-VAX 2000.554 ************************