---
title: "COBOL with MQSeries Sample Program"
description: "How to use MQSeries calls in COBOL is explained using a sample program."
url: https://srinimf.com/2014/03/08/mq-series-cobol/
date: 2014-03-08
modified: 2026-10-10
author: "Srini"
image: https://i0.wp.com/srinimf.com/wp-content/uploads/2014/03/field-of-rapeseeds-oilseed-rape-blutenmeer-yellow-46164.jpeg?fit=1880%2C1253&ssl=1
categories: ["COBOL", "MQSeries"]
tags: ["MQ COBOL"]
type: post
lang: en
---

# COBOL with MQSeries Sample Program

Sample program with MQSeries in COBOL. It shows [how to](https://srinimf.com/2016/03/14/how-to-open-a-queue-in-mqseries-with-mqopen/) implement MQSeries calls.

Related[IBM MQSERIES for ZOS tutorial to read](https://srinimf.com/2014/05/19/ibm-mqseries-for-zos/)

## Sample MQSeries program

Here’s the way [to use](https://srinimf.com/2014/12/02/cemt-use-for-closing-file/) MQGET and MQPUT calls.

Related[MQSeries Tutorial for Mainframe Programmers (2 of 5)](https://srinimf.com/2015/09/23/mqseries-tutorial-for-mainframe-programmers-2-of-5/)

```
PROCEDURE DIVISION.
INPUT FILES.
CALL 'MQGET' USING HANDLE.
OPEN INPUT-FILE.
CLOSE INPUT-FILE.

OUTPUT FILES.

CALL 'MQPUT' USING HANDLE.
OPEN OUTPUT-FILE.
CLOSE OUTPUT-FILE.
```

#### **Related**

- [MQSeries refresher](https://srinimf.com/wp-content/uploads/2014/05/mqseries.doc)
- [More MQSeries with COBOL sample programs](http://www.capitalware.biz/mq_code_cobol.html)

### Share this:

-
- [Tweet](https://twitter.com/share)
- [![](https://i0.wp.com/assets.pinterest.com/images/pidgets/pinit_fg_en_rect_gray_20.png)](https://www.pinterest.com/pin/create/link/?url=https%3A%2F%2Fsrinimf.com%2F2014%2F03%2F08%2Fmq-series-cobol%2F&media=https%3A%2F%2Fi0.wp.com%2Fsrinimf.com%2Fwp-content%2Fuploads%2F2014%2F03%2Ffield-of-rapeseeds-oilseed-rape-blutenmeer-yellow-46164.jpeg%3Ffit%3D1200%252C800%26ssl%3D1&description=COBOL%20with%20MQSeries%20Sample%20Program)
-
- [Share on Tumblr](https://www.tumblr.com/share)
- [Share on WhatsApp (Opens in new window) WhatsApp](https://srinimf.com/2014/03/08/mq-series-cobol/?share=jetpack-whatsapp)
- [More](#)
-

- [Print (Opens in new window) Print](https://srinimf.com/2014/03/08/mq-series-cobol/?share=print)
- [Share on Reddit (Opens in new window) Reddit](https://srinimf.com/2014/03/08/mq-series-cobol/?share=reddit)
- [Share on Telegram (Opens in new window) Telegram](https://srinimf.com/2014/03/08/mq-series-cobol/?share=telegram)
- [Email a link to a friend (Opens in new window) Email](mailto:?subject=%5BShared%20Post%5D%20COBOL%20with%20MQSeries%20Sample%20Program&body=https%3A%2F%2Fsrinimf.com%2F2014%2F03%2F08%2Fmq-series-cobol%2F&share=email)
-

### Like this:

Like Loading…