|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.