Re: How do I "force" a retry option when all I get to choose from is (C G D F)?
Brian Parkins <[email protected]>
| Newsgroups | gmane.comp.lang.as400.rpg |
|---|---|
| Message-ID | <[email protected]> |
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.