000010**************************************************************************
000020* JAPI WuQAPI(JmssGetJobStatusEx֐) 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.    JSTATUSEX.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000150 DATE-WRITTEN.  08-11-30.
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* WuԎ擾p̃p[^
000300 01  JS-PARAM.
000310     02  JS-JOBNO         USAGE IS COMP-2.
000315     02  JS-SERVERNAME    PIC X(15).
000320*
000330* ͗p̃p[^
000340 01  INPUT-DATA.
000350     02  IN-JOBNO         PIC  9(05).
000360*
000370* ֐̖߂l
000380 77  RESULTCODE           USAGE IS COMP-2.
000390*
000400* ̑
000410 77  ERR-MSG              PIC  X(80).
000420 77  WK-JOBTYPE           PIC  9(02).
000430 77  WK-JOBFLAG           PIC  9(06).
000440 77  WK-DATETIME          PIC  X(20).
000445 77  WK-MAXELAPSETIME     PIC  X(10).
000450*
000460 PROCEDURE DIVISION.
000470 START-PROC.
000572* 
000575     MOVE  NULL-STRING         TO  JS-SERVERNAME.
000480*
000490* Wu擾
000500 GETJOBSTS.
000510     DISPLAY "Wu擾".
000520*
000530*    擾WũWuԍ͂
000540     DISPLAY  "Wuԍ(5܂)H"
000550     DISPLAY  "i5菭ȂƂ'0'Ăj"
000560     ACCEPT  IN-JOBNO.
000570     MOVE  IN-JOBNO  TO  JS-JOBNO.
000580*
000590*    WuԎ擾֐Ăяo
000591     MOVE  1272 TO JX-INFOSIZE.
000600     CALL  "_JmssGetJobStatusEx"  USING  BY REFERENCE JS-SERVERNAME,
000610                                       BY VALUE JS-JOBNO,
000620                                       BY REFERENCE JMSSJOBINFOEX,
000630                                WITH RETURNING TO RESULTCODE.
000640*
000650*    ֐̖߂l̔
000660     IF  RESULTCODE IS NOT = 0
000670         THEN  CALL  "MKERRMSG" USING  RESULTCODE  ERR-MSG
000680               DISPLAY  ERR-MSG
000690               DISPLAY  "I܂"
000700               GO TO  END-PROC
000710         ELSE  DISPLAY  "WuԂ̎擾ɐ܂"
000720               DISPLAY  "ȉɏ̈ꕔ\܂"
000730     END-IF.
000740*
000750*    擾WuԂ̕\
000760     DISPLAY  " ".
000770     DISPLAY  "Wuԍ         = " JX-JOBNO.
000780     DISPLAY  "Wu^Cv       = " JX-JOBTYPE.
000790     DIVIDE  4096  INTO  JX-JOBTYPE
000800                   GIVING  WK-JOBFLAG
000810                   REMAINDER  WK-JOBTYPE.
000820     EVALUATE JX-PRIORITY
000830         WHEN JMSS_JOBTYPE_BAT     DISPLAY "Wu̎       = BAT"
000840         WHEN JMSS_JOBTYPE_EXE32   DISPLAY "Wu̎       = EXE(NT)"
000850         WHEN JMSS_JOBTYPE_EXE16   DISPLAY "Wu̎       = EXE(Win3.1)"
000860         WHEN JMSS_JOBTYPE_EXEDOS  DISPLAY "Wu̎       = EXE(DOS)"
000870         WHEN JMSS_JOBTYPE_JNT     DISPLAY "Wu̎       = JOBNET"
000880         WHEN JMSS_JOBTYPE_COM     DISPLAY "Wu̎       = COM"
000890         WHEN JMSS_JOBTYPE_CMD     DISPLAY "Wu̎       = CMD"
000900         WHEN JMSS_JOBTYPE_PIF     DISPLAY "Wu̎       = PIF"
000910         WHEN JMSS_JOBTYPE_OS2     DISPLAY "Wu̎       = OS2"
000920         WHEN JMSS_JOBTYPE_POSIX   DISPLAY "Wu̎       = POSIX"
000930         WHEN JMSS_JOBTYPE_DOC     DISPLAY "Wu̎       = DOC"
000940         WHEN JMSS_JOBTYPE_UNKNOWN DISPLAY "Wu̎       = s"
000950     END-EVALUATE.
000960     EVALUATE JX-PRIORITY
000970         WHEN JMSS_PRIORITY_REAL   DISPLAY "WuD揇     = REAL"
000980         WHEN JMSS_PRIORITY_HIGH   DISPLAY "WuD揇     = HIGH"
000990         WHEN JMSS_PRIORITY_NORMAL DISPLAY "WuD揇     = NORMAL"
001000         WHEN JMSS_PRIORITY_IDLE   DISPLAY "WuD揇     = IDOL"
001010     END-EVALUATE.
001020     EVALUATE JX-JOBSTATUS
001030         WHEN JMSS_JOBSTATUS_RUN        DISPLAY "Wu         = s"
001040         WHEN JMSS_JOBSTATUS_FINISH     DISPLAY "Wu         = I"
001050         WHEN JMSS_JOBSTATUS_TERM       DISPLAY "Wu         = I"
001060         WHEN JMSS_JOBSTATUS_ERROR      DISPLAY "Wu         = NG["
001070         WHEN JMSS_JOBSTATUS_EVENT_REC  DISPLAY "Wu         = Cxg҂"
001080         WHEN JMSS_JOBSTATUS_PAUSE      DISPLAY "Wu         = ꎞ~"
001090         WHEN JMSS_JOBSTATUS_EVENT_SEND DISPLAY "Wu         = Cxg"
001100         WHEN JMSS_JOBSTATUS_WAIT       DISPLAY "Wu         = s҂"
001110         WHEN JMSS_JOBSTATUS_PENDING    DISPLAY "Wu         = ۗ"
001120         WHEN JMSS_JOBSTATUS_EXECUTE    DISPLAY "Wu         = s"
001121         WHEN JMSS_JOBSTATUS_EXCLUSIVE  DISPLAY "Wu         = r҂"
001122         WHEN JMSS_JOBSTATUS_RETRY      DISPLAY "Wu         = NgC"
001123         WHEN JMSS_JOBSTATUS_UNKNOWN    DISPLAY "Wu         = s"
001130     END-EVALUATE.
001140     DISPLAY  "WuL[     = " JX-QUEUENAME.
001150     CALL  "CONVDATE"  USING  JX-BEGINTIME  WK-DATETIME.
001160     DISPLAY  "Jnt/      = " WK-DATETIME.
001170     CALL  "CONVDATE"  USING  JX-ENDTIME  WK-DATETIME.
001180     DISPLAY  "It/      = " WK-DATETIME.
001190     DISPLAY  "Ɩ             = " JX-JOBNAME.
001200     DISPLAY  "t@C         = " JX-JOBPATH.
001210     DISPLAY  "p[^         = " JX-JOBPARAM.
001220     DISPLAY  "sfBNg = " JX-EXECDIR.
001221     DISPLAY  "Wo̓t@C = " JX-OUTFILENAME.
001221     DISPLAY  "soߎԃ^CAEg = " JX-MAXELAPSTIME.
001222     EVALUATE JX-EXECTYPE
001223       WHEN JMSS_EXECTYPE_NO        DISPLAY "WuN = wȂ"
001224       WHEN JMSS_EXECTYPE_SERVER    DISPLAY "WuN = T[rX"
001225       WHEN JMSS_EXECTYPE_USER      DISPLAY "WuN = OI"
001226     END-EVALUATE.
001230*
001240 END-PROC.
001250     MOVE  RESULTCODE  TO  COMPLETION-CODE.
001260     STOP  RUN.
