HP3000-L Archives

June 2007, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Rao, Raghu" <[log in to unmask]>
Reply To:
Rao, Raghu
Date:
Fri, 8 Jun 2007 13:18:21 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (86 lines)
After figuring out that there is no direct solution to it, I deleted the
subset of records matching the key value to a output file, updated only
those sequence numbers that I was looking for in the flat file and then
inserted the whole file back again. This worked much faster than I would
have expected for any other solutions because my subset of records for
update was very small (less than 1% of the 2.5 million original dataset
entries).

Thanks for all your quick and kind Super-support. 

Raghu Rao


-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Paul Gobes
Sent: Friday, June 08, 2007 1:41 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] HP3000-L Digest - 6 Jun 2007 to 7 Jun 2007
(#2007-141)

This is how I would use Suprtool to accomplish your task.
	
{ 1. create a work file of all the data set entries }	
	
get  remark-summary
sort REMARK-CAT   
sort seq#
out  remsums,link
x

{ 2. use Suprlink to find the data set entries with the same keys }

link input  remsum
link link   XIMGAW15.PUB by remark-cat  seq#
link out   inboth
link exit

{ 3. Update records in the dataset if they do NOT match this workfile }

get    remarks-summary
define all, 1, 182
tab    t1,all,file, inboth
if not $lookup(t1,all)
update
extract ydmend = 'newvalue'
x


'you can take the boy out of Robelle, but you can't take the  Robelle
out of the boy'... ;-)

/paul

>Date:    Thu, 7 Jun 2007 11:11:39 -0400
>From:    "Rao, Raghu" <[log in to unmask]>
>Subject: Re: Update question on Suprtool

>I don't think this is helping me here. I have already gone through this

>sometime ago and did re-visit this again.=
>
>Basically, what I am trying to achieve here is, identify all the 
>records in REMARK-SUMMARY table which has the key value present in 
>XIMGAW15.PUB file. For example, for a remark-cat of 'AAAAA', the 
>dataset has 10 records with seq# from
> 1 through 10. But in the input file, for the same remark-cat of 
>'AAAAA', there is only 1 record per remark-cat and suppose that has a 
>seq# of 5. So, I need to identify all the other 9 records from the 
>dataset that does not have seq# of 5 with the same matching remark-cat 
>of 'AAAAA' and them update the YMDEND dates in them.=20
>
>Hope this helps in better understanding the situation.=20
>
>Thanks.
>Raghu Rao

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

Confidentiality Notice:
The information contained in this electronic message is intended for the exclusive use of the individual or entity named above and may contain privileged or confidential information.  If the reader of this message is not the intended recipient or the employee or agent responsible to deliver it to the intended recipient, you are hereby notified that dissemination, distribution or copying of this information is prohibited.  If you have received this communication in error, please notify the sender immediately by telephone and destroy the copies you received.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2