Here is one way to handle it...
d prompt s 51
d result s 1
/free
// Display prompt and wait for response:
prompt='What do you want to do (CDIR)?';
dou result <> ' ';
dsply(E) prompt ' ' result;
enddo;
if %error or
(result <> 'C' and
result <> 'D' and
result <> 'I' and
result <> 'R');
prompt = 'Hey IT, PEBKAC!';
dsply prompt 'QSYSOPR' result;
endif;
select;
when result = 'C';
dsply result;
Endsl;
*inlr = *on;
/end-free
Mike Krebs
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Shore
Sent: Thursday, August 16, 2007 9:05 AM
To: RPG programming on the AS400 / iSeries
Subject: Sending a message - wanting a reply
Morning everyone
Today as already been a long day, and my brain is just NOT working.
I have a RPGILE program (Free-format) that upon a certain error I have to
Send a message to the operators, wanting a reply of I - Ignore, C - Cancel,
R - Retry.
How can I code this within the free-format RPGILE (I'm thinking SNDUSRMSG
wanting a reply)? - OR - do I have to call a CL program passing parameters?
I need to go for my 26th cup of coffee.
If anyone could point me in the right direction it would be MUCH
appreciated.
Thanks in advance
-
Alan Shore
NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
