I have two input files, I have to read the input file 2 record and check whether the key matches, If matches i need to write in the output file1
input file 1:- key strts from I1-KEY-1 1 00007 A
Input file2:- key strts from I2-KEY-2 4 00007 A
Output file1:-
Program:-
LIST ON
*
FILE INFILE1 VB(0 0)
INFILE1-REC 1 27992 A
I1-KEY-1 1 00007 A
*
FILE INFILE2 VB(0 0)
INFILE2-REC 1 27992 A
I2-KEY-1 1 00003 A
I2-KEY-2 4 00007 A
*
*
FILE OUTFILE1
OUTFILE1-REC 1 27992 A
*
JOB INPUT (INFILE1 KEY (I1-KEY-1) +
INFILE2 KEY (I2-KEY-2))
IF MATCHED
PUT OUTFILE1 FROM INFILE2
END-IF
Its giving an error as system completion code 837 REASON=00000008
system completion code 837 REASON=00000008 in easytrive prgm
Moderators: DikDude, Moderator Group
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page