Re: Decode base64 to job CCSID?

I would declare 

   dcl-s retDecoded varchar(1000) ccsid(*utf8);

And the procedure return value as

   dcl-pi *n varchar(1000) ccsid(*jobrun); 
     ...

This should automatically convert the value on return. 

Or you just leave the procedure as it is (with like(retDecoded)) and let the receiving procedures do the *UTF8 to whatever conversion. 

The conversion is done automatically if you assign a value in one CCSID to a variable in another CCSID - and it works with *UTF8 too. 

HTH
Daniel


> Am 01.04.2026 um 18:11 schrieb Justin Taylor <[email protected]>:
> 
> 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.