RE: Catching F3/F12 from QCMDEXC?

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

In the case of SEU they either send a message and watch for that message
in PDM, or they set an environment variable to indicate SEU ended with
F3.

Back when I was doing some work for IBM on Y2K stuff, I worked the guy
that originally worked on PDM (he's at IBM Canada now). They have the
equivalent of an "INI" file or "Registry" where they keep all their
settings.

Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Brad Stone
> Sent: Thursday, January 10, 2002 9:37 AM
> To: rpg400-l@midrange.com
> Subject: Re: Catching F3/F12 from QCMDEXC?
>
> Bob,
>
> I don't think this works in this case.  What you are talking
> about is true if they cancel Prompting of the command.  But,
> QCMDEXC has already been called.  QCAPCMD didn't return
> anything either.
>
> This is like if option 5 was doing a STRSEU OPTION(5).
> While they're looking at the source, they hit F3.  How does
> that F3 get transferred back to the program that called the
> STRSEU command using QCMDEXC?
>
> I know where you're coming from.  And what you describe
> works fine when they just cancel the prompting of the
> command.  But I'm showing nothing in the job log when the
> user F3s out of a PDM display.
>
> On Wed, 9 Jan 2002 22:12:45 -0600
>  "Bob Cozzi \(RPGIV\)" <cozzi@rpgiv.com> wrote:
> > Brad, you can probably do it with QCAPCMD, but the old
> > fashion way is to
> > use QCMDCHK (used to be call QCACHECK). Then trap the CPF
> > messages
> > returned from QCMDCHK, before sending the command off to
> > QCMDEXC.
> >
> > So for example, if you had someone select 10 options with
> > option 5, and
> > after the 7th option they pressed F3, you could end the
> > process. You
> > could also do that with QCMDEXC because the "Command
> > cancelled" message
> > is sent through that interface too.
> >
> > Bob Cozzi
> > cozzi@rpgiv.com
> > Visit the on-line  Midrange  Developer  forum at:
> > http://www.rpgiv.com
> >
> >
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.