Output Update & Subfile

[Raymond Schneider]

John,

Thanks for your technique. I knew the 3GL threat would
get you involved. Your technique as written updated
all records with the same A+B+C values. I added a SORT
before the OUTPUT statement and performed both the
OUTPUT and the SUBFILE with the "AT sort-key" optiona
and it seems to work.

Again, thanks John and other responders.

Raymond Schneider

--- "Pickering, John (NORBORD)" <PICKERIJ@norbord.com>
wrote:
> 
> I wasn't going to answer until you mentioned the
> C***L word :-)
> 
> How about:
> 
> ACCESS *ERA &
>   link a of era + b of era + c of era  &
>     to dupe-key-fields of dupe-ksam optional
> select dupe-ksam &
>   if assigned-flag of dupe-ksam = ""
> 
> OUTPUT DUPE-KSAM  UPDATE    &
>   if record dupe-ksam-exists
> ITEM ASSIGNED-FLAG OF DUPE-KSAM  FINAL  "X" 
> 
> SUBFILE  ERABAD  KEEP   &
>   IF not record DUPE-KSAM exists   &
>   INCLUDE FILE ERA
> 
> SET PROC LIM 1000000
> SET LOCK UPDATE
> GO
> 
> Regards,
> John Pickering
> Toronto
> 


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.