HDTenEightyP/NetNews huggingface dataset:
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: aub problem finding sys/socket.ph
Originator: tchrist@pixel.convex.com
Date: Wed, 9 Sep 1992 14:27:03 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of djbpitt+@pitt.edu (David J Birnbaum):
:
:Can't locate sys/types.ph in @INC (did you run h2ph?) at 
:   /afs/pitt.edu/usr16/djbpitt/lib/perl/sys/socket.ph line 2, <_GEN_0> line 1.
:library /afs/pitt.edu/usr16/djbpitt/lib/perl
:library .
:
:This is a different error from the one predicted; does it help? I do not
:have any sys/types.ph file; the only file in my .../perl/sys
:subdirectory is socket.ph. 

Building all the *.ph files is something of a black art.  For 
any given *.h file, you first have to build every include 
file it itself includes, recursively.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist
A Law of Computer Programming:
        Make it possible for programmers to write in English and you
        will find the programmers cannot write in English.
dov
Newsgroups: comp.lang.perl
Subject: Re: stupid questions : deleted ing leading spaces
From: dov@menora.weizmann.ac.il (Dov Grobgeld)
Date: Mon, 7 Sep 1992 09:21:51 GMT
Organization: Weizmann Institute of Science, Computation Center.

chare@unilabs.uucp (Chris Hare) writes:

You will probably be swamped with replies, but never mind...

: This is stupid.
:
That's a perpetual truth of mankind.

: I am running 4.035 and I need to delete a single leading space at the
: beginning of a line.
:
: I would have thought that
:
:          tr/^ //;
:
: would have worked since the line is in $_.
:
You want to use s/'source'/'target'/ which (s)ubstitutes the source to the
target. tr/'list1'/'list2'/ (tr)anslates on a character to character basis
the characters in list1 to the corresponding character in list2. What you
want is

           s/^ //;

: As a matter of ofact, if you can suggest a way to remove the leading
: spaces, and compact multiple spaces any where else on the line to be one
: space I'd appreciate it.
:
          s/^\s+//;     # Delete leading spaces (including tabs)
          s/ +/ /g;     # Change all (that's the 'g') multiple spaces
                        # to one space

--
                                                        ___   ___
                                                      /  o  \   o \
Dov Grobgeld                                         ( o  o  ) o   |
The Weizmann Institute of Science, Israel             \  o  /o  o /
"Where the tree of wisdom carries oranges"              | |   | |
                                                       _| |_ _| |_
Newsgroups: comp.lang.perl
From: tbunce@cix.compulink.co.uk (Tim Bunce)
Subject: speed: sfio and mmap
Reply-To: tbunce@cix.compulink.co.uk
Date: Tue, 15 Sep 1992 23:13:11 +0000


Has anyone done any benchmarks for a perl built with the sfio library?
As I understand it, the sfio (Safe/Fast I/O) library offers a considerable
performance improvement over the stdio library. It includes a source code
compatibility module to enable plug-in replacement. Has anyone tried it?

On a related subject, is there a clean way to mmap() a file in perl?
Larry: will v5 be making any use of mmap() (or sfio for that matter)?

Thanks.
Tim Bunce
tbunce@cix.compulink.co.uk
From: krab@iesd.auc.dk (Kresten Krab Thorup)
Newsgroups: comp.lang.perl
Subject: Filenames containing spaces
Date: 13 Sep 92 14:37:12 GMT
Distribution: comp
Organization: Mathematics and Computer Science, Aalborg University

I have found some problems using filenames with spaces in either end
of the name, It can, however be solved, by inserting `./' in the
beginning, and `\0' int the end.  Like this

  $filename = ' strange file name ';
  open(FILE, "./$filename\0");

If you dont do it like this, Perl will remove the spaces in both ends,
and try to open the file:

	'strange file name'

I don't know if Perl is supposed to work like this (of cause, it was
programmed to it) but is this the intention - Larry?

/Kresten
From: krishna@shamu.csd.sgi.com (Krishna Sethuraman)
Newsgroups: comp.lang.perl
Subject: Re: String matching with matching delimiters
Date: 1 Sep 92 17:25:12 GMT
Distribution: usa
Organization: /usr/people/krishna/.organization


