×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Since I do not have the definition of the command, I can not be sure
this is the best answer, but I offer...
Before the SNDEMAIL, include the following:
If Cond(&EMLADREM4 *EQ ' ') Then(ChgVar &EMLADREM4 '*N')
If Cond(&EMLADREM3 *EQ ' ') Then(ChgVar &EMLADREM4 '*N')
If Cond(&EMLADREM2 *EQ ' ') Then(ChgVar &EMLADREM4 '*N')
If Cond(&EMLADREM1 *EQ ' ') Then(ChgVar &EMLADREM4 '*N')
If all are blank, similar error to seen now will occur. Could test
additionally something like the following, and send a specific error
or just let it fail as it does now:
If Cond(&EMLADREM1 *TCAT &EMLADREM2 *TCAT +
&EMLADREM3 *TCAT &EMLADREM4) *EQ ' ') Then(+
SNDPGMMSG...)
If the first is required to be non-blank, for example a CHECK
CONSTRAINT is enforced, then the above four tests, where the last check
sends an error instead of doing the CHGVAR.
The other resolution is by using the QCMDEXC [or QCAPCMD] API to send
the dynamically built command string as a CL request, thus changing the
SNDEMAIL to something like the following:
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
