ID #1094

指定ユーザーへBREAKモードでのメッセージ送信

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

タグ: -

関連エントリー: -

最終更新: 2011-10-07 23:04
製作者:
改訂: 1.0

Digg it! Share on Facebook このレコードを印刷する 友達に教える PDF ファイルで表示する
Propose a translation for Propose a translation for
この FAQ を評価してください:

評価点数: 0 (0 件の投票)

完全に役に立たない 1 2 3 4 5 最も価値がある

このエントリーにコメントできません。