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 *
|