Konvertierung nach Graphic --> CCSID Problem

[Rainer Ross]

Hallo Forum,

für das Encode und Decode von BASE64 gibt es API's auf dem System.
Die sollten bis zu einer Größe von 2GB problemlos funktionieren.
Wenn bei der Konvertierung mit der Seite https://www.base64decode.org/
andere Ergebnisse kommen, dann liegt das daran, dass die Seite UTF8 benutzt.

Damit mit den API's die gleichen Ergebnisse kommen, muss beim Encoding erst
nach UTF8 konvertiert und dann nach BASE64 codiert werden.

//------------------------------------------------------------------//
// BASE64 - Encode String - SRVPGM(QSYSDIR/QAXIS10HT)               //
//------------------------------------------------------------------//
                                                                      
   dcl-pr encbase64bin int(10) extproc('apr_base64_encode_binary');   
           encoded_p   pointer value;                                 
           source_p    pointer value;                                 
           sourcelen   int(10) value;                                 
   end-pr;
                                                            
//------------------------------------------------------------------//
// BASE64 - Decode String - SRVPGM(QSYSDIR/QAXIS10HT)               //
//------------------------------------------------------------------//
                                                                      
   dcl-pr decbase64bin int(10) extproc('apr_base64_decode_binary');   
           decoded_p   pointer value;                                 
           encoded_p   pointer value;                                 
   end-pr; 

Herzliche Grüße

Rainer