|
Booth: On Thu, 14 March 2002, "Booth Martin" wrote: > Is there a way to SNDBRKMSG to only active work stations? See if the command definition below might help. Compile it with QSYS/QEZSNDMG as the command-processing program. Example usage might be: ===> sndbrkmsga msg('Only for active') msglen(15) + rcp(*ALLACT) nbrrcp(1) namtyp(*DSP) See the Operational Assistant API guide for documentation on QEZSNDMG if you want details about the parms. It isn't perfect for command-line usage, but it makes it easy to see how the API works and to code simple CL to take adsvantage. Tom Liotta Command definition: /*-----------------------------------------------------------*/ /* Use QEZSNDMG as the CPP */ /*-----------------------------------------------------------*/ SNDBRKMSGA: CMD PROMPT('Send break message (assisted)') PARM KWD(MSGTYP) TYPE(*CHAR) LEN(10) RSTD(*YES) + DFT(*INFO) VALUES(*INQ *INFO) + PROMPT('Message type') PARM KWD(DLVRY) TYPE(*CHAR) LEN(10) RSTD(*YES) + DFT(*BREAK) VALUES(*BREAK *NORMAL) + PROMPT('Delivery mode') PARM KWD(MSG) TYPE(*CHAR) LEN(494) EXPR(*YES) + PROMPT('Message text') PARM KWD(MSGLEN) TYPE(*INT4) DFT(*MAX) + SPCVAL((*MAX 494) (*MIN 0)) EXPR(*YES) + PROMPT('Message text length') PARM KWD(RCP) TYPE(*CHAR) LEN(1000) EXPR(*YES) + PROMPT('Recipients') PARM KWD(NBRRCP) TYPE(*INT4) EXPR(*YES) + PROMPT('Number of recipients') PARM KWD(MSGSNT) TYPE(*CHAR) LEN(4) + CONSTANT(X'00000000') PARM KWD(FUNC) TYPE(*CHAR) LEN(4) RTNVAL(*NO) + CONSTANT(X'00000000') /* */ /* ERRCOD: Required ERRCODE definition minimum... */ /* */ PARM KWD(ERRCOD) TYPE(*INT4) CONSTANT(0) /* */ /* Optional parameter group #1... */ /* */ PARM KWD(SHOSNDDSP) TYPE(*CHAR) LEN(1) RSTD(*YES) + DFT(*NO) SPCVAL((*YES Y) (*NO N)) + EXPR(*YES) PROMPT('Show "Send a message" + display') PARM KWD(RPYMSGQ) TYPE(QRPYMSGQ) + PROMPT('Qualified reply *msgq name') QRPYMSGQ: QUAL TYPE(*NAME) LEN(10) QUAL TYPE(*NAME) LEN(10) SPCVAL((*CURLIB) + (*LIBL)) PROMPT('*msgq library') PARM KWD(NAMTYP) TYPE(*CHAR) LEN(4) RSTD(*YES) + DFT(*USR) VALUES(*USR *DSP) EXPR(*YES) + PROMPT('Name type') -- Tom Liotta The PowerTech Group, Inc. 19426 68th Avenue South Kent, WA 98032 Phone 253-872-7788 Fax 253-872-7904 http://www.400Security.com ___________________________________________________ The ALL NEW CS2000 from CompuServe Better! Faster! More Powerful! 250 FREE hours! Sign-on Now! http://www.compuserve.com/trycsrv/cs2000/webmail/
As an Amazon Associate we earn from qualifying purchases.
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.