Page 1 of 1
Urgent : Frank can you please help me on this
Posted: Thu Feb 16, 2012 8:08 pm
by hary1987
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 .
Posted: Thu Feb 16, 2012 10:31 pm
by MrSpock
Why not use a SORT program with a JOINKEYS operation?
Posted: Thu Feb 16, 2012 10:57 pm
by Frank Yaeger
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)
/*