Hello,
Is CWTCD in the table DMRECHST ?
If it is from the pgm, put ':' before...
-----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://urldefense.com/v3/__https://lists.midrange.com/mailman/listinfo/rpg400-l__;!!J76aczzK!1_5bEw99oqmtIxZJ_lXAhmD-2MFfNC8TdPESjyXluewSn2oZQm_L0AqyfBHFzeCHXUfNt_KbSZAMj7g_cZcpugKeKroRog$
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!1_5bEw99oqmtIxZJ_lXAhmD-2MFfNC8TdPESjyXluewSn2oZQm_L0AqyfBHFzeCHXUfNt_KbSZAMj7g_cZcpugKO-c8zFA$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
midrange.com
