000010**************************************************************************
000020* JAPI WuL[擾API(JmssGetJobQueue֐) TvvO
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       2003.08.12 Created by NEC Soft, Ltd.
000070*
000080**************************************************************************
000090 IDENTIFICATION DIVISION.
000100 PROGRAM-ID.    JGETQUE.
000110 AUTHOR.        NEC Soft, Ltd.
000120 INSTALLATION.  NEC Soft, Ltd.
000130 DATE-WRITTEN.  03-07-26.
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*
000240* JAPIpRs[
000250 COPY JAPI.
000260*
000270* WuL[QƗp̃p[^
000280 01  QD-PARAM.
000290     02  QD-MSGTITLE    PIC  X(20)  VALUE  "G[bZ[W".
000300*
000310* WuL[擾p̃p[^
000320 01  JN-PARAM.
000330     02  JN-SERVERNAME   PIC  X(15).
000340     02  FILLER          PIC  X  VALUE  LOW-VALUE.
000350     02  JN-QUEUENAME    PIC  X(15).
000360     02  FILLER          PIC  X  VALUE  LOW-VALUE.
000370
000420*
000430* ֐̖߂l
000440 77  RESULTCODE          USAGE COMP-2.
000450*
000460* ̑
000470 77  ERR-MSG             PIC  X(80).
000480 77  IN-YESNO            PIC  X.
000481 77  WK-BUFSIZE          PIC  9(03).
000482 01  WK-BUFFER.
000483     02  WK-CHAR         PIC  X(01)  OCCURS  40.
000484 01  SERVERNAME          PIC  X(15).
000490*
000500 PROCEDURE DIVISION.
000510 START-PROC.
000520* 
000530     MOVE  NULL-STRING         TO  JN-SERVERNAME.
000540     MOVE  NULL-STRING         TO  JN-QUEUENAME.
000550*
000560* WuL[̎擾
000570 GETJOBNO.
000580     DISPLAY  "WuL[擾".
000590*
000600* WuL[w肷
000610 SETJOBQUE.
000620     DISPLAY  "WuL[w肵܂".
000630     DISPLAY  "WuL[Qƃ_CAOQƂ܂(Y/N)H".
000640     ACCEPT  IN-YESNO.
000650     IF  IN-YESNO = "Y"  THEN  GO TO  GETJOBQUE.
000660     IF  IN-YESNO = "N"  THEN  GO TO  INPUTJOBQUE.
000670     DISPLAY  "    [Y] ܂ [N] ͂Ă".
000680     GO TO  SETJOBQUE.
000690*
000700* WuL[Qƃ_CAO擾
000710 GETJOBQUE.
000720     DISPLAY  "WuL[Q".
000730     CALL  "_JmssDispQueueDialog"  USING  BY REFERENCE SERVERNAME,
000740                                         BY VALUE     NULL-POINTER,
000750                                         BY REFERENCE JN-QUEUENAME,
000760                                         BY REFERENCE QD-MSGTITLE,
000770                                  WITH RETURNING TO RESULTCODE.
000780*
000790     MOVE  15  TO  WK-BUFSIZE.
000800     CALL  "DELSPACE"  USING  JN-QUEUENAME  WK-BUFSIZE.
000810*
000820*    ֐̖߂l̔
000830     IF  RESULTCODE IS NOT = 0
000840         THEN  DISPLAY  "    WuL[̎QƂɎs܂"
000850               GO TO INPUTJOBQUE
000860         ELSE  DISPLAY  "    WuL[̎QƂɐ܂"
000880               DISPLAY  "    WuL[" JN-QUEUENAME "ł"
000890     END-IF.
000900*
000910     GO TO  GETJOBQINFO.
000920*
000930* WuL[[U͂
000940 INPUTJOBQUE.
000950     DISPLAY  "WuL[(15ȓ)H".
000960     ACCEPT  JN-QUEUENAME.
000970     MOVE  15  TO  WK-BUFSIZE.
000980     CALL  "DELSPACE"  USING  JN-QUEUENAME  WK-BUFSIZE.
000990*
000991 GETJOBQINFO.
000990*
001000*    WuL[擾֐̌Ăяo
001010     CALL  "_JmssGetJobQueue"  USING  BY REFERENCE JN-SERVERNAME,
001020                                      BY REFERENCE JN-QUEUENAME,
001030                                      BY REFERENCE JMSSJOBQINFO,
001040                               WITH RETURNING TO RESULTCODE.
001050*
001060*    ֐̖߂l̔
001070     IF  RESULTCODE IS NOT = 0
001080         THEN  CALL  "MKERRMSG" USING  RESULTCODE  ERR-MSG
001090               DISPLAY  ERR-MSG
001100               DISPLAY  "I܂"
001110               GO TO  END-PROC
001120         ELSE  DISPLAY  "WuL[̎擾ɐ܂"
001130     END-IF.
001140*
001150*    擾WuL[̕\
001160     DISPLAY                                    " ".
001170     DISPLAY                                    "WuL[         = " JQ-QUEUENAME.
001210     EVALUATE JQ-QUEUECONDITION
001220         WHEN JMSS_JOBQUECOND_OPEN     DISPLAY  "                   = J"
001230         WHEN JMSS_JOBQUECOND_CLOSE    DISPLAY  "                   = "
001240     END-EVALUATE.
001250     DISPLAY                                    "őWuL[dx = " JQ-MAXRUNNINGJOB.
001260     DISPLAY                                    "ݎsWu     = " JQ-CURRUNNINGJOB.
001270     DISPLAY                                    "őo^Wu       = " JQ-MAXENTRYJOB.
001280     DISPLAY                                    "ݓo^ς݂̃Wu = " JQ-CURENTRYJOB.
001290     EVALUATE JQ-ENTRYSTATUS
001300         WHEN JMSS_JOBQUEENTSTS_NORMAL  DISPLAY "o^               = o^\Wu90%ȉł."
001310         WHEN JMSS_JOBQUEENTSTS_WARNING DISPLAY "o^               = o^\Wu90%𒴂Ă܂."
001320         WHEN JMSS_JOBQUEENTSTS_ERROR   DISPLAY "o^               = o^\WuɒBĂ܂."
001330     END-EVALUATE.
001340*
001350*    \̊mF
001360     DISPLAY  "I܂(HIT RETURN KEY)".
001370     ACCEPT  IN-YESNO.
001380*
001390 END-PROC.
001400     MOVE  RESULTCODE  TO  COMPLETION-CODE.
001410     STOP  RUN.
