topic Output formatting in Operating System - HP-UX

Output formatting

Raj_38 — Mon, 29 Sep 2003 16:50:36 GMT

File attached with detail requirement.
Please help. Very urgent.

Thanks

Re: Output formatting

Michael Steele_2 — Mon, 29 Sep 2003 18:18:48 GMT

1SUM=0
2SUM=0
3SUM=0

cat FILE | while read DEPT DATE CUST RES
do

case $DEPT in
DEPT1) 1SUM=$(($1SUM+1));;
DEPT2) 2SUM=$(($2SUM+1));;
DEPT3) 3SUM=$(($3SUM+1));;
esac

done

Re: Output formatting

Graham Cameron_1 — Tue, 30 Sep 2003 02:23:22 GMT

Raj
I'd like to help, this should be trivial since you have only 1 table, but you don't give enough information.
What is a "recent 2 contact", likewise 5 and 3 ??

-- Graham

Re: Output formatting

john korterman — Tue, 30 Sep 2003 07:34:14 GMT

Hi Rai,

if the "recent contacts" are those in your original input file, then try running the attached script with your input file as $1.
If not, please explain "recent".

regards,
John K.

Re: Output formatting

Raj_38 — Tue, 30 Sep 2003 10:45:26 GMT

I'm surprised to see all have opted for shell script rather than oracle procedure...
anyway.....let me explain more clearly....

Yes i have all details in one single database table.

Attached document with more details...hope i'm making myself clear....

Re: Output formatting

Raj_38 — Tue, 30 Sep 2003 12:06:03 GMT

Is the reqmnt not clear ? Urgent pls.

Thanks
Raj

Re: Output formatting

Rodney Hills — Tue, 30 Sep 2003 12:38:56 GMT

If we assume your departments are named "DEPT1","DEPT2", and "DEPT3" and that the dates are zero filled 2 digit, then the following perl script may do the trick-

%numhold=("DEPT1",1,"DEPT2",4,"DEPT3",2);
while() {
chomp;
($dept,$date,$cust,$rslt)=split('\s+',$_);
($m,$d,$y)=split("/",$date); $y+=$y < 10 ? 2000 : 1900;
$ymd="$y/$m/$d";
$datum=$hold{$cust}{$dept};
$datum=[] unless $datum;
push(@{$datum},$ymd . "+" . $rslt);
@{$datum}=(reverse sort @{$datum})[0..$numhold{$dept}];
$hold{$cust}{$dept}=$datum;
}
foreach $cust (sort keys %hold) {
print $cust;
foreach $dept ("DEPT1","DEPT2","DEPT3") {
print "+$dept";
foreach $datex (1..$numhold{$dept}) {
print "+$hold{$cust}{$dept}[$datex]";
}
}
print "\n";
}

The date format will be re-arranged to Y/M/D format (easier for sorts).

To run-
perl thisscript newformat

This script also has the benefits if a customer lets say only has 1 contact to DEPT1, then the second contact data will be still have a place holder.

HTH

-- Rod Hills

Re: Output formatting

Rodney Hills — Tue, 30 Sep 2003 12:46:50 GMT

PS-

If the data you are processing is in an Oracle DB (or any other DB), then perl can access the DB directly without the need of an export file.

-- Rod Hills

Re: Output formatting

Raj_38 — Tue, 30 Sep 2003 13:28:39 GMT

My data is available in Oracle database.
I can either use Oracle procedure for this or unix shell script. I cannot use pearl script or others.

Thanks
Raj

Re: Output formatting

Rodney Hills — Tue, 30 Sep 2003 13:30:46 GMT

If you are running hp-ux (which I assume that's why you posted to this forum), then "perl" is available on your system.

The script above is assuming a flat text file to process.

-- Rod Hills

Re: Output formatting

Graham Cameron_1 — Wed, 01 Oct 2003 05:01:48 GMT

Well, it's a pretty odd request, and your example output doesn't match the stipulated format, but I think the attached will do what you're after. Save it as a .sql file and run from sqlplus.
You'll have to tweak the table and col names, (shown in upper case) as I don't know your exact ones.

-- Graham