Re: Select into with Case

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

No, I needed the colon.


On Wed, Apr 9, 2025 at 12:02 PM Jean-Marc DUVAL via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> Hello,
>
> Is CWTCD in the table DMRECHST ?
>
> -----Message d'origine-----
> De : RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> De la part de Jeff
> Crosby
> Envoyé : mercredi 9 avril 2025 17:04
> À : RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Objet : Select into with Case
>
>
>
> ATTENTION : Ce message provient d'une source EXTERNE. Veuillez n'ouvrir
> les liens ou pièces jointes que si vous êtes sûr de l'expéditeur.
>
>
>
> Is this statement valid:
>
>          Exec SQL
>              Select Coalesce(Sum(RHQYRC),0),
>                     Case CWTCD
>                       When ItmIsCwt Then Coalesce(Sum(RHCOST*RHWRTC),0)
>                       Else Coalesce(Sum(RHCOST*RHQYRC),0)
>                     End
>                Into :VQYRC,
>                     :VCOST
>                From DMRECHST
>                Where RHITEM = :ITNBR and
>                      RHDTRC >= :WkBegDat and
>                      RHDTRC <= :WkEndDat;
>
> The RPG compiler is yelling at me saying "SQL0206: Position 26 Column or
> global variable CWTCD not found."
>
> Variable CWTCD is a field in a file in the program that is NOT being
> processed via SQL.
>
> Thanks.
>
> --
>
>
> *Jeff Crosby*
> Senior Vice President
> UniPro FoodService/Dilgard
> 830 Hayden St
> Ft. Wayne, IN 46803-1142
> 260-422-7531
> direct.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
> --
> 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__;!!J76aczzK!wUj5_wXPJOCN17bICXmMc92gw9KBY0UJZ66UU9HhGdBTT5k_ms3OjZd8BNO5UG71A2VI60uGcVlpo6jwzjuVkGKxAJVF$
> 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__;!!J76aczzK!wUj5_wXPJOCN17bICXmMc92gw9KBY0UJZ66UU9HhGdBTT5k_ms3OjZd8BNO5UG71A2VI60uGcVlpo6jwzjuVkCfUE9zf$
> .
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> --
> 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@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.