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 <[email protected]> On Behalf Of Brian Parkins
Sent: Wednesday, September 3, 2025 3:58 PM
To: [email protected]
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: [email protected] To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.


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

Please contact [email protected] for any subscription related questions.