H***************************************************************** H* * H* システム名 : 　　　　　　　　　　　　　　 　　　　 * H* サブシステム名 : 　　　　　　　　 * H* プログラム名 : ＭＱ送信サンプル　　　　　　　　　　 * H* プログラムＩＤ : ＭＱＳＮＤ　 * H* * H* 作　成　者 : ＨＲＭ　　　　　　　　　　　　　 　　 * H* 作　成　日 : * H* * H* 変　更　者 : 　　　　　　　　　　　　　　　　　　 * H* 変　更　日 : 　　　　　　　　　　　　　　　　　　 * H* * H* プログラム概要 * H*C H*C H***************************************************************** H Y/ 1 F**************************************************************** F* Ｆ　Ｉ　Ｌ　Ｅ * F**************************************************************** F*ＩＮＰＵＴファイル FINPUTF IF F 128 DISK E**************************************************************** E* ＡＲＲＡＹ * E**************************************************************** I**************************************************************** I* Ｄ　Ｓ * I**************************************************************** I*<<ＩＮＰＵＴ　エリア>> IINPUTF AA 01 I 1 128 AREA I* I*<<ＭＱセーブ用DS>> I* IMES DS I 1 74 \MES1 IMQOD1 DS 300 IMQMD1 DS 500 IMQPMO1 DS 300 IHOBJ1 DS 10 I*　 I*------------------------------------------------ I*　 I*------------------------------------------------------- I*<<ＭＱＩ名称定義>> I/COPY QMQM/QRPGSRC,CMQR I* I*<< OBJECTDESCRIPTOR >> IMQOD DS I/COPY QMQM/QRPGSRC,CMQODR I* I*<< MESSAGE DESCRIPTOR >> IMQMD DS I/COPY QMQM/QRPGSRC,CMQMDR I* I*<< PUT MESSAGE DESCRIPTOR >> IMQPMO DS I/COPY QMQM/QRPGSRC,CMQPMOR I*<<ＭＱPUT用バッファ>> IBUFFER DS I 1 128 B#128 C**************************************************************** C* ＰＡＲＭ　ＬＩＳＴ * C**************************************************************** C* C**************************************************************** C* ＫＥＹ　ＬＩＳＴ　 * C**************************************************************** C* C**************************************************************** C*C ＭＡＩＮ　ＲＯＵＴＩＮＥ * C**************************************************************** C* C*<<ＭＱのオープン>> C EXSR #MQOPN オープン C*<<ＭＱ送信処理>> C EXSR #MQSND メイン C*<<ＭＱのクローズ>> C EXSR #MQCLS クローズ C*<<終了処理>> C EXSR #END 終了処理 C* C**************************************************************** C*CＭＱ送信処理 C**************************************************************** C #MQSND BEGSR C* C DO *HIVAL C*ＥＯＦ　ＤＬＹ C READ INPUTF 9990送信データ C *IN99 IFEQ *ON C EXSR #ERR ＤＢエラー C ENDIF C* C Z-ADD128 LENGS 40 C CLEARBUFFER データ部　 C MOVELAREA BUFFER データ部　 C EXSR #MQPUT ＭＱＰＵＴ C* C ENDDO 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* C ENDSR C* C**************************************************************** C*C全ＭＱＯＰＥＮ C**************************************************************** C #MQOPN BEGSR C* C MOVE *BLANK ODON C*ＲＭＴ　ＭＱＭ　ＱＵＥ名（ＳＮＤＱＵＥ） C MOVEL'SNDQ1 ' ODON C EXSR #MQOP1 MQ OPEN C MOVELMQOD MQOD1 ﾊﾞｯﾌｧｾｰﾌﾞ C MOVELMQMD MQMD1 ﾊﾞｯﾌｧｾｰﾌﾞ C MOVELMQPMO MQPMO1 ﾊﾞｯﾌｧｾｰﾌﾞ C MOVELHOBJ HOBJ1 ﾊﾞｯﾌｧｾｰﾌﾞ C* C ENDSR C* C**************************************************************** C*CＭＱ ＯＰＥＮ C**************************************************************** C #MQOP1 BEGSR C* C Z-ADDHCDEFH HCONN C* C OOOUT 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* <<エラーチェック処理>> C EXSR #MQERC ERR CHECK C* C ENDSR C* C**************************************************************** C*CＭＱ ＰＵＴ C**************************************************************** C #MQPUT BEGSR C* <<ＭＱＰＵＴ>> C EXSR #MQPU1 ＭＱＰＵＴ C* <<エラーチェック処理>> C EXSR #MQERC ERR CHECK C* C ENDSR C* C**************************************************************** C*CＭＱ ＰＵＴ　　 C**************************************************************** C #MQPU1 BEGSR C* C MOVELMQOD1 MQOD ﾊﾞｯﾌｧﾘｶﾊﾞ C MOVELMQMD1 MQMD ﾊﾞｯﾌｧﾘｶﾊﾞ C MOVELMQPMO1 MQPMO ﾊﾞｯﾌｧﾘｶﾊﾞ C MOVELHOBJ1 HOBJ ﾊﾞｯﾌｧﾘｶﾊﾞ C* C* <<ＭＱＰＵＴ>> C* C Z-ADDPMSYP PMOPT C Z-ADDPEPER MDPER C Z-ADDLENGS BUFLEN C* C MOVELFMSTR MDFMT C* C Z-ADDMQPUT CID オープン C CALL 'QMQM' MQ PUT C PARM CID 90 オープン C PARM HCONN 90 C PARM HOBJ 90 ﾊﾞｯﾌｧﾘｶﾊﾞ C PARM MQMD ﾊﾞｯﾌｧﾘｶﾊﾞ C* C PARM MQPMO ﾊﾞｯﾌｧﾘｶﾊﾞ C PARM BUFLEN 90 C PARM BUFFER データ部　 C* C PARM CCODE 90 C PARM REASON 90 C* C COMIT C* C* <<バッファセーブ>> C* C MOVELMQOD MQOD1 ﾊﾞｯﾌｧｾｰﾌﾞ C MOVELMQMD MQMD1 ﾊﾞｯﾌｧｾｰﾌﾞ C MOVELMQPMO MQPMO1 ﾊﾞｯﾌｧｾｰﾌﾞ C MOVELHOBJ HOBJ1 ﾊﾞｯﾌｧｾｰﾌﾞ C* C ENDSR C* C**************************************************************** C*C全　ＭＱＣＬＯＳＥ C**************************************************************** C #MQCLS BEGSR C* C MOVELMQOD1 MQOD ﾊﾞｯﾌｧﾘｶﾊﾞ C MOVELMQMD1 MQMD ﾊﾞｯﾌｧﾘｶﾊﾞ C MOVELMQPMO1 MQPMO ﾊﾞｯﾌｧﾘｶﾊﾞ C MOVELHOBJ1 HOBJ ﾊﾞｯﾌｧﾘｶﾊﾞ C EXSR #MQCL1 MQ CLOSE C* C ENDSR C* C**************************************************************** C*CＭＱ ＣＬＯＳＥ C* オープンされているときのみクローズ処理を行う * C**************************************************************** C #MQCL1 BEGSR C* C OCODE IFNE CCFAIL C Z-ADDMQCLOS CID クローズ C Z-ADDCONONE OPTS C CALL 'QMQM' MQCLOSE C PARM CID 90 オープン C PARM HCONN 90 C PARM HOBJ 90 ﾊﾞｯﾌｧﾘｶﾊﾞ C PARM OPTS 90 C* C PARM CCODE 90 C PARM REASON 90 C* C* <<エラーチェック処理>> C EXSR #MQERC ERR CHECK C* C ENDIF C* C ENDSR C* C**************************************************************** C*CＭＱエラーチェック C**************************************************************** C #MQERC BEGSR C* C CCODE IFEQ CCFAIL ＭＱ異常 C EXSR #ERR C ENDIF C* C CCODE IFEQ CCWARN ＭＱ警告 C EXSR #ERR C ENDIF C* C ENDSR C* C**************************************************************** HOME http://wague.zero-city.com