IBMi (AS400) fans only ' Encrypting/Decrypting data with RpgFree & SQL embedded
#IBMiSample Compile and Run this SQLRPGLE. This is an explanation how to encrypt/decrypt data in a DB2 table using RpgFree & SQL embedded. **free ************************************************ * Encrypting/Decrypting data with SQL embedded * * Encrypt/decript example with * * ENCRYPT_AES * * ENCRYPT_RC2 * * ENCRYPT_TDES * * * * DECRYPT_BIT * ************************************************ ctl-opt option(*nodebugio) dftactgrp(*no) actgrp(*new); dcl-s encryptionPassword VARCHAR(128); dcl-s p0 CHAR(10); dcl-s p1 CHAR(10); dcl-s p2 CHAR(10); dcl-s p3 CHAR(10); // The EXEC SQL is never executed. It is