PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: "Raja Sambamurty" <rajags at hotmail dot com>
Subject: Re: running dbcc via Sybperl
Date: Jul 24 1998 7:15PM

Return-Path: 
Received: from mail.mbay.net by kiruna.peppler.org (SMI-8.6/SMI-SVR4)
	id MAA17867; Fri, 24 Jul 1998 12:22:06 -0700
Received: from mail.mbay.net
	by kiruna (fetchmail-4.3.0 POP3 run by mpeppler)
	for  (single-drop); Fri Jul 24 12:22:17 1998
Received: by otter (mbox mpeppler)
 (with Cubic Circle's cucipop (v1.31 1998/05/13) Fri Jul 24 12:23:04 1998)
X-From_: owner-SYBPERL-L@listproc.net  Fri Jul 24 12:20:27 1998
Received: from outbound.Princeton.EDU (outbound.Princeton.EDU [128.112.128.88])
	by otter.mbay.net (8.8.8/8.8.8) with ESMTP id MAA06120
	for ; Fri, 24 Jul 1998 12:20:26 -0700
Received: from IDENT-NOT-QUERIED@list.cren.net (port 38133 [204.153.50.13]) by outbound.Princeton.EDU with SMTP id <541915-29189>; Fri, 24 Jul 1998 15:16:22 -0400
Received: from hotmail.com (f177.hotmail.com [207.82.251.63])
	by list.cren.net (8.8.7/8.8.7) with SMTP id PAA02169
	for ; Fri, 24 Jul 1998 15:16:02 -0400 (EDT)
Received: (qmail 25751 invoked by uid 0); 24 Jul 1998 19:15:34 -0000
Message-ID: <19980724191534.25750.qmail@hotmail.com>
Received: from 207.25.52.68 by www.hotmail.com with HTTP;
	Fri, 24 Jul 1998 12:15:33 PDT
X-Originating-IP: [207.25.52.68]
From: "Raja Sambamurty" 
To: SybPerl Discussion List 
Subject: Re: running dbcc via Sybperl
Content-Type: multipart/mixed; 
    boundary="====================987654321_0==_"
Date: 	Fri, 24 Jul 1998 12:15:33 PDT
Reply-To: SYBPERL-L@listproc.net
Sender: owner-SYBPERL-L@listproc.net
X-Listprocessor-Version: 8.2.07 -- ListProc(tm) by CREN
content-length: 9918
X-Filter: mailagent [version 3.0 PL44] for mpeppler@mbay.net
Status:  O
X-Status: $$$$
X-UID: 0000002812

--====================987654321_0==_
Content-Type: text/plain; charset="us-ascii"

Got requests from a couple of people via e-mail. Please find attached a 
file that needs to be broken into 3 files along the delimited = & + 
chars. Feel free to critique it or suggest any improvements. Note that I 
have had problems with getting the msg/err handlers to work in v5.004 
and hence the v5.003 usage in the file.

Mike, I don't know if the code will pass thru perl-purists but if its 
okay with you maybe you can include this in the examples.

Raja

>Subject: Re: running dbcc via Sybperl
>
>Eli Perl writes:
> > Thanks, but I am using the handler included in the sybperl 
distribution, and it works
> > fine for everything else.
>
>What does your script do exactly?
>
>Also, what versions of Sybase (both server and OpenClient) do you use?
>
>Michael
>
> > 
> > Raja Sambamurty wrote:
> > 
> > > Eli,
> > >
> > > It works fine, except remember that all the non-select statements 
go the
> > > the mesg/error handlers. So make sure that you have the handlers 
setup
> > > in your perl script. I have a working version that I could share 
with
> > > you, if you want.
> > >
> > > Raja
> > > >
> > > >All:
> > > >
> > > >When I try to run a dbcc page in a sybperl script, I get
> > > >this error:
> > > >
> > > >'Sybase error: Attempt to print unknown token.'
> > > >
> > > >If I go in via ISQL and use TRACEON 3604 ro redirect the
> > > >output (of the eact same dbcc page command) to my session,
> > > >everything's fine. How can I do this in Sybperl?
> > > >
> > > >Eli Perl
> > > >
> > > >End
> > > >
> > > >
> > > >
> > > >
> > > 
>***********************************************************************************
> > > >Bear Stearns is not responsible for any recommendation, 
solicitation,
> > > offer or
> > > >agreement or any information about any transaction, customer 
account or
> > > account
> > > >activity contained in this communication.
> > > 
>***********************************************************************************
> > > >
> > > >
> > > >
> > >
> > > ______________________________________________________
> > > Get Your Private, Free Email at http://www.hotmail.com
> > 
> > 
> > 
> > 
> > 
> > 
***********************************************************************************
> > Bear Stearns is not responsible for any recommendation, 
solicitation, offer or
> > agreement or any information about any transaction, customer account 
or account
> > activity contained in this communication.
> > 
***********************************************************************************
> > 
> > 
> > 
>
>-- 
>Michael Peppler         -||-  Data Migrations Inc.
>mpeppler@mbay.net       -||-  http://www.mbay.net/~mpeppler
>Int. Sybase User Group  -||-  http://www.isug.com
>
>


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
--====================987654321_0==_
Content-Type: application/octet-stream; name="spl"
Content-Transfer-Encoding: x-uuencode
Content-Disposition: attachment; filename="spl"

begin 644 spl
M/3T]/3T]/3T]/3T]/3T]/3T]/2!D8F-C7V-H:RYP;"`]/3T]/3T]/3T]/3T]
M/3T]/3T]"B,A+W5S'1E;BD@/2!F:6QE<&%R
MR=364)!4T4G?3TD4UE"05-%.PHD9&)H
M(#T@;F5W(%-Y8F%S93HZ1$)L:6(@)'5S97(L)'!AR!`9V1B(#T@R9G971?9&)?;F%M97-].PHF<')O8V5S6)697(["G!R:6YT(")3>6)A2!`9&)V
M97(])&1B:"T^2!O;F4@=F%L
M=64*("`@("AM>2`D2`D=F5R(#T@*'-P;&ET("@O7"\O
M+"1S8V%S='(I*5LQ73L*(W)E='5R;B!T:&4@;6%J;W(O;6EN;W(@2`D36%6+&UY("1-:58I(#T@&ET("TQ.PI]"@IS=6(@9V5T7V1B7VYA
M;65S('L*("!M>2`DPH@("`@("!I9B`H
M(&EN9&5X("@D15A#3%5$141"+"`D9&(I(#X@+3$@*2!["@D@('!R:6YT("(D
M9&(@:6X@=&AE(&5X8VQU9&4@;&ES="P@'0[
M"B`@("`@('T*("`@("`@;7D@)$5R37-G/2)D8F-C(&5R2`DR120VYT6S!=?3L@(`H@
M("`@:68@*"`D4F]W0VYT(#X@,"`I('L@"B`@("`@('!R:6YT(")$0B`D9&(@
M:6X@=7-E('=I=&@@)%)O=T-N="!UW!R:6YT("1%PH@(&UY("@D9&(L)&]P="D@/2!`7SL*("!M>2`D&5C('-P
M7V1B;W!T:6]N("1D8BPG2`D2`DPH@
M("`@;7D@)'-C;60@/2`B9&)C8R`D8VUD("@D9&(I(CL*("`@("1D8F@M/G-Q
M;"`H)'-C;60I.PH@('T*("`D6)APH@("`@("`@("`@("`@(&EF("@@+UY315)614%<8B\@*2`@
M("`@('LD4$%34STB<'-SR1005-3/2)PPH)"6EF("@@)'-E=F5R:71Y("$](#`@*0H)"7L*"0D))$524DU31R`]
M(")-2`B+B1S979E2XB+"!S
M=&%T92`B+B1S=&%T92XB7&XB.PH)"7T*"0DD15)235-'(#T@)$524DU31RXD
M=&5X="XB7&XB.PH)"6EF("@@:6YD97@H)$524DU31RPB17)R;W(B*2`^/2`P
M('Q\(&EN9&5X*"1%4E)-4T2`](#$["@D)"21%4E)-4T<@/2`B(2$A(2$A(2$A(2$A(2$A(2%<;B(N)$52
M4DU31SL*"0E]"@D):68@*"!D969I;F5D($]&2"`I('MPPH);&]C86P@*"1D8BP@)'-E=F5R:71Y
M+"`D97)R;W(L("1O