Re: Error code on extpgm?

Ron,

Does the Errcde have to be 3 alfa? In fact, it is a DS (see chapter 2 of the 
API manuals). (IIRC) In position 9 to 15 you find the MSGID, from position 17 
on you will find the MSGDTA.

Then you canuse those two subfields to SNDPGMMSG or similar (depends what you 
want to do). You have to check the MSGF of this API, which may beQTCPMSG, not 
the more frequent used QCPFMSG.

And as other already mentioned, the Errcde is an I/O parm, thus no CONST.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 18-1-05 at 9:34 RPower@xxxxxxxxxx wrote:

>Since I'm still a little new at this procedures stuff.  What is the 
>correct way to get say an error code value to be returned?  Here's my 
>current definition:
>
>I was using this api this way:
>     c*                  Call      'SENDEMAIL'      
>     c*                  Parm      UserId        Email_Code     
>     c*                  Parm      *Blanks       From      
>     c*                  Parm                    Filename     
>     c*                  Parm                    Subject      
>     c*                  Parm                    Errcde      
>
>hence, I'd check errcde for a value.  Now that I've decided to make it a 
>procedure, here's what I have:
>
>     D*--------------------------------------------------
>     D Send_Email      PR                  EXTPGM('SENDEMAIL')      
>     D  E_Code                       10A   Const      
>     D  E_From                       50A   Const      
>     D  E_Filename                  100A   Const    
>     D  E_Subject                    50A   Const      
>     D  E_Errcde                      3A   Const      
>
>
>     ?* Use api to send email with attachment to user profile running software
>     c                   CallP     Send_Email(UserId:*Blanks:Filename:Subject: 
>     c                             Errcde)      
>
>Can I still check Errcde for the value returned or do I have to setup 
>something different because of the way it's passed back and forth?
>