I had this exact problem when I was trying to write something that would
convert from ATK BE2 datastream format into LaTeX (specifically, to convert
`eq' files to LaTeX - instant pub-domain wysiwyg equation editor!)

Regexps are not powerful enough to do arbitrary nesting.  A push-down automaton
could do it, but that's my computability/complexity/automata course remnants
swimming around in my brain (which I could never put into Perl code).  Anycase,
I gave up eventually and used emacs-lisp code (forward-sexp, backward-sexp,
and kill-sexp) for what I needed.

If someone has code for this, I'd like to look at it both so I can write an
eq2latex.pl, and for the perl example experience.  Please mail me if you have
any replies.

Krishna Sethuraman
krishna@sgi.com
Newsgroups: comp.lang.perl
From: mpeppler@itf.ch (Michael Peppler)
Subject: Re: sybperl under cron fixed!
Keywords: sybperl,cron
Organization: ITF Management SA, Geneva, Switzerland
Date: Mon, 14 Sep 1992 09:30:49 GMT

In article <1992Sep11.210628.23332@fnbc.com> jja@fnbc.com (Joseph Alotta) writes:
>I was having a problem with sybperl running from cron.
>
>Especially if cron calls a shell that calls perl.
>
>I was getting bus errors at runtime.

Ahem... looks like the error handling of Sybperl leaves a bit to be
desired ;-) (not to mention DBlibrary's recovery code!)

>
>Randal Schwartz gets the credit for figuring out that sybperl
>looks for DSQUERY to be set at startup.
>
>Put $ENV{DSQUERY} = MYSERVER;  first line, even if you don't use 
>sybase in the script.
>

I guess I should document that!

Michael
-- 
Michael Peppler	             mpeppler@itf.ch {uunet,mcsun}!chsun!itf1!mpeppler
ITF Management SA            BIX:   mpeppler                         
13 Rue de la Fontaine        Phone: (+4122) 312 1311  
CH-1204 Geneva, Switzerland  Fax:   (+4122) 312 1322
From: tmhoff@oogoody.Corp.Sun.COM (Todd Hoff)
Newsgroups: comp.lang.perl
Subject: Re: Using perl for databases - experiences req
Date: 5 Sep 1992 18:41:53 GMT
Organization: Sun Microsystems, Inc.
Distribution: world
Reply-To: tmhoff@oogoody.Corp.Sun.COM
NNTP-Posting-Host: oogoody.corp.sun.com

>The problem is that we now are in need of more than just bug databases.   
>Specifically, we need a whole set of integrated databases to handle, bugs,  
>tech-support contacts, technical issues, etc.

Which is why people use databases. The other reasons are a standard SQL
interface, transactions, report writer tools, data dictionary, client/server support,
superior speed, recovery mechanisms, mirroring, etc.. Your system looks cool, 
but it realy isn't good enough for use by a general population of users and for continued expansion.

>1. Has anyone used perl to implement a multi-user database that handles  
>thousands of records?  How well did it work?  Do you spend your whole life  
>maintaining the thing.

I use a somewhat hacked version of sybperl for accessing Sybase. You get the
best of both worlds then. 

>2. Does anyone know of a really bang-up bug/issue/call tracking database on any  
>platform?  If there were such a thing in the PC world we could easily be  
>convinced to put a PC on everyone's desk.

Wow, this is exactly what I'm working on, but not for PCs, although I do a lot
work on DOS and some Windows programming.

>3. Where will my scheme break when I extend it from hundreds of records to  
>thousands?

I would shudder to do a multitable join with a complicated projection using
perl and the filesystem. 

>4. Other comments, experiences?

Think of the future. Go with a real database. Use a good interface builder
and report writer. You can do a lot of your programming in perl. I'm also
exploring the use of wafe with  perl and sybase for a really kick ass 
development environment.
From: djbpitt+@pitt.edu (David J Birnbaum)
Newsgroups: comp.lang.perl
Subject: Re: aub problem finding sys/socket.ph
Date: 8 Sep 92 19:27:30 GMT
Organization: University of Pittsburgh

In article <5606@blue.cis.pitt.edu.UUCP> rm55@cislabs.pitt.edu
(Rudolph T Maceyko) writes:

>>I can cut the needed lines out of the socket.ph file and paste them
>>directly into the aub script, i.e., h2ph did create the appropriate file
>>with the appropriate data.
>
>If you ever posted the specific error, I can't seem to find it, so...

I didn't. The error message is generated by aub. It says that it can't
find sys/socket.ph and explains how I can use h2ph to create this file.

>Does socket.ph end with a line like:
>
>	1;
>
>"require" likes the files it includes to indicate "success" in this
>(or a similar) manner.

I'm afraid so:

	% tail -1 ~/lib/perl/sys/socket.ph

	1;

Another suggestion (by private email) was that I check the ACLs down the
directory chain. I didn't think this would make a difference, since both
the perl binary and the aub script I am using are owned by me. But, just
in case, I reset the ACLs all the way down the directory tree to grant rl
access to system:anyuser for each directory and tried again. No soap.

--David

-- 
Professor David J. Birnbaum         djbpitt+@pitt.edu [Internet]
The Royal York Apartments, #802     djbpitt@pittvms   [Bitnet]
3955 Bigelow Boulevard              voice: 1-412-687-4653
Pittsburgh, PA  15123  USA          fax:   1-412-624-9714
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: "return <STDIN>;" doesn't work
Date: 11 Sep 92 18:25:22 GMT
Organization: NetLabs, Inc.

In article <1355@minya.UUCP> jc@minya.UUCP (John Chambers) writes:
: Well, here's one that probably means I'll learn  just  a  little  more
: about  perl.   I had a routine that was giving nulls when I thought it
: shouldn't, to a caller that looked like:
: 
: 	for ($l = &getline()) ...
: 
: I simplified the subroutine to:
: 
: #Example_1:
: 	sub getline {
: 		return <STDIN>;
: 	}
: 
: and it returned a null value.  To find out what the @*&*!$^@ was
: going on, I rewrote it as:
: 
: #Example_2:
: 	sub getline {
: 		local($x);
: 		$x = <STDIN>;
: 		return $x;
: 	}
: 
: To my surprise, this works! It delivers the data from standard  input,
: one line at a time, and a null at EOF.  I've tried digging through the
: camel book for a possible  explanation  why  Example_2  should  behave
: differently  from  Example_1,  and  I don't understand it at all.  Can
: someone enlighten me?  I suspect that there's something important here
: that I haven't yet learned.

Note that the book says "return LIST".  That puts <STDIN> into a list
context, so <STDIN> is going to return The Whole Thing.  You need to say

	return scalar <STDIN>;

I'm a little surprised that you say it returned a null value.  It
should have returned the last line of the file.  The last line wasn't
blank, was it?

Larry
From: robb@maths.tcd.ie (Robert Bashford)
Newsgroups: comp.lang.perl
Subject: Re: change of email address ...
Date: 8 Sep 92 20:26:02 GMT
Organization: Dept. of Maths, Trinity College, Dublin, Ireland.

mike@meiko.com (Mike Stok) writes:

>What is the perl-users digest?  What level of perl user is it aimed at?  Can
>I try it for a while?

mee tooo.

 ______   ____   ____  ____
|  __  | /    \  |   | |   |
|      <|  ||  | |---< |---<             @salmon.maths.tcd.ie 
|__|\__| \____/  |____||____|...
Newsgroups: comp.lang.perl
From: Martin {martlbub} Kraegeloh <krm@pri-mu.prime.com>
Subject: problems opening a file read/write
Reply-To: krm%pri-mu.LOCAL@pri-mu.prime.com
Organization: The Internet
Date: Wed, 9 Sep 1992 09:44:28 GMT

Hi net,

I tried the following small piece of code:

--------------------------------
#!/bin/perl
open(TEST,"+>tst")||die "open";
while($_=<TEST>){
   if (/add/){
      chop ;
      $_.="ADD\n";
   }
   print TEST $_ || die "print";
}
close(TEST) || die "close";
--------------------------------

Now the problem:

If I use open with "+>filename", the file will end up empty.
If I use "+<filename", it will remain unchanged.

I guess I am doing sth. wrong, but WHAT IS IT ??
(I checked the faq without success)

my perl version:

$RCSfile: perl.c,v $$Revision: 4.0.1.4 $$Date: 91/06/10 01:23:07 $
Patch level: 10

Thanks, Martin
Newsgroups: comp.lang.perl
From: dhami@cs.ubc.ca (Mandeep S Dhami)
Subject: Re: emulating mulit-dimentional arrays?
Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
Distribution: usa
Date: Wed, 9 Sep 92 17:44:52 GMT

budnick@cbnewse.cb.att.com (Mary Jo Budnick) writes:

> 
>        $name = foo;
>        $index = 0;
>        $time{$name, $index} = "11:00:00";
> 
> 
...
>Now, how do I later retrieve all of the names and process all of
>the times for that name?
> 
>If I do:
> 
>        foreach $i (keys(%time)) {
>                print "key = $i, time = $time{$key}\n";
>        }
> 
> 
>I get:
> 
>        key = foo1
>
...
>What I want to do is get "foo" and then get all of the times for
>foo, indexed by 0,1, . . .  
...

try something like:

$name=foo;
$index=0;
$time{"$name:$index"} = "11:00:00";
...

and then:
foreach (sort(keys(%time))) {
  split(/:/);
  print "name=$_[0] index=$_[1] time=$time{$_}\n";
}

Or to get foo only once try:
$last='';
foreach (sort(keys(%time))) {
  split(/:/);
  ($last ne $_[0]) && print "Name ",$last=$_[0],":\n";
  print "\t index=$_[1] time=$time{$_}\n";
}

Or you may use aliasing by local(*array) to make it quicker.
(See FAQ for an example).

This will be sorted. This, of course, assumes that : will never occur
in keys, you can use something like \377 otherwise. OR You may use ' '
and split; instead ... (perl you know)

Mandeep
__________________________________________________________________
"I'm very brave generally," he went on in a low voice:
"only to-day I happen to have a headache."
                                      -- Lewis Carroll
__________________________________________________________________
From: kurt@sdd.hp.com (Kurt Andersen)
Newsgroups: comp.lang.perl
Subject: What is sybperl?
Followup-To: comp.lang.perl
Date: 14 Sep 1992 13:31:50 -0700
Organization: Hewlett Packard, San Diego Division
Distribution: comp.lang.perl
NNTP-Posting-Host: hpsdde.sdd.hp.com

Reviewing the messages still available within this newsgroup, I noted  
references to some variant of perl called 'sybperl' that appears to have
database extensions (maybe to work with sybase?).

  What is sybperl?  If it isn't what I have surmised above, is there a 
variant of perl that would contain SQL functionality?

Thanks,
  Kurt Andersen  --- a PERL neophyte
-- 
                          kurt@hpsdid.sdd.hp.com
                  619/592-4373 (voice); 619/592-8191 (FAX)
             16399 W. Bernardo Dr. MS 61U65/San Diego, CA 92127
-----Standard disclaimer stuff applies for all of the standard reasons-----
Newsgroups: comp.lang.perl
From: jeff@onion.rain.com (Jeff Beadles)
Subject: Re: stupid questions : deleting leading spaces
Reply-To: jeff@onion.rain.com (Jeff Beadles)
Date: Mon, 7 Sep 1992 05:30:00 GMT

chare@unilabs.uucp (Chris Hare) writes:

>I am running 4.035 and I need to delete a single leading space at the
>beginning of a line.

Well,

s/^ +//;

>As a matter of ofact, if you can suggest a way to remove the leading
>spaces, and compact multiple spaces any where else on the line to be one
>space I'd appreciate it.

s/  +/ /g;

Later,
	-Jeff
-- 
Jeff Beadles		jeff@onion.rain.com
From: john@sekrit.WPI.EDU (John Stoffel)
Newsgroups: comp.lang.perl
Subject: Mail Handling Routines
Date: 14 Sep 92 17:24:16
Organization: Worcester Polytechnic Institute
Distribution: world
NNTP-Posting-Host: sekrit.wpi.edu


Before I go out and re-invent the wheel, does anyone out there have or
know of a site that has some basic mail handling routines or package
that can be dropped into a program?  I'm looking for some stuff that
will split a message into headers and the body of the message.

I've got a program that does this sorta, but I wanted to make it more
general and more useable for other programs.  Thanks!


					John



	
--
Youth of today!  Join me in a mass rally for traditional mental attitudes!
-------------------------------------------------------------------------------
john@wpi.wpi.edu | Work Station Specialist | Worcester Polytechnic Institute
John Stoffel     | 508-831-5512 (work)     | Worcester, MA  01609
From: jc@minya.UUCP (John Chambers)
Newsgroups: comp.lang.perl
Subject: "return <STDIN>;" doesn't work
Date: 10 Sep 92 16:12:43 GMT

Well, here's one that probably means I'll learn  just  a  little  more
about  perl.   I had a routine that was giving nulls when I thought it
shouldn't, to a caller that looked like:

	for ($l = &getline()) ...

I simplified the subroutine to:

#Example_1:
	sub getline {
		return <STDIN>;
	}

and it returned a null value.  To find out what the @*&*!$^@ was
going on, I rewrote it as:

#Example_2:
	sub getline {
		local($x);
		$x = <STDIN>;
		return $x;
	}

To my surprise, this works! It delivers the data from standard  input,
one line at a time, and a null at EOF.  I've tried digging through the
camel book for a possible  explanation  why  Example_2  should  behave
differently  from  Example_1,  and  I don't understand it at all.  Can
someone enlighten me?  I suspect that there's something important here
that I haven't yet learned.

Oh, yes:

| : perl -v
|
| This is perl, version 4.0
| 
| $RCSfile: perl.c,v $$Revision: 4.0.1.4 $$Date: 91/06/10 01:23:07 $
| Patch level: 10
| 
| Copyright (c) 1989, 1990, 1991, Larry Wall
| 
| Perl may be copied only under the terms of either the Artistic License or the
| GNU General Public License, which may be found in the Perl 4.0 source kit.
-- 
All opinions Copyright (c) 1992 by John Chambers. Inquire for licensing at:
1-617-647-1813 ...!{bu.edu,harvard.edu,eddie.mit.edu,ruby.ora.com}!minya!jc 
--
Pensu tutmonde; agu loke.
Newsgroups: comp.lang.perl
From: dwells@cognet.ucla.edu (David Wells)
Subject: Re: emulating mulit-dimentional arrays?
Organization: UCLA Cognitive Science Program
Distribution: usa
Date: Thu, 10 Sep 1992 00:47:06 GMT

In article <1992Sep9.163329.12565@cbnewse.cb.att.com> budnick@cbnewse.cb.att.com (Mary Jo Budnick) writes:
>I see there are no multi-dimensional arrays in Perl; however,
>they can be emulated w/ join and "$;".  So, say I want to keep
>track of "time" specific to a name and a counter:
> 
>        $name = foo;
>        $index = 0;
>        $time{$name, $index} = "11:00:00";
> 	 ...
> 
>Now, how do I later retrieve all of the names and process all of
>the times for that name?
> 
>What I want to do is get "foo" and then get all of the times for
>foo, indexed by 0,1, . . .  Then I want to get "goo" and get
>the times for it indexed by 0,1,. . .  I don't know the total
>number of names or what they are.  I don't know the total
>number of times (indices) for each name.

One way would be to build a list of times for each name, and then keep
an associative array of names.  Such as:

	$name = foo;
	$nameList{$name}++;
	eval "push(@${name}, '11:00:00')";

Then to get all the times for all names:

	foreach $name (keys %nameList) {
		print "$name: ";
		foreach $value (eval "@${name}") ) {
			print "$value ";
		}
		print "\n";
	}

This may be a sideways way to do this (I'm sure someone will let me
know :-) but it is interesting, anyway...


David

-- 
								David J Wells
"Cooking hotdogs with napalm"					w310/206-3960
	  - The Dead Milkmen			       dwells@cognet.ucla.edu
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Counting characters that match an arbitrary pattern.
Originator: tchrist@pixel.convex.com
Date: Thu, 10 Sep 1992 00:13:01 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of noran!iowa!kburton@uunet.uu.net:
:
:I am sure this is a candidate for FAQ but I didn't see it in the "official"
:perl FAQ list so here it is.
:
:What is the most efficient subroutine that counts the number of characters 
:that match a particular pattern. Currently I have:
:
:       sub countchar
:       {
:       	       local($pattern,$string) = @_;
:       	       local($count);
:       	       local($_);
:       
:       	       $count = ($string =~ s/$pattern//g);
:              
:       	       return $count;
:       }
:
:
:       printf "Count = %d\n",&countchar('[A-Z]',"abcdEFGH");
:
:Is there a better, more efficient way ?

    (assume $_ = string)
    (assume constant pattern)

    $count++ while /pattern/g;

or in the case of single chars:

    $count = tr/A-Z//;

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist
> (It's sorta like sed, but not.  It's sorta like awk, but not.  etc.)
  Guilty as charged.  Perl is happily ugly, and happily derivative.
		--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
From: djbpitt+@pitt.edu (David J Birnbaum)
Newsgroups: comp.lang.perl
Subject: Re: aub problem finding sys/socket.ph
Date: 9 Sep 92 12:56:29 GMT
Organization: University of Pittsburgh

In article <1992Sep9.043504.7463@odin.corp.sgi.com> stantz@sgi.com
(Mark Stantz) writes:

>	Suppose we have a program:
>
>		#!/usr/local/bin/perl
>
>		foreach (@INC) {
>		  print "library $_\n";
>		}
>
>		require <sys/socket.ph>;
>		print &AF_INET . "\n";
>
>	On my system, this prints:
>
>		library /usr/local/lib/perl
>		library .
>		2
>
>	For the user, the output would be:
>
>		library <X>
>		library <Y>
>		Undefined subroutine "main'AF_INET" called at /tmp/aaa line 8.

The output I get from Mark's suggested routine is:

Can't locate sys/types.ph in @INC (did you run h2ph?) at 
   /afs/pitt.edu/usr16/djbpitt/lib/perl/sys/socket.ph line 2, <_GEN_0> line 1.
library /afs/pitt.edu/usr16/djbpitt/lib/perl
library .

This is a different error from the one predicted; does it help? I do not
have any sys/types.ph file; the only file in my .../perl/sys
subdirectory is socket.ph. 

>	The user has generated sys/socket.ph and placed it in the directory
><X> or <Y>.  Running with '#!/usr/local/bin/perl -I <X>' doesn't help.  I
>think it's a problem with the way perl was built at the site, not a problem
>with perl itself.  Can't figure out what, through.

This experiment clearly rules out any problem with aub. I am sure that
the problem lies with something I did with perl, rather than with perl
itself, since the problem is apparently unique to me. (One reader sent
me email that he had a problem finding sys/socket.ph when he was running
aub under perl 3.0, but it went away when he switched to 4.0. I am using
4.035.)

Not a perl programmer, just a befuddled user,

David

-- 
Professor David J. Birnbaum         djbpitt+@pitt.edu [Internet]
The Royal York Apartments, #802     djbpitt@pittvms   [Bitnet]
3955 Bigelow Boulevard              voice: 1-412-687-4653
Pittsburgh, PA  15123  USA          fax:   1-412-624-9714
Newsgroups: comp.lang.perl
From: jja@fnbc.com (Joseph Alotta)
Subject: sybperl under cron fixed!
Keywords: sybperl,cron
Organization: First National Bank Of Chicago, Chicago IL, USA
Date: Fri, 11 Sep 92 21:06:28 GMT

I was having a problem with sybperl running from cron.

Especially if cron calls a shell that calls perl.

I was getting bus errors at runtime.

Randal Schwartz gets the credit for figuring out that sybperl
looks for DSQUERY to be set at startup.

Put $ENV{DSQUERY} = MYSERVER;  first line, even if you don't use 
sybase in the script.

cheers,


joe.

--
==============================================================
! joe alotta                                    jja@fnbc.com !                                               
!                                             (312) 732-3439 !
!                                                            !
! "The main thing is to keep the main thing the main thing." !
! Dr. George Sweeney                                         !
==============================================================