Re: SubFiles

[Booth Martin <booth@xxxxxxxxxxxx>]

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