Decode base64 to job CCSID?

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: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org for any subscription related questions.