hi frank,
i have two input files.
input1:(LENGTH 3)
ABC
DEF
INPUT2:(LENGTH )
123
345
Output:
ABC123
DEF345
can you please tell me how to arrive this .
Urgent : Frank can you please help me on this
Moderators: Frank Yaeger, DikDude, Moderator Group
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
Assuming, as implied by your example, that you want to join record n of file1 with each corresponding record n of file2, you can use a DFSORT JOINKEYS job like the following:
Code: Select all
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/3)
//IN2 DD DSN=... input file2 (FB/3)
//SORTOUT DD DSN=... output file (FB/6)
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(4,8,A),SORTED,NOSEQCK
JOINKEYS F2=IN2,FIELDS=(4,8,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:1,3,F2:1,3)
OPTION COPY
/*
//JNF1CNTL DD *
INREC OVERLAY=(4:SEQNUM,8,BI)
/*
//JNF2CNTL DD *
INREC OVERLAY=(4:SEQNUM,8,BI)
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
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