000010**************************************************************************
000020* JAPI hWuԍꗗ擾API(JmssGetChildJobList֐)
000030*                     TvvO
000040*
000050* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000060*
000070*       2000.01.17 Created by NEC Soft, Ltd.
000080*
000090*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000100*    쐬Ă܂
000110**************************************************************************
000120 IDENTIFICATION DIVISION.
000130 PROGRAM-ID.    JLIST.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000160 DATE-WRITTEN.  99-06-25.
000170 DATE-COMPILED.
000180*
000190 ENVIRONMENT DIVISION.
000200 CONFIGURATION SECTION.
000210 SOURCE-COMPUTER.  EXPRESS5800.
000220 OBJECT-COMPUTER.  EXPRESS5800.
000230*
000240 DATA DIVISION.
000250 WORKING-STORAGE SECTION.
000260*
000260* JAPIpRs[
000270 COPY JAPI.
000280*
000290* hWuԍꗗ擾p̃p[^
000300 01  CL-PARAM.
000310     02  CL-JOBNO           USAGE COMP-2.
000320     02  CL-JOBCOUNT        USAGE COMP-2.
000330     02  CL-QUERYJOBSTATUS  USAGE COMP-2.
000340 01  CL-JOBINFOLIST.
000350     02   CL-JOBNUMBER      USAGE COMP-2  OCCURS  1000.
000360*
000370* Wu͗p
000380 01  IN-PARAM.
000385     02  SERVERNAME         PIC X(15).
000390     02  IN-JOBNO           PIC  9(05).
000400*
000410* Wuꗗ\p
000420 01  DP-INFO.
000430     02  DP-JOBNO           PIC  9(06).
000440     02  DP-JOBSTATUS       PIC  X(12).
000450     02  DP-JOBPATH         PIC  X(35).
000460*
000470* ֐̖߂l
000480 77  RESULTCODE             USAGE IS COMP-2.
000490*
000500* ̑
000510 77  ERR-MSG                PIC  X(80).
000520 77  WK-JOBCOUNT            PIC  9(05).
000530*
000540 PROCEDURE DIVISION.
000550 START-PROC.
000560     MOVE  1  TO  WK-JOBCOUNT.
000565* 
000566     MOVE  NULL-STRING         TO  SERVERNAME.
000570*
000580* hWuԍꗗ擾
000590 GETCHILD.
000600     DISPLAY  "hWuԍꗗ擾".
000610*
000620*    Wuԍ͂
000630     DISPLAY  "hWuꗗ擾WũWuԍ(5ȓ)H".
000640     DISPLAY  "i5菭ȂƂ'0'Ăj"
000650     ACCEPT  IN-JOBNO.
000660     MOVE  IN-JOBNO  TO  CL-JOBNO.
000670*
000680*    z̍ő吔1000ɂ
000690     MOVE  1000  TO  CL-JOBCOUNT.
000700*
000710*    擾hWuԂׂ͂Ă̏ԂƂ
000720     MOVE  JMSS_CONTROL_ALL  TO  CL-QUERYJOBSTATUS.
000730*
000740     DISPLAY  "JOBNO = " CL-JOBNO.
000750*
000760*    hWuԍꗗ擾֐̌Ăяo
000770     CALL  "_JmssGetChildJobList"  USING  BY REFERENCE SERVERNAME,
000780                                         BY VALUE     CL-JOBNO,
000790                                         BY VALUE     CL-QUERYJOBSTATUS,
000800                                         BY REFERENCE CL-JOBCOUNT,
000810                                         BY REFERENCE CL-JOBINFOLIST,
000820                                  WITH RETURNING TO RESULTCODE.
000830*
000840*    ֐̖߂l̔
000850     IF  RESULTCODE IS NOT = 0
000860         THEN  CALL  "MKERRMSG" USING  RESULTCODE  ERR-MSG
000870               DISPLAY  ERR-MSG
000880               DISPLAY  "I܂"
000890               GO TO  END-PROC
000900         ELSE  DISPLAY  "hWuԍꗗ̎擾ɐ܂"
000910               DISPLAY  "ȉɏ̈ꕔ\܂"
000920     END-IF.
000930*
000940*    ȍo
000950     DISPLAY  " ".
000960     DISPLAY  "eWu̔ԍF" CL-JOBNO "  hWuF" CL-JOBCOUNT.
000970     DISPLAY  " ԍ   Wu      L[         t@C"
000980*
000990*    擾hWuԍꗗɃWuꗗ\
001000     PERFORM  TEST  BEFORE  UNTIL  WK-JOBCOUNT > CL-JOBCOUNT
001040*
001050*        Wu擾
001060         CALL  "_JmssGetJobStatus"  USING  BY REFERENCE SERVERNAME,
001070                                          BY VALUE     CL-JOBNUMBER(WK-JOBCOUNT),
001080                                          BY REFERENCE JMSSJOBINFO,
001090                                   WITH RETURNING TO RESULTCODE
001100*
001110*        ֐̖߂l̔
001120         IF  RESULTCODE IS NOT = 0
001130             THEN  CALL  "MKERRMSG" USING  RESULTCODE  ERR-MSG
001140                   DISPLAY  JI-JOBNO "  ***** " ERR-MSG " ***** "
001150                   CONTINUE
001160         END-IF
001170*
001180*        \eҏW
001190         EVALUATE  JI-JOBSTATUS
001200             WHEN  JMSS_JOBSTATUS_RUN
001210                 MOVE "s      "  TO  DP-JOBSTATUS
001220             WHEN  JMSS_JOBSTATUS_FINISH
001230                 MOVE "I        "  TO  DP-JOBSTATUS
001240             WHEN  JMSS_JOBSTATUS_TERM
001250                 MOVE "I    "  TO  DP-JOBSTATUS
001260             WHEN  JMSS_JOBSTATUS_ERROR
001270                 MOVE "NG[  "  TO  DP-JOBSTATUS
001280             WHEN  JMSS_JOBSTATUS_EVENT_REC
001290                 MOVE "Cxg҂"  TO  DP-JOBSTATUS
001300             WHEN  JMSS_JOBSTATUS_PAUSE
001310                 MOVE "ꎞ~    "  TO  DP-JOBSTATUS
001320             WHEN  JMSS_JOBSTATUS_EVENT_SEND
001330                 MOVE "CxgM"  TO  DP-JOBSTATUS
001340             WHEN  JMSS_JOBSTATUS_WAIT
001350                 MOVE "s҂    "  TO  DP-JOBSTATUS
001360             WHEN  JMSS_JOBSTATUS_PENDING
001370                 MOVE "ۗ        "  TO  DP-JOBSTATUS
001380             WHEN  JMSS_JOBSTATUS_EXECUTE
001390                 MOVE "N      "  TO  DP-JOBSTATUS
001380             WHEN  JMSS_JOBSTATUS_UNKNOWN
001410                 MOVE "s        "  TO  DP-JOBSTATUS
001400             WHEN  OTHER
001410                 MOVE "̑̏"  TO  DP-JOBSTATUS
001420         END-EVALUATE
001430*
001440*        擾\p̃GAɃRs[
001450         MOVE  JI-JOBNO    TO  DP-JOBNO
001460         MOVE  JI-JOBPATH  TO  DP-JOBPATH
001470*
001480*        Wu\
001490         DISPLAY  DP-JOBNO " " DP-JOBSTATUS " " JI-QUEUENAME " " DP-JOBPATH
001500*
001510         COMPUTE  WK-JOBCOUNT  =  WK-JOBCOUNT  +  1
001520     END-PERFORM.
001530*
001540 END-PROC.
001550     MOVE  RESULTCODE  TO  COMPLETION-CODE.
001560     STOP  RUN.
