000010**************************************************************************
000020* Tvp G[bZ[W\֐(MKERRMSG)
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       1999.6.25 Created by NEC Soft, Ltd.
000070*
000080*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000090*    쐬Ă܂
000100**************************************************************************
000110 IDENTIFICATION DIVISION.
000120 PROGRAM-ID.    MKERRMSG.
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 COPY JAPI.
000270*
000280 LINKAGE SECTION.
000290 77  ERR-NO          USAGE IS COMP-2.
000300 77  ERR-MSG         PIC  X(80).
000310*
000320 PROCEDURE DIVISION  USING  ERR-NO  ERR-MSG.
000330 START-PROC.
000340*
000350 DISPERR-PROC.
000360     EVALUATE  ERR-NO
000370         WHEN JMSS_PARAM_ERROR
000380             MOVE "w肳ꂽp[^sł"         TO  ERR-MSG
000390         WHEN JMSS_NOT_ENOUGH_MEMORY
000400             MOVE "sł"                         TO  ERR-MSG
000410         WHEN JMSS_NO_CONNECT
000420             MOVE "w肳ꂽT[oɐڑł܂"       TO  ERR-MSG
000430         WHEN JMSS_NOGET_SERVERNAME
000440             MOVE "JMSST[o擾ł܂"           TO  ERR-MSG
000450         WHEN JMSS_SECURITY_NO_USE
000460             MOVE "JMSSp܂"                 TO  ERR-MSG
000470         WHEN JMSS_SECURITY_NO_THROW
000480             MOVE "Wu܂"               TO  ERR-MSG
000490         WHEN JMSS_SECURITY_NO_STOP
000500             MOVE "[UI܂"         TO  ERR-MSG
000510         WHEN JMSS_QUEUE_NOTFOUND
000520             MOVE "L[܂"                 TO  ERR-MSG
000530         WHEN JMSS_QUEUE_FULL
000540             MOVE "L[ɂȏWu𓊓ł܂" TO  ERR-MSG
000550         WHEN JMSS_QUEUE_CLOSED
000560             MOVE "L[͕Ă܂"                   TO  ERR-MSG
000570         WHEN JMSS_NO_JOB
000580             MOVE "wWuԍ̃Wu͂܂"     TO  ERR-MSG
000590         WHEN JMSS_NOWATCH
000600             MOVE "݂̃Wu͊ĎĂ܂"         TO  ERR-MSG
000610         WHEN JMSS_TIMEOUT
000620             MOVE "^CAEg܂"                   TO  ERR-MSG
000630         WHEN JMSS_NO_ENOUGH_BUF
000640             MOVE "w肳ꂽ̈̑傫܂"     TO  ERR-MSG
000650         WHEN JMSS_CANCEL
000660             MOVE "LZ{^܂"         TO  ERR-MSG
000670         WHEN JMSS_NO_TERNIMATE
000680             MOVE "w肳ꂽWu͋Ił܂"   TO  ERR-MSG
000690         WHEN JMSS_WSEML_JOB
000700             MOVE "wWuWS-EMLŋNWuł" TO  ERR-MSG
000710         WHEN JMSS_NO_SEND_EVENT
000720             MOVE "Cxg̑MɎs܂"           TO  ERR-MSG
000730         WHEN JMSS_SECURITY_ERROR
000740             MOVE "ZLeB̎擾Ɏs܂"   TO  ERR-MSG
000750         WHEN JMSS_NO_PAUSE
000760             MOVE "w肳ꂽWu͈ꎞ~ł܂"   TO  ERR-MSG
000770         WHEN JMSS_NO_RESTART
000780             MOVE "w肳ꂽWu͍ĊJł܂"       TO  ERR-MSG
000790         WHEN JMSS_NOT_JOBNET
000800             MOVE "wWu̓Wulbgł͂܂" TO  ERR-MSG
000810         WHEN JMSS_ERROR_NOGET_ENVIRONMENT
000820             MOVE "WS-EMLpϐ̎擾Ɏs܂"   TO  ERR-MSG
000830         WHEN JMSS_NO_CHILDJOB
000840             MOVE "hWu͂܂"                 TO  ERR-MSG
000850         WHEN JMSS_PARENTJOB_TERMINATE
000860             MOVE "eWuIł"               TO  ERR-MSG
000870         WHEN JMSS_POWEROFF_TERMINATE
000880             MOVE "dؒfł"                     TO  ERR-MSG
000881         WHEN JMSS_EXCLUSIVE_ERROR
000882             MOVE "r҂G[ł"                 TO  ERR-MSG
000883         WHEN JMSS_NOGET_PRODUCT_ID
000884             MOVE "CXg[ʂ擾ł܂"       TO  ERR-MSG
000885         WHEN JMSS_NOT_INSTALLED
000886             MOVE "ɃCXg[Ă܂"       TO  ERR-MSG
000887         WHEN JMSS_NO_HOLD
000888             MOVE "ۗł܂"                         TO  ERR-MSG
000889         WHEN JMSS_NO_RELEASE
000890             MOVE "ۗł܂"                     TO  ERR-MSG
000891         WHEN JMSS_NO_DELETE
000892             MOVE "o^폜ł܂"                     TO  ERR-MSG
000893         WHEN JMSS_OVERLAP_JOBNO
000894             MOVE "WuԍdĂ܂"             TO  ERR-MSG
000895         WHEN JMSS_NO_STOP
000896             MOVE "~ł܂"                         TO  ERR-MSG
000897         WHEN JMSS_NO_CONTINUE
000898             MOVE "pł܂"                         TO  ERR-MSG
000899         WHEN   0
000900             MOVE "͐ɏIĂ܂"             TO  ERR-MSG
000910         WHEN OTHER
000920             MOVE "JMSS̃G[R[hȊOԂ܂"   TO  ERR-MSG
000930     END-EVALUATE.
000940*
000950 END-PROC.
000960     EXIT PROGRAM.
