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 (<jtaylor.0ab@xxxxxxxxx>)
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: 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.