Re: SNDPGMMSG from HLL program

--
--
[ Picked text/plain from multipart/alternative ]
here's my choice:

     C                   Eval      Tmpxx =

     C                             'OVRPRTF FILE(OE130O) DEV(' +
%Trim(Printr)
     C                             + ') OUTQ(*DEV) PAGESIZE(51 80) '

     C                             + 'FORMFEED(*CONT) PRTQLTY(*DRAFT)'

     C                   Call (E)  'QCMDEXC'

     C                   Parm                    Tmpxx          1024

     C                   Parm      1024          Tmp15_5          15 5


 Eval tmpxx to be what ever you want it to be for a command, including
SNDPGMMSG


---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: midrange-l@midrange.com
Date: Monday, December 02, 2002 03:17:42 PM
To: Midrange Mailing List
Subject: SNDPGMMSG from HLL program

I want to send a message via SNDPGMMSG from an RPG4 program. SNDPGMMSG
is allowed in CL programs but not HLL programs. I want the message
queue to look 'clean' meaning like this:


Display Messages
System: DILGARD
Queue . . . . . : ORDERS Program . . . . : *DSPMSG
Library . . . : QUSRSYS Library . . . :
Severity . . . : 00 Delivery . . . : *HOLD

Type reply (if required), press Enter.
This is the message I want to send from a HLL.
This is another message I want to send from a HLL.
This is a 3rd message I want to send from a HLL.
This is a 4th message I want to send from a HLL.
This is a 5th message I want to send from a HLL.

(I adjusted the above so it hopefully won't wrap.)



If I use the SNDMSG command (which is allowed from a HLL), the message
queue looks cluttered, like this:


Display Messages
System: DILGARD
Queue . . . . . : ORDERS Program . . . . : *DSPMSG
Library . . . : QUSRSYS Library . . . :
Severity . . . : 00 Delivery . . . : *HOLD

Type reply (if required), press Enter.
>From . . . : JEFF 12/02/02 15:04:49

This is the message I want to send from a HLL.
>From . . . : JEFF 12/02/02 15:04:49

This is anoth message I want to send from a HLL.
>From . . . : JEFF 12/02/02 15:04:49

This is a 3rd message I want to send from a HLL.
>From . . . : JEFF 12/02/02 15:04:49

This is a 4th message I want to send from a HLL.
>From . . . : JEFF 12/02/02 15:04:49

This is a 5th message I want to send from a HLL.

(Note all the "From" lines in there.)


How can I do a 'lean & clean' message send?

Thanks.

--
--
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531
--
[ IMSTP.gif of type image/gif deleted ]
--