---
title: "Sample CICS Program for real pseudo conversation"
description: "Sample CICS program to use in your projects"
url: https://srinimf.com/2015/04/06/sample-cics-pseudo-conversational-program/
date: 2015-04-06
modified: 2026-10-10
author: "Srini"
image: https://i0.wp.com/srinimf.com/wp-content/uploads/2015/04/sample-cics-program-1.png?fit=1200%2C600&ssl=1
categories: ["CICS"]
tags: ["CICS tips and Tricks", "Sample CICS program"]
type: post
lang: en
---

# Sample CICS Program for real pseudo conversation

CICS-Customer information control system. It is a transaction server, run especially on mainframe under ZO/S or ZOS/E. The processing [in CICS](https://srinimf.com/2012/03/30/cics-transaction-server-4-2/) is interactive. CICS has its highest profile among financial institutions such as banks and insurance companies. Over 90 percent of Fortune 500 companies, run under CICS.

Below are the sample CICS programs. The ways mentioned below shows how one can write program under CICS. Below is an example of COBOL-CICS program.

Related[CICS Sample Program to Write Header and Footer](https://srinimf.com/2016/04/06/cics-sample-code-for-header-and-footer/)

```
IDENTIFICATION DIVISION.
PROGRAM-ID. SEARCHS.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE ASSIGN TO DD1
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS ENO
FILE STATUS IS FS1.
[DATA DIVISION](https://srinimf.com/2015/06/23/cobol-data-division-clauses-1-of-3/).
FILE SECTION.
FD IN-FILE.
01 IN-REC.
02 ENO PIC 9(4).
02 ENAME PIC X(4).
02 SAL PIC 9(5).
02 FILLER PIC X(67).
WORKING-STORAGE SECTION.
77 FS1 PIC 9(2).
77 REL-KEY PIC 9.
01 IN-REC1.
03 ENO1 PIC 9(4).
03 ENAME1 PIC X(4).
03 SAL1 PIC 9(5).
03 FILLER PIC X(67).
PROCEDURE DIVISION.
PERFORM OPEN-PARA.
MOVE 0003 TO ENO
START IN-FILE
KEY IS = ENO
INVALID KEY GO TO CLOSE-PARA.
PERFORM SEARCH-PARA.
OPEN-PARA.
OPEN I-O IN-FILE.
SEARCH-PARA.
READ IN-FILE NEXT RECORD INTO IN-REC1
AT END DISPLAY "END".
IF ENO = ENO1
MOVE IN-REC TO IN-REC1
DISPLAY IN-REC1
ELSE
DISPLAY "NOT FOUND"
GO TO SEARCH-PARA.
CLOSE-PARA.
CLOSE IN-FILE.
```

Related[CentOs Command: How to Set Big Font Size](https://srinimf.com/2018/02/22/centos-command-change-font-size/)

### 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%2F2015%2F04%2F06%2Fsample-cics-pseudo-conversational-program%2F&media=https%3A%2F%2Fi0.wp.com%2Fsrinimf.com%2Fwp-content%2Fuploads%2F2015%2F04%2Fsample-cics-program-1.png%3Ffit%3D1200%252C600%26ssl%3D1&description=Sample%20CICS%20Program%20for%20real%20pseudo%20conversation)
-
- [Share on Tumblr](https://www.tumblr.com/share)
- [Share on WhatsApp (Opens in new window) WhatsApp](https://srinimf.com/2015/04/06/sample-cics-pseudo-conversational-program/?share=jetpack-whatsapp)
- [More](#)
-

- [Print (Opens in new window) Print](https://srinimf.com/2015/04/06/sample-cics-pseudo-conversational-program/?share=print)
- [Share on Reddit (Opens in new window) Reddit](https://srinimf.com/2015/04/06/sample-cics-pseudo-conversational-program/?share=reddit)
- [Share on Telegram (Opens in new window) Telegram](https://srinimf.com/2015/04/06/sample-cics-pseudo-conversational-program/?share=telegram)
- [Email a link to a friend (Opens in new window) Email](mailto:?subject=%5BShared%20Post%5D%20Sample%20CICS%20Program%20for%20real%20pseudo%20conversation&body=https%3A%2F%2Fsrinimf.com%2F2015%2F04%2F06%2Fsample-cics-pseudo-conversational-program%2F&share=email)
-

### Like this:

Like Loading…