000010**************************************************************************
000020* JAPI p[^tCxgMAPI(JmssSendEventEx֐) TvvO
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       2000.04.20 Created by NEC Soft, Ltd.
000070*
000080*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000090*    쐬Ă܂
000100**************************************************************************
000110 IDENTIFICATION DIVISION.
000120 PROGRAM-ID.    JSNDEVNTEX.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000150 DATE-WRITTEN.  00-04-20.
000160 DATE-COMPILED.
000170*
000180 ENVIRONMENT DIVISION.
000190 CONFIGURATION SECTION.
000200 SOURCE-COMPUTER.  EXPRESS5800.
000210 OBJECT-COMPUTER.  EXPRESS5800.
000220*
000230 DATA DIVISION.
000240 WORKING-STORAGE SECTION.
000250*
000260* JAPIpRs[
000270 COPY JAPI.
000280*
000290* WuL[QƗp̃p[^
000300 01  QD-PARAM.
000310     02  QD-MSGTITLE    PIC  X(20)  VALUE  "G[bZ[W".
000320*
000330* CxgMp̃p[^
000340 01  SE-PARAM.
000350     02  SE-SERVERNAME  PIC  X(15).
000360     02  FILLER         PIC  X VALUE LOW-VALUE.
000370     02  SE-QUEUENAME   PIC  X(15).
000380     02  FILLER         PIC  X VALUE LOW-VALUE.
000390     02  SE-EVENTID     PIC  X(04).
000400     02  FILLER         PIC  X VALUE LOW-VALUE.
000410     02  SE-EVENTMSG    PIC  X(128).
000420     02  FILLER         PIC  X VALUE LOW-VALUE.
000430     02  SE-EVENTPARAM  PIC  X(1024).
000440     02  FILLER         PIC  X VALUE LOW-VALUE.
000450*
000460* CxgM͗p
000470 01  INPUT-DATA.
000480     02  IN-EVENTID     PIC  X(04).
000490     02  IN-EVENTMSG    PIC  X(128).
000500     02  IN-EVENTPARAM  PIC  X(1024).
000510     02  IN-YESNO       PIC  X(01).
000520*
000530* ֐̖߂l
000540 77  RESULTCODE         USAGE IS COMP-2.
000550*
000560* ̑
000570 77  ERR-MSG            PIC  X(80).
000580 77  WK-BUFSIZE         PIC  9(04).
000590 01  WK-BUFFER.
000600     02  WK-CHAR        PIC  X(01)  OCCURS  1024.
000610 01  SERVERNAME         PIC  X(15).
000620 01  EVENTPARAM         PIC  X(1024).
000630 01  WK-LEN1            PIC  9(04).
000640 01  WK-LEN2            PIC  9(04).
000650 77  WK-PARAMON         PIC  9(01).
000660*
000670 PROCEDURE DIVISION.
000680 START-PROC.
000690* 
000700     MOVE  NULL-STRING         TO  SERVERNAME.
000710     MOVE  NULL-STRING         TO  SE-EVENTPARAM.
000720     MOVE  0                   TO  WK-PARAMON.
000730*
000740* CxgM
000750 SENDEVENT.
000760     DISPLAY  "p[^tCxgM".
000770*
000780*    T[o͂
000790     DISPLAY  "Cxg𑗐MT[o(15ȓ)H".
000800     DISPLAY  "iڑT[o̓^[L[̂ݓ͂j".
000810     ACCEPT  SE-SERVERNAME.
000820     MOVE  15  TO  WK-BUFSIZE.
000830     CALL  "DELSPC4"  USING  SE-SERVERNAME  WK-BUFSIZE.
000840*
000850* WuL[w肷
000860 SETJOBQUE.
000870     DISPLAY  "WuL[w肵܂".
000880     DISPLAY  "WuL[Qƃ_CAOQƂ܂(Y/N)H".
000890     ACCEPT  IN-YESNO.
000900     IF  IN-YESNO = "Y"  THEN  GO TO  GETJOBQUE.
000910     IF  IN-YESNO = "N"  THEN  GO TO  INPUTJOBQUE.
000920     DISPLAY  "    [Y] ܂ [N] ͂Ă".
000930     GO TO  SETJOBQUE.
000940*
000950* WuL[Qƃ_CAO擾
000960 GETJOBQUE.
000970     DISPLAY  "WuL[Q".
000980     CALL  "_JmssDispQueueDialog"  USING  BY REFERENCE SERVERNAME,
000990                                         BY VALUE     NULL-POINTER,
001000                                         BY REFERENCE SE-QUEUENAME,
001010                                         BY REFERENCE QD-MSGTITLE,
001020                                  WITH RETURNING TO RESULTCODE.
001030*
001040     MOVE  15  TO  WK-BUFSIZE.
001050     CALL  "DELSPC4"  USING  SE-QUEUENAME  WK-BUFSIZE.
001060*
001070*    ֐̖߂l̔
001080     IF  RESULTCODE IS NOT = 0
001090         THEN  DISPLAY  "    WuL[̎QƂɎs܂"
001100               DISPLAY  "    WuL[}Vɂ܂"
001110               MOVE  NULL-STRING  TO  SE-QUEUENAME
001120         ELSE  DISPLAY  "    WuL[̎QƂɐ܂"
001130               DISPLAY  "    WuL[" SE-QUEUENAME "ł"
001140     END-IF.
001150*
001160     GO TO  INPUTEVENTID.
001170*
001180* WuL[[U͂
001190 INPUTJOBQUE.
001200     DISPLAY  "Cxg𑗐ML[(15ȓ)H".
001210     DISPLAY  "iS}V̓^[L[̂ݓ͂j".
001220     ACCEPT  SE-QUEUENAME.
001230     MOVE  15  TO  WK-BUFSIZE.
001240     CALL  "DELSPC4"  USING  SE-QUEUENAME  WK-BUFSIZE.
001250*
001260* MCxg̃CxgID͂
001270 INPUTEVENTID.
001280     DISPLAY  "MCxg̃CxgID(4ȓ)H".
001290     ACCEPT  SE-EVENTID.
001300     MOVE  4  TO  WK-BUFSIZE.
001310     CALL  "DELSPC4"  USING  SE-EVENTID  WK-BUFSIZE.
001320*
001330*    ͂ꂽCxgID̐擪ɋ󔒂G[Ƃ
001340     MOVE  SE-EVENTID  TO  WK-BUFFER.
001350     IF  WK-CHAR(1) = " "
001360         THEN  DISPLAY "󔒕Ŏn܂CxgID͎wł܂"
001370               GO TO  INPUTEVENTID
001380     END-IF.
001390*
001400* M郁bZ[W͂
001410 INPUTMSG.
001420     DISPLAY  "M郁bZ[W(128ȓ)H".
001430     ACCEPT  SE-EVENTMSG.
001440     MOVE  128  TO  WK-BUFSIZE.
001450     CALL  "DELSPC4"  USING  SE-EVENTMSG  WK-BUFSIZE.
001460*
001470* Mp[^͂
001480 INPUTPARAM.
001490     DISPLAY  "Mp[^(1024ȓ)H".
001500     ACCEPT  EVENTPARAM.
001510*    ͂ꂽp[^̐擪ɋ󔒂疢͂Ƃ݂Ȃ
001520     MOVE  EVENTPARAM  TO  WK-BUFFER.
001530     IF  WK-CHAR(1) = " "
001540         THEN
001550             IF  WK-PARAMON  =  0
001560                 THEN  GO TO  SETPARAM
001570             END-IF
001580     END-IF.
001590     COMPUTE  WK-PARAMON  =  WK-PARAMON  +  1.
001600*
001610     IF  WK-PARAMON  =  1
001620     THEN
001630*        p[^w
001640         MOVE  EVENTPARAM  TO  SE-EVENTPARAM
001650     ELSE
001660*        p[^wڈȍ~
001670*        p[^̘A
001680         MOVE  1024  TO  WK-BUFSIZE
001690         CALL  "LEN"  USING  SE-EVENTPARAM  WK-BUFSIZE  WK-LEN1
001700         MOVE  1024  TO  WK-BUFSIZE
001710         CALL  "LEN"  USING  EVENTPARAM     WK-BUFSIZE  WK-LEN2
001720         CALL  "STRCAT"  USING  SE-EVENTPARAM  EVENTPARAM  WK-LEN1  WK-LEN2
001730     END-IF.
001740*
001750 INPUTPARAM2.
001760     DISPLAY  "p[^͂p܂(Y/N)H".
001770     ACCEPT  IN-YESNO.
001780     IF  IN-YESNO = "Y"  THEN  GO TO  INPUTPARAM.
001790     IF  IN-YESNO = "N"  THEN  GO TO  SETPARAM.
001800     DISPLAY  "    [Y] ܂ [N] ͂Ă".
001810     GO TO  INPUTPARAM2.
001820*
001830*    ̋󔒂"00"ɐݒ
001840 SETPARAM.
001850     MOVE  1024  TO  WK-BUFSIZE.
001860     CALL  "DELSPC4"  USING  SE-EVENTPARAM  WK-BUFSIZE.
001870*
001880*    CxgM֐̌Ăяo
001890 CALLSENDEVNTEX.
001900     CALL "_JmssSendEventEx" USING BY REFERENCE SE-SERVERNAME,
001910                                BY REFERENCE SE-QUEUENAME,
001920                                BY REFERENCE SE-EVENTID,
001930                                BY REFERENCE SE-EVENTMSG,
001940                                BY REFERENCE SE-EVENTPARAM,
001950                                WITH RETURNING TO RESULTCODE.
001960*
001970*    ֐̖߂l̔
001980     IF  RESULTCODE IS NOT = 0
001990         THEN  CALL  "MKERRMSG"  USING  RESULTCODE  ERR-MSG
002000               DISPLAY  "    " ERR-MSG
002010               DISPLAY  "    I܂"
002020               GO TO  END-PROC
002030         ELSE  DISPLAY  "    Cxg̑Mɐ܂"
002040     END-IF.
002050*
002060 END-PROC.
002070     MOVE  RESULTCODE  TO  COMPLETION-CODE.
002080     STOP  RUN.
002090