000010**************************************************************************
000020* JAPI WuAPI(JmssControlJob֐) 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.    JCONTROL.
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* Wusp̃p[^
000290 01  JC-PARAM.
000295     02  SERVERNAME       PIC X(15).
000300     02  JC-JOBNO         USAGE IS COMP-2.
000310     02  JC-CTRLMODE      USAGE IS COMP-2.
000320*
000330* Wus͗p
000340 01  INPUT-DATA.
000350     02  IN-CTRLMODE      PIC  9(01).
000360     02  IN-JOBNO         PIC  9(05).
000370*
000380* ֐̖߂l
000390 77  RESULTCODE           USAGE IS COMP-2.
000400*
000410* ̑
000420 77  ERR-MSG              PIC  X(80).
000430*
000440 PROCEDURE DIVISION.
000450 START-PROC.
000455* 
000456     MOVE  NULL-STRING         TO  SERVERNAME.
000460*
000470* Wu̎s
000480 CONTROLJOB.
000490     DISPLAY  "Wu̎ss܂".
000500*
000510*    s𐧌䂷WũWuԍ͂
000520     DISPLAY  "s𐧌䂷WũWuԍ(5܂)H"
000530     DISPLAY  "i5菭ȂƂ'0'Ăj"
000540     ACCEPT  IN-JOBNO.
000550     MOVE  IN-JOBNO  TO  JC-JOBNO.
000560*
000570*    Wu̎s͂
000580 INPUTCTRLMODE.
000590     DISPLAY  "Wu̎s̎ނ́H"
000600     DISPLAY  "(0.IA1.ꎞ~A2.ĊJA4.ۗA5.ۗA6.o^폜A7.~A8.pA9.I)".
000610     ACCEPT  IN-CTRLMODE.
000620*
000630*    ͒l̔
000640     IF  IN-CTRLMODE = 9
000650         THEN  DISPLAY  "    IIꂽ̂ŏI܂"
000660               GO TO  END-PROC
000670     END-IF.
000671*
000672     IF  IN-CTRLMODE = 3
000673         THEN  DISPLAY  "    ͒lsł"
000674               GO TO  END-PROC
000675     END-IF.
000680*
000690     IF  IN-CTRLMODE > 8
000700         THEN  DISPLAY  "    ͒lsł"
000710               GO TO  INPUTCTRLMODE
000720     END-IF.
000730*
000740     IF  IN-CTRLMODE < 0
000750         THEN  DISPLAY  "    ͒lsł"
000760               GO TO  INPUTCTRLMODE
000770     END-IF.
000780*
000790     MOVE  IN-CTRLMODE  TO  JC-CTRLMODE.
000800*
000810*    Wus֐̌Ăяo
000820     CALL  "_JmssControlJob"  USING  BY REFERENCE SERVERNAME,
000830                                    BY VALUE     JC-CTRLMODE,
000840                                    BY VALUE     JC-JOBNO,
000850                             WITH RETURNING TO RESULTCODE.
000860*
000870*    ֐̖߂l̔
000880     IF  RESULTCODE IS NOT = 0
000890         THEN  CALL  "MKERRMSG" USING  RESULTCODE  ERR-MSG
000900               DISPLAY  "    " ERR-MSG
000910               DISPLAY  "    I܂"
000920               GO TO  END-PROC
000930         ELSE  DISPLAY  "    Wu̎sɐ܂"
000940               DISPLAY  "    Wuԍ" IN-JOBNO "ł"
000950     END-IF.
000960*
000970 END-PROC.
000980     MOVE  RESULTCODE  TO  COMPLETION-CODE.
000990     STOP  RUN.
