Re: QCMDEXC, %error and excp_msg from the PSDS

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.