     H DFTACTGRP(*NO) OPTION(*SRCSTMT: *NODEBUGIO) BNDDIR('UTILITIES')                              
                                                                                                    
      /copy qprcsrc,GETIP_CP                                                                        
                                                                                                    
     d ReturnIP        s             16    Inz                                                      
                                                                                                    
                                                                                                    
            *inlr = *on;                                                                            
                                                                                                    
            ReturnIP = GetIPAddress();                                                              
                                                                                                    
