How to Read a File CICS
IDENTIFICATIO DIVISION.
PROGRAM-ID. AD12GM.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY FILE01.
COPY FILE02.
01 COMMAREA.
02 VARS PIC X(4).
01 REC1.
02 EID2 PIC X(4).
02 FILLER PIC X.
02 ENAME2 PIC X(10).
02 FILLER PIC X.
02 ESAL2 PIC 9(5).
02 FILLER PIC X(59).
77 LENG PIC S9(4) COMP.
PROCEDURE DIVISION.
MOVE LOW-VALUES TO FILEI.
MOVE LOW-VALUES TO FILE1I.
MOVE LOW-VALUES TO FILEO.
MOVE LOW-VALUES TO FILE1O.
EXEC CICS SEND
MAP(‘FILE1’)
MAPSET(‘FILE02’)
ERASE
END-EXEC.
PERFORM READ-PARA.
EXEC CICS SEND
MAP(‘FILE’)
MAPSET(‘FILE01’)
END-EXEC.
EXEC CICS RETURN END-EXEC.
STOP RUN.
READ-PARA.
EXEC CICS RECEIVE
MAP(‘FILE1’)
MAPSET(‘FILE02’)
END-EXEC.
MOVE EID1I TO EID2.
EXEC CICS READ
FILE(‘FILE001’)
INTO(REC1)
RIDFLD(EID2)
LENGTH(LENGTH OF REC1)
END-EXEC.
MOVE EID2 TO EIDO.
MOVE ENAME2 TO ENAMEO.
MOVE ESAL2 TO ESALO.
Keep Reading
Latest from the Blog
Databricks RSA Preparation: Top Interview Questions and Answers (2026 Guide)
Meta Description: Prepare for Databricks RSA interviews with these frequently asked questions and detailed answers covering Delta Lake, Unity Catalog, Spark, SQL, Performance Tuning, Workflows, and more.
How to Create a Subagent in Claude Code: A Step-by-Step Guide
Learn how to create custom subagents in Claude Code — from YAML frontmatter setup to tool restrictions and model selection. Step-by-step guide with examples.
Migrating from Hive Metastore to Unity Catalog in Databricks: Complete Step-by-Step Guide
Learn how to migrate from Hive Metastore to Unity Catalog in Databricks with this complete step-by-step guide covering architecture, security, governance, migration strategies, best practices, and real-world examples.
