RE: Query Question - "force" a save...;

["Chuck Lewis" <clewis@xxxxxxxxxx>]

Vern,

Thanks !

I had considered doing that but not exactly the way you note (didn't realize
you could do this from the WRKOBJPDM display !

Chuck

-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com]On Behalf Of Vern Hamberg
Sent: Monday, October 28, 2002 12:25 PM
To: midrange-l@midrange.com
Subject: Re: Query Question - "force" a save...;


Chuck

Since this has to be interactive, how about a macro? Here's one that I just
put together. It assumes you are on the option field of WRKOBJPDM, in front
of a *QRYDFN object. No options should be specified. It selects the object
name, then gets the library name (appended to object name), then calls
WRKQRY and fills in qualified name. Then it exits and saves the query.

Copy the following code into the macro editor - in a display session,
Edit->Preferences->Macro/Script...

Pick the blank entry under Macro/Script and click on Customize - this
creates a new macro - and paste the code in. Then save the macro.

[wait app]
[tab word]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[edit-copy]
[pf5]
[wait inp inh]
[wait app]
[backtab]
[backtab]
[backtab]
[left]
[left]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[mark right]
[edit-copyappend]
[pf9]
[wait inp inh]
[wait app]
[erase eof]
"wrkqry
[enter]
[wait inp inh]
[wait app]
"2
[edit-paste]
[enter]
[wait inp inh]
[wait app]
[pf3]
[wait inp inh]
[wait app]
"y3
[enter]
[wait inp inh]
[wait app]
[enter]

Regards

Vern

At 11:04 AM 10/28/02 -0500, you wrote:
>Hi Folks,
>
>Our main production package was upgraded over the weekend and we have a TON
>of queries. Well a BUNCH of these queries are level checking against files
>in the production library. Saving the query is all it takes to fix it but
>rolling through all of these and doing this is a PAIN. Is the another way
to
>do this (i.e. under the covers or something) ?
>
>Thanks,
>
>Chuck

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.