Re: QCMDEXC, %error and excp_msg from the PSDS

[Ken Sims <mdrg4136@xxxxxxxxx>]

Hi Rob -

> I think the answer to question 1 is not only is it pointless, but based on
> point 2, it will send you on a wild goose chase.  But I value your
> esteemed position.  If you think that I still should check it, then should
> I blank out the following prior to calling qcmdexc:
>      D EXCP_MSG               40     46
>      D EXCP_TYPE              40     42      * Exception type
>      D EXCP_NUM               43     46      * Exception number
> ...
>      D EXCP_DATA              91    170      * Exception data
>      D EXCP_ID               171    174      * Exception Id

Personally I wouldn't change anything in the PSDS.

I would replace:

>            callp(e) qcmdexc(cmd : cmdlen);
>            select;
>            When excp_msg<>*blanks;

with

           callp(e) qcmdexc(cmd : cmdlen);
           select;
           When %error;

and only look at the PSDS error fields when an error has actually occurred.

--
Ken
http://www.ke9nr.net/
Opinions expressed are my own and do not necessarily represent the views of 
my employer or anyone in their right mind.