This program stores different login data in different catalogues encrypted by db2 crypto-services (tdes-encryption). Please also use telnet over tls :-)
To create this program plase create a new schema on your IBMi with the name "KEYSAFE".
You need a journal and journalreceiver for the db2 crypt functions.
Also create the source-container (qcmdsrc, qddssrc, qrpglecpy, qrpglesrc). I have used the record-length of 112.
Create the tables and views with the IBMi ACS.
Copy the sources to the sourcecontainer (qrpglesrc/qcmdsrc/etc) and compile them via pdm-option "14"