Hi,
hoping I've got the sense of the problem.
In a Rpg pgm, to send a brkmsg to a user to inform him a job I've just run has finished with good results,
I also use QCMDEXC in this way:
The calling Pgm calls an RPG ile Pgm passing the result of an elaboration:.
:
:
0030.02 CLR MOVEL'F O R D 'FORN 21
0030.06 CLR MOVE NEW NUOV 4
0030.07 CLR MOVE ESIS ESIS 4
0030.08 CLR MOVE UPDT AGGI 4
0030.09 CLR CALL 'UTQEXC '
0030.10 CLR PARM FORN
0030.11 CLR PARM NUOV
0030.12 CLR PARM ESIS
0030.13 CLR PARM AGGI
:
:
Called Pgm UTQEXC
0000.01 DCmd160 DS
0000.02 D 24 INZ('SNDBRKMSG MSG(''Fornit.: ')
0000.04 D forn 21
0000.07 D 7 INZ('Inser.:')
0000.08 D inse 4
0000.09 D 12 INZ(' Esist.:')
0000.10 D esis 4
0000.11 D 11 INZ(' Aggiorn.:')
0000.12 D aggi 4
0002.00 D 29 INZ(''') TOMSGQ(QUSRSYS/GIORDA)')
0002.01 C *entry PList
0003.01 C Parm for 21
0003.03 C Parm ins 4
0003.04 C Parm esi 4
0003.05 C Parm agg 4
0003.06 C Movel for forn 21
0003.08 C Move ins inse 4
0003.09 C Move esi esis 4
0004.01 C Move agg aggi 4
0004.02 *
0010.00 C Call 'QCMDEXC'
0011.00 C Parm CMD160 160
0012.00 C Parm 160 CMDLEN 15 5
0013.00 *Rcd 9b 0
0014.00 C* Move *on *Inlr
0015.00 C return
It works....
Ciao
Visualizzazione messaggi
Sistema: S44A38CA
Coda . . . . . : GIORDA Programma . . . : *DSPMSG
Libreria. . . : QSYS Libreria. . . :
Gravità . . . . : 00 Consegna. . . . : *NOTIFY
Immettere la risposta, se richiesta, e premere Invio.
Da . . . . : MONTAGNOLI 14/07/10 16:52:21
Fornit.: F O R D Inser.:0005 Esist.: 0002 Aggiorn.:0002
Da . . . . : MONTAGNOLI 14/07/10 16:52:51
Fornit.: I L V A Inser.:0000 Esist.: 0001 Aggiorn.:0001
Da . . . . : MONTAGNOLI 14/07/10 16:53:24
Fornit.: METINVEST Inser.:0004 Esist.: 0005 Aggiorn.:0004
Franco Montagnoli
Sistemi Informativi
ALESSIO TUBI S.p.A.
Grupo CONDESA
Strada Statale 20 Km 4
10040 LA LOGGIA (Torino) - Italia
Tel. +39 011 96 59 232
Mob. +39 335 6814922
Fax +39 011 96 29 680
Email franco.montagnoli@xxxxxxxxxxxxxx<mailto:franco.montagnoli@xxxxxxxxxxxxxx>
P stampare questa e-mail solo se necessario, grazie - please don't print this e-mail unless you really need to.
*****************************************************************************************************
Questo messaggio può contenere informazioni di carattere confidenziale o
riservato. Qualora non foste i destinatari, vi preghiamo di telefonare o di
inviare una e-mail al mittente e di cancellare questo messaggio e gli
allegati dal vostro sistema, senza trattenerne copia.
This message may contain information which is confidential or privileged.
If you are not the intended recipient, please telephone or email the sender
and delete this message and any attachment from your system, without
retaining a copy
-----Messaggio originale-----
Da: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Per conto di Denny Ray
Inviato: giovedì 15 luglio 2010 22:45
A: RPG programming on the IBM i / System i
Oggetto: Re: sndmsg from rpg working but no message
'SNDMSG MSG('''Billing batch 1714B entered on 07/14/10 has not been
updated''') TOMSGQ(DALE )'
Booth Martin wrote:
What happens if you prompt the message, it goes to the right place, and
then you F9 on the command line? Does that look like you expect it to look?
On 7/15/2010 4:22 PM, dale janus wrote:
After much tweaking, I finally have my RPG program calling QCMDEXC and
sending a properly formatted message. I had problems with the length
parm (I had 15s 5, it must be 15p 5). Debug shows I have a properly
formatted command with quotes and everything.
SNDMSG MSG(' Billing batch 1714B entered on 07/14/10 has not
been updated ' ) TOMSGQ(DALE )
After all that work, the message does not appear to be sent.
If I type SNDMSG and prompt at the command line it sends the message.
If I paste the command above and press enter, it never appears in the
message que.
So what am I missing here?
My RPG program is reading a file that has the user name that I put into
the TOMSGQ parm. I suppose I could change it to workstation name and
try sending a break message, but I don't see how that would work any
differently.
Where is the message going to?
---Dale
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
