× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I've got a few critical things where I do something similar.

Since these things are command driven, the command would look like this:

CMD PROMPT('Run All Billing')

PARM KWD(RUN) +
TYPE(*CHAR) +
LEN(1) +
RSTD(*YES) +
DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PROMPT('Run all billing?')

PARM KWD(CONFIRM) +
TYPE(*CHAR) +
LEN(1) +
RSTD(*YES) +
DFT(*NO) +
SPCVAL((*YES Y) (*NO N)) +
PMTCTL(CNFDSP) +
PROMPT('Are you sure?')

CNFDSP: PMTCTL CTL(RUN) +
COND((*EQ Y))

The command pops up with the RUN parm as *NO. The user must change it to
*YES. Only then does the CONFIRM parm pop up, also as *NO and the use must
change it to *YES.

Then the CPP checks both parms and if they're not both "Y", issues this:

SNDUSRMSG MSGID(USR9897) +
MSGF(MSG) +
MSGDTA('Not confirmed. Run all billing is cancelled at +
your request. (C)') +
VALUES('C' 'c') +
TOMSGQ(&JOB) +
MSGRPY(&MSGREPLY)


The only thing the user can enter is a "C" after which he/she sees:

SNDPGMMSG MSGID(USR9897) +
MSGF(MSG) +
MSGDTA('Run All Billing was NOT run because confirmation +
was not received.')

It's saved our collective bacons more than once.


On Tue, Apr 19, 2011 at 7:14 AM, Jerry C. Adams <midrange@xxxxxxxx> wrote:

Bill,

Good point. The package that we use ALWAYS asks the user to "Press Enter
to
Continue." Now for a simple report that's okay, but for critical issues
that I wrote (or modify) I always make the user press a function key, and
then give them a screen that says "You canceled this process" so they won't
come running to me and say, "Process X is taking forever." Better safe
than
sorry.

Jerry C. Adams
IBM i Programmer/Analyst
How can you think and hit at the same time? - Yogi Berra
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of William A. Hansen
Sent: Monday, April 18, 2011 4:30 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Near-fatal OOPS waiting to happen in PDM (or THANK GOD

When I teach stand-up classes for operators, I point out that most
operators
seem to have built-in wiring: seeing a confirmation screen causes them to
press the Enter key, typically within 30ms.

I've found only one screen (perform an IPL now from the POWER menu) where
the "go ahead" response is F16 rather than Enter. Do you know of any
others?

Bill

William A. Hansen
whansen@xxxxxxxxxxxxx
Manta Technologies Inc.
Toll-free: (800) 406-2682 x 101
Direct: (303) 862-4562
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

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





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.