Sample CICS Pseudo Conversational Program

CICS-Customer information control system. It is a transaction server, run especially on mainframe under ZO/S or ZOS/E. The processing in CICS 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.

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.
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.

Advertisements

Author: Srini

Experienced software developer. Skills in Development, Coding, Testing and Debugging. Good Data analytic skills (Data Warehousing and BI). Also skills in Mainframe.