     F*****************************************************************                             
     H DFTACTGRP(*NO) OPTION(*SRCSTMT: *NODEBUGIO) BNDDIR('UTILITIES')                              
      /copy qprcsrc,CALLER_CP                                                                       
                                                                                                    
     d ReturnProgram   s             10    inz                                                      
                                                                                                    
         *inlr = *on;                                                                               
                                                                                                    
         //return the caller program name                                                           
         reset returnProgram;                                                                       
         returnProgram = ReturnPreviousProgramName();                                               
                                                                                                    
