RE: Inserting rows in a file

[Greg Wilburn <gwilburn@xxxxxxxxxxxxxxxxxxxxxxx>]

Thanks for the response.  It compiled just fine... I was just second-guessing myself.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Friday, November 15, 2019 4:09 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Inserting rows in a file

Should work fine...

Char;es


On Fri, Nov 15, 2019 at 1:35 PM Greg Wilburn <
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

> One of the reasons I sometimes avoid using SQL to insert/update rows in an
> RPG program is my lack of knowledge.  It often seems "easier" to do it with
> native access...
>
> My current predicament is this... I need to insert rows into file using
>
> 1.      Field data from rows of another file
>
> 2.      Data from a program variable
>
> This is what I've placed in my code... it works in Run SQL Scripts when I
> use a constant for myPgmVariable.  It creates one row of data in FILE1 for
> each row in FILE2, which is the desired result.
>
> Exec Sql
>   Insert into FILE1 (ccwsid, ccseq#, cccom#, ccord#, ccrel#, ccprt#,
> ccorq#)
>   Select :myPgmVariable, pkseq#, pkcom#, pkord#, pkrel#, pkprt#, pkqcm#
> From FILE2
>   Where pkcom#=:incom# and pkord#=:inord# and pkrel#=inrel#;
>
> Just wondering if the above is possible?  If so, is this the correct
> method?
>
> Thanks,
> Greg
>
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com