Re: QCMDEXC

[Howard Weatherly <hweatherly@xxxxxxxxxxxx>]

Yet another way to do the same thing.

1 QMHSNDPM-PARMS.
  2 SNDMSG-ID              PIC  X(08)        VALUE "LSSU701O".
  2 SNDMSG-QUEUE           PIC  X(20)
    VALUE "DLCDBAT4   QUSRSYS".
  2 SNDMSG-MSG             PIC  X(31)
    VALUE "Trigger Fail on Database Action".
  2 SNDMSG-LENGTH          PIC  9(08) BINARY VALUE 31.
  2 SNDMSG-TYPE            PIC  X(10)        VALUE "*ESCAPE".
  2 SNDMSG-PGMQUEUE        PIC  X(10)        VALUE "*".
  2 SNDMSG-PGMSTACK-CNT    PIC  9(08) BINARY VALUE 1.
  2 SNDMSG-KEY             PIC  X(04)        VALUE SPACE.
  2 SNDMSG-ERRORCODE.
    3 SNDMSG-PROVIDED      PIC  9(08) BINARY VALUE 66.
    3 SNDMSG-AVAILABLE     PIC  9(08) BINARY VALUE ZERO.
    3 SNDMSG-RETURNID      PIC  X(08)        VALUE SPACE.
    3 SNDMSG-RETURNDATA    PIC  X(50)        VALUE SPACE.

 CALL "QMHSNDPM" USING
    SNDMSG-ID
    SNDMSG-QUEUE
    SNDMSG-MSG
    SNDMSG-LENGTH
    SNDMSG-TYPE
    SNDMSG-PGMQUEUE
    SNDMSG-PGMSTACK-CNT
    SNDMSG-KEY
    SNDMSG-ERRORCODE
 END-CALL



"Hess, Dyanna" wrote:

>    Part 1.1Type: Plain Text (text/plain)

+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END