RE: External RE: Base64Decode

This code works, but it requires that you fetch into a HEX CCSID field.

This works with both QSYS2.BASE64_DECODE() and systools.base64decode().


DecodedLabel = DecodeLabel( Labelresponse.base64data ) ;
If DecodedLabel = *Blank;
//error
Endif;


dcl-proc DecodeLabel;
Dcl-Pi *N Varchar(4096) CCSID(1208);
base64dataLabel Varchar(4096) CCSID(1208);
End-pi;
Dcl-S DecodedHex VarChar(4096) CCSID(*HEX);
Dcl-S DecodedLabel VarChar(4096) CCSID(1208);

// exec sql set :DecodedHex = BASE64_DECODE(:base64dataLabel );

exec sql set :DecodedHex = systools.base64decode( :base64dataLabel );
if sqlcode < 0;
// error
clear DecodedLabel;
return DecodedLabel;
Endif;
// set UTF8 field to value of HEX field
DecodedLabel = DecodedHex;
Return DecodedLabel;

End-proc;


--
Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.

From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of (WalzCraft) Jerry Forss
Sent: Wednesday, January 17, 2024 7:28 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: External RE: Base64Decode


Is anyone actually using the base64decode from RPG and it's working?



Honestly the IBM doc is no help and my other research isn't bring up anything of a working example.