     F*****************************************************************                             
     H DFTACTGRP(*NO) OPTION(*SRCSTMT: *NODEBUGIO) BNDDIR('UTILITIES')                              
      /copy qprcsrc,ENCRYPT_CP                                                                      
                                                                                                    
     d outMode         s              1    inz                                                      
     d MyString        s            512    inz                                                      
     d ReturnString    s            512    inz                                                      
                                                                                                    
        /Free                                                                                       
                                                                                                    
         OutMode = 'E'; //Encrypt                                                                   
         MyString = 'Jamie Was Here';                                                               
                                                                                                    
         ReturnString  = Encrypt(OutMode: MyString);                                                
                                                                                                    
         // ReturnString = "?#{J?/??<"                                                         
         OutMode = 'D'; // Decrypt                                                                  
         ReturnString  = Encrypt(OutMode: ReturnString);                                            
         // ReturnString = "Jamie Was Here"                                                         
                                                                                                    
         *inlr = *on;                                                                               
                                                                                                    
                                                                                                    
