05-20-2009
Thakz vidyadhar85,
Well actually i want to know the complete script, it would be really helpful if you or someone guide me step by step.
Like certain clauses
======================================================
1) alter table $abcd add ( encrypt char(11) ) ;
create index idx_neuker on $abcd(insys_serial) ;
======================================================
2) create procedure p$abcd()
returning char(40); ----------------------> what does this 40 means?
DEFINE acc_num char(20);
DEFINE i integer;
DEFINE sum integer;
set debug file to 'pev_rech_yyyymmnn.log';
trace 'begin update';
let i = 0;
let sum=0;
begin work;
foreach up_cur with hold for
========================================================
3) let i=i+1;
let sum=sum+1;
if i=10000 then
trace 'record processed '||sum;
commit work;
let i=0;
begin work;
end if
end foreach
commit work;
trace 'procedure ok! total processed records are '||sum;
return "procedure complete!";
end procedure;
execute procedure p$abcd();
drop procedure p$abcd ;
drop index idx_neuker;
========================================================
Please advice me step by step.
Thankz in advance.....
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi there,
i am trying to create a script that checks for the existence of users on the system, if they exist then their details should print on the screen with a message that the id is in use. I am having a bit of trouble with it.
Any ideas?
Cheers
Kev! (8 Replies)
Discussion started by: kev112
8 Replies
2. Shell Programming and Scripting
The line is like this
+abc+def+mgh+ddsdsd+sa
i.e. words seperated by +. There is a plus in the beginning.
i want to conver this line to
abc, def, mgh, ddsdsd, sa
please provide the logic in the form of a shell script
Thanks in advance (13 Replies)
Discussion started by: skyineyes
13 Replies
3. Shell Programming and Scripting
Hi All,
I have file nodes.txt that contains node names one by one.
I'm running the following command.
/opt/OV/bin/ovet_topodump.ovpl -nodeif <nodename> -detail
Field <nodename> should take (replace) the node names from the nodes.txt one by one till last node.
Pls. give me script for... (1 Reply)
Discussion started by: ntgobinath
1 Replies
4. Shell Programming and Scripting
Hello guys,
Need a help.I have a flat file.
QWER 2:35 7044 00001 ROUT 1188 EA SS
ASD 2:36 7044 00010 ROUT
BSD 2:37 7044 00011 ROUT
END
QWER 3:35 7044 00011 ROUT 1088 EA SS
ASD 3:36 7044 00010 ROUT
BSD 3:37 7044 00011 ROUT
END
QWER 2:35 7044 00001 ROUT 1188 EA SS
ASD ... (1 Reply)
Discussion started by: Satadru
1 Replies
5. Shell Programming and Scripting
My data is something like shown below.
date1 date2 aaa bbbb ccccc
date3 date4 dddd eeeeeee ffffffffff ggggg hh
I want the output like this
date1date2 aaa eeeeee
I serached in the forum but didn't find the exact matching solution. Please help. (7 Replies)
Discussion started by: rdhanek
7 Replies
6. Shell Programming and Scripting
Hi Experts,
I am very beginner in Bash Shell Scripting. Can anyone please guide me to create a script which should show the most busy file systems in sort basis as there are a lot of file systems on the server.
I was told this task to be done by my IT lead and I must have to do this in... (3 Replies)
Discussion started by: naw_deepak
3 Replies
7. Shell Programming and Scripting
This is the input file contents
"data",9999,"data",999
"ddd"y"dat","dat","dart"
9999,999,999,"dat"
99,78,"duhu"yes"duhu"
I need the output file contents
"data",9999,"data",999
"dddydat","dat","dart"
9999,999,999,"dat"
99,78,"duhuyesduhu"
Please use code tags when posting data and... (5 Replies)
Discussion started by: polineni
5 Replies
8. Shell Programming and Scripting
Hey All,
I am seeking for the script which will do as follows,
1) Login on one Unix server "Server1"
2) Want to access other Unix server "Server2", and want to get the information as, on one go.
df -k /tmp
df -k /
df -k "any file system"
3) Re-direct the output to "space.txt" on... (12 Replies)
Discussion started by: ravinderkodan88
12 Replies
9. UNIX for Dummies Questions & Answers
How to find how many parameters are required to run a Perl script? (1 Reply)
Discussion started by: Lakshman_Gupta
1 Replies
10. UNIX for Dummies Questions & Answers
Hi Experts,
I have a script as below :
# cat a.sh
var=`mysql -usupport -p'testing' -e "select count(1) from db_test.sampletable;"`
echo $var
the output of this script is :
count(1) 145039
Now i want to remove header from my o/p and modify somewhat like
145039
I have... (9 Replies)
Discussion started by: mukulverma2408
9 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::mbase_001
CheckDigits::MBase_001(3pm) User Contributed Perl Documentation CheckDigits::MBase_001(3pm)
NAME
CheckDigits::MBase_001 - compute check digits for UPC (US)
SYNOPSIS
use Algorithm::CheckDigits;
$rv = CheckDigits('upc');
if ($rv->is_valid('012345678905')) {
# do something
}
$cn = $rv->complete('01234567890');
# $cn = '012345678905'
$cd = $rv->checkdigit('012345678905');
# $cd = '5'
$bn = $rv->basenumber('012345678905');
# $bn = '01234567890'
DESCRIPTION
ALGORITHM
1. Add all digits in odd-numbered positions.
2. Multiply the sum from step 1 with 3.
3. Add all digits in even-numbered positions.
4. Add the product from step 2 and the sum from step 3.
5. If the sum from step 4 is 0 modulo 10, the check digit is 0. Else the check digit is 10 minus the sum from step 4 taken modulo 10.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm given
above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and concatenated to the end of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the checkdigit of $number if $number has a valid check digit.
Return '' otherwise.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
THANKS
Aaron W. West pointed me to a fault in the computing of the check digit.
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de, www.export911.com/e911/coding/upcChar.htm, www.adams1.com/pub/russadam/upccode.html,
http://www.upcdatabase.com.
perl v5.10.0 2008-05-17 CheckDigits::MBase_001(3pm)