1 INFO-VAX	Sat, 09 Apr 2005	Volume 2005 : Issue 198       Contents: Re: ANN: Character Set Tables L Re: Configuring multi-port NIC on DS10 with DECNET-Plus and TCPIP 5.3 5.35.34 Re: Finding The Right Path For Your VMS Applications4 Re: Finding The Right Path For Your VMS Applications4 RE: Finding The Right Path For Your VMS Applications( Look for isolation and power conditoning  Re: Multiprocessor Microvax II ? NetBeans* Re: problem with router---NAT and caching? Re: Script Kiddie tarpit wanted  Re: Sort Directory by Date Re: Sort Directory by Date$ Re: UPS/Power conditioning questions Re: VMS Alpha 8.2 with CSWS 2.0   F ----------------------------------------------------------------------  % Date: Sat, 09 Apr 2005 11:20:59 +0200 3 From: Michael Unger <spam.to.unger@spamgourmet.com> & Subject: Re: ANN: Character Set Tables, Message-ID: <3bplohF6kepvuU1@individual.net>  & On 2005-04-08 11:36, "JF Mezei" wrote:   > [...]  > D > note: the .ps and .pdf versions use whatever font is loaded on theG > devices that rasterizes the code, so this may affect a few characters 6                                             ^^^^^^^^^^E > (notably A4, the Euro symbol which will show up as the old currency N > symbol on printers whose fonts are older than the introduction of the Euro).@                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ >  > [...]   D This can be avoided by embedding the fonts into the PDF file itself.B ("Helvetica" and "Helvetica-Bold" are referenced but not embedded.% "Courier" should be rather standard.)    Michael    --  ; Real names enhance the probability of getting real answers. 5 My e-mail account at DECUS Munich is no longer valid.    ------------------------------  % Date: Sat, 09 Apr 2005 10:25:28 +0200  From: Dirk Munk <munk@home.nl>U Subject: Re: Configuring multi-port NIC on DS10 with DECNET-Plus and TCPIP 5.3 5.35.3 2 Message-ID: <d383hp$ri3$1@news2.zwoll1.ov.home.nl>  	 Try this:    anal /system   SDA> sho lan   or   SDA> sho lan /full         Grealy, Patrick J wrote:   >Hi,E >We have OpenVMS 7.3-1, cluster with two DS10s, running TCPIP 5.3 and E >DECNET-Plus. When the system was installed last year, each DS10 came I >with dual-port network card. We configured TCPIP with only one interface G >and one IP address on each machine but we had all four ports connected B >to our network. I assumed the second port on each machine was forG >redundancy and not being unused. However, that is not the case and now G >our network security folks want to know the function of each port. How I >can I examine how each network card is configured or, at the very least, I >obtain the MAC addresses? Does each card have two separate addresses? Do D >I need to shutdown each box and do "show config" at the >>> prompt? >Thanks, >Pat G.  >    >    ------------------------------   Date: 9 Apr 2005 06:40:08 -0700 P From: "Jon Power - yup - gib ...s - the very same" <jon_power_sector7@yahoo.com>= Subject: Re: Finding The Right Path For Your VMS Applications C Message-ID: <1113054008.298476.295330@o13g2000cwo.googlegroups.com>   G [Jon Power - Sector7] - As mentioned in my pent up reply to David - IBM ? purchased the UNIX to UNIX and Server Consolidation business of A Sector7. That still leaves Sector7 'in tact' - but only doing the @ 'complex' migrations - VMS (to VMS, UNIX etc etc), HP3000, AS400C (iSeries) Unisys etc etc etc. In fact - we have never been busier - G currently the big migration flavors are VAX VMS to ALPHA VMS and HP3000  to LINUX / AIX.   F AST's are not difficult to port. The mistake is thinking that a 'tool'* set can do a good gob of emulating an AST.  F For example, AST from QIO (serial devices) tend to always do the samdeF thing - set off a read/write event and wait for the completion AST. SoF - in almost all circumstances - this cas easily and quickly be recoded into a select();  F The trick is not to look at the AST as the 'part to solve' but to look< a little wider at what exactly is trying to be accomplished.  G A perfect example of this is RTR (DECs Reliable Transaction Router)- V2 D was completely AST driven - get V3 (VMS and UNIX, NT version) had NOG AST capability - yet the transition time between V2 and v3 was minimal.   A Now - today - with the new threading model that allows individual B threads to be interrupted - AST's are even easier to emulate - but there WHY BOTHER.   @ So - what other events need "ASTs" - timers - yes - but the sameC applied - UNIX / LINUX allows for a timer signal - a small piece of F code around the UNIX timer - provides the same VMS timer functionalityF (stackable timers) - one more example of the AST being the easy part -? where the real complexity was in the stackable timer emulation.   D Event Flags - this whole area is complex - system wide event flags -A clustered event flags - all present more of an issue than the AST A mechanism. BUT - if the purpose of the event flag is examined - a 9 native UNIX equivalent can be crafted quickly and easily.   E One of our mistakes at the very beginning was trying to emulate AST's F in the tool kit. We spend huge sums of money putting AST mechanisms inB QIO, MAILBOXES, EVENT FLAGE, TIMERS. yes - they worked - but - theB performance was severly lacking (for example the AST could only beF triggered safely when a SYS$, LIB$ service was entered) - then once weF moved into migrating more complex telemetry systems where the I/O rate> was sufficiently high - it became clear that the AST emulationC mechanism was simply not good enough. Simple 'reversing' the loop -   using select() worked perfectly.  @ The point is - that generally - most VMS programs that use AST'sG (except timer and event flags) simply set off an event and wait for the  AST.  C How many financial programs do high bandwidth I/O - NOT MANY - most % will just drive some serial printers.   E A few manufacturing programs will interface to PLC's - once again the E VMS system rarely if ever directly controls the device - VMS tends to @ be more command and control - leaving the real time stuff to the Honeywell PLC's.  & So - what does cause migration issues:  E (1) Screen handlers - DEC FORMS  (TDMS, SMG and FMS - we have written ( look alikes for all of these older ones)  E (2) The distributed Lock manager - VERY AST aware - but interestingly D its not the tree structured locking thats an issue - but the 32 byteE value block and inter system communication. Once again - the trick is = to step back and look at IF this mechanisn is still needed on  UNIX/LINUX.   B (3) Wierd 4GL - we have had to invest in complex compiler compilerB technology (LL(k) parsers) - CA Knowledgebuilder, HP3000 TRANSACT,> HP3000 PROTOS --- we have to re-invent the technology and then! transform it to something modern.   E (4) PASCAL - We did the data controller for Australia (point to point C communications) - Rdb RDML, PASCAL, X25 and X29 (using AST's) - DEC E PASCAL is simply incompatible with every other pascal - so we have to  write a PASCAL to C translator.   E BUT - all of this stuff is stil SIMPLE - the much bigger challange is D not the migration - but the project planning and costing for a multi: million line migration in a 24/7 high profile environment.  B Believe it or not - the creation of a comprehensive test plan - toA validate the final system can cost as much (if not more) than the 
 migration.  D Right now we are every happy doing VAX VMS to ALPHA VMS migrations -D you can bet the ones that we get are not 'run of the mill' - 200,000C lines of VAX MACRO - original developers gone - no one knows how it C works - and we have to get it to ALPHA in C, understand the logic - F interface it to the rest of the code (BASIC, C, COBOL) - fully test it# - and then move it into production.   C Once again - the POINT - is that once the process of handling large D scale extremely complex migrations is understood from and end-to-endF perspective - the rest is easy - its just 'computers' - what man wrote once - man can rewrite.   D Sector7 - takes responsibilty for the entire migration - all the wayD through to deployment. This is what is different - we are NOT a toolB set vendor. We are a complete services organization with over 2000! application migrations completed.   E We have just won one of the largest and most complex mission critical F migrations ever awarded - nothing about it is easy - it is the centralF system of one of the largest corporation in the world and all eyes areG on us - we are responsible to make it work in the UNIX environment - on % time, on budget and with ZERO errors.   G The technology was important - but more important was Sector7's ability @ to project plan and manage a huge complex project performed in 8' different geographies and 2 continents.   0 ITS NOT TECHNOLOGY - ITS THE END-TO-END PROCESS.  C Thanks for giving me a chance to spout of about Sector7 - I am very A proud of what we have accomplished over the 20 years we have been  migrating applications.   ' Right now the HOT migratkion areas are: 3 HP3000 migrations are the HOT topic - EOL Dec 2006.   VAX VMS to ALPHA and ITANIUM VMS  G We expect to see VMS to UNIX migrations become super hot - around 2008.   F All you excellent VMS guru's may want to think about honing your LINUXF skills - and contacting me - 2008 will show an exponential increase in2 VMS migration WORLD WIDE - Sector7 will be there -  G We have the complete process nailed down and buttoned up - we will need ' people like yourselves to help execute.   ? There are probably around 2000 VMS organizations that will be a F candidate for migration (world wide) - out of these - 50% can and willF either buy a package or rewrite - this leaves 1,000 - a HUGE number ofF ORGANIZATIONS that will need our services and we in turn will need top notch computer people.  ; You know who we are and how to find us - lets start taking.        JF Mezei wrote:  > Roy Omond wrote:@ > > Note the implication that it is HP recommending migration toB > > Itainium (sic), and therefore recommending migration away from > > VMS.  *Sigh* ... FUDsters. > E > Yes and no. When you have a weak platform such as VMS, and you then F > force customers to plan for a migration, no matter how simple it may be@ > at the recompile-link level, it is still a big project for teh	 customer. ? > And this opens the doors for all the vultures flying over VMS 	 customers / > to stear those customers to better platforms.  > D > This is especially the case since very few believe that IA64 has a longD > term future, which means that if you migrate now, you'll progbably  > migrate in a couple years too. > D > Right now, going to Linux on Power would probably be a pretty safe bet,9 > as would Solaris on AM64, followed by Solaris on Sparc.    ------------------------------  % Date: Sat, 09 Apr 2005 07:16:57 -0700 # From: "Tom Linden" <tom@kednos.com> = Subject: Re: Finding The Right Path For Your VMS Applications ( Message-ID: <opsoyxyjiizgicya@hyrrokkin>  J On 9 Apr 2005 06:40:08 -0700, Jon Power - yup - gib ...s - the very same  $ <jon_power_sector7@yahoo.com> wrote:  G > (4) PASCAL - We did the data controller for Australia (point to point E > communications) - Rdb RDML, PASCAL, X25 and X29 (using AST's) - DEC G > PASCAL is simply incompatible with every other pascal - so we have to ! > write a PASCAL to C translator. H I suspect the translated code doesn't look as that which might have beenJ written, by a human.  So how do you debug the code in the new environment,8 what does the source tree look like, is it still Pascal?   ------------------------------  $ Date: Sat, 9 Apr 2005 11:19:41 -0400' From: "Main, Kerry" <kerry.main@hp.com> = Subject: RE: Finding The Right Path For Your VMS Applications R Message-ID: <FD827B33AB0D9C4E92EACEEFEE2BA2FB59592E@tayexc19.americas.cpqcorp.net>   > -----Original Message------ > From: Tom Linden [mailto:tom@kednos.com]=20  > Sent: April 9, 2005 10:17 AM > To: Info-VAX@Mvb.Saic.Com ? > Subject: Re: Finding The Right Path For Your VMS Applications  >=20? > On 9 Apr 2005 06:40:08 -0700, Jon Power - yup - gib ...s -=20  > the very same =20 & > <jon_power_sector7@yahoo.com> wrote: >=20< > > (4) PASCAL - We did the data controller for Australia=20 > (point to point G > > communications) - Rdb RDML, PASCAL, X25 and X29 (using AST's) - DEC A > > PASCAL is simply incompatible with every other pascal - so=20  > we have to# > > write a PASCAL to C translator. = > I suspect the translated code doesn't look as that which=20  > might have been B > written, by a human.  So how do you debug the code in the new=20 > environment,: > what does the source tree look like, is it still Pascal? >=20   Tom,  H Good point - I am always amazed at the pixy dust that gets thrown aroundE when people talk about these magic language translators that take XYZ G code and poof - turn it into ABC code that runs on this other platform. ? Does it run? Yes- sorta. Does it scale? Small users maybe. With & hundreds+ of users? Typically - no.=20  G Can it be supported in the sense that existing staff can understand the F underlying business logic after all the code has been translated (whatF about comments?). Remember, this support staff likely has 10-20+ yearsG experience with the other language and next to nill experience with the  new language.=20  G I know of a Customer that spent 2-3 years on a major project (literally E 10's of millions of $'s) that was supposed to take the business logic F code on OpenVMS run it thru a "translator" and have the output VB codeG run on a Wintel platform (keeping the DB on VMS). The best they can get G this application to run is 15 times slower than the current environment . - and that is with zero security turned on.=20  H Another issue - The new staff folks understand VB, but nothing about theB mission critical app business logic. The old staff understands theF business logic and the other language and how it has been finely tuned$ for 15+ years, but nothing about VB.  H Now a complex piece of legislation comes out and a great deal of changes0 need to be done in a very short order. Now what?  G These same folks now call the translator tool the "sausage grinder" and @ all of the senior folks involved in that project are bailing outG transferring to other projects as they can see the writing on the wall.   H Imho, to many people are looking for that magic pixie dust and the quickD wave of the magic wand that will solve all of their problems. And ofH course, the grass always looks greener on the other side - that is until- you cross the fence and start to look around.   B The good news is that most C level types these days are being muchG tougher on these "technology or platform of the day" project proposals. F They just do not have the $'s they used to have, so they are much moreC willing to listen to enhance and integrate what they currently have 9 proposals than move entirely to new technology proposals.      Regards   
 Kerry Main Senior Consultant  HP Services Canada Voice: 613-592-4660  Fax: 613-591-4477  kerryDOTmainAThpDOTcom (remove the DOT's and AT)=20  $ "OpenVMS has always had integrity .. Now, Integrity has OpenVMS .."   ------------------------------   Date: 9 Apr 2005 08:55:56 -0700 N From: "American Technical Resources" <knolla@american-technical-resources.com>1 Subject: Look for isolation and power conditoning B Message-ID: <1113062156.481617.14890@z14g2000cwz.googlegroups.com>  , look at this product for loalized solutions;B 2000 Watt Kleen Line Ferroresonant Regulator, Filter, Surge Suppre3 2.0 KW; 16 Amp; OUTPUT @ 115 Volt LOAD Watts / Amps , 4(5-20); 15/20 A 20A. SOCKETS Qty (US NEMA )B .............. 17L x 9W x 10H inches (43 cm L x 23 cm W x 25 cm H) 88lbs. 40Kg. WEIGHT lbs / kg/ 6 feet / L5-30; 120 Volt CORD / PLUG US - NEMA;   A theses type oproducts can be very helpfulin providing sound mains F supply, surge supprssion and filtering of transient rf emi and arraticB lineload fluctuations.  There is no 100% solution but this type of$ device helps to solve many problems.  @ Please vist my site www.americam-technical-resources.com  10% of< proceeds are donated to a great transportation project being implemented.   ------------------------------  % Date: Sat, 09 Apr 2005 19:06:56 +0800  From: prep@prep.synonet.com ) Subject: Re: Multiprocessor Microvax II ? - Message-ID: <877jjcxl7z.fsf@prep.synonet.com>   1 Chris Scheers <chris@applied-synergy.com> writes:    > JF Mezei wrote:   ? >> I found a copy of the KA630 CPU motherboard manual.  Low and F >> behold, it mentions that the all mighty Microvax II was designed toF >> have multiple CPU boards on the single Q bus, with one board acting? >> as the arbitrator and other acting as auxiliary CPUs.  I was C >> flaberghasted ! Does this mean that by just setting a bit in the F >> console memory that I could then insert a second MVII board into myF >> all-mighty Microvax II and magically find myself with an SMP systemB >> ???  (could I insert it on a running system without shutting itC >> down ? :-) :-) Seriously, this is a most interesting engineering E >> capability. Has it ever been put to use ? If so, what sort of uses C >> ? The text mentions a type of interCPU interconnect similar to a  >> CI.  B > I stumbled across this a while back.  IIRC, you could have up to > four KA630s in a system.  E > I haven't been able to find my copy of the hardware manual to check < > what the problem with VMS was, but I think it was that the( > processors did not fully share memory.  B The `small detail' AIR was that all memory had to be on the Q-bus.C 4 Vaxen supping at 4MB max over a Q-bus is a bit of an ask I think.   C I wonder if anyone was planning some funky multi-port memory system 	 for them.    --  < Paul Repacholi                               1 Crescent Rd.,7 +61 (08) 9257-1001                           Kalamunda. @                                              West Australia 6076* comp.os.vms,- The Older, Grumpier Slashdot. Raw, Cooked or Well-done, it's all half baked.F EPIC, The Architecture of the future, always has been, always will be.   ------------------------------   Date: 9 Apr 2005 09:38:39 -0700 / From: "issinoho@gmail.com" <issinoho@gmail.com>  Subject: NetBeans C Message-ID: <1113064719.270951.313470@o13g2000cwo.googlegroups.com>   2 OpenVMS Alpha 7.3-1 with all the relevant patches.  1 Anyone have any ideas why NetBeans won't start...   
 $ netbeans  7 Using USER$ROOT:[IRS.netbeans.3_6] as user directory...    Calling Java setup procedure3 KYLIE$DKB100:[SYS0.SYSCOMMON.JAVA$142.COM]JAVA$142_  SETUP.COM;1    Starting the IDE...    Unrecognized option: -cp7 /sys$common/netbeans36/lib/ext/boot.jar:/kylie$dkb100/s P ys0/syscommon/java$142/lib/dt.jar:/kylie$dkb100/sys0/syscommon/java$142/lib/htmlP converter.jar:/kylie$dkb100/sys0/syscommon/java$142/lib/htmlconverter_g.jar:/kyl0 ie$dkb100/sys0/syscommon/java$142/lib/tools.jar:* Could not create the Java virtual machine.  D It's a new install and I may well be doing something stupid. For the  record Java responds as follows,   $ java -version  java version "1.4.2"0 Java(TM) 2 Runtime Environment, Standard EditionD Fast VM (build 1.4.2-4, build J2SDK.v.1.4.2:12/06/2004-01:55, native threads, ji  t_142)  C I've successfully compiled & ran some Java code so the VM looks OK.    ------------------------------  * Date: Sat, 9 Apr 2005 10:01:04 +0000 (UTC)P From: helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply)3 Subject: Re: problem with router---NAT and caching? $ Message-ID: <d3894v$c8d$1@online.de>  D In article <d3092l$pau$1@online.de>, helbig@astro.multiCLOTHESvax.de3 (Phillip Helbig---remove CLOTHES to reply) writes:    F > In article <d2tnl1$iab$1@online.de>, helbig@astro.multiCLOTHESvax.de5 > (Phillip Helbig---remove CLOTHES to reply) writes:   >  > > > The giveaway is L > > > that only port 6000 is affected.  Probably tomorrow morning I'll test O > > > JF's suggestion that it is some security feature in DECwindows, i.e. the  O > > > problem should go away if I restart DECwindows.  Maybe the IP address is  7 > > > cached somewhere in DECwindows when it starts up.  > > 3 > > OK, I just restarted DECwindows.  Same problem.  > L > > I just noticed something.  Changing the IP address as above (ifconfig -a@ > > shows that it is picked up) does NOT change the logical nameJ > > TCPIP$INET_HOSTADDR.  I have to go to work now, but will try changing H > > this as well tonight or tomorrow morning and see if that solves the < > > problem.  It might be that DECwindows uses this logical. > I > Redefining the logicals as well doesn't help.  I also tried restarting  G > TCPIP.  Doesn't help.  Next I'll try restarting TCPIP AND restarting   > DECwindows.      That ALMOST did the trick...  C > I'm pretty sure that the problem is at the VMS end and not at the E > router: only port 6000 is affected, so it seems to be a DECwindows  K > problem; I can see all the information in the router and the old address  F > is nowhere to be found; for the router port 6000 is nothing special. > J > Before I restart TCPIP and DECwindows and possibly reboot, I would like  > to understand the following: > 5 >    o  TCPIP SET INTERFACE <interface> <new address>  > : >    o  TCPIP SET CONF INTERFACE <interface> <new address> > # >    o  @SYS$STARTUP:TCPIP_SHUTDOWN  > " >    o  @SYS$STARTUP:TCPIP_STARTUP > I >    o  TCPIP$INET_HOST_ADDR (and UCX$INET_HOSTADDR; not sure why this is F >       still there) STILL point to the OLD IP address.  Where is this >       information stored?   E ...One has to change the IP address via SYS$MANAGER:TCPIP$CONFIG.COM   then restart DECwindows.  I Interestingly---bug or feature?---TCPIP SET CONFIG INTERFACE changes the  H "permanent" configuration in that restarting TCPIP will pick up the new I IP address, which WORKS FINE FOR EVERYTHING EXCEPT DECWINDOWS.  In other  G words, changing it on the fly with TCPIP SET INTERFACE or changing the  G configuration file and restarting TCPIP has the same effect.  However,  G the previous address is stored in SYS$SYSTEM:TCPIP$CONFIGURATION.DAT.   ? This address, and not that set by TCPIP SET CONF INTERFACE, is  I apparently used to define {TCPIP|UCX}$INET_HOSTADDR.  However, it is not  A enough to redefine these logicals; one has to change the "really  A permanent address" via SYS$MANAGER:TCPIP$CONFIG.COM then restart  < DECwindows.  Apparently DECwindows picks up the address fromI SYS$SYSTEM:TCPIP$CONFIGURATION.DAT directly rather than via the logicals  C (redefining the logicals then restarting DECwindows does not work).    This raises some questions:   +    Why does TCPIP SET CONF INTERFACE update C    SYS$SYSTEM:TCPIP$CONFIGURATION.DAT with the new address BUT ALSO )    leaves the REALLY permanent address in '    SYS$SYSTEM:TCPIP$CONFIGURATION.DAT?    H    What is the logical {TCPIP|UCX}$INET_HOSTADDR used for---normal TCPIPE    stuff will work if it is incorrectly defined, and DECwindows stuff E    will not work even if it is correctly defined, unless one restarts >    DECwindows after changing the "really permanent address" inH    SYS$SYSTEM:TCPIP$CONFIGURATION.DAT via SYS$MANAGER:TCPIP$CONFIG.COM?   B    What does the---as far as I can tell, undocumented---qualifier     /CONFIGURATION in TCPIP do?   ------------------------------  % Date: Sat, 09 Apr 2005 08:40:31 -0700 4 From: Alan Frisbie <Usenet02_REMOVE@Flying-Disk.com>( Subject: Re: Script Kiddie tarpit wanted% Message-ID: <1113061228.578892@smirk>    Kevin Handy wrote:  6 > Fake up some really odd hardware, with equally terse6 > and technical buzz-word filled documentation stuffed7 > in some easy to find spot: "Stoddard Beam Convergence 6 > Control",  "Nuclear Digitizing Array", "Multiplexing5 > Thermal Flux Stabilizer". See how much time you can 7 > get them to waste while attempting to figure out what  > they have hacked into.  5 Oooo, I like the way you think!   I had been thinking 3 of something along that line, such as "NationalBank 4 EFT System 3" or "Account Audit & Control".   Create7 a fake database of customers and accounts, and a simple 6 program to perform transactions.   That should be good for hours of amusement!   :-)    Alan   ------------------------------  % Date: Sat, 09 Apr 2005 08:25:10 +0200 2 From: martin@radiogaga.harz.de (Martin Vorlaender)# Subject: Re: Sort Directory by Date ; Message-ID: <42577546.524144494f47414741@radiogaga.harz.de>   ' Hein <hein.nomail@hp.nomail.com> wrote: ' > Btw Peter...  your stuff shows up in: B > http://www.pdv-systeme.de/users/martinv/VMS_Programming_FAQ.html  E While following this thread, I dug through my archives and found this A jewel again which probably is the great-grandfather of it all ;-)    cu,    Martin  B BTW: if anyone doesn't like to see his code/info/etc. in the above; mentioned document, just drop me a note and I'll remove it.     = From: vandenheuvel@eps.enet.dec.com (Hein RMS van den Heuvel)  Newsgroups: comp.os.vms . Subject: Re: HELP:Listing Files sorted by Date Date: 18 JUN 96 00:08:03+ Organization: Digital Equipment Corporation * Message-ID: <4q5adg$37l@nntpd.lkg.dec.com>  ) "David Stien" <daves@rsc.co.uk> writes... J >Does anyone have a way of listing files in a directory + sorting by date?  H You'll need the help of SORT. Now in the default date/time output formatF vms uses month names which do not sort directly. You can redefine thatF output to be say yyyymmdd format, or you can tell sort specifics about# values of field where. For example:   4 $ if p1.eqs."" then inquire p1 "File/Directory spec" $ if p1.eqs."" then exit $ tmp = "sys$scratch:sort.tmp"' $ ! dd-mmm-yyyy hh:mm:ss.dd = offset 58 : $ dir 'p1'/wid=file=55/nohead/notrail/col=1/date/out='tmp'' $ sort 'tmp' sys$output:/spec=sys$input  /collating_sequence=K     (sequence=("AN","EB","AR","PR","AY","UN","UL","UG","EP","CT","OV","EC",      " ","0"-"9"), fold     )   /field=(name=year,pos:65,size:4): /field=(name=month,pos:62,size:2)	! start at SECOND letter /field=(name=day,pos:58,size:2) ! /field=(name=time,pos:70,size:11)  /key=(year,descending) /key=(month,descending)  /key=(day,descending)  /key=(time,descending) $ delete 'tmp';   < or a more clasic sort specification file along the lines of:  $ 	/FIELD=(NAME:DAY,POSITION:1,SIZE:2)% 	/FIELD=(NAME:YEAR,POSITION:8,SIZE:4) & 	/FIELD=(NAME:MONTH,POSITION:4,SIZE:3), 	/CONDITION=(NAME=C01,TEST=(MONTH EQ "JAN")), 	/CONDITION=(NAME=C02,TEST=(MONTH EQ "FEB")), 	/CONDITION=(NAME=C03,TEST=(MONTH EQ "MAR")), 	/CONDITION=(NAME=C04,TEST=(MONTH EQ "APR")), 	/CONDITION=(NAME=C05,TEST=(MONTH EQ "MAY")), 	/CONDITION=(NAME=C06,TEST=(MONTH EQ "JUN")), 	/CONDITION=(NAME=C07,TEST=(MONTH EQ "JUL")), 	/CONDITION=(NAME=C08,TEST=(MONTH EQ "AUG")), 	/CONDITION=(NAME=C09,TEST=(MONTH EQ "SEP")), 	/CONDITION=(NAME=C10,TEST=(MONTH EQ "OCT")), 	/CONDITION=(NAME=C11,TEST=(MONTH EQ "NOV")), 	/CONDITION=(NAME=C12,TEST=(MONTH EQ "DEC"))
 	/KEY=YEAR 	/KEY=(IF C01 THEN 01 ELSE   	      IF C02 THEN 02 ELSE   	      IF C03 THEN 03 ELSE   	      IF C04 THEN 04 ELSE   	      IF C05 THEN 05 ELSE   	      IF C06 THEN 06 ELSE   	      IF C07 THEN 07 ELSE   	      IF C08 THEN 08 ELSE   	      IF C09 THEN 09 ELSE   	      IF C10 THEN 10 ELSE   	      IF C11 THEN 11 ELSE   	      IF C12 THEN 12 ELSE 0) 	 	/KEY=DAY     : Hope this helps,		+--------------------------------------+F 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."	+--------------------------------------+       --  ;   OpenVMS DCL        | Martin Vorlaender  |  OpenVMS rules! .                      | work: mv@pdv-systeme.deA   The Original .COM  |   http://www.pdv-systeme.de/users/martinv/ 5                      | home: martin@radiogaga.harz.de    ------------------------------  * Date: Sat, 9 Apr 2005 07:05:52 +0000 (UTC)P From: helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply)# Subject: Re: Sort Directory by Date $ Message-ID: <d37usf$7bd$2@online.de>  ; In article <3bnjicF6jpitnU1@individual.net>, "Peter Weaver" ( <newsgroup@weaverconsulting.ca> writes:    > norm.raphael@metso.com wrote: J > > I find that I have to add 1 position to the timefield field to get the > > full time_spec. . > > /field=(name=timefield,position=94,siz:12) > J > Right, I should have emphasized that it was a quick hack with only a bitG > of testing in response to someone who saw my original routine but who F > does not have the LIB$DT_FORMAT on their system. He got what he paid > for.  G I missed the beginning of this thread, but the following (gleaned here  D several years ago) might be useful (sorts accordingto size as well):         PROGRAM SDIR   C*3 C*                  ******************************* 3 C*                  ******************************* 3 C*                  **                           ** 3 C*                  **           SDIR            ** 3 C*                  **                           ** 3 C*                  ******************************* 3 C*                  *******************************  C* C*     AUTHOR :  C*          Arthur E. Ragosta   ' C*          RAGOSTA@MERLIN.ARC.NASA.GOV  C*           C*          MS 219-1% C*          NASA Ames Research Center * C*          Moffett Field, Ca.  94035-1000 C*          (415) 604-5558 C* C*     DESCRIPTION : C*          SORTED DIRECTORYE C*          PRODUCE A SIMPLE DIRECTORY LISTING SORTED BY DATE or SIZE  C*? C*          /DESCENDING = OLDEST DATES FIRST, ELSE NEWEST FIRST 0 C*          /SIZE = sort by size instead of date C* C*     SUBPROGRAM REFERENCES : C*% C*     ASSUMPTIONS AND RESTRICTIONS :  C*          NOT TRANSPORTABLE.: C*          DIRECTORY TRUNCATED AT 'max_files' FILE NAMES. C* C*     LANGUAGE AND COMPILER : C*          ANSI FORTRAN 77  C* C*     CHANGE HISTORY : * C*          22 MAR 1993 -  INITIAL VERSION- C*          14 SEP 1995 -  Converted to alpha 0 C*          30 OCT 1995 -  Bug fixed in USEROPEN C*H C*********************************************************************** C*        PARAMETER (MAX_FILES=1000)       common /data/ >      $ date(max_files),  direc(max_files),  size(max_files),  "      $ names(max_files), num_files       logical direc        integer size       integer *8 date        character *80 names  c        integer indx(max_files)  c *       CHARACTER *127 P(2), PATH, next_file       CHARACTER *20 Q(2)       character *23 adate        CHARACTER *4 ON, OFF       LOGICAL D_FLAG, S_FLAG       external my_open C -       ON  = CHAR(27) // '[1m'       ! Bold on .       OFF = CHAR(27) // '[0m'       ! Bold off       D_FLAG = .FALSE.       S_FLAG = .FALSE.        CALL GETFOR (NQ, Q, NP, P)       DO 1 I = 1, NQ  C          IF (Q(I)(1:1) .EQ. 'D') THEN  ! Just in case he said /DATE @             IF ((LENGTH(Q(I)) .LE. 1) .OR. (Q(I)(2:2) .NE. 'A'))      $         D_FLAG = .TRUE.          ENDIF0          IF (Q(I)(1:1) .EQ. 'S') S_FLAG = .TRUE. 1     CONTINUE C # C --- Defaults to current directory  C        IF (NP .EQ. 0) THEN           CALL DEFAULT ( PATH )
       ELSE          PATH = P(1)       ENDIF 0       CALL PARSE ( PATH, '*.*;*', 'FULL', PATH )       num_files = 0  c C c --- loop over wildcards for each file; "MYOPEN" does all the work  c & 10    call getfile ( path, next_file )"       if (next_file .ne. ' ') then>          call parse (next_file, ' ', 'LO', names(num_files+1));          OPEN (UNIT=0, FILE=next_file(1:length(next_file)), 3      $      STATUS='OLD', ERR=10, useropen=my_open)  30       close(unit=0)/          if (num_files .le. max_files) go to 10        endif  C $ C --- sort file list by date or size C        IF (S_FLAG) THENE          call isorti  (size, num_files, indx)      ! by File SIZE !!! 
       ELSEA          call isorti8 (date, num_files, indx)      ! by DATES !!!        ENDIF  C  C --- In descending order ?  C        IF (D_FLAG) THEN          ISTART = NUM_FILES           IEND   = 1           INCR   = -1
       ELSE          ISTART = 1           IEND   = NUM_FILES           INCR   = 1        ENDIF  C 3 C -- Note that directory files are bolded on output  c #       DO 100 I = ISTART, IEND, INCR $          ln = length(names(indx(i))) c  c  -----  Sorted by size c           if (s_flag) then $             if (direc(indx(i))) then#                if (ln .le. 30) then #                   write (6,900) on, 6      $              names(indx(i))(1:ln), off, size(i)                else #                   write (6,901) on, 6      $              names(indx(i))(1:ln), off, size(i)                endif             else#                if (ln .le. 30) then:=                   write (6,910) names(indx(i))(1:ln), size(i)w                elseC=                   write (6,911) names(indx(i))(1:ln), size(i)t                endif             endif  c  c  -----  Sorted by date c 
          elseY1             call sys$asctim ( , adate, date(i) ,)c$             if (direc(indx(i))) then#                if (ln .le. 30) thenu$                   write (6,920) on, :      $              names(indx(i))(1:ln), off, adate(1:17)                elseP$                   write (6,921) on, :      $              names(indx(i))(1:ln), off, adate(1:17)                endif             else#                if (ln .le. 30) then0A                   write (6,930) names(indx(i))(1:ln), adate(1:17):                elseeA                   write (6,931) names(indx(i))(1:ln), adate(1:17)4                endif             endif           endif 100   CONTINUE C              CALL EXITl 900   format(' ',3a,t38,i5)r 901   format(' ',3a/,t38,i5) 910   format(' ',a,t30,i5) 911   format(' ',a/,t30,i5)  920   format(' ',3a,t38,a) 921   format(' ',3a/,t30,a)w 930   format(' ',a,t30,a)d 931   format(' ',a/,t30,a)	       ENDf Cs C---END SDIR Ch.       integer function my_open (fab, rab, lun) c*G c*  This routine is called by the FORTRAN OPEN statement to extract thev7 c*   file size, date, and directory flag for each file." c*        PARAMETER (MAX_FILES=1000)       common /data/ ?      $ date(2,max_files), direc(max_files),  size(max_files),   "      $ names(max_files), num_files       logical direcs       integer sizeE       integer *4 date      ! Fudge to make it easier to move quadword-       character *80 names1 c5       include '($fabdef)'  c      include '($rabdef)'       include '($xabdef)'        include '($xabdatdef)'       include '($xabfhcdef)'       include '($xabitmdef)' ce# c --- is this complicated, or what?  c>       structure /bigxab/       union           map          record/xabdef/ xab           endmap1          map"          record /xabdatdef/ xabdat          endmapn       endunion       endstructure cc       structure /bigxab1/r       uniond          map          record/xabdef/ xaba          endmapd          map"          record /xabfhcdef/ xabfhc          endmap        endunion       endstructure ca       structure /bigxab2/a       unione          map          record/xabdef/ xabb          endmapo          map"          record /xabitmdef/ xabitm          endmapn       endunion       endstructure cf       record /fabdef/ fabt c      record /rabdef/ rab       record /bigxab/ xab0       record /bigxab1/ xab1e       record /bigxab2/ xab2  co       structure /itmlst/          integer *2  buflen           integer *2  itemcode-          integer *4  bufadr0          integer *4  retlen-       end structure        record /itmlst/ items(3) c.       logical is_dir#       integer sys$open, sys$connecti ciF c --- WARNING !!! The following is not strictly accurate as it should F c        scan the XAB list and resolve any differences between my XABsE c        and any passed by the USEROPEN routine, but this was a pain  H c        and (not being a file system expert) I couldn't get it to work $ c        right.  This SEEMS to work. ce       isave = fab.fab$l_xab 7       fab.fab$b_fac = fab$m_get              ! readonly         fab.fab$l_xab = %loc(xab0) c A       xab0.xab.xab$b_cod = xab$c_dat         ! This is a DATE XAB '       xab0.xab.xab$b_bln = xab$c_datlenn%       xab0.xab.xab$l_nxt = %loc(xab1)o cf7       xab1.xaba.xab$b_cod = xab$c_fhc        ! size XABe(       xab1.xaba.xab$b_bln = xab$c_fhclen&       xab1.xaba.xab$l_nxt = %loc(xab2) ch<       xab2.xabb.xab$b_cod = xab$c_itm        ! Item code XAB(       xab2.xabb.xab$b_bln = xab$c_itmlen-       xab2.xabitm.xab$b_mode= xab$k_sensemodes.       xab2.xabitm.xab$l_itemlist = %loc(items) c F c --- This SHOULD be set to ISAVE, but when I do that, the OPEN fails.H c     Also, there is the possibility of a duplicate XAB, which is a pain c     to correct.N c        xab2.xabb.xab$l_nxt = 0i c-       items(1).buflen   = 4eK       items(1).itemcode = XAB$_UCHAR_DIRECTORY  ! Is this file a directory? &       items(1).bufadr   = %loc(is_dir)       items(1).retlen   = 0        items(2).buflen   = 0O       items(2).itemcode = 0nD       my_open = sys$open (fab)               ! Just to fill the XABs cw! c --- Undo the damage done above.e c        fab.fab$l_xab = isave-       if (.not. my_open) returnt caD       num_files = num_files + 1              ! Success, add the fileJ       date(1,num_files) = xab0.xabdat.xab$q_cdt(1)    ! Date is stored in B       date(2,num_files) = xab0.xabdat.xab$q_cdt(2)    !  two parts       direc(num_files) = is_dirs c @ c --- the calculation for size comes from an example on the DEC  c     bulletin board ce,       if (xab1.xabfhc.xab$w_ffb .eq. 0) then/          if (xab1.xabfhc.xab$l_hbk .eq. 0) thene             size(num_files) = 0l
          elset7             size(num_files) = xab1.xabfhc.xab$l_ebk - 1a          endif
       else0          size(num_files) = xab1.xabfhc.xab$l_ebk       endifa ce       return	       ende ce c---end my_opene cr   ------------------------------   Date: 9 Apr 2005 09:10:57 -0700 N From: "American Technical Resources" <knolla@american-technical-resources.com>- Subject: Re: UPS/Power conditioning questionsuB Message-ID: <1113063057.511998.65150@g14g2000cwa.googlegroups.com>  E Price and quality of equipment protection are gauged by 2 factors howl@ much a loss of equipment woulfd have to operations and whether aD combined set of equipment in 1 case is a better solution.  check outC the products at www.american-technical-resources.com  when movs are C utilized there are other components of additional utility like quad D filtration and also semi conductor surge suppressors for signal line7 protection uses.  please visit for information purposes @ www.american-technical-resources.com.  You find some of the mostE comprehensive solutions available but the price of this B2B equipmentS may be a scary factor.   ------------------------------  % Date: Sun, 10 Apr 2005 03:08:28 +0930o* From: Mark Daniel <mark.daniel@vsm.com.au>( Subject: Re: VMS Alpha 8.2 with CSWS 2.0/ Message-ID: <4258134e$1@duster.adelaide.on.net>    Kari Keronen wrote:i< > "Mark Daniel" <mark.daniel@vsm.com.au> kirjoitti viestiss) > news:422c4ec9@duster.adelaide.on.net...X >  >>Kari Keronen wrote:v >>4 >>>"Tom Linden" <tom@kednos.com> kirjoitti viestiss% >>>news:opsmww9xn6zgicya@hyrrokkin...P >>>T >>>CH >>>>On Mon, 28 Feb 2005 14:56:05 GMT, Nigel Barker <nigel@hp.com> wrote: >>>> >>>> >>>>9 >>>>>On Mon, 28 Feb 2005 13:58:10 -0000, "Richard Brodie"u >  > <R.Brodie@rl.ac.uk>o >  >>>>>wrote:d >>>>>  >>>>>  >>>>> > >>>>>>"Kari Keronen" <kari.keronen@digita.fi> wrote in message9 >>>>>>news:QyEUd.1282$cg3.1241@reader1.news.jippii.net...l >>>>>> >>>>>> >>>>>>H >>>>>>>KAJAVA$DKA0:[SYS0.SYSCOMMON.APACHE.][000000]APACHE$APR_SHRP.EXE;1B >>>>>>>-SYSTEM-W-SYSVERDIF, system version mismatch; please relink >>>>>>>i >>>>>>>Known problem or what ? >>>>>>I >>>>>>Apparently, something in the Apache port required some system levelt >>>>>>hacking, so I guess I >>>>>>you're out of luck until there is a new release. Someone else mighti >>>>>>have the inside track onJ >>>>>>this... but obviously, porting the 1.3 stream was a higher priority. >>>>>fL >>>>>CSWS 2.0 does not support OpenVMS 8.2. You'll need to wait for CSWS 2.1 >>>>>iftL >>>>>you're running OpenVMS 8.2. This should ship or rather be available for
 >>>>>downloadO >>>>>Real Soon Now.  >>>># >>>>Have you tried installing WASD?e >>>n >>>eI >>>No, but if someone has tried WASD on OpenVMS 8.2 Alpha/ODS-5, I'd likee >  > to >  >>>know the results.. >>>I don't currently have time to do the test. >>; >>Just installed and built it OK after a WASD-clean reboot.e >> >>KLAATU$ cc /veri) >>Compaq C V6.5-001 on OpenVMS Alpha V8.2  >>KLAATU$ show default >>   DKA100:[HT_ROOT]t >>LAATU$ show dev dka100/fullr >>L >>Disk $1$DKA100: (KLAATU), device type DEC RZ28D, is online, mounted, file-E >>     oriented device, shareable, served to cluster via MSCP Server,i >>error loggingr >>     is enabled. >>8< snip 8<J >>   Volume Status:  ODS-5, subject to mount verification, file high-water
 >>marking,$ >>       write-back caching enabled. >>4 >>Will report on I64 V8.2 when it becomes available. >> > K > Thanks for infomation. I actually do have one I64 v8.2 up and running, son > that interests also.  C WASD v9.0.2 builds and runs OK under OpenVMS I64 V8.2 (and Process fD Software MultiNet V5.1 Rev T, incidentally).  VSM Software Services = (www.vsm.com.au) now has a WASD IA64 demonstrator back online       http://ia64.vsm.com.au/    https://ia64.vsm.com.au/h  H (as this is a development system, availability may be patchy at times). @   Thanks again to Jeremy Begg for making this available to WASD.  E I've noticed one (very) minor nit on IA64 (so far :-) I will pick up S with the next release.  L I have placed an IA64 object module kit for v9.0.2 on the WASD download page      http://wasd.vsm.com.au/wasd/d  F +--------------------------------------------------------------------+F    Mark Daniel                         http://wasd.vsm.com.au/adelaideG    mailto:Mark.Daniel@wasd.vsm.com.au (Mark.Daniel@dsto.defence.gov.au)e<    A pox on the houses of all SPAMers.  Make that two poxes.F +--------------------------------------------------------------------+   > -Kari- >  > H >>+--------------------------------------------------------------------+G >>  Mark Daniel                         http://wasd.vsm.com.au/adelaideoH >>  mailto:Mark.Daniel@wasd.vsm.com.au (Mark.Daniel@dsto.defence.gov.au)= >>  A pox on the houses of all SPAMers.  Make that two poxes.iH >>+--------------------------------------------------------------------+ >> >>	 >>>-Kari-n >>>m >>>i >>>a >>>>>--  >>>>>Nigel BarkerF$ >>>>>Live from the sunny Cote d'Azur >>>> >>>> >>>> >>>>--  G >>>>Using Opera's revolutionary e-mail client: http://www.opera.com/m2/h >>>m >>>t >>>  >  >    ------------------------------   End of INFO-VAX 2005.198 ************************