H*****************************************************************
     H*                                                               *
     H*   システム名      : 　　　　　　　　　　　　　　　　　　  *
     H*   サブシステム名  : 　　　　　　　　　　　　　　　　　　  *
     H*   プログラム名    : ＭＱ受信サンプル　　　　　　　　　　  *
     H*   プログラムＩＤ  : ＭＱＲＣＶ　                          *
     H*                                                               *
     H*     作　成　者    : ＨＲＭ　　　　　　　　　　　　　　　  *
     H*     作　成　日    :                                         *
     H*                                                               *
     H*     変　更　者    : 　　　　　　　　　　　　　　　　　　  *
     H*     変　更　日    : 　　　　　　　　　　　　　　　　　　  *
     H*                                                               *
     H*  プログラム概要                                             *
     H*C
     H*C
     H*C
     H*C
     H*****************************************************************
     H            Y/                                    1
     F****************************************************************
     F*                    Ｆ　Ｉ　Ｌ　Ｅ                          *
     F****************************************************************
     F*受信データ出力ファイル
     FOUTF    O   F     256            DISK
     F*
     E****************************************************************
     E*                    ＡＲＲＡＹ                              *
     E****************************************************************
     I****************************************************************
     I*                    Ｄ　Ｓ                                  *
     I****************************************************************
     I*＜＜ＭＱＩ名称定義＞＞
     I/COPY QMQM/QRPGSRC,CMQR
     I*
     I*＜＜OBJECT DESCRIPTOR＞＞
     IMQOD        DS
     I/COPY QMQM/QRPGSRC,CMQODR
     I*
     I*＜＜MESSAGE DESCRIPTOR＞＞
     IMQMD        DS
     I/COPY QMQM/QRPGSRC,CMQMDR
     I*
     I*＜＜PUT MESSAGE DESCRIPTOR＞＞
     IMQGMO       DS
     I/COPY QMQM/QRPGSRC,CMQGMOR
     I*＜＜ＭＱGET 用バッファ＞＞
     IBUFFER      DS                           4096
     C****************************************************************
     C*                    ＰＡＲＭ　ＬＩＳＴ                      *
     C****************************************************************
     C****************************************************************
     C*                    ＫＥＹ　ＬＩＳＴ　                      *
     C****************************************************************
     C****************************************************************
     C*CＭＡＩＮ　ＲＯＵＴＩＮＥ
     C****************************************************************
     C*
     C*<<初期処理>>
     C                     EXSR #INIT                      初期処理
     C*<< MQ OPEN >>
     C                     EXSR #MQOPN                      MQ OPEN
     C*<<受信処理>>
     C                     EXSR #MQRCV                     受信処理
     C*<< MQ CLOSE >>
     C                     EXSR #MQCLS                      MQ CLOSE
     C*<<終了>>
     C                     EXSR #ERR
     C*<<終了処理>>
     C                     EXSR #END                       終了処理
     C*
     C****************************************************************
     C*C初期処理
     C****************************************************************
     C           #INIT     BEGSR
     C                     ENDSR
     C****************************************************************
     C*C受信処理
     C****************************************************************
     C           #MQRCV    BEGSR
     C*MQ GET
     C                     DO   *HIVAL
     C                     EXSR #MQGET
     C                     MOVELBUFFER    DATA  256
     C                     EXCPTOUTFR
     C                     ENDDO
     C*
     C                     ENDSR
     C*
     C****************************************************************
     C*CＭＱ　ＯＰＥＮ
     C****************************************************************
     C           #MQOPN    BEGSR
     C*
     C*ＬＯＣＡＬ　ＭＱＭ名
     C                     MOVEL'RBQ03'   ODON      P
     C                     Z-ADDHCDEFH    HCONN
     C*
     C           OOINPQ    ADD  OOFIQ     OPTS
     C*
     C                     Z-ADDMQOPEN    CID
     C                     CALL 'QMQM'                     MQ OPEN
     C                     PARM           CID     90
     C                     PARM           HCONN   90
     C                     PARM           MQOD
     C                     PARM           OPTS    90
     C*
     C                     PARM           HOBJ    90
     C                     PARM           OCODE   90
     C                     PARM           REASON  90
     C*
     C*MQ OPEN 時のエラー処理
     C*          OCODE     IFNE CCFAIL
     C           REASON    IFNE RCNONE
     C                     EXSR #ERR
     C                     EXSR #END
     C                     ENDIF
     C*
     C                     ENDSR
     C****************************************************************
     C*CＭＱ　ＧＥＴ
     C****************************************************************
     C           #MQGET    BEGSR
     C*
     C                     Z-ADD4096      BUFLEN
     C*
     C                     Z-ADDGMWT      GMOPT
     C                     ADD  GMCONV    GMOPT
     C*
     C                     Z-ADDWIULIM    GMWI
     C*
     C                     MOVELMINONE    MDMID
     C                     MOVELCINONE    MDCID
     C                     MOVEL*BLANK    BUFFER
     C*
     C                     Z-ADDMQGET     CID
     C                     CALL 'QMQM'                     MQ GET
     C                     PARM           CID     90
     C                     PARM           HCONN   90
     C                     PARM           HOBJ    90
     C                     PARM           MQMD
     C*
     C                     PARM           MQGMO
     C                     PARM           BUFLEN  90
     C                     PARM           BUFFER
     C                     PARM           MESLEN  90
     C*
     C                     PARM           CCODE   90
     C                     PARM           REASON  90
     C*
     C           CCODE     IFNE CCFAIL
     C*
     C           REASON    IFNE RCNONE
     C                     EXSR #ERR
     C                     ENDIF
     C*
     C                     ELSE
     C*MQ ERROR メッセージを表示しプログラムを終了する
     C                     EXSR #ERR
     C                     EXSR #END                       * PROGRAM END
     C                     ENDIF
     C*
     C                     ENDSR
     C****************************************************************
     C*CＭＱ　ＣＬＯＳＥ
     C****************************************************************
     C           #MQCLS    BEGSR
     C*
     C           CCODE     IFNE CCFAIL
     C*
     C                     Z-ADDMQCLOS    CID
     C                     Z-ADDCONONE    OPTS
     C                     CALL 'QMQM'                     MQ CLOSE
     C                     PARM           CID     90
     C                     PARM           HCONN   90
     C                     PARM           HOBJ    90
     C                     PARM           OPTS    90
     C*
     C                     PARM           OCODE   90
     C                     PARM           REASON  90
     C*
     C                     ENDIF
     C*
     C                     ENDSR
     C****************************************************************
     C*C エラー処理
     C****************************************************************
     C           #ERR      BEGSR
     C*
     C*エラー処理追加してください。
     C*
     C                     ENDSR
     C****************************************************************
     C*C終了処理
     C****************************************************************
     C           #END      BEGSR
     C*
     C                     SETON                     LR
     C                     RETRN
     C                     ENDSR
     C****************************************************************
     OOUTF    E                OUTFR
     O                         DATA     256

HOME  http://wague.zero-city.com