How do I "force" a retry option when all I get to choose from is (C G D F)?
Dan Bale <dan.bale-EkiVQpMPPJH8R359/[email protected]>
| Newsgroups | gmane.comp.lang.as400.rpg |
|---|---|
| Message-ID | <CO1PR15MB490612F9FB9B9824A236FCDF9E01A@CO1PR15MB4906.namprd15.prod.outlook.com> |
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: RPG400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l. Please contact support-FMtJrHiV//lnDLsaKlm4mFaTQe2KTcn/@public.gmane.org for any subscription related questions.