stat() function and sub-proc issue

["tim" <tim2006@xxxxxxxxxxx>]

Hello all,

 

I am trying to use the stat() function and getting a RNQ1211 message on my
printer file. The code is:

 

Fqsysprt   o    f  198        printer                                    

                                                                         

D stat            PR            10I 0 ExtProc('stat')                    

D path                            *   value options(*string)             

D buf                             *   value                              

                                                                         

d testing         pr             1n                                      

                                                                         

D rootdir         c                   const('/qntc/10.0.0.3/invoices')   

                                                                         

D p_statds        S               *                                      

D statds          DS                   BASED(p_statds)                   

D st_mode                       10U 0                                    

                                                                         

D MyStat          S                    like(statds)                      

                                                                         

 /free                                                                   

                                                                         

     stat(rootdir + '/00618':%addr(mystat));                             

     except;                                                             

     testing();                                                          

     except;                                                             

                                                        

     *inlr = *on;                                       

                                                        

 /end-free                                              

Oqsysprt   e                                            

O                                              'ouput'  

                                                        

P testing         b                                     

d testing         pi             1n                     

 /free                                                  

   return *on;                                          

 /end-free                                              

P testing         e                                     

 

 

When I debugged the code,  the testing() subproc seems to be closing qsysprt
before it does anything. Then when control returns to the except after
testing(), it blows up.

 

Anyone have any ideas on this.

 

Tim