[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Ftpapi] BASE64 Decode



Since Scott wrote the article Thomas I would suggest asking him - and it is also possible that the code is on ScottKlement.com - have you looked there?

Penton have preserved many articles, but sadly the code samples unless embedded in the article seem to have mostly been lost along the way.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jun 8, 2017, at 1:53 AM, Thomas Raddatz <thomas.raddatz@xxxxxx> wrote:

Bryan,
 
The link is not broken. I could read the whole article after having logged  in to iProDeveloper. Register yourself at iProDeveloper and log in. It is free of charge.
 
Thomas.
 
Von: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] Im Auftrag von Ron Koontz
Gesendet: Mittwoch, 7. Juni 2017 16:10
An: FTPAPI/HTTPAPI mailing list
Betreff: Re: [Ftpapi] BASE64 Decode
 
I was reading this the other day and was going to try it.  However the link is broken at the bottom to see examples.  Anyone have that link or know where I can get it ?
 
Thanks
Ron Koontz
 
From: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of Bryan Dietz
Sent: Tuesday, June 06, 2017 9:36 AM
To: FTPAPI/HTTPAPI mailing list
Subject: Re: [Ftpapi] BASE64 Decode
 
Just wanted to pass along the other way to do it using built in en/decoder:
 
 
bryan
 
 
On Jun 5, 2017, at 10:39 AM, Ron Koontz <rkoontz@xxxxxxxxx> wrote:
 
Is there an easy way to decode a field from BASE64 ? ( IBM API maybe that I cannot find )
I have tried Scott’s example but get a “Definition not found for symbol 'BASE64_ENCODE'. “ after I compile my program.
I did all the  compile options in the BASE64R4 documentation.
 
I tried an example online as well and got the same error just to make sure it was not my main pgm..
 
Any Ideas?  Its probably something easy I’m not doing  I would guess.
 
Example off the web :
/copy BASE64_H                                  
D Input           S              6a              
D Output          S              8A              
                                                 
 /free                                           
                                                 
     input = x'61626b3735';                      
     Output = *blanks;                           
                                                 
    base64_encode( %addr(Input)                  
     : %len(%trimr(Input))                       
     : %addr(Output)                             
     : %size(Output) );                          
                                                 
     dsply Output;                               
     *inlr = *on;                                
                                                 
 /end-free                                       
 
Thanks 
Ron
 


The information contained in this e-mail is intended only for the individual or entity to whom it is addressed. Its contents (including any attachments) may contain confidential and/or privileged information. If you are not an intended recipient you shall not use, disclose, disseminate, copy or print its contents. If you receive this e-mail in error, please notify the sender by reply e-mail and delete and destroy the message. Continental Express, Inc. and its subsidiaries and affiliates will not be held liable for the unintended or unauthorized use of any information contained in this email or as a result of any additions or deletions of information originally contained in this email.
-- 
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi
 
 


The information contained in this e-mail is intended only for the individual or entity to whom it is addressed. Its contents (including any attachments) may contain confidential and/or privileged information. If you are not an intended recipient you shall not use, disclose, disseminate, copy or print its contents. If you receive this e-mail in error, please notify the sender by reply e-mail and delete and destroy the message. Continental Express, Inc. and its subsidiaries and affiliates will not be held liable for the unintended or unauthorized use of any information contained in this email or as a result of any additions or deletions of information originally contained in this email.
--
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the intended recipient only. Access, disclosure, copying, distribution, or reliance on any of it by anyone else is prohibited and may be a criminal offence. Please delete if obtained in error and email confirmation to the sender. -- 
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi

-- 
_______________________________________________
Ftpapi mailing list
Ftpapi@xxxxxxxxxxxxxxxxxxxxxx
http://scottklement.com/mailman/listinfo/ftpapi