RE: How do I "force" a retry option when all I get to choose from is (C G D F)?

If you called a cl pgm to do the clear file, you would get an error message on the CLRPFM command in the cl program that you can ignore or retry. The cl program returns to the RPG and the RPG continues.


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Brian Parkins
Sent: Wednesday, September 3, 2025 3:58 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: How do I "force" a retry option when all I get to choose from is (C G D F)?

You could try using the OVRMSGF command and defining a message in your *MSGF with the same Message Id as the system message - but with your desired wording and reply options instead. The OVRMSGF could be issued by the RPG IV code, (using QCMDEXC or QCAPCMD)  - or build a simple "wrapper" around the RPG IV program.

Brian.

On 03/09/2025 20:09, Dan Bale wrote:

I've been out of RPG for a while. It feels like this should be fairly simple, but it is escaping me. Maybe putting it in a MONITOR block, but then how to send a message that can be responded to with a 'C' or 'R'?

A direct call to the RPG program is submitted to a job queue.
In RPG:
Command = 'ClrPfm transacts';
CommandLen = %len( Command );
Callp QCmdExc ( ( Command ) : ( CommandLen ) );

If file transacts is open elsewhere, the job sends message "The call to *LIBL/QCMDEXC ended in error (C G D F)." Instead of that message, I'd like to see a message that gives me (C R) options.

- Dan Bale
*** CONFIDENTIALITY NOTICE: The information contained in this
communication may be confidential, and is intended only for the use of
the recipients named above. If the reader of this message is not the
intended recipient, you are hereby notified that any dissemination,
distribution, or copying of this communication, or any of its
contents, is strictly prohibited. If you have received this
communication in error, please return it to the sender immediately and
delete the original message and any copy of it from your computer
system. If you have any questions concerning this message, please
contact the sender. ***

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.