RE: UPDATE IN STRSQL USING JOINED FILES

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

I don't think that V3R7 supports updating one table from another.  You could
always fake it with a construct like:

crtdupobj file01 *file newobj(temp)
insert into temp * (select FLD101,FLD102,FLD201 from FILE01, 
    FILE02 where KEY01=KEY02)
cpyf temp file01 mbropt(*replace)

The idea is to make a JOIN of the two files, insert the merged records into
a temporary file that you copy back to your primary file.

Buck Calabro
Billing Concepts Albany, NY
mailto:mcalabro@commsoft.net

> -----Original Message-----
> From: oludare 
> Sent: Monday, August 02, 1999 5:20 PM
> To:   RPG400-L@midrange.com
> Subject:      Re: UPDATE IN STRSQL USING JOINED FILES
> 
> I am on V3R7 and the statement is invalid "bsc4tx is invalid. Valid
> tokens: + ) -"
>  
>  
> ----- Original Message ----- 
> From: Buck Calabro < mcalabro@commsoft.net <mailto:mcalabro@commsoft.net>>
> To: < RPG400-L@midrange.com <mailto:RPG400-L@midrange.com>>
> Sent: Monday, August 02, 1999 3:11 PM
> Subject: RE: UPDATE IN STRSQL USING JOINED FILES
> 
> > I am on V4R3 and this works for me:
> > update actphy01 set b1u2tx = (select bsc4tx
> >  from cusphy01 where bslknb = b1lknb)                                
> > 
> > More information on SQL programming can be found at:
> >
> <http://publib.boulder.ibm.com:80/cgi-bin/bookmgr/BOOKS/QB3AQ802/CCONTENTS
> >
> > 
> > Section 5.2 of the V4R3 manual has a lame example of how to do it.  To
> my
> > knowledge, you can't update a JOIN table.
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END