000010**************************************************************************
000020* JAPI JgWuԍ擾API(JmssCurrentJobNo֐) TvvO
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       1999.06.25 Created by NEC Soft, Ltd.
000070*
000080**************************************************************************
000090 IDENTIFICATION DIVISION.
000100 PROGRAM-ID.    JGETNO.
000110 AUTHOR.        NEC Soft, Ltd.
000120 INSTALLATION.  NEC Soft, Ltd.
000130 DATE-WRITTEN.  99-06-25.
000140 DATE-COMPILED.
000150*
000160 ENVIRONMENT DIVISION.
000170 CONFIGURATION SECTION.
000180 SOURCE-COMPUTER.  EXPRESS5800.
000190 OBJECT-COMPUTER.  EXPRESS5800.
000200*
000210 DATA DIVISION.
000220 WORKING-STORAGE SECTION.
000230*
000260* JAPIpRs[
000240 COPY JAPI.
000250*
000260* JgWuԍ擾p̃p[^
000270 01  JN-PARAM.
000280     02  JN-SERVERNAME   PIC  X(15).
000290     02  FILLER          PIC  X  VALUE  LOW-VALUE.
000300     02  JN-JOBNO        USAGE COMP-2.
000310*
000320* ֐̖߂l
000330 77  RESULTCODE          USAGE COMP-2.
000340*
000350* ̑
000360 77  ERR-MSG             PIC  X(80).
000370 77  IN-YESNO            PIC  X.
000380*
000390 PROCEDURE DIVISION.
000400 START-PROC.
000572* 
000575     MOVE  NULL-STRING         TO  JN-SERVERNAME.
000410*
000420* JgWuԍ̎擾
000430 GETJOBNO.
000440     DISPLAY  "JgWuԍ擾".
000450*
000460*    gĎΏۂƂȂĂꍇAT[oƃWuԍ
000470*    擾B
000480*
000490*    JgWuԍ擾֐̌Ăяo
000500     CALL  "_JmssCurrentJobNo"  USING  BY REFERENCE JN-SERVERNAME,
000510                                      BY REFERENCE JN-JOBNO,
000520                               WITH RETURNING TO RESULTCODE.
000530*
000540*    ֐̖߂l̔
000550     IF  RESULTCODE IS NOT = 0
000560         THEN  CALL  "MKERRMSG" USING  RESULTCODE  ERR-MSG
000570               DISPLAY  ERR-MSG
000580               DISPLAY  "I܂"
000590               GO TO  END-PROC
000600         ELSE  DISPLAY  "JgWuԍ̎擾ɐ܂"
000610     END-IF.
000620*
000630*    擾̕\
000640     DISPLAY  "T[o   = " JN-SERVERNAME.
000650     DISPLAY  "Wuԍ = " JN-JOBNO.
000660*
000670*    \̊mF
000680     DISPLAY  "I܂(HIT RETURN KEY)".
000690     ACCEPT  IN-YESNO.
000700*
000710 END-PROC.
000720     MOVE  RESULTCODE  TO  COMPLETION-CODE.
000730     STOP  RUN.
