000010**************************************************************************
000020* JAPI CxgMAPI(JmssSendEvent֐) TvvO
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       1999.06.25 Created by NEC Soft, Ltd.
000070*
000080*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000090*    쐬Ă܂
000100**************************************************************************
000110 IDENTIFICATION DIVISION.
000120 PROGRAM-ID.    JSNDEVNT.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000150 DATE-WRITTEN.  99-06-25.
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[
000260 COPY JAPI.
000270*
000280* WuL[QƗp̃p[^
000290 01  QD-PARAM.
000300     02  QD-MSGTITLE    PIC  X(20)  VALUE  "G[bZ[W".
000310*
000320* CxgMp̃p[^
000330 01  SE-PARAM.
000340     02  SE-SERVERNAME  PIC  X(15).
000350     02  FILLER         PIC  X VALUE LOW-VALUE.
000360     02  SE-QUEUENAME   PIC  X(15).
000370     02  FILLER         PIC  X VALUE LOW-VALUE.
000380     02  SE-EVENTID     PIC  X(04).
000390     02  FILLER         PIC  X VALUE LOW-VALUE.
000400     02  SE-EVENTMSG    PIC  X(128).
000410     02  FILLER         PIC  X VALUE LOW-VALUE.
000420*
000430* CxgM͗p
000440 01  INPUT-DATA.
000450     02  IN-EVENTID     PIC  X(04).
000460     02  IN-EVENTMSG    PIC  X(128).
000470     02  IN-YESNO       PIC  X(01).
000480*
000490* ֐̖߂l
000500 77  RESULTCODE         USAGE IS COMP-2.
000510*
000520* ̑
000530 77  ERR-MSG            PIC  X(80).
000540 77  WK-BUFSIZE         PIC  9(03).
000550 01  WK-BUFFER.
000560     02  WK-CHAR        PIC  X(01)  OCCURS  40.
000565 01  SERVERNAME         PIC  X(15).
000570*
000580 PROCEDURE DIVISION.
000590 START-PROC.
000595* 
000596     MOVE  NULL-STRING         TO  SERVERNAME.
000600*
000610* CxgM
000620 SENDEVENT.
000630     DISPLAY  "CxgM".
000640*
000650*    T[o͂
000660     DISPLAY  "Cxg𑗐MT[o(15ȓ)H".
000670     DISPLAY  "iڑT[o̓^[L[̂ݓ͂j".
000680     ACCEPT  SE-SERVERNAME.
000690     MOVE  15  TO  WK-BUFSIZE.
000700     CALL  "DELSPACE"  USING  SE-SERVERNAME  WK-BUFSIZE.
000710*
000720* WuL[w肷
000730 SETJOBQUE.
000740     DISPLAY  "WuL[w肵܂".
000750     DISPLAY  "WuL[Qƃ_CAOQƂ܂(Y/N)H".
000760     ACCEPT  IN-YESNO.
000770     IF  IN-YESNO = "Y"  THEN  GO TO  GETJOBQUE.
000780     IF  IN-YESNO = "N"  THEN  GO TO  INPUTJOBQUE.
000790     DISPLAY  "    [Y] ܂ [N] ͂Ă".
000800     GO TO  SETJOBQUE.
000810*
000820* WuL[Qƃ_CAO擾
000830 GETJOBQUE.
000840     DISPLAY  "WuL[Q".
000850     CALL  "_JmssDispQueueDialog"  USING  BY REFERENCE SERVERNAME,
000860                                         BY VALUE     NULL-POINTER,
000870                                         BY REFERENCE SE-QUEUENAME,
000880                                         BY REFERENCE QD-MSGTITLE,
000890                                  WITH RETURNING TO RESULTCODE.
000900*
000910     MOVE  15  TO  WK-BUFSIZE.
000920     CALL  "DELSPACE"  USING  SE-QUEUENAME  WK-BUFSIZE.
000930*
000940*    ֐̖߂l̔
000950     IF  RESULTCODE IS NOT = 0
000960         THEN  DISPLAY  "    WuL[̎QƂɎs܂"
000970               DISPLAY  "    WuL[}Vɂ܂"
000980               MOVE  NULL-STRING  TO  SE-QUEUENAME
000990         ELSE  DISPLAY  "    WuL[̎QƂɐ܂"
001000               DISPLAY  "    WuL[" SE-QUEUENAME "ł"
001010     END-IF.
001020*
001030     GO TO  INPUTEVENTID.
001040*
001050* WuL[[U͂
001060 INPUTJOBQUE.
001070     DISPLAY  "Cxg𑗐ML[(15ȓ)H".
001080     DISPLAY  "iS}V̓^[L[̂ݓ͂j".
001090     ACCEPT  SE-QUEUENAME.
001100     MOVE  15  TO  WK-BUFSIZE.
001110     CALL  "DELSPACE"  USING  SE-QUEUENAME  WK-BUFSIZE.
001120*
001130* MCxg̃CxgID͂
001140 INPUTEVENTID.
001150     DISPLAY  "MCxg̃CxgID(4ȓ)H".
001160     ACCEPT  SE-EVENTID.
001170     MOVE  4  TO  WK-BUFSIZE.
001180     CALL  "DELSPACE"  USING  SE-EVENTID  WK-BUFSIZE.
001190*
001200*    ͂ꂽCxgID̐擪ɋ󔒂G[Ƃ
001210     MOVE  SE-EVENTID  TO  WK-BUFFER.
001220     IF  WK-CHAR(1) = " "
001230         THEN  DISPLAY "󔒕Ŏn܂CxgID͎wł܂"
001240               GO TO  INPUTEVENTID
001250     END-IF.
001260*
001270* M郁bZ[W͂
001280 INPUTMSG.
001290     DISPLAY  "M郁bZ[W(128ȓ)H".
001300     ACCEPT  SE-EVENTMSG.
001310     MOVE  128  TO  WK-BUFSIZE.
001320     CALL  "DELSPACE"  USING  SE-EVENTMSG  WK-BUFSIZE.
001330*
001340*    CxgM֐̌Ăяo
001350     CALL "_JmssSendEvent" USING BY REFERENCE SE-SERVERNAME,
001360                                BY REFERENCE SE-QUEUENAME,
001370                                BY REFERENCE SE-EVENTID,
001380                                BY REFERENCE SE-EVENTMSG,
001390                                WITH RETURNING TO RESULTCODE.
001400*
001410*    ֐̖߂l̔
001420     IF  RESULTCODE IS NOT = 0
001430         THEN  CALL  "MKERRMSG"  USING  RESULTCODE  ERR-MSG
001440               DISPLAY  "    " ERR-MSG
001450               DISPLAY  "    I܂"
001460               GO TO  END-PROC
001470         ELSE  DISPLAY  "    Cxg̑Mɐ܂"
001480     END-IF.
001490*
001500 END-PROC.
001510     MOVE  RESULTCODE  TO  COMPLETION-CODE.
001520     STOP  RUN.
