     H DFTACTGRP(*NO) OPTION(*SRCSTMT: *NODEBUGIO) BNDDIR('UTILITIES')                              
      /copy qprcsrc,CHKIFS_CP                                                                       
                                                                                                    
     d MyFolderPath    s           1000    varying                                                  
     d MyErrorBack     s               n   Inz                                                      
                                                                                                    
        /Free                                                                                       
            // /home/Engineering/Customer/BRAAS/R50-23114/R50-23114-1.PDF                           
            //                                                                                      
            reset MyErrorBack;                                                                      
            MyFolderPath = '/home/Engineering/Customer/' +                                          
             'BRAAS/R50-23114/R50-23114-1.PDF';                                                     
            MyErrorback =  DoesThisTableExist(MyFolderPath);                                        
                                                                                                    
            reset MyErrorBack;                                                                      
            MyFolderPath = '/home/jamie/' +                                                         
             'QPRTJOB/QSECOFR/000648_000444_NLSTXT_07062018_00????.PDF';                            
            MyErrorback =  DoesThisTableExist(MyFolderPath);                                        
                                                                                                    
                                                                                                    
            //    \\rbsc-dc02\Engineering\DRAWINGS\New Building\120914 LAYOUT.pdf                   
            reset MyErrorBack;                                                                      
            MyFolderPath = '\\rbsc-dc02\Engineering\DRAWINGS\'   +                                  
                           'New Building\Racks 2013.dwg';                                           
            MyErrorback =  DoesThisTableExist(MyFolderPath);                                        
                                                                                                    
            //    \\rbsc-dc02\Engineering\DRAWINGS\New Building\noFound.pdf                         
            reset MyErrorBack;                                                                      
            MyFolderPath = '\\rbsc-dc02\Engineering\DRAWINGS\'   +                                  
                           'New Building\Notfound.pdf';                                             
            MyErrorback =  DoesThisTableExist(MyFolderPath);                                        
                                                                                                    
                                                                                                    
            *inlr = *on;                                                                            
                                                                                                    
