1 INFO-VAX	Wed, 01 Dec 2004	Volume 2004 : Issue 666       Contents:  Re: 90TL Terminal Server ProblemA Re: Adding LF to CR 's when monitoring  serial port  in a Decterm  CLUSTER_SIZE ramification  Re: CLUSTER_SIZE ramification  Re: CLUSTER_SIZE ramification  DCL suggestion for PURGE Re: DCL suggestion for PURGE Re: DCL suggestion for PURGE Re: enhancements to VMS MAIL Re: FTP behavior change? FTP Files and version numbers ! Re: FTP Files and version numbers ! Re: FTP Files and version numbers  Good sftp server?  Re: Good sftp server? / OT: Gartner says HP may pullk out of PC by 2007 P Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC TransacP Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac# SSL (https) support in Wget for VMS  Re: UUCP for OpenVMS on Alpha : Re: VT1xx flavors (was Re: DEC retail stores in the 1980s)8 Re: [OT]: Digital Equipment Corp. and the origin of Spam" Re: [Typo ?] What is a Ramanujan ?  F ----------------------------------------------------------------------  # Date: Tue, 30 Nov 2004 18:39:54 GMT 9 From: Alan Adams <alan.adams@orchard-way.freeserve.co.uk> ) Subject: Re: 90TL Terminal Server Problem ? Message-ID: <f0d113164d.Alan.Adams@orchard-way.freeserve.co.uk>   / In message <_NqdnTtKANqMAQPcRVn-oA@comcast.com> :           David Reed <junkman24@nospam.comcast.net> wrote:   > David Reed wrote: M > > I have about 10 90tl terminal servers that I've upgraded to 4 meg of ram  G > > and currently use with TCP-IP to connect to various serial devices   > > (printers etc..). I > > They have static IP addresses and work really well. However every 60  K > > days exactly they quit responding. I go power them off and they reboot  , > > and work fine again for another 60 days.C > > I am puzzled! There are no lease timers on static IP addresses. D > > The lights on the front look "normal" The ones with active port O > > connections still have the port led's lit but can't ping them or anything.. ! > > What am I overlooking here ??  > > $ > Nobody have any ideas about this ? >   J I keep thinking about numeric overflow. I thought I was close - 0xffffffffI milliseconds is just over 49.7 days, but you said 60 exactly, so it isn't  that simple.  I I can only suggest watching the ethernet counters, and see if any of them 3 approach significant numbers in just under 60 days.   > Then track down what on the network is occurring at that rate.  G Can you make a serial conection to port 1 after the problem occurs? (Or H ideally make it before, but use it after.) If so, do you get a response?  J If you reboot one of them after, say 30 days, does it run independently toE its own 60 day limit, or does it stop at the same time as the others? F (Dunno what would cause this, but it might be a pointer to something.)   --  
 Alan Adams& alan.adams@orchard-way.freeserve.co.uk http://www.nckc.org.uk/    ------------------------------  % Date: Tue, 30 Nov 2004 16:19:06 -0500 - From: JF Mezei <jfmezei.spamnot@teksavvy.com> J Subject: Re: Adding LF to CR 's when monitoring  serial port  in a Decterm, Message-ID: <41ACE3C5.438DD82E@teksavvy.com>   Phil Pulley wrote: > H > I am trying to view a text stream received on a serial port by using a? > Decterm. I am using 'set host/dte' which seems to work but... G > The received text lines are delimited by CR's only so, when displayed G > in the Decterm, all characters appear on one line, with each received  > line overwriting the next.  L That is why I still have a couple of real VT terminals where you can use the/ "show control characters" to debug such things.   K DECterm really needs to be spruced up to support that missing feature (show  control characters).   ------------------------------  + Date: Tue, 30 Nov 2004 23:21:40 +0000 (UTC) - From: lewis@SPYDER.MITRE.ORG (Keith A. Lewis) " Subject: CLUSTER_SIZE ramification. Message-ID: <coiva4$j43$1@newslocal.mitre.org>  L I'm going to consolidate a dozen or so ODS-2/5 volumes into just 4 new ones, on new 72GB spindles.     K I will be able to estimate in advance roughly how many files on each disk.  0 Based on that, what should my cluster size be?    F Assuming random file sizes, you "waste" half of a cluster per file, onL average.  So I want to set it low.  But I have noticed that large disks withL cluster size = 1 have huge INDEXF.SYS files, and that's no good either.  For7 example, I have a 36GB drive with a 1.25GB INDEXF file.   H Is there a formula to calculate how big the INDEXF file will be based on disk size and cluster size?   0 --Keith Lewis              klewis {at} mitre.org> The above may not (yet) represent the opinions of my employer.   ------------------------------  % Date: Tue, 30 Nov 2004 23:38:22 +0000 - From: John Laird <nospam@laird-towers.org.uk> & Subject: Re: CLUSTER_SIZE ramification8 Message-ID: <5f0qq0h1c3t4i97bncl9ehrlrkevicdapj@4ax.com>  J On Tue, 30 Nov 2004 23:21:40 +0000 (UTC), lewis@SPYDER.MITRE.ORG (Keith A.
 Lewis) wrote:   M >I'm going to consolidate a dozen or so ODS-2/5 volumes into just 4 new ones,  >on new 72GB spindles.   > L >I will be able to estimate in advance roughly how many files on each disk. 1 >Based on that, what should my cluster size be?    > G >Assuming random file sizes, you "waste" half of a cluster per file, on M >average.  So I want to set it low.  But I have noticed that large disks with M >cluster size = 1 have huge INDEXF.SYS files, and that's no good either.  For 8 >example, I have a 36GB drive with a 1.25GB INDEXF file. > I >Is there a formula to calculate how big the INDEXF file will be based on  >disk size and cluster size?  L See the online help for INITIALIZE.  INDEXF.SYS is nearly all headers, so itG is sized according to the actual number of files and constrained by the : maximum number of files on the volume.  This is limited toE disk-size-in-blocks/(cluster-size+1) and defaults to half that value. K However, INDEXF.SYS grows dynamically and can start very small, but you can H pre-allocate space with the /HEADERS qualifier, and fix the maximum size with /MAXIMUM_FILES.  K I would say you probably don't want to waste more than 10% of the disk with K partly-filled clusters, and that in itself suggests a cluster size of 1/5th J the average file size.  Only you know what that is.  Or rather you suggestH you know how many files you need, from which you can work out a sensibleF cluster factor.  The overhead in BITMAP.SYS is only 1 bit per cluster,/ whereas in INDEXF.SYS it is 2048 bits per file.   ? Do you really have up to 2.5 million files on your 36Gb drive ?    --  + We should go metric every inch of the way!     Mail john rather than nospam...    ------------------------------  % Date: Tue, 30 Nov 2004 23:46:50 +0000 - From: John Laird <nospam@laird-towers.org.uk> & Subject: Re: CLUSTER_SIZE ramification8 Message-ID: <9i1qq0hvmqbei691k3ql31i9qml5c8b7r3@4ax.com>  K On Tue, 30 Nov 2004 23:38:22 +0000, John Laird <nospam@laird-towers.org.uk>  wrote:  6 >The overhead in BITMAP.SYS is only 1 bit per cluster,0 >whereas in INDEXF.SYS it is 2048 bits per file.  J Shoot, that should have been 4096 bits of course (512 bytes x 8bits/byte).   --  : Life is complex: It consists of real and imaginary parts.    Mail john rather than nospam...    ------------------------------  % Date: Tue, 30 Nov 2004 18:21:31 -0500  From: John Doe <jdoe@doe.org> ! Subject: DCL suggestion for PURGE ' Message-ID: <41AD006E.28E4BE58@doe.org>    This is intended to Guy Peleg.   PURGE/RESET   N Purges files down to the /KEEP or down to one, and then renames the files such$ that the oldest file's version is 1.   PURGE/RESET/OVERRIDE=INTERLOCK  5 Will do the above even to currently opened log files    ------------------------------  % Date: Tue, 30 Nov 2004 20:42:14 -0600 2 From: David J Dachtera <djesys.nospam@comcast.net>% Subject: Re: DCL suggestion for PURGE + Message-ID: <41AD2F85.D9A433C4@comcast.net>    John Doe wrote:  >   > This is intended to Guy Peleg. > 
 > PURGE/RESET  > P > Purges files down to the /KEEP or down to one, and then renames the files such& > that the oldest file's version is 1. >   > PURGE/RESET/OVERRIDE=INTERLOCK > 7 > Will do the above even to currently opened log files   G I'll second that, though I do see potential issues unless RESET and any 4 of KEEP, SINCE or BEFORE are DISALLOWed in the .CLD.   --   David J Dachtera dba DJE Systems  http://www.djesys.com/  ) Unofficial OpenVMS Hobbyist Support Page: " http://www.djesys.com/vms/support/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/   " Unofficial OpenVMS-IA32 Home Page: http://www.djesys.com/vms/ia32/    ------------------------------  % Date: Tue, 30 Nov 2004 23:02:11 -0500 - From: JF Mezei <jfmezei.spamnot@teksavvy.com> % Subject: Re: DCL suggestion for PURGE , Message-ID: <41AD4221.304A156D@teksavvy.com>   David J Dachtera wrote: I > I'll second that, though I do see potential issues unless RESET and any 6 > of KEEP, SINCE or BEFORE are DISALLOWed in the .CLD.   Why ?    Purge netserver.log/keep=2  I would change netserver.log;23 and netserver.log;24 to netserver.log;1 and  netserver.log;2 respectively.    ------------------------------  % Date: Tue, 30 Nov 2004 23:23:57 +0100 9 From: Jan-Erik =?iso-8859-1?Q?S=F6derholm?= <aaa@aaa.com> % Subject: Re: enhancements to VMS MAIL ' Message-ID: <41ACF2FD.F9CA0201@aaa.com>    david20@alpha2.mdx.ac.uk wrote:  > L > >This would be a method by which we would automatically recognize customer( > >requests for service and other needs. > >  > < > This sounds like something which Deliver could do for you. >   = One nice feature with DELIVER in such a case, is that you can C set up "service-mail-users", such as info@... order@... support@... = and so on. Just by MAIL SET FORW/USER=INFO REAL_USER (from an  prived account).  F The REAL_USER is the only user that has to be in the UAF, and it's the= user that is running DELIVER. The other users does only exist D in the systems wide MAIL file. Deliver will use, in it's config/rule file, ? the info/order/support/whatever user as the "To" field, and can C accordingly call the special DCL procs to handle mail to that user. A Still all proc can be held together under one user on the system.   C B.t.w, *all* transfers of traceability information between external > (outsourced) production and a major telecom company, is run by, DELIVER and a bunch of DCL jobs on a DS20...   Regards,	 Jan-Erik.    ------------------------------    Date: 30 Nov 2004 15:27:40 -0800* From: sreiner1957@yahoo.com (Steve Reiner)! Subject: Re: FTP behavior change? = Message-ID: <edca5655.0411301527.5dc02f91@posting.google.com>   n sreiner1957@yahoo.com (Steve Reiner) wrote in message news:<edca5655.0411300550.258891f@posting.google.com>...` > JF Mezei <jfmezei.spamnot@teksavvy.com> wrote in message > try the command FTP> SET PASSIVE ON > > O > > This will have the VMS host initiate the data connection to the remote unix ( > > which will then send the data on it. > >  > > N > > Also, you might try to telnet from the Unix host to the VMS machine with aR > > /port=54291 to see what happens. Could be blocked by a firewall or some config0 > > on the VMS machine at the tcpip stack level. >  > Thanks for the suggestions.  > = > I tried the "SET PASSIVE ON", but had the following result:  > 
 > CM2> FTP > FTP> SET PASSIVE ON  > Passive is ON. > FTP> CONNECT LG9250 
 > 220 mcsftp>  > Connected to LG9250.   > Name (LG9250:sreiner): SFR > 230 logged on. > FTP> SHO PASSIVE > Passive is ON.
 > FTP> pwd > 257 "^BSL" > FTP> get LDE > 500 what?  > FTP> PASSIVE OFF > Passive is OFF.  > FTP> get LDE- > 200 your data PORT will be 10.40.44.2 54471 ) > 150 Opening ASCII mode data connection. E > %TCPIP-E-FTP_DATACONF, cannot establish data connection with remote  > host6 > -SYSTEM-F-REJECT, connect to network object rejected > 451 write error= 32  > F > Also, I am able to TELNET from the Modcomp (Unix-like) system to theG > VMS system, but I do not know how to change the telnet port it uses.  " > TELNET works in both directions.   > D > I neglected to mention that an FTP "put" from VMS to Modcomp works6 > just fine.  It seems only that the "get" has issues.  8 Just to followup (and hopefully complete this thread)...  = I put in a call to HP support and they suggested defining the  following logicals --   '   "TCPIP$FTP_ALLOW_ADDR_REDIRECT" = "1" '   "TCPIP$FTP_ALLOW_PORT_REDIRECT" = "1"   B After these logical assignments were made, the "get" operation was successful. D I've asked support to send me a reference on what the above logicals@ do, but I haven't seen it yet.   I dug around quite a bit beforeB calling them, but didn't find anything that would've led me there.   FTP> connect lg9250  220 mcsftp>  Connected to LG9250.   Name (LG9250:sreiner): SFR 230 logged on. FTP> sho passive& Passive is AUTO (IPv4: OFF, IPv6: ON). FTP> pwd
 257 "^BSL" FTP> get lde+ 200 your data PORT will be 10.40.44.2 54552 ' 150 Opening ASCII mode data connection.  226 end of data.0 local: L2DISK:[USERS.SREINER]LDE.;2  remote: lde; 5129 bytes received in 00:00:00.14 seconds (33.62 Kbytes/s)    ------------------------------  % Date: Tue, 30 Nov 2004 15:34:29 -0500 # From: "Hal Kuff" <kuff@comcast.net> & Subject: FTP Files and version numbers- Message-ID: <coile6$b9a@library1.airnews.net>   J Does anyone have any wisdom on controlling ftp log file version numbers onG TCPWARE or TCPIP-HP ..? Getting to 32767 can take no time at all if the $ connections are coming in quickly...   ------------------------------  + Date: Tue, 30 Nov 2004 21:41:37 +0000 (UTC) 7 From: hamilton@Encompasserve.org (Bradford J. Hamilton) * Subject: Re: FTP Files and version numbers/ Message-ID: <coipeh$bgp$1@grandcanyon.binc.net>   S In article <coile6$b9a@library1.airnews.net>, "Hal Kuff" <kuff@comcast.net> writes: K !Does anyone have any wisdom on controlling ftp log file version numbers on H !TCPWARE or TCPIP-HP ..? Getting to 32767 can take no time at all if the% !connections are coming in quickly...  !  !   G I wrote a short command procedure once to purge the log files down to a H reasonable number, and then rename them from ;1 upwards.  Would this do?   ------------------------------  % Date: Tue, 30 Nov 2004 20:25:18 -0500 # From: "Hal Kuff" <kuff@comcast.net> * Subject: Re: FTP Files and version numbers- Message-ID: <coj6fi$gtf@library1.airnews.net>    YES!  D "Bradford J. Hamilton" <hamilton@Encompasserve.org> wrote in message) news:coipeh$bgp$1@grandcanyon.binc.net... : > In article <coile6$b9a@library1.airnews.net>, "Hal Kuff" <kuff@comcast.net> writes:J > !Does anyone have any wisdom on controlling ftp log file version numbers onJ > !TCPWARE or TCPIP-HP ..? Getting to 32767 can take no time at all if the' > !connections are coming in quickly...  > !  > !  > I > I wrote a short command procedure once to purge the log files down to a J > reasonable number, and then rename them from ;1 upwards.  Would this do?   ------------------------------  % Date: Tue, 30 Nov 2004 12:43:56 -0800 + From: "Russell E. Owen" <rowen@cesmail.net>  Subject: Good sftp server?A Message-ID: <rowen-8B9E0E.12435630112004@gnus01.u.washington.edu>   A I'm wondering if anyone can recommend a good sftp server for VMS?   H We're using MULTINET v4.4 for networking*, and are basically happy with C it except for the sftp server, which I've found basically unusable.   G The main problem is that I can't seem to use it to transfer text files  G to/from unix boxes.  I fear this may be an intrinsic limitation of the  H sftp protocol since I can't seem to find an ascii/binary mode switch in E sftp client help. But I hope there is some workaround, e.g. a better  @ server that pretends to be a unix server and does the necessary  end-of-line translation.  F Another issue is that it does not seem to handle logical names. I can F use logical names with the ftp server to specify directorys, and it's F very convenient for uploading batches of files. Being able to do that  with sftp would be a big win.   F For now I've been using ftp via an ssh tunnel, but I'd rather disable ! ftp and stick to sftp if I could.    Any suggestions?  H We don't need stellar performance since our VMS machines perform a very I restricted and specialized task. Reliability is the main issue, but ease  F of installation and configuration and adequate documentation are also 
 important.   Regards,  
 -- Russell  H *At the time I chose it, Compaq's own TCP/IP code did not handle ssh or F sftp. I guess Compaq did finally get around to adding those features, G but the few reports I've seen on it here haven't been all that glowing.    ------------------------------  % Date: Tue, 30 Nov 2004 13:40:23 -0800 - From: Kaleb Pederson <kpederson@mail.ewu.edu>  Subject: Re: Good sftp server?7 Message-ID: <200411301340.23798.kpederson@mail.ewu.edu>    Russell,  I We have the same configuration but don't have a problem.  There are some    annoyances, but that's about it.  I The problem shows up because with SCP/SFTP, all files are transmitted as  M binary and Unix doesn't understand the  OpenVMS file formats.  OpenVMS needs  K to know what the file type is rather than guessing.  I'll typically run an  I FDL on the files that I upload to convert it into STREAM_LF format.  eg.  - 'convert /fdl=stream.fdl <infile> <outfile>'.    ----- stream.fdl ----- SYSTEM         SOURCE            VAX/VMS   FILE#        ORGANIZATION      SEQUENTIAL    RECORD        BLOCK_SPAN        YES(        CARRIAGE_CONTROL  CARRIAGE_RETURN        FORMAT            STREAM         SIZE              0 ---- end stream.fdl ----  O There is another distinction, if you upload over a file that currently exists,  J the new file retains the old file format rather than using a default file K format.  So if the previous version was fixed width, the new version stays  J fixed width as well, despite having been uploaded in a possibly different  format.   = Keeping these things in consideration, everything works well.    I hope that helps.   --Kaleb   0 On Tuesday 30 November 2004 12:43 pm, you wrote:C > I'm wondering if anyone can recommend a good sftp server for VMS?  > I > We're using MULTINET v4.4 for networking*, and are basically happy with E > it except for the sftp server, which I've found basically unusable.  > H > The main problem is that I can't seem to use it to transfer text filesH > to/from unix boxes.  I fear this may be an intrinsic limitation of theI > sftp protocol since I can't seem to find an ascii/binary mode switch in F > sftp client help. But I hope there is some workaround, e.g. a betterA > server that pretends to be a unix server and does the necessary  > end-of-line translation. > G > Another issue is that it does not seem to handle logical names. I can G > use logical names with the ftp server to specify directorys, and it's G > very convenient for uploading batches of files. Being able to do that  > with sftp would be a big win.  > G > For now I've been using ftp via an ssh tunnel, but I'd rather disable # > ftp and stick to sftp if I could.  >  > Any suggestions? > I > We don't need stellar performance since our VMS machines perform a very J > restricted and specialized task. Reliability is the main issue, but easeG > of installation and configuration and adequate documentation are also  > important. > 
 > Regards, >  > -- Russell > I > *At the time I chose it, Compaq's own TCP/IP code did not handle ssh or G > sftp. I guess Compaq did finally get around to adding those features, I > but the few reports I've seen on it here haven't been all that glowing.    ------------------------------  % Date: Wed, 01 Dec 2004 01:25:02 -0500 - From: JF Mezei <jfmezei.spamnot@teksavvy.com> 8 Subject: OT: Gartner says HP may pullk out of PC by 2007, Message-ID: <41AD6391.E55D5C92@teksavvy.com>  ; http://news.zdnet.co.uk/business/0,39020645,39175381,00.htm   L Gartner says that possibly 3 of the top 10 PC manufacturers, with HP and IBMM mentioned as likely candidates would pull out of the PC market by 2007 to cut G losses. This may involve spinning off the business or shutting it down.   L Of course, this is the same gartner that is (so far) over 10 years late with4 its prediction that VMS would be officially retired.    K It is interesting to see all sorts of rumours about HP. So say they'll pull M out of the enterprise server business, other say they'll pull out of consumer  wintel business.  I If HP were to pull out of consumer wintel business, would this affect its J profitability/competitiveness in the wintel server business since it wouldN have less volume purchasing power for parts ? Or are wintel servers built withG different parts and thus not benefit from the consumer wintel volumes ?   M BTW, Has HP now completely stopped using the "Compaq" brand ? I see plenty of ( HP Pavillion ads on TV, none for Compaq.   ------------------------------  + Date: Tue, 30 Nov 2004 18:38:21 +0000 (UTC) 3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> Y Subject: Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac 0 Message-ID: <coiemq$dpe$1@sparta.btinternet.com>  
 Hi Warren,  ( >  Also, I am retired for over 20 years.  J Congratulations! But what the hell are you doing here? I *long* to be ableI to repeat your statement! (But then, like you, I'm sure I'd still keep my 	 hand in.)   < I'm backing VMS for 20 *more* years! (But then I have to :-)  8 > I am interested in a definition of VMS code. It looked, > a lot like Cobol to me. Oh, plus some jcl.  L I'm sure there are many definitions of "VMS code" out there. What I gave youL was DCL (DEC Command Language as oposed to Job Control Language (Can't swearK to the acronyms, but close enough)) command file that you could AT (@) that J would create the COBOL source code, MACRO external definitions, SQL ModuleL Language (I much prefer it to EXEC SQL blah), then compile them all and linkF 'em all together as well as set up the TCP/IP INETd parameters so thatL anyone on a Windows2000 box could CONNECT to port 303 (referencce to BreakerI Morant if anyone remembers the movie) and share in a 2PC transaction with  Rdb.  I It was about the most straight forward example that I could come up with, % but please ask away if you want more.   C > P.S. I see the use of pointer. I have heard that this is a tricky C > thing to use. Will you explain as it was not clear to me why that  > was true.   K Other conferences are probably better for this question, but in a nut shell F a 'pointer' is an address. I find it essential for calling certain VMSI System Services and desirable for dealing with constructs like VMS String  Descriptors.   Cheers Richard.   ; "Warren Simmons" <wsimmons5@optonline.net> wrote in message $ news:QRMpd.3164$FR3.1576@fe12.lga...
 > Hi Richard,  > A > I'm a very slow learner.  Also, I am retired for over 20 years. E > As a result, I am interested in a definition of VMS code. It looked , > a lot like Cobol to me. Oh, plus some jcl. >  > Warren Simmons > C > P.S. I see the use of pointer. I have heard that this is a tricky C > thing to use. Will you explain as it was not clear to me why that  > was true.  >  > Warren Simmons > wsimmons5@optonline.net  >  > Richard Maher wrote: > L > > Here's the DEMO code that I promised for the VMS side. It simply doesn't get  > > any easier than this!  > > B > > Everything except the two T3$ services is *standard* VMS code. > > 
 > > Enjoy! > >  > > Cheers Richard Maher.  > >  > > $!* > > $ server_user = f$getjpi(0,"username")3 > > $ home_dir    = f$trnlnm("sys$login","lnm$job")  > > $ set default 'home_dir  > > $! > > $ create demo_tip_auxs.cob > > L **************************************************************************** > > ******** > > *  > > * I > > *              COPYRIGHT (c) TIER3 SOFTWARE LTD. ALL RIGHTS RESERVED.  > > *  > > *  > > * G > > *    THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
 > > ONLY    * I > > *    IN ACCORDANCE  WITH THE TERMS AND CONDITIONS OF SUCH LICENSE AND  WITH > > THE    *I > > *    THE INCLUSION  OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE  OR  ANY  > > OTHER    *J > > *    COPIES  THEREOF MAY NOT  BE PROVIDED  OR OTHERWISE MADE AVAILABLE TO > > ANY    *K > > *    OTHER  PERSON.  NO  TITLE TO  AND OWNERSHIP  OF  THE  SOFTWARE  IS  > > HEREBY    *  > > *    TRANSFERRED.  > > *  > > *  > > * H > > *    THE INFORMATION  IN THIS SOFTWARE  IS SUBJECT TO CHANGE WITHOUT NOTICE > > AND    *G > > *    SHOULD NOT BE CONSTRUED AS A COMMITMENT BY TIER3 SOFTWARE LTD.  > > *  > > *  > > *  > > L **************************************************************************** > > ******** > > identification division.! > > program-id.    demo_tip_auxs.  > > data division. > > working-storage section.E > > 01  out_msg                                         pointer value  external > > out_msg.E > > 01  io$_setmode                     pic s9(9)       comp    value  external > > io$_setmode.E > > 01  io$_writevblk                   pic s9(9)       comp    value  external > > io$_writevblk.E > > 01  io$_readvblk                    pic s9(9)       comp    value  external > > io$_readvblk. E > > 01  io$_deaccess                    pic s9(9)       comp    value  external > > io$_deaccess. E > > 01  ddtm$m_nowait                   pic s9(9)       comp    value  external > > ddtm$m_nowait.E > > 01  ddtm$_aborted                   pic s9(9)       comp    value  external > > ddtm$_aborted.E > > 01  ss$_abort                       pic s9(9)       comp    value  external > > ss$_abort.E > > 01  ss$_normal                      pic s9(9)       comp    value  external > > ss$_normal. = > > 01  sys_status                      pic s9(9)       comp.  > > * @ > > 01  reply_addr                                      pointer.= > > 01  reply_len                       pic 9(4)        comp. = > > 01  out_len                         pic 9(4)        comp. 3 > > 01  abort_msg                       pic x(256). = > > 01  bintim                          pic s9(11)v9(7) comp.  > > *  > > 01  msg_buff. 1 > >     03  msg_type                    pic x(2). 3 > >     03                              pic x(510).  > > * A > > 01  insert_employee_msg             redefines       msg_buff.  > >     03  employee_msg. 1 > >         05                          pic x(2).   > >         05  employee_detais.2 > >             07  EmployeeId          pic 9(10).2 > >             07  LastName            pic x(20).2 > >             07  FirstName           pic x(10).2 > >             07  BirthDate           pic x(23). > >             07  Address.2 > >                 09  line1           pic x(30).2 > >                 09  line2           pic x(30).2 > >             07  City                pic x(15).2 > >             07  Region              pic x(15).2 > >             07  PostalCode          pic x(10).3 > >     03  tip_txn_url                 pic x(128).  > > *  > > 01  comp_status.E > >     03                              pic x(2)                value  "22". 1 > >     03  commit_flag                 pic x(1).  > > * = > > 01  inet_chan                       pic 9(4)        comp. 
 > > 01  iosb. = > >     03  cond_val                    pic 9(4)        comp. = > >     03  msg_size                    pic 9(4)        comp. 1 > >     03                              pic x(4).  > > *  > > 01  create_socket.E > >     03                              pic s9(4)       comp    value  external > > ucx$c_tcp.E > >     03                              pic s9(4)       comp    value  external
 > > auxs_def.  > > * = > > 01  sqlcode                         pic 9(9)        comp. I > > 01  rdb$message_vector                                      external. = > >     03 rdb$lu_num_arguments         pic 9(9)        comp. = > >     03 rdb$lu_status                pic 9(9)        comp. H > >     03 rdb$alu_arguments                            occurs 18 times.= > >         05 rdb$lu_arguments         pic 9(9)        comp.  > > *  > > 01  sql_ctx.J > >     03                              pic 9(9)        comp    value   1.J > >     03                              pic 9(9)        comp    value   1.K > >     03                              pic 9(9)        comp    value   16. 2 > >     03  db_tid                      pic x(16).= > >     03                              pic 9(9)        comp.  > > * 2 > > 01  tip_tid                         pic x(16).2 > > 01  tip_bid                         pic x(16). > > *  > > 01  dtm_iosb. = > >     03  dtm_iosb_status             pic 9(4)        comp. 1 > >     03                              pic x(2). = > >     03  reason_code                 pic 9(9)        comp.  > > *  > > 01  syi_item_list. > >     03  item_nodename.J > >         05                          pic s9(4)       comp    value   6.E > >         05                          pic s9(4)       comp    value  external > > syi$_nodename.E > >         05                                          pointer value  > > reference       local_node. E > >         05                                          pointer value # > > reference       local_node_len. = > >     03                              pic s9(9)       comp.  > > * 1 > > 01  local_node                      pic x(6). = > > 01  local_node_len                  pic 9(4)        comp.  > > *  > > 01  syi_iosb. = > >     03  syi_cond                    pic s9(9)       comp. 1 > >     03                              pic x(4).  > > *  > > procedure division.  > > kick_off section.  > > 00.  > >     call "sys$getsyiw"+ > >         using   by value        0, 0, 0 ; > >                 by reference    syi_item_list, syi_iosb ( > >                 by value        0, 0 > >         giving  sys_status. ? > >     if sys_status = ss$_normal move syi_cond to sys_status. E > >     if sys_status not = ss$_normal call "lib$stop" using by value  > > sys_status.  > >  > >     perform open_socket. > >     perform read_socket.% > >     perform until msg_type = "99"  > >  > >         evaluate  msg_typeD > >             when    "20"            perform insert_employee_pushH > >             when    other           display "Unknow message type: ", > > msg_typeF > >                                     call "lib$stop" using by value	 ss$_abort  > >         end-evaluate > >  > >         perform read_socket  > >  > >     end-perform. > >  > >     perform close_socket.  > >  > >     stop run.  > > *  > > open_socket section. > > 00.  > >     call "sys$assign" . > >         using   by descriptor   "sys$net:"- > >                 by reference    inet_chan + > >                 by value        0, 0, 0  > >         giving  sys_status. E > >     if sys_status not = ss$_normal call "lib$stop" using by value  > > sys_status.  > >  > >     call "sys$qiow" = > >         using   by value        0, inet_chan, io$_setmode ( > >                 by reference    iosb( > >                 by value        0, 01 > >                 by reference    create_socket 1 > >                 by value        0, 0, 0, 0, 0  > >         giving  sys_status. ? > >     if sys_status = ss$_normal move cond_val to sys_status. E > >     if sys_status not = ss$_normal call "lib$stop" using by value  > > sys_status.  > > *  > > read_socket section. > > 00.  > >     call "sys$qiow" > > >         using   by value        0, inet_chan, io$_readvblk( > >                 by reference    iosb( > >                 by value        0, 0, > >                 by reference    msg_buff3 > >                 by value        512, 0, 0, 0, 0  > >         giving  sys_status. ? > >     if sys_status = ss$_normal move cond_val to sys_status. E > >     if sys_status not = ss$_normal call "lib$stop" using by value  > > sys_status.  > > @ > >     display "Rec = *", insert_employee_msg(1:msg_size), "*". > > *  > > write_socket section.  > > 00.  > >     call "sys$qiow" > > >         using   by value       0, inet_chan, io$_writevblk' > >                 by reference   iosb J > >                 by value       0, 0, reply_addr, reply_len, 0, 0, 0, 0 > >         giving  sys_status. ? > >     if sys_status = ss$_normal move cond_val to sys_status. E > >     if sys_status not = ss$_normal call "lib$stop" using by value  > > sys_status.  > > *  > > close_socket section.  > > 00.  > >     call    "sys$qiow"B > >             using   by value        0, inet_chan, io$_deaccess, > >                     by reference    iosb> > >                     by value        0, 0, 0, 0, 0, 0, 0, 0# > >             giving  sys_status.C? > >     if sys_status = ss$_normal move cond_val to sys_status.sE > >     if sys_status not = ss$_normal call "lib$stop" using by value  > > sys_status.E > >fE > >     call "sys$dassgn" using by value inet_chan giving sys_status. E > >     if sys_status not = ss$_normal call "lib$stop" using by values > > sys_status.  > > *a! > > insert_employee_push section.  > > 00. : > >     move function upper-case (BirthDate) to BirthDate. > >b > >     call "sys$bintim"e- > >         using   by descriptor   BirthDateu* > >                 by reference    bintim > >         giving  sys_status.dE > >     if sys_status not = ss$_normal call "lib$stop" using by valuet > > sys_status.r > >d  > >     call "t3$tip_url_to_tid"F > >         using   by descriptor   tip_txn_url of insert_employee_msg; > >                                 (1:(msg_size - functionm > > length(employee_msg)))4 > >                 by reference    tip_tid, tip_bid > >         giving  sys_status.-E > >     if sys_status not = ss$_normal call "lib$stop" using by valuem > > sys_status.n > >s  > >     call "sys$start_branchw"( > >         using   by value        0, 0, > >                 by reference    dtm_iosb( > >                 by value        0, 0+ > >                 by reference    tip_tid @ > >                 by descriptor   local_node(1:local_node_len)+ > >                 by reference    tip_bidh > >         giving  sys_status. F > >     if sys_status = ss$_normal move dtm_iosb_status to sys_status.E > >     if sys_status not = ss$_normal call "lib$stop" using by valuer > > sys_status.e > > *  > >     move tip_tid to db_tid.r > >     perform the_insert.f > > *e0 > >     set reply_addr to reference comp_status. > >     move 3 to reply_len. > >     perform write_socket.  > >d > >     if commit_flag = "Y"! > >          perform commit_trans ! > >     else perform abort_trans.  > > *e	 > > fini.  > > *  > > the_insert section.n > > 00. 3 > >     call "set_trans_rw" using sqlcode, sql_ctx.n) > >     if rdb$lu_status not = ss$_normal 6 > >         call "sys$putmsg" using rdb$message_vector5 > >         call "lib$stop" using by value ss$_abort.0 > >t > >     call "insert_employee" > >         using   sqlcode,$ > >                 EmployeeId(6:5), > >                 LastName,n > >                 FirstName, > >                 Bintim,  > >                 line1, > >                 line2, > >                 City,e > >                 Region,d > >                 PostalCode,a > >                 sql_ctx. > >?) > >     if rdb$lu_status not = ss$_normal # > >         move "N" to commit_flagt > >         call "sys$putmsg"s> > >                 using   by reference    rdb$message_vector6 > >                         by value        out_msg, 05 > >                         by reference    inet_chan/& > >                 giving  sys_status* > >         if sys_status not = ss$_normal9 > >             call "lib$stop" using by value sys_status  > >         end-if > >     else$ > >         move "Y" to commit_flag. > > *s	 > > fini.A > > *3 > > commit_trans section.l > > 00.r > >     call "sys$end_branchw"( > >         using   by value        0, 0, > >                 by reference    dtm_iosb( > >                 by value        0, 04 > >                 by reference    tip_tid, tip_bid > >         giving  sys_status.rE > >     if sys_status not = ss$_normal call "lib$stop" using by valuen > > sys_status.h > > *l& > >     if dtm_iosb_status = ss$_abort5 > >         display "Couldn't commit - " no advancings& > >         if reason_code not = zeros! > >             call "sys$getmsg"n7 > >                 using   by value        reason_code-3 > >                         by reference    out_len05 > >                         by descriptor   abort_msg / > >                         by value        0,0 % > >                 giving sys_status'/ > >              if sys_status not = ss$_normalm= > >                 call "lib$stop" using by value sys_status  > >              end-ifc. > >              display abort_msg (1:out_len) > >         else- > >              display "and don't know why"e > >     else/ > >         if dtm_iosb_status not = ss$_normaloA > >               call "lib$stop" using by value dtm_iosb_status.l > > *i > > abort_trans section. > > 00.a > >     call "sys$abort_transw"x4 > >         using   by value        0, ddtm$m_nowait, > >                 by reference    dtm_iosb( > >                 by value        0, 0+ > >                 by reference    tip_tid 1 > >                 by value        ddtm$_abortede+ > >                 by reference    tip_bid- > >         giving  sys_status. F > >     if sys_status = ss$_normal move dtm_iosb_status to sys_status.E > >     if sys_status not = ss$_normal call "lib$stop" using by valuec > > sys_status.e > > *@ > > end program demo_tip_auxs. > > identification division. > > program-id.    out_msg.i > > data division. > > working-storage section.D > > 01  io$_writevblk           pic 9(9)    comp    value   external > > io$_writevblk.D > > 01  ss$_normal              pic 9(9)    comp    value   external ss$_normal.s1 > > 01  sys_status              pic 9(9)    comp.f > > *e
 > > 01  iosb.h1 > >     03  cond_val            pic s9(4)   comp.t) > >     03                      pic x(6).r > > *s4 > > 01  reply_addr                          pointer.1 > > 01  reply_len               pic 9(4)    comp.a > > *r > > 01  reply_hdr.A > >     03  error_id            pic xx              value   "88". ) > >     03  error_len           pic 9(3).t > > *? > > linkage section. > > *N > > 01  msg_desc.Y1 > >     03  msg_len             pic 9(4)    comp.t1 > >     03  msg_class           pic 9(4)    comp. 4 > >     03  msg_addr                        pointer. > > * 1 > > 01  inet_chan               pic 9(4)    comp.o > > *h > > procedure division > >         using   msg_desc,a > >                 inet_chan  > >         giving  ss$_normal.A > > 00.i5 > >     move function length(reply_hdr) to reply_len. " > >     move msg_len to error_len.. > >     set reply_addr to reference reply_hdr. > >     perform write_socket.t > >s" > >     move msg_len to reply_len.$ > >     move msg_addr to reply_addr. > >     perform write_socket.e > > * 	 > > fini.n > >     exit program.w > > *u > > write_socket.s > > *l > >     call "sys$qiow"a> > >         using   by value       0, inet_chan, io$_writevblk' > >                 by reference   iosbaJ > >                 by value       0, 0, reply_addr, reply_len, 0, 0, 0, 0 > >         giving  sys_status. ? > >     if sys_status = ss$_normal move cond_val to sys_status.-E > >     if sys_status not = ss$_normal call "lib$stop" using by valuel > > sys_status.k > > *j > > end program out_msg. > > $!! > > $ cobol/lis demo_tip_auxs.cob3 > > $!" > > $ create demo_tip_auxs_def.mar > >3K > >             .title          DEMO_TIP_AUXS_DEF Demo example TIP external  data > > ;+J > > ;  The following command can be used to create a macro library INET in your > > defaultu+ > > ;  area if one does not already exist:-  > > ;yF > > ;           $library/create/macro inet.mlb sys$library:ucx$inetdef > > ;l0 > > ;           .library        "sys$login:inet" > > ;-& > > ;           $inetsymdef     GLOBAL& > > ;           $siocdef        GLOBAL& > > ;           $inetacpfsymdef GLOBAL& > > ;           $inetacpsymdef  GLOBAL& > > ;           $ineterrdef     GLOBAL > > ;-& > >             $ddtmdef        GLOBAL& > >             $ddtmmsgdef     GLOBAL > >t/ > >             ucx$c_auxs         ==       127V/ > >             ucx$c_af_inet      ==         2r/ > >             ucx$c_tcp          ==         6-? > >             auxs_def           ==       <ucx$c_auxs * 256 +  ucx$c_af_inet> > >a > >             .end > >:% > > $ macro/lis demo_tip_auxs_def.mar  > > $!% > > $ create demo_tip_auxs_sql.sqlmodo > >  > > module    dist_sql > > language  cobolU > > parameter colons > >l, > > declare pers alias filename mf_personnel > >e > > procedure set_trans_rw > >         sqlcode; > >.& > >         set transaction read write> > >                 reserving pers.employees for shared write; > >s > > procedure insert_employeee > >         sqlcode,, > >         :employee_id            char(5),- > >         :last_name              char(20), - > >         :first_name             char(10),f- > >         :birthday               date vms,w- > >         :address_data_1         char(30),a- > >         :address_data_2         char(30),m- > >         :city                   char(15), - > >         :state                  char(15),-, > >         :postal_code            char(10)
 > >         ;  > > & > >         insert into pers.employees > >                 (e  > >                 employee_id, > >                 last_name, > >                 first_name,s > >                 birthday,e# > >                 address_data_1, # > >                 address_data_2,e > >                 city,  > >                 state,  > >                 postal_code,# > >                 middle_initial,  > >                 sex, > >                 status_code- > >                 ), > >         values > >                 (k! > >                 :employee_id,a > >                 :last_name,t  > >                 :first_name, > >                 :birthday,$ > >                 :address_data_1,$ > >                 :address_data_2, > >                 :city, > >                 :state, ! > >                 :postal_code,s > >                 ' ', > >                 '?', > >                 'N'w > >                 )a
 > >         ;  > > $! > > $ sqlmod:==$sql$mod,C > > $ sqlmod/lis/context=(set_trans_rw,insert_employee)/const=immed & > > demo_tip_auxs_sql.sqlmod/nowarning > > $!2 > > $ define/nolog lnk$library sys$library:t3$user
 > > $ link > > J demo_tip_auxs,demo_tip_auxs_def,demo_tip_auxs_sql,sys$library:sql$user/lib > > $!$ > > $ create demo_tip_auxs_input.com
 > > $ deck, > > $! define mf_personnel to_where_it_lives" > > $  run sys$login:demo_tip_auxs > > $  exit 	 > > $ eode > > $!- > > $ ucx set service tip_inetd             - - > >         /port           = 303           - - > >         /protocol       = tcp           -i- > >         /process        = tip_auxs      -p- > >         /user_name      = 'server_user' -y; > >         /file           = 'home_dir'demo_tip_auxs_inputa > > $!" > > $ ucx enable service tip_inetd > > $!
 > > $ exit > >: > >8 > >r   ------------------------------  + Date: Tue, 30 Nov 2004 20:05:43 +0000 (UTC)s3 From: "Richard Maher" <maher_rj@hotspamnotmail.com>cY Subject: Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac80 Message-ID: <coijqm$lku$1@sparta.btinternet.com>  
 Hi Erland,  G (Firstly, thanks for replying to my earlier questions in the SQL Servers groups some time ago.)  8 > Indeed. Back in my younger days, I was a lot into VMS.  I Well it's high-time you got back into it! With the Itanium port coming in J December and mini-merge doing what it should, all of Sweeden is asking youK to look at a Windows2000 SQL Server front end backed up by the bullet-proofaK reliability of a disaster-tolerant VMS-cluster at the back-end. Add to thishH the ACID properties of a hotTIP Two-Phase Commit, and your customers are# gonna start beating down your door.   E All flattery aside, you're one of the most prolific and altruistic ofGJ posters to these newsgroups so hopefully I've sparked your interest enoughF to make you want to have a look at my software and put it through it'sL paces. OK, You don't do VMS anymore, but I'll write whatever you want on theK server side if you'll just tee-up a VAX/VMS server (or emulator) to test it,K on. Even if your interest extends no further than pushing Microsoft to pushoL TIP more, so that in a few months you're talking LU6.2 MVS DB2 connectivity,& then surely it's worth the investment?  J Sadly, I'm starting to believe that good software is never honoured in its own country, so give us a plug!h  L > But this was a new experience. Call SYS$QIOW and others from Cobol, egads!  I Maybe someone can explain what exactly it was that COM invented again :-)oF VMS has *always* had the Common Language Environment and the ProcedureK Calling Standard. Whatever programming language you'd like to use, makes noFI difference! (Admittedly alot of people in DEC/Compaq/HP (including senior L VMS engineers) would like to change this to get some sort of street-cred but1 I'm sure that, in time,  they'll grow out of it.)a   Cheers Richard.s  ; "Erland Sommarskog" <esquel@sommarskog.se> wrote in messageo* news:Xns95ADEE7C89478Yazorman@127.0.0.1...2 > Warren Simmons (wsimmons5@optonline.net) writes:C > > I'm a very slow learner.  Also, I am retired for over 20 years. G > > As a result, I am interested in a definition of VMS code. It looked>. > > a lot like Cobol to me. Oh, plus some jcl. >wG > Indeed. Back in my younger days, I was a lot into VMS. But this was an= > new experience. Call SYS$QIOW and others from Cobol, egads!1 >b >s > -- e9 > Erland Sommarskog, SQL Server MVP, esquel@sommarskog.se- >-$ > Books Online for SQL Server SP3 atA > http://www.microsoft.com/sql/techinfo/productdoc/2000/books.aspP   ------------------------------  + Date: Tue, 30 Nov 2004 12:35:08 -0600 (CST)s From: sms@antinode.org, Subject: SSL (https) support in Wget for VMS) Message-ID: <04113012350878@antinode.org>c  D    After a bit of prodding from a user, I've modified the Wget 1.9.1E builder files to add https (SSL) support.  The changes seemed to work 2 for me using the HP SSL V1.1-B kit (available fromA "http://h71000.www7.hp.com/openvms/products/ssl/ssl.html") or theD* generic OpenSSL 0.9.7e kit (available from" "http://www.openssl.org/source/").  G    I haven't packaged a new Wget version yet, pending complaints (whichmE are welcome, as usual), but the changed/new files should be available.C (along with other repairs for version 1.9.1b) from my Wget Web pagec/ ("http://www.antinode.org/dec/sw/wget.html").  o  H ------------------------------------------------------------------------  4    Steven M. Schweda               (+1) 651-699-98183    382 South Warwick Street        sms@antinode-org0    Saint Paul  MN  55105-2547K   ------------------------------  % Date: Tue, 30 Nov 2004 20:31:38 -0600g2 From: David J Dachtera <djesys.nospam@comcast.net>& Subject: Re: UUCP for OpenVMS on Alpha+ Message-ID: <41AD2D0A.32F6216B@comcast.net>$   Volker N Englisch wrote: > [snip]( > Hmm, uucp really seems to be dying :-(  C Out of curiosity, what do you need from UUCP that is unique to thato method/protocol?   -- r David J Dachtera dba DJE SystemsI http://www.djesys.com/  ) Unofficial OpenVMS Hobbyist Support Page:o" http://www.djesys.com/vms/support/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/n  " Unofficial OpenVMS-IA32 Home Page: http://www.djesys.com/vms/ia32/l   ------------------------------    Date: 30 Nov 2004 12:42:15 -06004 From: kaplow_r@encompasserve.org.TRABoD (Bob Kaplow)C Subject: Re: VT1xx flavors (was Re: DEC retail stores in the 1980s)63 Message-ID: <$DDjAQMg3n35@eisner.encompasserve.org>f  d In article <d0e744c9.0411291646.181db8ce@posting.google.com>, leeroth@my-deja.com (Lee Roth) writes:E > I recall when the VT100 was introduced - the demand for the product E > was absolutely incredible! IIRC, it was the first video terminal by B > any manufacturer to have all of its setups via the keyboard - no0 > more flipping DIP switches or rotary switches.  F I've said many times that the VT-100 is the only product that DEC everE produced that became an insustry standard while DEC actually made thenK product. Even today every wintel virus is able to to a crappy job of tryingnB to emulate a VT-100. Hyperterm really sucks compared to Keaterm or& Reflections, but it can do the basics.  G I'm still digging through VT-100 emulators for my Palm. Found a bunch If/ didn't like. If any one has a recommendation...a    1 	Bob Kaplow	NAR # 18L	TRA # "Impeach the TRA BoD"n& 		>>> To reply, remove the TRABoD! <<<K Kaplow Klips & Baffle:	http://nira-rocketry.org/LeadingEdge/Phantom4000.pdfaL     www.encompasserve.org/~kaplow_r/    www.nira-rocketry.org    www.nar.org  N ... One nation under survielence, divisive, with liberty and justice for none.   ------------------------------  % Date: Tue, 30 Nov 2004 16:13:02 -0500 - From: JF Mezei <jfmezei.spamnot@teksavvy.com>iA Subject: Re: [OT]: Digital Equipment Corp. and the origin of Spamo, Message-ID: <41ACE25B.89E02C69@teksavvy.com>   Joe Matuscak wrote:vH > Oddly enough, Vint Cerf and Bob Kahn posted a letter where they pretty > much agree with Al Gore. See:r  M When you have big contracts from the US military as a consultant, your publics) opinions may not match your private ones.e   ------------------------------    Date: 30 Nov 2004 12:47:22 -06004 From: kaplow_r@encompasserve.org.TRABoD (Bob Kaplow)+ Subject: Re: [Typo ?] What is a Ramanujan ? 3 Message-ID: <mEuK5uVz3r4r@eisner.encompasserve.org>U  i In article <newscache$pcuz7i$i02$1@news.sil.at>, peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER) writes: N > I stumbled over a feature "Fastpath for Ramanujan" (just after "Fastpath forN > PEdriver"). What is this ? The name of the hacker which changed the list ???  @ Isn't that what Cmdr Riker told Cptn Picard to look for on Risa?   :-)   1 	Bob Kaplow	NAR # 18L	TRA # "Impeach the TRA BoD" & 		>>> To reply, remove the TRABoD! <<<K Kaplow Klips & Baffle:	http://nira-rocketry.org/LeadingEdge/Phantom4000.pdf L     www.encompasserve.org/~kaplow_r/    www.nira-rocketry.org    www.nar.org  N ... One nation under survielence, divisive, with liberty and justice for none.   ------------------------------   End of INFO-VAX 2004.666 ************************