|
On Wed, 2 Mar 2005 MWalter@xxxxxxxxxxxxxxx wrote:
I'm trying to use the following procedure to decode a BASE64 string. Actually a profile token passed from a web application. The program functions fine, but the token is coming back invalid. Any idea what I'm doing wrong.
Hoption(*nodebugio:*srcstmt) NOMAIN thread(*serialize)
DdecodeBase64 PR 32 D inputString 60 varying
Ddecode PR 1a extproc(*JAVA:'org.apache.commons.- D httpclient.util.Base64':'decode') D static dim(32) D 1a dim(60) const
PdecodeBase64 B Export DdecodeBase64 PI 32 D inputString 60 varying
DinputArray S 1a dim(60) D based(p_inputArray) DoutputString S like(decodeBase64) D based(p_outPutString) DoutputArray S 1a dim(32)
/free
p_inputArray = %addr(inputString) + 2; outPutArray = decode(inputArray); p_outputString = %addr(outPutArray);
return outputString; /end-free P E
Thanks,
Mark
Mark D. Walter Senior Programmer/Analyst CCX, Inc. mwalter@xxxxxxxxxx http://www.ccxinc.com
-- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.