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
Tony Robbins Vocabulary: 50 Powerful Words and Phrases to Improve Your English
Learn 50 powerful Tony Robbins vocabulary words and phrases with simple meanings and example sentences to improve your English speaking skills
Migrating JSON Files from AWS S3 to PostgreSQL Using AWS Glue and PySpark
Migrating JSON files from AWS S3 to PostgreSQL using AWS Glue and PySpark is one of the most common data engineering challenges teams face today. In this guide, you will learn exactly how to build a production-grade AWS Glue JSON to PostgreSQL migration pipeline — from reading raw JSON files in S3 to writing clean,…
5 PySpark Performance Anti-Patterns on Databricks (And How to Fix Them)
Databricks makes scaling big data processing feel almost effortless. Under the hood, however, writing PySpark without understanding how Apache Spark and Delta Lake execute your code can quietly ruin performance, spike DBU costs, and cause out-of-memory (OOM) crashes. Below are 5 common PySpark anti-patterns seen in production, along with exact code fixes to keep your…
