Blog Posts - Cics Reading A File Sample Logic



CICS Sample Program to Read a File

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


Trending Topics

Close