000010**************************************************************************
000020* JAPI A[gʕAPI(JmssReportEvent֐) TvvO
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       1997.02.13 Created by NEC Soft, Ltd.
000070*
000080*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000090*    쐬Ă܂
000100**************************************************************************
000110 IDENTIFICATION DIVISION.
000120 PROGRAM-ID.    JREPEVNT.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000150 DATE-WRITTEN.  97-02-12.
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*
000320* CxgMp̃p[^
000330 01  RE-PARAM.
000340     02  RE-MODE        USAGE COMP-2.
000360     02  RE-TYPE        USAGE COMP-2.
000400     02  RE-EVENTMSG    PIC  X(128).
000410     02  FILLER         PIC  X VALUE LOW-VALUE.
000420*
000430* CxgM͗p
000440 01  INPUT-DATA.
000450     02  IN-MODE        PIC  X(01).
000460     02  IN-TYPE        PIC  X(01).
000470     02  IN-EVENTMSG    PIC  X(128).
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.
000570*
000580 PROCEDURE DIVISION.
000590 START-PROC.
000600*
000610* CxgM
000620 SENDEVENT.
000630     DISPLAY  "A[gʕvO".
000640*
000650*    MODE-CHK
000650*    [h͂
000660     DISPLAY  "A[gʕH".
000670     DISPLAY  "M:MANAGER".
000670     DISPLAY  "P:PAGER".
000680     ACCEPT   IN-MODE.
000690     IF IN-MODE = "M"
              THEN COMPUTE RE-MODE = JMSS_JALT_MODE_MANAGER
              ELSE IF IN-MODE = "P"
              THEN COMPUTE RE-MODE = JMSS_JALT_MODE_PAGER
              ELSE DISPLAY  "A[gʕCxgÔ݂ɂ܂B"
                   COMPUTE RE-MODE = 0
           END-IF.
000650*    TYPE-CHK
000650*    ^Cv͂
000660     DISPLAY  "A[g^CvH".
000670     DISPLAY  "I:".
000670     DISPLAY  "W:x".
000670     DISPLAY  "E:G[".
000680     ACCEPT   IN-TYPE.
000690     IF IN-TYPE = "I"
              THEN COMPUTE RE-TYPE = 0
              ELSE IF IN-TYPE = "W"
              THEN COMPUTE RE-TYPE = 1
              ELSE IF IN-TYPE = "E"
              THEN COMPUTE RE-TYPE = 2
              ELSE DISPLAY  "A[g^Cv[]ɂ܂B"
                   COMPUTE RE-TYPE = 0
           END-IF.
001270* M郁bZ[W͂
001280 INPUTMSG.
001290     DISPLAY  "M郁bZ[W(128ȓ)H".
001300     ACCEPT  RE-EVENTMSG.
001310     MOVE  128  TO  WK-BUFSIZE.
001320     CALL  "DELSPACE"  USING  RE-EVENTMSG  WK-BUFSIZE.
001330*
001340*    CxgM֐̌Ăяo
001350     CALL "_JmssReportEvent" USING BY VALUE RE-MODE,
001360                                BY VALUE RE-TYPE,
001380                                BY REFERENCE RE-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  "      A[gʕɐ܂"
001480     END-IF.
001490*
001500 END-PROC.
001510     MOVE  RESULTCODE  TO  COMPLETION-CODE.
001520     STOP  RUN.
