Urgent : Frank can you please help me on this

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
hary1987
Member
Posts: 1
Joined: Thu Feb 16, 2012 8:01 pm

Urgent : Frank can you please help me on this

Post by hary1987 » Thu Feb 16, 2012 8:08 pm

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 .

MrSpock
Active Member
Posts: 273
Joined: Wed Jun 27, 2007 5:37 pm

Post by MrSpock » Thu Feb 16, 2012 10:31 pm

Why not use a SORT program with a JOINKEYS operation?

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Thu Feb 16, 2012 10:57 pm

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

Post Reply

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



Other References
Mainframe Tools and others