Re: CCSID for named constants?

[Bruce Vining <bruce.vining@xxxxxxxxx>]

A minor thing but the question was related to UTF8 (CCSID 1208) and a named
constant. CCSID 1200 is defined as UTF-16, Big Endian (BE) order and the
sample is using a named variable.

On Thu, Oct 18, 2018 at 8:39 AM <SCOURTNEY@xxxxxxxxxxx> wrote:

> Hello,
>
> This works ...
>
> D ucsData         s           2048c   ccsid(1200)
>
> Mit freundlichen Grüßen / Kind regards / Bien à vous,
>
>
>
> Email     :   scourtney@xxxxxxxxxxx
> Web       :   www.eiresoft.de
> Telefon  :   0049 (0) 8271-814 229   Mobil  :  0049 (0) 172-8560663
>
>
>
> -----Ursprüngliche Nachricht-----
> Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Justin
> Taylor
> Gesendet: Donnerstag, 18. Oktober 2018 15:33
> An: RPG programming on the IBM i (AS/400 and iSeries)
> Betreff: CCSID for named constants?
>
> Is there any good way to set CCSID for named constants?  I had hoped that
> the
> compiler could figure it out, but alas no.  Here's a snippet of what I'd
> like to
> do.
>
> Dcl-s variable varChar(255) ccsid(*utf8) ;
> Dcl-c constant ';' ;
> If %scan(constant :variable) > 0;
> Endif;
>
> The compiler doesn't like that (RNF0353: The first and second parameters of
> %SCAN or %SCANR are not of the same type.).  I've got it working now by
> using
> hex constants, but that's kind of a pain to work with.
>
> TIA
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> 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:
> http://amzn.to/2dEadiD
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> 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: http://amzn.to/2dEadiD