DEF INPUT PARAMETER ipFlag AS LOG NO-UNDO. fOpen = ipFlag. IF fOpen THEN DYNAMIC-FUNCTION('openQuery':U) NO-ERROR.