I am a little confused as to how to properly use the base64encode and base64decode db2 functions.
Code:
**free ctl-opt dftactgrp(*no) actgrp(*caller) option(*srcstmt:*nodebugio:*nounref) debug; dcl-s varchar_ebcdic_1 varchar(4096) inz; dcl-s varchar_ascii varchar(4096) ccsid(*UTF8) inz; dcl-s varchar_ascii_encoded varchar(4096) ccsid(*UTF8) inz; dcl-s basic_auth_ascii varchar(4096) ccsid(*UTF8) inz; varchar_ebcdic_1 = 'user:pass'; varchar_ascii = varchar_ebcdic_1; exec sql set :basic_auth_ascii = systools.base64encode(:varchar_ascii); exec sql set :varchar_ebcdic_1 = systools.base64decode(:basic_auth_ascii); *inlr = *on; return;
Comment