× 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.



1) Instead of doing the message in the CL, do it in the subfile. In other words, with "No Customer", enter the first ship to point as "No such customer." and with a customer but no shipping points, enter the first ship to as "This customer has no shipping points entered." and display the subfile. That just does away with all of the complications of error messaging.

2) I am not sure about the program design. It appears you are sending the message in the CL, and that seems like the complicated solution.

3) Are you using the ERRSFL keyword in your display file? And using ERRMSG?

4) Another solution is to have the a subfile of existing customers, and only allow the users to pick the customer from that list, thus doing away with the possibility of a "not found" error.

On 7/15/2011 10:51 AM, Billy Waters wrote:
New to using sub files and message sub files.

My sub file appears to be working correctly. I am display a list of ship to points for a customer entered by the user. I now need to validate the customer and display an error message when the customer is not found. Message is not displayed on the data entry screen. It is displayed in the job log:
CALL PKUP002R
700 - RMVMSG PGMQ(*PRV) CLEAR(*ALL)
- RETURN /* RETURN due to end of CL program */
700 - RMVMSG PGMQ(*PRV) CLEAR(*ALL)
- RETURN /* RETURN due to end of CL program */
1300 - SNDPGMMSG MSGID(MOP0007) MSGF(MOPSOURCE/MOPMSGF) MSGDTA('8')
TOPGMQ(*PRV)
Invalid Customer Number.....
- RETURN /* RETURN due to end of CL program */

Any help would be appreciated..



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.