Re: Update a table from EXTNAME-defined data structure using search argument

[Alan Cassidy <cfuture@xxxxxxxxxxx>]

Thanks again folks!

On 7/19/2022 3:32 PM, Hiebert, Chris wrote:
> You are looking for "Set ROW"
>
>
>
>
>
> EXEC SQL
>
>    UPDATE TABLE1
>
> SET ROW = :TableDS
>
> WHERE key = :TableDS.key;
>
>
>
>
>
> If you have an identity column then override system value on update, and override user value on insert.
>
>
>
> EXEC SQL
>
>    UPDATE TABLE1
>
> Overriding System Value
>
> SET ROW = :TableDS
>
> WHERE key = :TableDS.key;
>
>
>
>
>
> EXEC SQL
>
>    INSERT INTO TABLE1
>
> Overriding User Value
>
> Values ( :TableDS );
>
>
>
>
> Chris Hiebert
> Senior Programmer/Analyst
> Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.
>
> From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Cassidy
> Sent: Tuesday, July 19, 2022 7:30 AM
> To: midrange-l@xxxxxxxxxxxxxxxxxx
> Subject: Update a table from EXTNAME-defined data structure using search argument
>
> Good morning folks,
>
>
>
> I am updating a file. I have an externally defined data structure
>
> defined with EXTNAME().
>
>
>
> I can't find a specific reference anywhere, but is there a syntax to use
>
> that data structure to update the row in the table, like so, maybe?
>
>
>
> UPDATE  TABLE1  SET TABLERECD = :TABLE-DS WHERE KEY1 = VALUE1 AND KEY2 =
>
> VALUE2?
>
>
>
> I have just seven fields to list out, and I'm doing that, but I just
>
> wondered if there was a way to do the above (without having to input
>
> with an update lock)?
>
>
>
> Reason I'm asking is for the future, if I could set it up that way, it
>
> would make it easier to add changes to other columns, and maybe other thins.
>
>
>
> --Alan Cassidy