Re: Embedded SQL update question

[Charles Wilt <charles.wilt@xxxxxxxxx>]

dcl-ds myds qualified;
  col1 char(10);
  col2 char(10);
  col3 char(10);
end-ds;

Charles



On Fri, Dec 20, 2019 at 3:46 PM Hiebert, Chris <chris.hiebert@xxxxxxxxxxxxxx>
wrote:

> How is "myDs" defined?
>
> 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.
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Charles
> Wilt
> Sent: Friday, December 20, 2019 11:00 AM
> To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: Embedded SQL update question
>
> This works just fine at 7.2
>
> update mytable
> set row = :myDs;
>
> So why doesn't this?
> update mytable
> set (col1, col2, col3) = (:myDs);
>
> I get a
> SQL0312  30
> Variable MYDS not defined or not usable. Reason: No declaration for the
> variable exists, the declaration is not within the current scope, or the
> variable does not have an equivalent SQL data type.
>
> The SQL Reference manual shows the same diagram for the right hand side of
> the equal sign for both ROW = and ( column list ) =
>
> Note that it also seems to indicate parentheses are required around the
> right regardless.  Though ROW = above compiles and works.
>
> Without parentheses on the second form I get
> SQL0104 Position 26 Token : was not valid. Valid tokens: ( NULL DEFAULT.
>
> I'd swear I've used a DS with a column list before...but maybe not...
>
> I can switch to
>
> update mytable
> set (col1, col2, col3)
>   = (:myDs.col1, :myDs.col2, :myDs.col3);
>
> If I must...but of course there's more than just 3 columns...
>
>
> Thanks
> --
> 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://urldefense.com/v3/__https://lists.midrange.com/mailman/listinfo/rpg400-l__;!!O6xM9Yim9Yk!qvmcqn9iVtlzCizZ_1u08v1I2qevOeQ-z6occKRQpxcEcOZvXVZzJV6DODstNEr5OC8uDQ$
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!O6xM9Yim9Yk!qvmcqn9iVtlzCizZ_1u08v1I2qevOeQ-z6occKRQpxcEcOZvXVZzJV6DODstNEp2hAeBdA$
> .
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link:
> https://urldefense.com/v3/__https://amazon.midrange.com__;!!O6xM9Yim9Yk!qvmcqn9iVtlzCizZ_1u08v1I2qevOeQ-z6occKRQpxcEcOZvXVZzJV6DODstNEp1VSB_Wg$
> --
> 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