Re: Three part naming error connecting to a particular lpar.

[Peter Dow <petercdow@xxxxxxxxx>]

Thanks Rob.  I've noticed that RPG can open DDM files and local files at 
the same time, so maybe they can use some sort of UDTF; I'll have to 
figure out exactly what they want to do.


On 7/16/2020 5:04 AM, Rob Berendt wrote:
> I've not figured out a way to do it with one statement.  I use a stored procedure for this.
> Read from one system and store it into a variable.  Use that variable to update the other systems.
>
> CREATE PROCEDURE ROB.PROPAGATE_QLNKOMT()
>           LANGUAGE SQL MODIFIES SQL DATA
>          SET OPTION DATFMT = *ISO
>
> P1 : BEGIN
> DECLARE OMIT_LIST CHARACTER VARYING ( 32000 ) ;
>
> SELECT FSXCMD INTO OMIT_LIST
> FROM QUSRBRM . QA1AFS
> WHERE FSNAME = 'QLNKOMT'
> ;
> UPDATE RACK1HST . QUSRBRM . QA1AFS
> SET FSXCMD = OMIT_LIST
> WHERE FSNAME = 'QLNKOMT' ;
> ...
>
> Rob Berendt