Re: QEZSNDMG - Break Message to a User -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Try this CL program
PGM PARM(&USERID)

DCL VAR(&MSGTYPE) TYPE(*CHAR) LEN(10)
DCL VAR(&DELIVERY) TYPE(*CHAR) LEN(10)
DCL VAR(&MSG) TYPE(*CHAR) LEN(32)
DCL VAR(&MSGLEN) TYPE(*CHAR) LEN(4)
DCL VAR(&USERID) TYPE(*CHAR) LEN(10)
DCL VAR(&NUMUSERS) TYPE(*CHAR) LEN(4)
DCL VAR(&MSGSNT) TYPE(*CHAR) LEN(4)
DCL VAR(&FUNCREQ) TYPE(*CHAR) LEN(4)
DCL VAR(&ERRORCODE) TYPE(*CHAR) LEN(8)
DCL VAR(&DISPLAY) TYPE(*CHAR) LEN(1)
DCL VAR(&MSGQ) TYPE(*CHAR) LEN(20)
DCL VAR(&DSTTYPE) TYPE(*CHAR) LEN(4)
DCL VAR(&CCSID) TYPE(*CHAR) LEN(4)
DCL VAR(&DOCN) TYPE(*CHAR) LEN(10) +
VALUE('0000010010')

CHGVAR VAR(&MSGTYPE) VALUE('*INFO')
CHGVAR VAR(&DELIVERY) VALUE('*BREAK')
CHGVAR VAR(&DISPLAY) VALUE('N')
CHGVAR VAR(&DSTTYPE) VALUE('*USR')
CHGVAR VAR(&MSG) VALUE('test msg ' *CAT &DOCN)

CHGVAR VAR(%BIN(&MSGLEN)) VALUE(32)
CHGVAR VAR(%BIN(&NUMUSERS)) VALUE(1)
CHGVAR VAR(%BIN(&MSGSNT)) VALUE(0)
CHGVAR VAR(%BIN(&FUNCREQ)) VALUE(0)
CHGVAR VAR(%BIN(&ERRORCODE 1 4)) VALUE(0)
CHGVAR VAR(%BIN(&CCSID)) VALUE(0)

CALL PGM(QEZSNDMG) PARM(&MSGTYPE &DELIVERY &MSG +
&MSGLEN &USERID &NUMUSERS &MSGSNT +
&FUNCREQ &ERRORCODE &DISPLAY &MSGQ +
&DSTTYPE &CCSID)

ENDPGM

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.