Re: Decode base64 to job CCSID?

If you are getting a valid utf-8 string, create a local or global variable
in your RPG program the same type as "retDecoded" (put it something like
"local_retDecoded") but just like that.
The compiler will assume the variable is CCSID of the compilation time,
which would probably be the same as the job when the program runs.

Then just assign retDecoded into local_retDecoded:

<rpg>
local_retDecoded = retDecoded; // implicit run-time conversion to your
CCSID.
</rpg>

 What you are doing is NOT wrong. What you need is what you are NOT getting.
Make that simple change and you'll see.
This is one way, a simple one, to solve it. There are others but a bit more
worked.

HTH

JS

El mié, 1 abr 2026 a las 10:11, Justin Taylor (<[email protected]>)
escribió:

> I'm trying to decode a base64 string.  It's giving me the results as *UTF-8
> when I need *JOB CCSID.  Can someone point out what I'm missing?
>
> Thanks
>
>      Dcl-proc DecodeTest ;
>        Dcl-pi *n like(retDecoded) ;
>          encoded varchar(1000) ccsid(*UTF8) const ;
>        End-pi ;
>
>        Dcl-s retDecoded varChar(1000) ;
>
>        EXEC SQL
>          set :retDecoded = QSYS2.BASE64_DECODE(:encoded);
>
>        Return retDecoded;
>      End-proc ;
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: [email protected]
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: [email protected]
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact [email protected] for any subscription related
> questions.
>
>
-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.