1 INFO-VAX	Sat, 14 May 2005	Volume 2005 : Issue 268       Contents:, DCL How to find out if a certain file exist?0 Re: DCL How to find out if a certain file exist?0 Re: DCL How to find out if a certain file exist? Re: OpenVMS Pearl  Re: OpenVMS Pearl  Re: Question Re: TCPIP rejection ( Re: Winning slogan for the License Plate6 Re: [OT]: Wonder what an Xbox 360 runs under the hood?  F ----------------------------------------------------------------------  % Date: Sat, 14 May 2005 16:52:45 +0200  From: <pizmik@centrum.cz> 5 Subject: DCL How to find out if a certain file exist? + Message-ID: <200505141652.24654@centrum.cz>   < I would like to find all files, which have not backup copy. = I use f$search in cycle to search all files in the directory. ] I wanted to use it again, inside cycle, to test, if file with other number of version exists. X But f$search search files in sequence and using it inside a cycle will upset all script.[ I try f$parse, but it doesn't test if file exists. It uses only template given in filespec.    Could you help me?   ------------------------------  % Date: Sat, 14 May 2005 18:23:24 +0200 3 From: Michael Unger <spam.to.unger@spamgourmet.com> 9 Subject: Re: DCL How to find out if a certain file exist? + Message-ID: <3emn9jF3umuoU1@individual.net>   / On 2005-05-14 16:52, "pizmik@centrum.cz" wrote:   > > I would like to find all files, which have not backup copy. ? > I use f$search in cycle to search all files in the directory. _ > I wanted to use it again, inside cycle, to test, if file with other number of version exists. Z > But f$search search files in sequence and using it inside a cycle will upset all script.] > I try f$parse, but it doesn't test if file exists. It uses only template given in filespec.  >  > Could you help me?   $ F$SEARCH(filespec, stream-id)                       ^^^^^^^^^  * Quoting from the "OpenVMS DCL Dictionary":   <quote> 	 stream-id ; Specifies a positive integer representing the search stream  identification number.  D The search stream identification number is used to maintain separateE search contexts when you use the F$SEARCH function more than once and E when you supply different filespec arguments. If you use the F$SEARCH B function more than once in a command procedure and if you also useE different filespec arguments, specify stream-id arguments to identify  each search separately.   @ If you omit the stream-id argument, the F$SEARCH function startsH searching at the beginning of the directory file each time you specify a different filespec argument. </quote>   Michael    --  ; Real names enhance the probability of getting real answers. 5 My e-mail account at DECUS Munich is no longer valid.    ------------------------------  % Date: Sat, 14 May 2005 11:42:04 -0500 ( From: Wayne Sewell <wayne@tachysoft.com>9 Subject: Re: DCL How to find out if a certain file exist? / Message-ID: <00A43C02.6A1A5ACA.3@tachysoft.com>    >From: <pizmik@centrum.cz> >X-Newsgroups: comp.os.vms6 >Subject: DCL How to find out if a certain file exist?, >Message-ID: <200505141652.24654@centrum.cz>& >Date: Sat, 14 May 2005 16:52:45 +0200. >Organization: Info-VAX<==>comp.os.vms Gateway    = >I would like to find all files, which have not backup copy.   > > >I use f$search in cycle to search all files in the directory. > N >I wanted to use it again, inside cycle, to test, if file with other number of >version exists. > M >But f$search search files in sequence and using it inside a cycle will upset  >all script. > O >I try f$parse, but it doesn't test if file exists. It uses only template given 
 >in filespec.  >  >Could you help me?  >       
   F$SEARCH  H        Searches a directory file and returns the full file specification        for a file you specify.  
        Format   '          F$SEARCH(filespec[,stream-id]) %                             ^^^^^^^^^              stream-id   D          Specifies a positive integer representing the search stream          identification number.   D          The search stream identification number is used to maintainD          separate search contexts when you use the F$SEARCH functionI          more than once and when you supply different filespec arguments. E          If you use the F$SEARCH function more than once in a command D          procedure and if you also use different filespec arguments,H          specify stream-id arguments to identify each search separately.  I          If you omit the stream-id argument, the F$SEARCH function starts G          searching at the beginning of the directory file each time you /          specify a different filespec argument.                @ So just use a different number for the f$search inside the loop.  O =============================================================================== N Wayne Sewell, Tachyon Software Consulting  (281)812-0738   wayne@tachysoft.com; http://www.tachysoft.com/www/tachyon.html and wayne.html    O =============================================================================== P Jake Blues:"You traded the Caddy for a microphone? ...... Okay, I can buy that."   ------------------------------  % Date: Sat, 14 May 2005 11:37:41 +0200 A From: "Mart-info @ Martinnovations BV" <mhm.info@martinnovats.nl>  Subject: Re: OpenVMS Pearl? Message-ID: <001901c55868$9abe6820$82085e0a@martinnovations.nl>   , This is a multi-part message in MIME format.  + ------=_NextPart_000_0016_01C55879.56619510  Content-Type: text/plain;  	charset="iso-8859-1" + Content-Transfer-Encoding: quoted-printable   F A quote from "The Hitch Hiker's Guide to the Galaxy" by Douglas Adams:  I A towel, is about the most massively useful thing an interstellar hitch = G hiker can have. Partly it has great practical value - you can wrap it = J around you for warmth as you bound across the cold moons of Jaglan Beta; =I you can lie on it on the brilliant marble-sanded beaches of Santraginus = G V, inhaling the heady sea vapours; you can sleep under it beneath the = H stars which shine so redly on the desert world of Kakrafoon; use it to =D sail a mini raft down the slow heavy river Moth; wet it for use in =I hand-to- hand-combat; wrap it round your head to ward off noxious fumes = C or to avoid the gaze of the Ravenous Bugblatter Beast of Traal (a = F mindboggingly stupid animal, it assumes that if you can't see it, it =G can't see you - daft as a bush, but very ravenous); you can wave your = G towel in emergencies as a distress signal, and of course dry yourself = 1 off with it if it still seems to be clean enough. E More importantly, a towel has immense psychological value. For some = J reason, if a strag (strag: non-hitch hiker) discovers that a hitch hiker =I has his towel with him, he will automatically assume that he is also in = I possession of a toothbrush, face flannel, soap, tin of biscuits, flask, = H compass, map, ball of string, gnat spray, wet weather gear, space suit =J etc., etc. Furthermore, the strag will then happily lend the hitch hiker =@ any of these or a dozen other items that the hitch hiker might =I accidentally have "lost". What the strag will think is that any man who = D can hitch the length and breadth of the galaxy, rough it, slum it, =H struggle against terrible odds, win through, and still knows where his =. towel is is clearly a man to be reckoned with.  J Hence a phrase which has passed into hitch hiking slang, as in "Hey, you =J sass that hoopy Ford Prefect? There's a frood who really knows where his =I towel is." (Sass: know, be aware of, meet, have sex with; hoopy: really = 4 together guy; frood: really amazingly together guy.)   Regards, Martin Hoogenboom !   ----- Original Message -----=20    From: Dave Froble=20   To: Info-VAX@Mvb.Saic.Com=20&   Sent: Saturday, May 14, 2005 2:40 AM   Subject: Re: OpenVMS Pearl  I   I don't think I will ever throw in the towel, but I'm wondering what=20     future uses I may have for it.  + ------=_NextPart_000_0016_01C55879.56619510  Content-Type: text/html; 	charset="iso-8859-1" + Content-Transfer-Encoding: quoted-printable   > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD>7 <META http-equiv=3DContent-Type content=3D"text/html; =  charset=3Diso-8859-1">9 <META content=3D"MSHTML 6.00.2800.1498" name=3DGENERATOR>  <STYLE></STYLE>  </HEAD>  <BODY bgColor=3D#ffffff>J <DIV><FONT face=3DCourier>A quote from <STRONG><EM>"</EM></STRONG><SPAN=20B lang=3DEN-GB><STRONG><EM>The Hitch Hiker's Guide to the Galaxy"=209 </EM></STRONG></SPAN><FONT size=3D3><SPAN lang=3DEN-GB=20 H style=3D"FONT-SIZE: 11pt; FONT-FAMILY: Arial; mso-fareast-font-family: =G 'MS Mincho'; mso-bidi-font-size: 10.0pt; mso-bidi-font-family: 'Times = A New Roman'; mso-ansi-language: EN-GB; mso-fareast-language: NL; =  mso-bidi-language: AR-SA">by=20 ) Douglas Adams</SPAN>:</FONT></FONT></DIV> / <DIV><FONT face=3DCourier><SPAN lang=3DEN-GB=20 ' style=3D"mso-fareast-font-family: 'MS = # Mincho'"></SPAN></FONT>&nbsp;</DIV> / <DIV><FONT face=3DCourier><SPAN lang=3DEN-GB=20 F style=3D"mso-fareast-font-family: 'MS Mincho'">A towel, is about the = most=20 H massively useful thing an interstellar hitch hiker can have. Partly it = has great=20F practical value - you can wrap it around you for warmth as you bound =
 across the=20 ? cold moons of Jaglan Beta; you can lie on it on the brilliant =  marble-sanded=20I beaches of Santraginus V, inhaling the heady sea vapours; you can sleep =  under it=20 J beneath the stars which shine so redly on the desert world of Kakrafoon; =	 use it=20 G to sail a mini raft down the slow heavy river Moth; wet it for use in =  hand-to-=20 F hand-combat; wrap it round your head to ward off noxious fumes or to = avoid the=20H gaze of the Ravenous Bugblatter Beast of Traal (a mindboggingly stupid =
 animal,=20I it assumes that if you can't see it, it can't see you - daft as a bush, =  but very=20 I ravenous); you can wave your towel in emergencies as a distress signal, = 	 and of=20 @ course dry yourself off with it if it still seems to be clean=20, enough.<?xml:namespace prefix =3D o ns =3D =, "urn:schemas-microsoft-com:office:office"=20! /><o:p></o:p></SPAN></FONT></DIV> H <P class=3DMsoNormal style=3D"MARGIN: 0cm 0cm 3pt"><SPAN lang=3DEN-GB=20J style=3D"mso-fareast-font-family: 'MS Mincho'"><FONT face=3DCourier>More =  H importantly, a towel has immense psychological value. For some reason, = if a=20 E strag (strag: non-hitch hiker) discovers that a hitch hiker has his = 
 towel with=20 F him, he will automatically assume that he is also in possession of a = toothbrush,=20C face flannel, soap, tin of biscuits, flask, compass, map, ball of =  string, gnat=20 G spray, wet weather gear, space suit etc., etc. Furthermore, the strag =  will then=20G happily lend the hitch hiker any of these or a dozen other items that =  the hitch=20I hiker might accidentally have "lost". What the strag will think is that = 
 any man=20H who can hitch the length and breadth of the galaxy, rough it, slum it, = struggle=20 H against terrible odds, win through, and still knows where his towel is = is=20 ? clearly a man to be reckoned with.<o:p></o:p></FONT></SPAN></P>  <DIV><SPAN lang=3DEN-GB=20H style=3D"FONT-SIZE: 11pt; FONT-FAMILY: Arial; mso-fareast-font-family: =G 'MS Mincho'; mso-bidi-font-size: 10.0pt; mso-bidi-font-family: 'Times = A New Roman'; mso-ansi-language: EN-GB; mso-fareast-language: NL; = " mso-bidi-language: AR-SA"><FONT=20D face=3DCourier size=3D3>Hence a phrase which has passed into hitch = hiking slang, as=20 G in "Hey, you sass that hoopy Ford Prefect? There's a frood who really =  knows=20E where his towel is." (Sass: know, be aware of, meet, have sex with; = 	 hoopy:=20 7 really together guy; frood: really amazingly together =  guy.)</FONT></SPAN></DIV>  <DIV><SPAN lang=3DEN-GB=20H style=3D"FONT-SIZE: 11pt; FONT-FAMILY: Arial; mso-fareast-font-family: =G 'MS Mincho'; mso-bidi-font-size: 10.0pt; mso-bidi-font-family: 'Times = A New Roman'; mso-ansi-language: EN-GB; mso-fareast-language: NL; = " mso-bidi-language: AR-SA"><FONT=202 face=3DCourier size=3D3></FONT></SPAN>&nbsp;</DIV> <DIV><SPAN lang=3DEN-GB=20H style=3D"FONT-SIZE: 11pt; FONT-FAMILY: Arial; mso-fareast-font-family: =G 'MS Mincho'; mso-bidi-font-size: 10.0pt; mso-bidi-font-family: 'Times = A New Roman'; mso-ansi-language: EN-GB; mso-fareast-language: NL; = " mso-bidi-language: AR-SA"><FONT=204 face=3DCourier size=3D3>Regards,</FONT></SPAN></DIV> <DIV><SPAN lang=3DEN-GB=20H style=3D"FONT-SIZE: 11pt; FONT-FAMILY: Arial; mso-fareast-font-family: =G 'MS Mincho'; mso-bidi-font-size: 10.0pt; mso-bidi-font-family: 'Times = A New Roman'; mso-ansi-language: EN-GB; mso-fareast-language: NL; = " mso-bidi-language: AR-SA"><FONT=20= face=3DCourier size=3D3>Martin Hoogenboom</FONT></SPAN></DIV>  <BLOCKQUOTE=20C style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; = 3 BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px"> E   <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV> 	   <DIV=20 ?   style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =  black"><B>From:</B>=20"   <A title=3Ddavef@tsoft-inc.com =6 href=3D"mailto:davef@tsoft-inc.com">Dave Froble</A>=20   </DIV>1   <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =   title=3DInfo-VAX@Mvb.Saic.Com=20H   href=3D"mailto:Info-VAX@Mvb.Saic.Com">Info-VAX@Mvb.Saic.Com</A> </DIV>G   <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Saturday, May 14, 2005 =  2:40=20  AM</DIV>?   <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Re: OpenVMS =  Pearl</DIV> .   <DIV style=3D"FONT: 10pt arial">&nbsp;</DIV>H   <DIV>I don't think I will ever throw in the towel, but I'm wondering = what=20 "   <BR>future uses I may have for =( it.<BR></DIV></BLOCKQUOTE></BODY></HTML>  - ------=_NextPart_000_0016_01C55879.56619510--    ------------------------------  % Date: Sat, 14 May 2005 12:20:40 -0400 ' From: Dave Froble <davef@tsoft-inc.com>  Subject: Re: OpenVMS Pearl0 Message-ID: <118c992311goscd@corp.supernews.com>   Larry Kilgallen wrote:\ > In article <118ai5dk3bv9cc1@corp.supernews.com>, Dave Froble <davef@tsoft-inc.com> writes: >  > J >>I'd think that Sue's poll for a licanse plate would have some chance of I >>getting participation from most of the visitors to this forum.  If so,  K >>and the number of voters toping out at around 500 is about 25% of what I  J >>would have expected.  If there are only 500 VMS bigots left, things are - >>worse than I thought (Ok, hoped) they were.  >  > H > There is no rule that somebody liking VMS cannot also have a real job.  I What does that have to do with the number of people who show interest in  A VMS?   I'd hope you aren't implying that having a 'real' job and  . participating in c.o.v are mutually exclusive.   --  4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com 170 Grimplin Road  Vanderbilt, PA  15486    ------------------------------  % Date: Sat, 14 May 2005 01:59:40 -0400 : From: "Hein RMS van den Heuvel" <hein@Hewlett-Packard.com> Subject: Re: Question * Message-ID: <4284dc94@usenet01.boi.hp.com>  8 "Chuck Aaron" <caaron@ceris.purdue.edu> wrote in message/ news:d630u9$isu$1@mailhub227.itcs.purdue.edu... G > I have one file that is sorted by userid (8 characters) 814 items, no @ > duplicates. The other file contains webusage listings of otherH > information but does contain userid's. i need to use the first file as- > my input file and search the second file to I > find any id's in the first file that are not found in the larger second 4 > file. Any ideas on how to accomplish this quickly?  H Sort second file with a specification file to just eject uniq usernames.  Then diff first and second file.   Or use perl. For example:    $ typ users.tmp  aap  noot mies $ type logfile.tmpB %TYPE-W-SEARCHFAIL, error searching for U$1:[HEIN.TMP]LOGFILE.TMP; -RMS-E-FNF, file not found $ type log.tmp blah blah mies 2005  blal blah noot 2004  blah blah mies 2005 
 $ type x.p  ? $file = shift @ARGV or die "Please provide usename file first"; 4 open (FILE, "<$file") or die "COuld not open $file"; while (<FILE>) {   chop;    $users{$_} = 0;    } @ $file = shift @ARGV or die "Please provide logfile name second";4 open (FILE, "<$file") or die "Could not open $file"; while (<FILE>) {)  $users{$1}++ if  (/blah\s+(\w+)\s+\d+/);   } foreach (keys %users) { 2   print "no log entry for $_\n" unless $users{$_};  } $ perl x.p users.tmp log.tmp no log entry for aap     Or with a trivial date check:  :  while (<FILE>) {    if  (/blah\s+(\w+)\s+(\d+)/) {      $users{$1}++ if ($2 > 2004);     }  :  $ perl x.p users.tmp log.tmp no log entry for noot  no log entry for aap  I You'll need to show a sample log file entry if you need help constructing G the regular expresssion to extract the username and date from that log.    hth, Hein.    ------------------------------  + Date: Sat, 14 May 2005 10:33:08 +0000 (UTC) P From: helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply) Subject: Re: TCPIP rejection$ Message-ID: <d64k54$reu$1@online.de>  6 In article <428576B0.158544DE@vaxination.ca>, JF Mezei( <jfmezei.spamnot@vaxination.ca> writes:   I > and the SMTP configuration file in TCPIP$SMTP_COMMON: directory also as % > the good clients bad clients lists.   D Why don't I have a configuration file in this directory (TCPIP 5.3)?  H I have a cluster.  Each node has its own system disk.  TCPIP$SMTP_COMMONF points to SYS$SYSDEVICE:[SYS0.TCPIP$SMTP].  Is there any reason not toC define this on each node to point to a really common directory on a G non-system disk, such as the one where I have SYSUAF etc?  If so, when  G should I define it?  Obviously, it somehow gets defined, and I want my  8 own definition to take precedence if I define it myself.   ------------------------------  % Date: Sat, 14 May 2005 10:00:25 -0700 # From: "Tom Linden" <tom@kednos.com> 1 Subject: Re: Winning slogan for the License Plate ( Message-ID: <opsqryuzpgzgicya@hyrrokkin>  B On 13 May 2005 20:00:33 -0700, AEF <spamsink2001@yahoo.com> wrote:   > $ > susan_skonetski@hotmail.com wrote: >> Dear News group,  >>F >> I just sent the following out, if you want to see the license plateB >> just send me email or my bet is Ken Farmer will post the draft. >  > Yep!:  > ; > http://www.openvms.org/stories.php?story=05/05/12/0977641  >  > [...]  >   F Reminds me of one I got from Mad Dog at Decus (1995?) in Washington DC" http://www.kednos.com/img_0351.jpg   ------------------------------  % Date: Sat, 14 May 2005 05:41:18 -0700 # From: "Tom Linden" <tom@kednos.com> ? Subject: Re: [OT]: Wonder what an Xbox 360 runs under the hood? ( Message-ID: <opsqrmu4gszgicya@hyrrokkin>  F On Fri, 13 May 2005 16:53:26 -0400, John Smith <a@nonymous.com> wrote:  L > Microsoft's next-generation console uses a triple-core PowerPC processor   > toH > achieve 1 teraflops of performance, transforming the stand-alone video< > gaming platform into a powerful home entertainment server. >  > 3 > Maybe we should ask for VMS to be ported to Xbox.  > : > I hear they have sold 411,000 of these on the first day. >  >  > --J > OpenVMS - The never advertised operating system with the dwindling ISV   > base.  >  >   A I read somewhere that someone had ported Linux to the prior Xbox.    ------------------------------   End of INFO-VAX 2005.268 ************************