|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
PGM PARM(&MSG &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) CHGVAR VAR(&MSGTYPE) VALUE('*INFO') CHGVAR VAR(&DELIVERY) VALUE('*BREAK') CHGVAR VAR(&DISPLAY) VALUE('N') CHGVAR VAR(&DSTTYPE) VALUE('*USR') 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 |
指定ユーザーへBREAKモードでのメッセージ送信
