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

The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.