Re: SNDPGMMSG from HLL program

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Booth:

Unfortunately, unless you have a way around this, SNDPGMMSG is not commonly 
eligible for execution through QCMDEXC; it must be compiled into a program or 
run within a REXX procedure. That's why it won't run from a command line.

Obviously, a CL program or module with a SNDPGMMSG command within it can always 
be called. But I'd vote for the API.

Tom Liotta

midrange-l-request@midrange.com wrote:

>   7. Re: SNDPGMMSG from HLL program (Booth Martin)
>
>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
>
>-------Original Message-------
>
>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.
>
>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.

--
--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! 
http://channels.netscape.com/ns/browsers/download.jsp

Get your own FREE, personal Netscape Mail account today at 
http://webmail.netscape.com/