000010**************************************************************************
000020* JAPI CxgMAPI(JmssReceiveEvent֐) 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.    JRECEVNT.
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* CxgMp̃p[^
000290 01  RE-PARAM.
000300     02  RE-EVENTID      PIC  X(04).
000310     02  FILLER          PIC  X VALUE  LOW-VALUE.
000320     02  RE-SERVERNAME   PIC  X(15).
000330     02  FILLER          PIC  X VALUE  LOW-VALUE.
000340     02  RE-MACHINENAME  PIC  X(15).
000350     02  FILLER          PIC  X VALUE  LOW-VALUE.
000360     02  RE-USERNAME     PIC  X(40).
000370     02  FILLER          PIC  X VALUE  LOW-VALUE.
000380     02  RE-EVENTMSG     PIC  X(128).
000390     02  FILLER          PIC  X VALUE  LOW-VALUE.
000400     02  RE-RECEVENTID   PIC  X(04).
000410     02  FILLER          PIC  X VALUE  LOW-VALUE.
000420     02  RE-TIMEOUT      USAGE IS COMP-2.
000430*
000440* ֐̖߂l
000450 77  RESULTCODE          USAGE IS COMP-2.
000460*
000470* ̑
000480 77  ERR-MSG             PIC  X(80).
000490 77  WK-BUFSIZE          PIC  9(03).
000500 01  WK-BUFFER.
000510     02  WK-CHAR         PIC  X(01)  OCCURS  40.
000520*
000530 PROCEDURE DIVISION.
000540 START-PROC.
000545* 
000546     MOVE  NULL-STRING         TO  RE-SERVERNAME.
000550*
000560* CxgM
000570 RECEVENT.
000580     DISPLAY  "CxgM܂Bep[^͂Ă".
000590*
000600* CxgID͂
000610 GETEVENTID.
000620     DISPLAY  "MCxg̃CxgID(4ȓ)H".
000630     ACCEPT  RE-EVENTID.
000640     MOVE  4  TO  WK-BUFSIZE.
000650     CALL "DELSPACE"  USING  RE-EVENTID  WK-BUFSIZE.
000660*
000670*    ͂ꂽCxgID̐擪ɋ󔒂G[Ƃ
000680     MOVE  RE-EVENTID  TO  WK-BUFFER.
000690     IF  WK-CHAR(1) = " "
000700         THEN  DISPLAY "󔒕Ŏn܂CxgID͎wł܂"
000710               GO TO  GETEVENTID
000720     END-IF.
000730*
000740*    ^CAEgԂ͖Ƃ
000750     MOVE  -1  TO  RE-TIMEOUT.
000760*
000770*    M̃bZ[W\
000780     DISPLAY  "    CxgM(ID      F" RE-EVENTID ")".
000790     DISPLAY  "                  (TIMEOUTF)".
000800     DISPLAY  "    if[CTRL-C]Ăj".
000810*
000820*    M̏ƂāAJMSST[o͎擾Ȃ
000830*    }VA[UAbZ[WAMCxgID͎擾
000840*
000850*    CxgM֐̌Ăяo
000860     CALL  "_JmssReceiveEvent"  USING  BY REFERENCE RE-EVENTID,
000870                                      BY REFERENCE RE-SERVERNAME,
000880                                      BY REFERENCE RE-MACHINENAME,
000890                                      BY REFERENCE RE-USERNAME,
000900                                      BY REFERENCE RE-EVENTMSG,
000910                                      BY REFERENCE RE-RECEVENTID,
000920                                      BY VALUE     RE-TIMEOUT,
000930                               WITH RETURNING TO RESULTCODE.
000940*
000950*    ֐̖߂l̔
000960     IF  RESULTCODE IS NOT = 0
000970         THEN  CALL  "MKERRMSG"  USING  RESULTCODE  ERR-MSG
000980               DISPLAY  "    " ERR-MSG
000990               DISPLAY  "    I܂"
001000               GO TO  END-PROC
001010         ELSE  DISPLAY  "    Cxg̎Mɐ܂"
001020     END-IF.
001030*
001040*    CxgM̌ʂ\
001050     DISPLAY  "MCxgID = " RE-EVENTID.
001060     DISPLAY  "MCxgID = " RE-RECEVENTID.
001070     DISPLAY  "MbZ[W   = " RE-EVENTMSG.
001080     DISPLAY  "M̃T[o     = ȗ".
001090     DISPLAY  "M̃}V     = " RE-MACHINENAME.
001100     DISPLAY  "M̃[U     = " RE-USERNAME.
001110*
001120 END-PROC.
001130     MOVE  RESULTCODE  TO  COMPLETION-CODE.
001140     STOP  RUN.
