RE: SNDPGMMSG

Chris,
     You'll have to concatenate the 5 variables into one variable and then send 
your program message.  Your concatenated variable should be In this order  PGM, 
USER, JOB#, DATE and TIME.  

PGM                                                                  
             DCL        VAR(&VAR1) TYPE(*CHAR) LEN(10) VALUE(VAR1)   
             DCL        VAR(&VAR2) TYPE(*CHAR) LEN(10) VALUE(VAR2)   
             DCL        VAR(&VAR3) TYPE(*CHAR) LEN(6) VALUE(VAR3)    
             DCL        VAR(&VAR4) TYPE(*CHAR) LEN(8) VALUE(VAR4)    
             DCL        VAR(&VAR5) TYPE(*CHAR) LEN(8) VALUE(VAR5)    
             DCL        VAR(&VAR) TYPE(*CHAR) LEN(42)                
                                                                     
             CHGVAR     VAR(&VAR) VALUE(&VAR1 *CAT &VAR2 *CAT &VAR3 +
                          *CAT &VAR4 *CAT &VAR5)                     
                                                                     
             SNDPGMMSG  MSGID(CPF1241) MSGF(QSYS/QCPFMSG) +          
                          MSGDTA(&VAR) TOMSGQ(EKEMPTER) +            
                          MSGTYPE(*COMP)                             
                                                                     
ENDPGM    
                                                           
Eric Kempter

> -----Original Message-----
> From: Chris Beck [SMTP:CBeck@good-sam.com]
> Sent: Monday, December 13, 1999 11:28 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      SNDPGMMSG
> 
> I am trying to send a program message to qsysopr when this program finishes, 
>using cpf1241 the standard competed normally message.   the problem There is 5 
>variables in the message description. I have all five getting the right data 
>and formatted correctly.  but it will not let me give it more than one 
>variable on the msgdta line.    How can I get all five variables to pass to 
>the message??   or am I putting them in the wrong spot?  I can't find any 
>information in the manuals that will help me when there is multiple variables.
> 
> SNDPGMMSG  MSGID(CPF1241) MSGF(QSYS/QCPFMSG) +  
>              MSGDTA( &onevar) TOMSGQ(*SYSOPR) +   
>              MSGTYPE(*COMP)       
> 
> 
> Thanks Chris Beck              
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---